Procedure

TfrmConsults.sptHorzCanResize

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsults

Declaration

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


Source

4760  procedure TfrmConsults.sptHorzCanResize(Sender: TObject; var NewSize: Integer;
4761    var Accept: Boolean);
4762  begin
4763    inherited;
4764    if pnlResults.Visible then
4765       if NewSize > frmConsults.ClientWidth - memResults.Constraints.MinWidth - sptHorz.Width then
4766          NewSize := frmConsults.ClientWidth - memResults.Constraints.MinWidth - sptHorz.Width;
4767  end;