Procedure

TfrmTemplateDialog.FormCreate

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateDialog

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmTemplateDialog.FormCreate
 ├TfrmTemplateDialog.AppShowHint
 ├SetFormPosition
 │ └TSizeHolder.GetSize
 └TfrmTemplateDialog.SizeFormToCancelBtn

Calls

Name Declaration Comments
TfrmTemplateDialog.AppShowHint procedure AppShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); -
SetFormPosition procedure SetFormPosition(AForm: TForm); -
TfrmTemplateDialog.SizeFormToCancelBtn procedure SizeFormToCancelBtn(); -


Source

704   procedure TfrmTemplateDialog.FormCreate(Sender: TObject);
705   begin
706     uTemplateDialogRunning := True;
707     FFirstBuild := TRUE;
708     BuildIdx := TStringList.Create;
709     Entries := TStringList.Create;
710     NoTextID := TStringList.Create;
711     FOldHintEvent := Application.OnShowHint;
712     Application.OnShowHint := AppShowHint;
713     //ResizeAnchoredFormToFont(Self);
714     FMaxPnlWidth := FontWidthPixel(sbMain.Font.Handle) * MAX_ENTRY_WIDTH; //AGP change Template Dialog to wrap at 80 instead of 74
715     SetFormPosition(Self);
716     ResizeAnchoredFormToFont(Self);
717     SizeFormToCancelBtn();
718   end;