Class TfrmRearrangeObjects

Properties

Unit

frmRearrangeObjectsUnit

Declaration

type TfrmRearrangeObjects = class(TfrmCustomGoPhast)

Description

TfrmRearrangeObjects is used to change the order of TScreenObjects. The user can also rename them in TfrmRearrangeObjects.

Hierarchy

TForm
TfrmCustomGoPhast
TfrmRearrangeObjects

Overview

Fields

	`btnCancel: TBitBtn;`
	`btnHelp: TBitBtn;`
	`btnOK: TBitBtn;`
	`lblInstructions: TLabel;`
	`pnlBottom: TPanel;`
	`pnlInstructions: TPanel;`
	`sgObjects: TStringGrid;`
	`rgShow: TRadioGroup;`
	`FDraggingRows: boolean;`

Methods

	`procedure btnOKClick(Sender: TObject);`
	`procedure FormCreate(Sender: TObject); override;`
	`procedure sgObjectsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);`
	`procedure sgObjectsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure sgObjectsMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);`
	`procedure sgObjectsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
	`procedure sgObjectsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
	`procedure rgShowClick(Sender: TObject);`
	`procedure GetData;`
	`procedure SetCursor(const ACol, ARow: integer);`
	`procedure SetData;`

Description

Fields

	`btnCancel: TBitBtn;`
Clicking `btnCancel` closes the `TfrmRearrangeObjects` without doing anything.

	`btnHelp: TBitBtn;`
Clicking `btnHelp` displays help on the `TfrmRearrangeObjects`.

	`btnOK: TBitBtn;`
See btnOKClick.

	`lblInstructions: TLabel;`
`lblInstructions` displays text that tells how to use `TfrmRearrangeObjects`.

	`pnlBottom: TPanel;`
`pnlBottom` holds the buttons at the bottom of `TfrmRearrangeObjects`.

	`pnlInstructions: TPanel;`
`pnlInstructions` holds lblInstructions at the top of `TfrmRearrangeObjects`.

	`sgObjects: TStringGrid;`
`sgObjects` lists the TScreenObjects.

	`rgShow: TRadioGroup;`
`rgShow` is used to determine whether, all, the visible, or the selected objects are listed.

	`FDraggingRows: boolean;`
`FDraggingRows` is set to true in sgObjectsMouseDown to indicate that the user is dragging a row to a new position.

Methods

	`procedure btnOKClick(Sender: TObject);`
`btnOKClick` calls SetData.

	`procedure FormCreate(Sender: TObject); override;`
`FormCreate` initializes `TfrmRearrangeObjects` and calls GetData.

	`procedure sgObjectsDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);`
`sgObjectsDrawCell` draws the selected TScreenObjects with a bold font.

	`procedure sgObjectsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
`sgObjectsMouseDown` changes the cursor to give a visual indication that a row is being dragged.

	`procedure sgObjectsMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);`
`sgObjectsMouseMove` changes the cursor to give a visual indication that a row is being dragged.

	`procedure sgObjectsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);`
`sgObjectsMouseUp` changes the cursor to give a visual indication that a row is no longer being dragged.

	`procedure sgObjectsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);`
This prevents the user from renaming deleted TScreenObjects.

	`procedure rgShowClick(Sender: TObject);`

	`procedure GetData;`
`GetData` retrieves the TScreenObjects and displays them in sgObjects. If a TScreenObject has been deleted, the height of its cell will be zero.

	`procedure SetCursor(const ACol, ARow: integer);`
If the cursor is over the left hand column, the user can drag the rows to rearrange the objects. Use crHandGrab to indicate that the rows are being rearranged or crHandFlat to indicate that they can be moved. Otherwise, just use the arrow cursor.

	`procedure SetData;`
`SetData` sets the new order of the TScreenObjects. The user can also rename TScreenObjects.

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