Class TfrmSelectObjects

DescriptionHierarchyFieldsMethodsProperties

Unit

frmSelectObjectsUnit

Declaration

type TfrmSelectObjects = class(TfrmCustomGoPhast)

Description

TfrmSelectObjects is used to select TScreenObjects by selecting them by name.

Hierarchy

Overview

Fields

Implicit btnCancel: TBitBtn;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit btnSelectAll: TButton;
Implicit btnSelectNone: TButton;
Implicit btnToggle: TButton;
Implicit cbIncludeHiddenObjects: TCheckBox;
Implicit pcObjects: TPageControl;
Implicit pnlBottom: TPanel;
Implicit lvFront: TListView;
Implicit lvSide: TListView;
Implicit lvTop: TListView;
Implicit tabFront: TTabSheet;
Implicit tabSide: TTabSheet;
Implicit tabTop: TTabSheet;
Implicit edSearchTerm: TEdit;
Implicit btnSelectByName: TButton;

Methods

Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure btnSelectClick(Sender: TObject);
Implicit procedure btnToggleClick(Sender: TObject);
Implicit procedure cbIncludeHiddenObjectsClick(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure btnSelectByNameClick(Sender: TObject);
Private procedure GetData;
Private procedure SetData;

Description

Fields

Implicit btnCancel: TBitBtn;

btnCancel: TBitBtn; Clicking btnCancel closes TfrmSelectObjects without changing anything.

Implicit btnHelp: TBitBtn;

btnHelp: TBitBtn; Clicking btnHelp displays help on TfrmSelectObjects.

Implicit btnOK: TBitBtn;

btnOK: TBitBtn; See btnOKClick.

Implicit btnSelectAll: TButton;

btnSelectAll: TButton; See btnSelectClick.

Implicit btnSelectNone: TButton;

btnSelectNone: TButton; See btnSelectClick.

Implicit btnToggle: TButton;

btnToggle: TButton; See btnToggleClick.

Implicit cbIncludeHiddenObjects: TCheckBox;

cbIncludeHiddenObjects: TCheckBox; cbIncludeHiddenObjects controls whether or not TScreenObjects whose Visible property is False will be displayed. See cbIncludeHiddenObjectsClick and GetData.

Implicit pcObjects: TPageControl;

pcObjects: TPageControl; pcObjects holds tabFront, tabSide, and tabTop.

Implicit pnlBottom: TPanel;

pnlBottom: TPanel; pnlBottom holds the controls on the bottom of the TfrmSelectObjects.

Implicit lvFront: TListView;

lvFront: TListView; lvFront displays the TScreenObjects on the front view of the model.

Implicit lvSide: TListView;

lvSide: TListView; lvSide displays the TScreenObjects on the side view of the model.

Implicit lvTop: TListView;

lvTop: TListView; lvTop displays the TScreenObjects on the top view of the model.

Implicit tabFront: TTabSheet;

tabFront: TTabSheet; tabFront holds lvFront.

Implicit tabSide: TTabSheet;

tabSide: TTabSheet; tabSide holds lvSide.

Implicit tabTop: TTabSheet;

tabTop: TTabSheet; tabTop holds lvTop.

Implicit edSearchTerm: TEdit;
 
Implicit btnSelectByName: TButton;
 

Methods

Implicit procedure btnOKClick(Sender: TObject);

btnOKClick calls SetData.

Implicit procedure btnSelectClick(Sender: TObject);

btnSelectClick checks or unchecks all the checkboxes on the TListView (lvFront, lvSide, or lvTop) that is on the active page of pcObjects.

Implicit procedure btnToggleClick(Sender: TObject);

btnToggleClick toggles the checked state of all the checkboxes on the TListView (lvFront, lvSide, or lvTop) that is on the active page of pcObjects.

Implicit procedure cbIncludeHiddenObjectsClick(Sender: TObject);

cbIncludeHiddenObjectsClick calls GetData.

Implicit procedure FormCreate(Sender: TObject); override;

FormCreate initializes TfrmSelectObjects and calls GetData.

Implicit procedure btnSelectByNameClick(Sender: TObject);
 
Private procedure GetData;

GetData displays the TScreenObjects in lvFront, lvSide, and lvTop. See cbIncludeHiddenObjects.

Private procedure SetData;

SetData uses a TUndoChangeSelection to set the selected TScreenObjects to the ones that are checked on the active page of pcObjects.

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