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. It also provides the ShowAForm method. )

Hierarchy

Overview

Methods

Implicit procedure FormCreate(Sender: TObject); virtual;
Implicit procedure FormShow(Sender: TObject);
Protected procedure AdjustFormPosition(DesiredPosition: TDesiredPosition);
Protected procedure EmphasizeCheckBoxes(const CheckBoxArray: array of TCheckBox);
Protected procedure SetInitialBounds; override;
Public procedure CustomizeControls;
Public procedure ShowAForm(const FormClass: TFormClass);

Description

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.

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 SetInitialBounds; override;

SetInitialBounds ensures that the top left corner of the form is on the screen.

Public procedure CustomizeControls;

CustomizeControls sets the color and font used in the form to be the same as in frmGoPhast.

Public procedure ShowAForm(const FormClass: TFormClass);

ShowAForm creates an instance of FormClass and calls ShowModal on that instance.

Generated by PasDoc 0.10.0 on 2006-10-31 09:56:34