Procedure

TfrmTemplateDialog.FormPaint

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public/Published

Owner

TfrmTemplateDialog

Declaration

procedure FormPaint(Sender: TObject);

Calls Hierarchy


TfrmTemplateDialog.FormPaint
 ├TfrmTemplateDialog.BuildAllControls
 │ └TfrmTemplateDialog.BuildCB
 │   ├TfrmTemplateDialog.FindObjectByID
 │   │ └TfrmTemplateDialog.GetObjectID
 │   ├GetDialogEntry
 │   │ └TTemplateDialogEntry.Create
 │   │   ├TDlgFieldPanel.Create
 │   │   ├GetTemplateField
 │   │   │ ├LoadTemplateFieldByIEN
 │   │   │ ├LoadTemplateField
 │   │   │ └TTemplateField.Create
 │   │   │   ├TemplateFieldCode2Field
 │   │   │   └TemplateDateCode2DateType
 │   │   ├TTemplateField.GetRequired
 │   │   └TTemplateField.CreateDialogControls
 │   │     ├TCPRSDialogFieldEdit.Create
 │   │     │ └TCPRSDialogComponent.Create
 │   │     ├TTemplateField.GetRequired
 │   │     ├ht
 │   │     ├wdth
 │   │     ├TTemplateField.Width
 │   │     │ └StripEmbedded
 │   │     ├TTemplateDialogEntry.DoChange
 │   │     ├TCPRSDialogComboBox.Create
 │   │     │ └TCPRSDialogComponent.Create
 │   │     ├StripEmbedded
 │   │     ├TfraTemplateFieldButton.Create
 │   │     │ ├TfraTemplateFieldButton.ButtonKeyDown
 │   │     │ │ └TfraTemplateFieldButton.pnlBtnMouseDown
 │   │     │ │   ├TfraTemplateFieldButton.GetButtonText
 │   │     │ │   └TfraTemplateFieldButton.SetButtonText
 │   │     │ ├TfraTemplateFieldButton.ButtonKeyUp
 │   │     │ │ └TfraTemplateFieldButton.pnlBtnMouseUp
 │   │     │ └TCPRSDialogComponent.Create
 │   │     ├TfraTemplateFieldButton.SetButtonText
 │   │     ├TCPRSDialogCheckBox.Create
 │   │     │ └TCPRSDialogComponent.Create
 │   │     ├UpdateIndents
 │   │     │ └wdth
 │   │     ├StrToFMDateTime
 │   │     ├TCPRSDialogDateCombo.Create
 │   │     │ └TCPRSDialogComponent.Create
 │   │     ├TCPRSDialogDateBox.Create
 │   │     │ └TCPRSDialogComponent.Create
 │   │     ├TCPRSDialogNumber.CreatePanel
 │   │     │ └TCPRSDialogComponent.Create
 │   │     ├TTemplateDialogEntry.UpDownChange
 │   │     │ ├EnsureText
 │   │     │ └TTemplateDialogEntry.DoChange
 │   │     ├TCPRSDialogHyperlinkLabel.Create
 │   │     │ ├TCPRSDialogComponent.Create
 │   │     │ └TCPRSDialogHyperlinkLabel.KeyPressed
 │   │     │   └TCPRSDialogHyperlinkLabel.Clicked
 │   │     │     └GotoWebPage
 │   │     ├TCPRSDialogHyperlinkLabel.Init
 │   │     │ └TCPRSDialogHyperlinkLabel.Clicked...
 │   │     └TCPRSDialogRichEdit.Create
 │   │       └TCPRSDialogComponent.Create
 │   ├TTemplateDialogEntry.SetAutoDestroyOnPanelFree
 │   │ └PanelDestroy
 │   ├TfrmTemplateDialog.EntryDestroyed
 │   ├TTemplateDialogEntry.GetPanel
 │   │ ├Init
 │   │ │ ├TTemplateDialogEntry.KillLabels
 │   │ │ └ScreenReaderSystem_CurrentCheckBox
 │   │ │   └ScreenReaderSystem_Stop
 │   │ │     ├UpdateCheckBox
 │   │ │     ├UpdatePending
 │   │ │     └ScreenReaderSystem_Clear
 │   │ ├Text508Work
 │   │ │ ├TTemplateDialogEntry.StripCode
 │   │ │ ├ScreenReaderSystem_Stop...
 │   │ │ ├StripSRCode
 │   │ │ └ScreenReaderSystem_Continue
 │   │ ├TTemplateDialogEntry.StripCode
 │   │ ├NextLine
 │   │ ├DoLabel
 │   │ │ ├Add2TabOrder
 │   │ │ ├ScreenReaderSystem_CurrentLabel
 │   │ │ │ └ScreenReaderSystem_Stop...
 │   │ │ └ScreenReaderSystem_AddText
 │   │ ├Ctrl508Work
 │   │ │ ├ScreenReaderSystem_CurrentLabel...
 │   │ │ ├ScreenReaderSystem_AddText
 │   │ │ ├ScreenReaderSystem_Stop...
 │   │ │ ├Add2TabOrder
 │   │ │ └ScreenReaderSystem_CurrentComponent
 │   │ │   ├UpdateCheckBox
 │   │ │   ├UpdatePending
 │   │ │   └ScreenReaderSystem_Stop...
 │   │ ├TTemplateDialogEntry.SetFieldValues
 │   │ │ └TTemplateDialogEntry.SetControlText
 │   │ │   └TfraTemplateFieldButton.SetButtonText
 │   │ └ScreenReaderSystem_Stop...
 │   ├TTemplateDialogEntry.GetText
 │   │ └ResolveTemplateFields
 │   │   ├TTemplateDialogEntry.GetControlText
 │   │   │ ├GetTemplateField...
 │   │   │ ├GetOriginalItem
 │   │   │ │ ├GetTemplateField...
 │   │   │ │ └StripEmbedded
 │   │   │ └TfraTemplateFieldButton.GetButtonText
 │   │   ├GetTemplateField...
 │   │   ├AddNewTxt
 │   │   └WordWrapText
 │   │     └WrappedText
 │   ├TfrmTemplateDialog.FieldChanged
 │   │ └TTemplateDialogEntry.GetText...
 │   ├TfrmTemplateDialog.ParentCBEnter
 │   ├TfrmTemplateDialog.ParentCBExit
 │   ├TfrmTemplateDialog.ItemChecked
 │   └NextTabCtrl
 └TfrmTemplateDialog.InitScreenReaderSetup

Calls

Name Declaration Comments
TfrmTemplateDialog.BuildAllControls procedure BuildAllControls; -
TfrmTemplateDialog.InitScreenReaderSetup procedure InitScreenReaderSetup; -


Source

684   procedure TfrmTemplateDialog.FormPaint(Sender: TObject);
685   begin
686     if RepaintBuild then
687     begin
688       RepaintBuild := FALSE;
689       BuildAllControls;
690       InitScreenReaderSetup;
691     end;
692   end;