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;
Implicit lblCount: TLabel;
Private FGettingData: Boolean;
Private FEditingData: Boolean;

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);
Implicit procedure lvTopDblClick(Sender: TObject);
Implicit procedure lvTopChange(Sender: TObject; Item: TListItem; Change: TItemChange);
Private procedure GetData;
Private procedure SetData;
Private function GetCurrentListView: TListView;
Private procedure UpdateCount;

Description

Fields

Implicit btnCancel: TBitBtn;

Clicking btnCancel closes TfrmSelectObjects without changing anything.

Implicit btnHelp: TBitBtn;

Clicking btnHelp displays help on TfrmSelectObjects.

Implicit btnOK: TBitBtn;

See btnOKClick.

Implicit btnSelectAll: TButton;

See btnSelectClick.

Implicit btnSelectNone: TButton;

See btnSelectClick.

Implicit btnToggle: TButton;

See btnToggleClick.

Implicit cbIncludeHiddenObjects: TCheckBox;

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

Implicit pcObjects: TPageControl;

pcObjects holds tabFront, tabSide, and tabTop.

Implicit pnlBottom: TPanel;

pnlBottom holds the controls on the bottom of the TfrmSelectObjects.

Implicit lvFront: TListView;

lvFront displays the TScreenObjects on the front view of the model.

Implicit lvSide: TListView;

lvSide displays the TScreenObjects on the side view of the model.

Implicit lvTop: TListView;

lvTop displays the TScreenObjects on the top view of the model.

Implicit tabFront: TTabSheet;

tabFront holds lvFront.

Implicit tabSide: TTabSheet;

tabSide holds lvSide.

Implicit tabTop: TTabSheet;

tabTop holds lvTop.

Implicit edSearchTerm: TEdit;

edSearchTerm holds the search term that will be used for selecting TScreenObjects .

See also
btnSelectByName
Clicking btnSelectByName causes all TScreenObjects that contain the search term as part of their name to be selected.
btnSelectByNameClick
btnSelectByNameClick causes all TScreenObjects that contain the search term as part of their name to be selected.
Implicit btnSelectByName: TButton;

Clicking btnSelectByName causes all TScreenObjects that contain the search term as part of their name to be selected. . .

See also
btnSelectByNameClick
btnSelectByNameClick causes all TScreenObjects that contain the search term as part of their name to be selected.
edSearchTerm
edSearchTerm holds the search term that will be used for selecting TScreenObjects .
Implicit lblCount: TLabel;

lblCount displays the number of selected objects.

Private FGettingData: Boolean;

FGettingData is set to True while getting data so as to cause UpdateCount to abort.

Private FEditingData: Boolean;

FEditingData is set to True while editing data so as to cause UpdateCount to abort.

Methods

Implicit procedure btnOKClick(Sender: TObject);

btnOKClick calls SetData.

See also
UpdateCount
UpdateCount displays the number of selected TScreenObjects in lblCount.
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);

btnSelectByNameClick causes all TScreenObjects that contain the search term as part of their name to be selected. .

See also
btnSelectByName
Clicking btnSelectByName causes all TScreenObjects that contain the search term as part of their name to be selected.
edSearchTerm
edSearchTerm holds the search term that will be used for selecting TScreenObjects .
Implicit procedure lvTopDblClick(Sender: TObject);

lvTopDblClick is used with lvTop, lvFront, and lvSide, lvTopDblClick causes the TScreenObject represented by the selected item to be opened in TfrmScreenObjectProperties.

Implicit procedure lvTopChange(Sender: TObject; Item: TListItem; Change: TItemChange);

lvTopChange is used with lvTop, lvFront, and lvSide, lvTopChange calls UpdateCount.

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.

Private function GetCurrentListView: TListView;
 
Private procedure UpdateCount;

UpdateCount displays the number of selected TScreenObjects in lblCount.

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