Procedure

TfrmSurgery.sptHorzCanResize

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure sptHorzCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);


Source

2657  procedure TfrmSurgery.sptHorzCanResize(Sender: TObject; var NewSize: Integer;
2658    var Accept: Boolean);
2659  begin
2660    inherited;
2661    if pnlWrite.Visible then
2662       if NewSize > frmSurgery.ClientWidth - memNewNote.Constraints.MinWidth - sptHorz.Width then
2663          NewSize := frmSurgery.ClientWidth - memNewNote.Constraints.MinWidth - sptHorz.Width;
2664  end;