paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 20:59:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: TNotebook is now streamable

Browse Source 
git-svn-id: trunk@1408 -
This commit is contained in:
lazarus 2002-02-09 02:30:32 +00:00
parent 5530e90cfc
commit be55569a2d
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
designer/propedits.pp
View File

@ -755,7 +755,9 @@ type
TPropHookGetComponentNames = procedure(TypeData:PTypeData;
Proc:TGetStringProc) of object;
TPropHookGetRootClassName = function:ShortString of object;
TPropHookComponentRenamed = procedure(AComponent:TComponent) of object;
TPropHookComponentRenamed = procedure(AComponent: TComponent) of object;
TPropHookComponentAdded = procedure(AComponent: TComponent; Select: boolean) of object;
TPropHookDeleteComponent = procedure(AComponent: TComponent) of object;
// persistent objects
TPropHookGetObject = function(const Name:ShortString):TPersistent of object;
TPropHookGetObjectName = function(Instance:TPersistent):ShortString of object;
@ -784,6 +786,8 @@ type
FOnGetComponentNames: TPropHookGetComponentNames;
FOnGetRootClassName: TPropHookGetRootClassName;
FOnComponentRenamed: TPropHookComponentRenamed;
FOnComponentAdded: TPropHookComponentAdded;
FOnDeleteComponent: TPropHookDeleteComponent;
// persistent objects
FOnGetObject: TPropHookGetObject;
FOnGetObjectName: TPropHookGetObjectName;
@ -813,7 +817,9 @@ type
function GetComponentName(AComponent:TComponent):ShortString;
procedure GetComponentNames(TypeData:PTypeData; Proc:TGetStringProc);
function GetRootClassName:ShortString;
procedure ComponentRenamed(AComponent:TComponent);
procedure ComponentRenamed(AComponent: TComponent);
procedure ComponentAdded(AComponent: TComponent; Select: boolean);
procedure DeleteComponent(AComponent: TComponent);
// persistent objects
function GetObject(const Name:ShortString):TPersistent;
function GetObjectName(Instance:TPersistent):ShortString;
@ -840,6 +846,8 @@ type
property OnGetComponentNames:TPropHookGetComponentNames read FOnGetComponentNames write FOnGetComponentNames;
property OnGetRootClassName:TPropHookGetRootClassName read FOnGetRootClassName write FOnGetRootClassName;
property OnComponentRenamed:TPropHookComponentRenamed read FOnComponentRenamed write FOnComponentRenamed;
property OnComponentAdded:TPropHookComponentAdded read FOnComponentAdded write FOnComponentAdded;
property OnDeleteComponent:TPropHookDeleteComponent read FOnDeleteComponent write FOnDeleteComponent;
// persistent object events
property OnGetObject:TPropHookGetObject read FOnGetObject write FOnGetObject;
property OnGetObjectName:TPropHookGetObjectName read FOnGetObjectName write FOnGetObjectName;
@ -3241,6 +3249,21 @@ begin
OnComponentRenamed(AComponent);
end;
procedure TPropertyEditorHook.ComponentAdded(AComponent: TComponent;
Select: boolean);
begin
if Assigned(OnComponentAdded) then
OnComponentAdded(AComponent,Select);
end;
procedure TPropertyEditorHook.DeleteComponent(AComponent: TComponent);
begin
if Assigned(OnDeleteComponent) then
OnDeleteComponent(AComponent)
else
AComponent.Free;
end;
function TPropertyEditorHook.GetObject(const Name:Shortstring):TPersistent;
begin
if Assigned(FOnGetObject) then