Procedure

TfrmTemplateDialog.SizeFormToCancelBtn

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TfrmTemplateDialog

Declaration

procedure SizeFormToCancelBtn();

Called-By Hierarchy


TfrmTemplateDialog.SizeFormToCancelBtn
       TfrmTemplateDialog.FormCreate┘ 

Called-By

Name Declaration Comments
TfrmTemplateDialog.FormCreate procedure FormCreate(Sender: TObject); -


Source

834   procedure TfrmTemplateDialog.SizeFormToCancelBtn;
835   const
836     RIGHT_MARGIN = 12;
837   var
838     minWidth : integer;
839   begin
840     minWidth := btnCancel.Left + btnCancel.Width + RIGHT_MARGIN;
841     if minWidth > Self.Width then
842       Self.Width := minWidth;
843   end;