| Class TDesignerDecorator (unit DsgnWrap) |
TFormDesigner
| Constructors |
constructor Create;| Functions |
function CreateMethod(const Name:string;TypeData:PTypeData): TMethod;
destructor Destroy;
function GetMethodName(const Method: TMethod): string;
procedure GetMethods(TypeData: PTypeData; Proc: TGetStrProc);
function GetPrivateDirectory: string;
procedure Hook(aForm: TForm);
function IsDesignMsg(Sender: TControl; var Message: TMessage): Boolean;
function MethodExists(const AName: string): Boolean;
procedure Modified;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure PaintGrid;
procedure RenameMethod(const CurName, NewName: string);
procedure ShowMethod(const Name: string);
procedure Unhook;
procedure ValidateRename(AComponent: TComponent; const CurName, NewName: string);
function GetDesigner: TFormDesigner;
function GetIsControl: Boolean;
procedure SetDesigner(Value: TFormDesigner);
procedure SetIsControl(Value: Boolean);
procedure UnhookError;| Properties |
property Designer : TFormDesigner
property IsControl :
property OwnsDesigner : Boolean| Events |
event OnNotification : TNotificationEvent
event OnUnhookError : TNotifyEvent
event OnValidateRename : TValidateRenameEvent| Variables |
FDesigner : TFormDesigner;
FOnNotification : TNotificationEvent;
FOnUnhookError : TNotifyEvent;
FOnValidateRename : TValidateRenameEvent;
FOwnsDesigner : Boolean;| Constructors |
constructor Create;*********************************** TDesignerDecorator ***********************************
| Functions |
function CreateMethod(const Name:string;TypeData:PTypeData): TMethod;
destructor Destroy;
function GetMethodName(const Method: TMethod): string;
procedure GetMethods(TypeData: PTypeData; Proc: TGetStrProc);
function GetPrivateDirectory: string;
procedure Hook(aForm: TForm);
function IsDesignMsg(Sender: TControl; var Message: TMessage): Boolean;always unhook first
function MethodExists(const AName: string): Boolean;
procedure Modified;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure PaintGrid;
procedure RenameMethod(const CurName, NewName: string);
procedure ShowMethod(const Name: string);
procedure Unhook;
procedure ValidateRename(AComponent: TComponent; const CurName, NewName: string);
function GetDesigner: TFormDesigner;
function GetIsControl: Boolean;
procedure SetDesigner(Value: TFormDesigner);
procedure SetIsControl(Value: Boolean);
procedure UnhookError;ignore exceptions
| Properties |
property Designer : TFormDesigner
property IsControl :
property OwnsDesigner : Boolean| Events |
event OnNotification : TNotificationEvent
event OnUnhookError : TNotifyEvent
event OnValidateRename : TValidateRenameEvent| Variables |
FDesigner : TFormDesigner;
FOnNotification : TNotificationEvent;
FOnUnhookError : TNotifyEvent;
FOnValidateRename : TValidateRenameEvent;
FOwnsDesigner : Boolean;