Class TCompEditForm (unit E_cmpEd)

Inherits from

TForm

Constructors



Functions

procedure ClearEdit(Sender: TObject);


procedure ComponentBoxChange(Sender: TObject);


procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure EditStrKeyPress(Sender: TObject; var Key: Char);


procedure FixUpOnExit(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure Panel1Resize(Sender: TObject);

Clear the Property List

procedure StringGrid1ColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer);


procedure StringGrid1DblClick(Sender: TObject);


procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);


procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);


procedure StringGrid1SelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);


procedure StringGrid1SplitMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure StringGrid1TopLeftChanged(Sender: TObject);


Procedure AddComponent(AComponent : TComponent);


Procedure Execute(AComponent : TComponent; IsModal : Boolean);

Public declarations

Procedure RemoveComponent(AComponent : TComponent);


Procedure SetComponentBounds;


Procedure ClearActiveControl;


procedure ClearPropList;


procedure ClearStringGrid;


Procedure DoLastControl;


procedure EditProperty(CurCol , CurRow : LongInt);


Procedure EGetStrs(Const s : String);


Procedure ReNameComponent( AComponent : TComponent; Const NewName : String);


Procedure SetEditBounds(AControl : TWinControl);


Procedure SetEditComponent(AComponent : TComponent);


Procedure SetInspectorComponent(AComponent : TComponent);


Procedure SetSetEdit(CurRow : Integer);


Procedure SetStatusBar(Sender : TObject; ARow : Integer);


Procedure ShowComponent(AComponent : TComponent; DoGrabHandles : Boolean);


Procedure ShowCurrComponent(DoGrabHandles : Boolean);


Properties

property EditComponent : TComponent


property InspectorComponent : TComponent


Events

Variables

ComboEnum : TComboBox;


ComponentBox : TComboBox;


EditStr : TEdit;


Panel1 : TPanel;


SetEdit : TCheckListBox;


StatusBar1 : TStatusBar;


StringGrid1 : TInspectGrid;


CompProp : TEProperty;


FEditComponent : TComponent;


FInspectorComponent : TComponent;


MrArray : Array[mrNone..MrNo] Of String;


PropList : TStringList;

Private declarations


Constructors


Functions


procedure ClearEdit(Sender: TObject);


procedure ComponentBoxChange(Sender: TObject);


procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure EditStrKeyPress(Sender: TObject; var Key: Char);


procedure FixUpOnExit(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure Panel1Resize(Sender: TObject);

Clear the Property List


procedure StringGrid1ColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer);


procedure StringGrid1DblClick(Sender: TObject);


procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState);


procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);


procedure StringGrid1SelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);


procedure StringGrid1SplitMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure StringGrid1TopLeftChanged(Sender: TObject);


Procedure AddComponent(AComponent : TComponent);


Procedure Execute(AComponent : TComponent; IsModal : Boolean);

Public declarations


Procedure RemoveComponent(AComponent : TComponent);


Procedure SetComponentBounds;


Procedure ClearActiveControl;


procedure ClearPropList;


procedure ClearStringGrid;


Procedure DoLastControl;


procedure EditProperty(CurCol , CurRow : LongInt);


Procedure EGetStrs(Const s : String);


Procedure ReNameComponent( AComponent : TComponent; Const NewName : String);


Procedure SetEditBounds(AControl : TWinControl);


Procedure SetEditComponent(AComponent : TComponent);


Procedure SetInspectorComponent(AComponent : TComponent);


Procedure SetSetEdit(CurRow : Integer);


Procedure SetStatusBar(Sender : TObject; ARow : Integer);


Procedure ShowComponent(AComponent : TComponent; DoGrabHandles : Boolean);


Procedure ShowCurrComponent(DoGrabHandles : Boolean);


Properties


property EditComponent : TComponent


property InspectorComponent : TComponent


Events


Variables


ComboEnum : TComboBox;


ComponentBox : TComboBox;


EditStr : TEdit;


Panel1 : TPanel;


SetEdit : TCheckListBox;


StatusBar1 : TStatusBar;


StringGrid1 : TInspectGrid;


CompProp : TEProperty;


FEditComponent : TComponent;


FInspectorComponent : TComponent;


MrArray : Array[mrNone..MrNo] Of String;


PropList : TStringList;

Private declarations