Class TFormSectionEditor (unit WABD_FormSecEditor)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;