| Class TCompEditForm (unit E_cmpEd) |
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);
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);
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;| 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