Class TFormSectionEditor (unit WABD_FormSecEditor) |
Inherits from
TForm
procedure ChildChanged(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormSecSpeedClick(Sender: TObject);
(Owner as TWABDFormEditor).
function GetObj(Tag: integer): TWABD_SectionObject;
procedure GridButClick(Sender: TObject);
procedure Init;
procedure PanelDblClick(Sender: TObject);
procedure PanelMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure PanelMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PreviewButClick(Sender: TObject);
if c<>nil then ShowMessage(Format('Name, Class = %s, %s', [c.
procedure ReflectedNotify(Sender: TObject; AComponent: TComponent; Operation: TOperation);
procedure ScrollBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SecButSpeedClick(Sender: TObject);
procedure SetAllProperties(c: TWinControl);
procedure SetPanel(p: TInvisWin; Active: boolean);
procedure SetSpecialProperties(c: TControl);
Remove the old ones first
AnchorSpeed : TSpeedButton;
ButtonSpeed : TSpeedButton;
CheckSpeed : TSpeedButton;
ComboSpeed : TSpeedButton;
Designer : TFormDesigner;
Public declarations
DetectChanges : boolean;
DownX : integer;
DownY : integer;
EditSpeed : TSpeedButton;
FormSecSpeed : TSpeedButton;
FS : TWABD_FormSection;
GridBut : TSpeedButton;
ImageSpeed : TSpeedButton;
LabelSpeed : TSpeedButton;
LastTag : integer;
ListSpeed : TSpeedButton;
LiveImageSpeed : TSpeedButton;
LookFor : TWABD_SectionObject;
MemoSpeed : TSpeedButton;
Moving : boolean;
OldSel : TInvisWin;
PreviewBut : TButton;
RadioSpeed : TSpeedButton;
ScrollBox1 : TScrollBox;
SelectSpeed : TSpeedButton;
ToolPanel : TPanel;
ViewPanel : TPaintPanel;
procedure ChildChanged(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormSecSpeedClick(Sender: TObject);
(Owner as TWABDFormEditor).AddSectionLevel((Sender as TControl).Tag);
function GetObj(Tag: integer): TWABD_SectionObject;
procedure GridButClick(Sender: TObject);
procedure Init;
procedure PanelDblClick(Sender: TObject);
procedure PanelMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure PanelMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PreviewButClick(Sender: TObject);
if c<>nil then ShowMessage(Format('Name, Class = %s, %s', [c.name, c.ClassName]));
procedure ReflectedNotify(Sender: TObject; AComponent: TComponent; Operation: TOperation);
procedure ScrollBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SecButSpeedClick(Sender: TObject);
procedure SetAllProperties(c: TWinControl);
procedure SetPanel(p: TInvisWin; Active: boolean);
procedure SetSpecialProperties(c: TControl);
Remove the old ones first
AnchorSpeed : TSpeedButton;
ButtonSpeed : TSpeedButton;
CheckSpeed : TSpeedButton;
ComboSpeed : TSpeedButton;
Designer : TFormDesigner;
Public declarations
DetectChanges : boolean;
DownX : integer;
DownY : integer;
EditSpeed : TSpeedButton;
FormSecSpeed : TSpeedButton;
FS : TWABD_FormSection;
GridBut : TSpeedButton;
ImageSpeed : TSpeedButton;
LabelSpeed : TSpeedButton;
LastTag : integer;
ListSpeed : TSpeedButton;
LiveImageSpeed : TSpeedButton;
LookFor : TWABD_SectionObject;
MemoSpeed : TSpeedButton;
Moving : boolean;
OldSel : TInvisWin;
PreviewBut : TButton;
RadioSpeed : TSpeedButton;
ScrollBox1 : TScrollBox;
SelectSpeed : TSpeedButton;
ToolPanel : TPanel;
ViewPanel : TPaintPanel;