Procedure

TfrmSurgery.pnlFieldsResize

Module

fSurgery

Last Modified

7/15/2014 3:26:38 PM

Comments

Center the reference date on the panel

Visibility

Public/Published

Owner

TfrmSurgery

Declaration

procedure pnlFieldsResize(Sender: TObject);


Source

1369  procedure TfrmSurgery.pnlFieldsResize(Sender: TObject);
1370  { center the reference date on the panel }
1371  begin
1372    inherited;
1373    lblRefDate.Left := (pnlFields.Width - lblRefDate.Width) div 2;
1374    if lblRefDate.Left < (lblNewTitle.Left + lblNewTitle.Width + 6)
1375      then lblRefDate.Left := (lblNewTitle.Left + lblNewTitle.Width);
1376  end;