Class TfrmCustomGoPhast

DescriptionHierarchyFieldsMethodsProperties

Unit

frmCustomGoPhastUnit

Declaration

type TfrmCustomGoPhast = class(TForm)

Description

TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

TfrmCustomGoPhast handles setting the color and font. TfrmCustomGoPhast also tries to keep from appearing at a location where it can't be seen. )

Hierarchy

Overview

Fields

Private FCallingHelp: Boolean;

Methods

Implicit procedure FormCreate(Sender: TObject); virtual;
Implicit procedure FormShow(Sender: TObject);
Implicit procedure btnHelpClick(Sender: TObject);
Implicit function FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
Implicit procedure FormDestroy(Sender: TObject); virtual;
Private function CallHelpRouter: boolean;
Private procedure DestroyGLSceneViewers(ParentComponent: TComponent);
Private procedure EnsureFormVisible;
Private procedure FixGridEditorPosition(AComponent: TComponent);
Protected procedure UpdateStringTreeViewCheckedState(TreeView: TVirtualStringTree; BaseNode: PVirtualNode; NewState: TCheckState);
Protected procedure AdjustFormPosition(DesiredPosition: TDesiredPosition);
Protected procedure EmphasizeCheckBoxes(const CheckBoxArray: array of TCheckBox);
Protected procedure SetAppearance;
Public procedure MouseClick;
Public procedure UpdateSubComponents(AComponent: TComponent);
Public procedure CustomizeControls;

Description

Fields

Private FCallingHelp: Boolean;
 

Methods

Implicit procedure FormCreate(Sender: TObject); virtual;

FormCreate is the event handler for OnCreate. It calls CustomizeControls.

Implicit procedure FormShow(Sender: TObject);

FormShow is the eventhandler for OnShow. It moves the form to try to get it completely on the screen and calls SetAppearance.

Implicit procedure btnHelpClick(Sender: TObject);
 
Implicit function FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;

Use this version for Delphi XE

Implicit procedure FormDestroy(Sender: TObject); virtual;
 
Private function CallHelpRouter: boolean;
 
Private procedure DestroyGLSceneViewers(ParentComponent: TComponent);
 
Private procedure EnsureFormVisible;
 
Private procedure FixGridEditorPosition(AComponent: TComponent);
 
Protected procedure UpdateStringTreeViewCheckedState(TreeView: TVirtualStringTree; BaseNode: PVirtualNode; NewState: TCheckState);
 
Protected procedure AdjustFormPosition(DesiredPosition: TDesiredPosition);

AdjustFormPosition adjusts the position of Form to the left or right of the main form, if possible. If there isn't room for it at the desired position it will try the other side. If there isn't room there either, it will have it overlap the form on the desired side. A side effect is that it sets Form.Position to poDesigned.

Protected procedure EmphasizeCheckBoxes(const CheckBoxArray: array of TCheckBox);

EmphasizeCheckBoxes checks that at least one of the TCheckBoxes in CheckBoxArray is checked. If not the color of all of them is set to clRed and all have their fonts changed to bold.

Protected procedure SetAppearance;

SetAppearance checks if GlobalFont is nil. If not, it sets the color, font, and icon used in the form to be GlobalFont, GlobalColor and Application.Icon. GlobalFont and GlobalColor should be set in the Applications OnCreate event handler.

Public procedure MouseClick;
 
Public procedure UpdateSubComponents(AComponent: TComponent);
 
Public procedure CustomizeControls;

If the Application.MainForm has been assigned, CustomizeControls sets the color, font, and icon used in the form to be the same as in Application.MainForm via a call to SetAppearance.

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:34