Unit Fedit2

Classes

TFormEditor2 -
TPublicComponent - Publish a few methods 'after-the-fact'

Functions

KillDesigners - EditMode : Boolean=True;} {Procedure SetEditMode(Mode : Boolean);} { Used when shutting down to ensure that all designers are disposed of etc

This ought not to happen but it might, and it disposes of stuff

Types

TComponentProc
TEditState
TGridRecord
TRegisterProc

Constants

DefaultXStep
DefaultYStep
FullIntersect
LiveDrag

Variables


Functions


Procedure KillDesigners;

EditMode : Boolean=True;} {Procedure SetEditMode(Mode : Boolean);} { Used when shutting down to ensure that all designers are disposed of etc

This ought not to happen but it might, and it disposes of stuff


Types


TComponentProc=Procedure(Component : TComponent) of Object
TStandardDelphiWndProc=Function (Handle: hWnd; Msg: word; wParam: word; lParam: Longint ) : Longint;
TEditState=(esIdle,esWantToInsert,esInsertingNow,esSizing,esSelecting,esWaitForMove,esMoving,
              esDefaultedit);
various states of the form editor
TGridRecord = record
Show : Boolean;
XStep : Integer;
YStep : Integer;
AutoAlign : Boolean;
Color : TColor;
end;

TRegisterProc=Procedure

Constants

DefaultXStep = 8

grid spacings

DefaultYStep = DefaultXStep

FullIntersect = False

LiveDrag = False

Editor constants (user setable)

Variables