Procedure

TfrmNotes.pnlFieldsResize

Module

fNotes

Last Modified

7/15/2014 3:26:38 PM

Comments

Center the reference date on the panel

Visibility

Public/Published

Owner

TfrmNotes

Declaration

procedure pnlFieldsResize(Sender: TObject);

Calls Hierarchy


TfrmNotes.pnlFieldsResize
 └TfrmNotes.UpdateFormForInput
   └TimedOut

Calls

Name Declaration Comments
TfrmNotes.UpdateFormForInput procedure UpdateFormForInput; -


Source

1603  procedure TfrmNotes.pnlFieldsResize(Sender: TObject);
1604  { center the reference date on the panel }
1605  begin
1606    inherited;
1607    lblRefDate.Left := (pnlFields.Width - lblRefDate.Width) div 2;
1608    if lblRefDate.Left < (lblNewTitle.Left + lblNewTitle.Width + 6)
1609      then lblRefDate.Left := (lblNewTitle.Left + lblNewTitle.Width);
1610    UpdateFormForInput;
1611  end;