Class TDesignerDecorator (unit DsgnWrap)

Inherits from

TFormDesigner

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;



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;