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

MG: fixed updating properties on adding default event

Browse Source 
git-svn-id: trunk@1426 -
This commit is contained in:
lazarus 2002-02-09 02:30:50 +00:00
parent 00835a1d4c
commit e91d716355
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
designer/propedits.pp
View File

@ -911,6 +911,7 @@ type
// modifing
TPropHookModified = procedure of object;
TPropHookRevert = procedure(Instance:TPersistent; PropInfo:PPropInfo) of object;
TPropHookRefreshPropertyValues = procedure of object;
TPropertyEditorHook = class
private
@ -941,6 +942,7 @@ type
// modifing
FOnModified: TPropHookModified;
FOnRevert: TPropHookRevert;
FOnRefreshPropertyValues: TPropHookRefreshPropertyValues;
procedure SetLookupRoot(AComponent:TComponent);
public
@ -973,6 +975,7 @@ type
// modifing
procedure Modified;
procedure Revert(Instance:TPersistent; PropInfo:PPropInfo);
procedure RefreshPropertyValues;
// lookup root
property OnChangeLookupRoot:TPropHookChangeLookupRoot
@ -1001,6 +1004,7 @@ type
// modifing events
property OnModified:TPropHookModified read FOnModified write FOnModified;
property OnRevert:TPropHookRevert read FOnRevert write FOnRevert;
property OnRefreshPropertyValues:TPropHookRefreshPropertyValues read FOnRefreshPropertyValues write FOnRefreshPropertyValues;
end;
//==============================================================================
@ -2797,6 +2801,7 @@ begin
exit;
end;
SetValue(FormMethodName);
PropertyHook.RefreshPropertyValues;
end;
PropertyHook.ShowMethod(FormMethodName);
end;
@ -4019,6 +4024,12 @@ begin
FOnRevert(Instance,PropInfo);
end;
procedure TPropertyEditorHook.RefreshPropertyValues;
begin
if Assigned(FOnRefreshPropertyValues) then
FOnRefreshPropertyValues();
end;
procedure TPropertyEditorHook.SetLookupRoot(AComponent:TComponent);
begin
if FLookupRoot=AComponent then exit;