Class TfrmSearch

Unit

frmSearchUnit

Declaration

type TfrmSearch = class(TfrmCustomSelectObjects)

Description

TfrmSearch is used to search for TScreenObjects based on what the TScreenObjects do.

Hierarchy

• TForm
• TfrmCustomGoPhast
• TfrmCustomSelectObjects
• TfrmSearch

Overview

Fields

	rgDirecton: TRadioGroup;
	FListOfObjects: TList;
	FUndoChangeSelection: TUndoChangeSelection;

Methods

	procedure FormCreate(Sender: TObject); override;
	procedure vstObjectsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);
	procedure FormDestroy(Sender: TObject); override;
	procedure rgDirectonClick(Sender: TObject);
	procedure GetData;
	procedure RefreshListOfObjects;
	function ShouldCheckBoxBeChecked(ScreenObject: TScreenObject): boolean; override;
	procedure HandleChecked(AScreenObject: TScreenObject); override;
	procedure HandleUnchecked(AScreenObject: TScreenObject); override;
	function CanSelect(ScreenObject: TScreenObject): boolean; override;

Description

Fields

	rgDirecton: TRadioGroup;

	FListOfObjects: TList;

	FUndoChangeSelection: TUndoChangeSelection;

Methods

	procedure FormCreate(Sender: TObject); override;
FormCreate calls GetData.

	procedure vstObjectsChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);

	procedure FormDestroy(Sender: TObject); override;

	procedure rgDirectonClick(Sender: TObject);

	procedure GetData;
GetData displays the criteria that can be used for selecting TScreenObjects.

	procedure RefreshListOfObjects;

	function ShouldCheckBoxBeChecked(ScreenObject: TScreenObject): boolean; override;
Private declarations

	procedure HandleChecked(AScreenObject: TScreenObject); override;

	procedure HandleUnchecked(AScreenObject: TScreenObject); override;

	function CanSelect(ScreenObject: TScreenObject): boolean; override;