mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-19 11:59:13 +02:00
MG: fixed updating properties on adding default event
git-svn-id: trunk@1426 -
This commit is contained in:
parent
00835a1d4c
commit
e91d716355
@ -911,6 +911,7 @@ type
|
|||||||
// modifing
|
// modifing
|
||||||
TPropHookModified = procedure of object;
|
TPropHookModified = procedure of object;
|
||||||
TPropHookRevert = procedure(Instance:TPersistent; PropInfo:PPropInfo) of object;
|
TPropHookRevert = procedure(Instance:TPersistent; PropInfo:PPropInfo) of object;
|
||||||
|
TPropHookRefreshPropertyValues = procedure of object;
|
||||||
|
|
||||||
TPropertyEditorHook = class
|
TPropertyEditorHook = class
|
||||||
private
|
private
|
||||||
@ -941,6 +942,7 @@ type
|
|||||||
// modifing
|
// modifing
|
||||||
FOnModified: TPropHookModified;
|
FOnModified: TPropHookModified;
|
||||||
FOnRevert: TPropHookRevert;
|
FOnRevert: TPropHookRevert;
|
||||||
|
FOnRefreshPropertyValues: TPropHookRefreshPropertyValues;
|
||||||
|
|
||||||
procedure SetLookupRoot(AComponent:TComponent);
|
procedure SetLookupRoot(AComponent:TComponent);
|
||||||
public
|
public
|
||||||
@ -973,6 +975,7 @@ type
|
|||||||
// modifing
|
// modifing
|
||||||
procedure Modified;
|
procedure Modified;
|
||||||
procedure Revert(Instance:TPersistent; PropInfo:PPropInfo);
|
procedure Revert(Instance:TPersistent; PropInfo:PPropInfo);
|
||||||
|
procedure RefreshPropertyValues;
|
||||||
|
|
||||||
// lookup root
|
// lookup root
|
||||||
property OnChangeLookupRoot:TPropHookChangeLookupRoot
|
property OnChangeLookupRoot:TPropHookChangeLookupRoot
|
||||||
@ -1001,6 +1004,7 @@ type
|
|||||||
// modifing events
|
// modifing events
|
||||||
property OnModified:TPropHookModified read FOnModified write FOnModified;
|
property OnModified:TPropHookModified read FOnModified write FOnModified;
|
||||||
property OnRevert:TPropHookRevert read FOnRevert write FOnRevert;
|
property OnRevert:TPropHookRevert read FOnRevert write FOnRevert;
|
||||||
|
property OnRefreshPropertyValues:TPropHookRefreshPropertyValues read FOnRefreshPropertyValues write FOnRefreshPropertyValues;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
//==============================================================================
|
//==============================================================================
|
||||||
@ -2797,6 +2801,7 @@ begin
|
|||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
SetValue(FormMethodName);
|
SetValue(FormMethodName);
|
||||||
|
PropertyHook.RefreshPropertyValues;
|
||||||
end;
|
end;
|
||||||
PropertyHook.ShowMethod(FormMethodName);
|
PropertyHook.ShowMethod(FormMethodName);
|
||||||
end;
|
end;
|
||||||
@ -4019,6 +4024,12 @@ begin
|
|||||||
FOnRevert(Instance,PropInfo);
|
FOnRevert(Instance,PropInfo);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TPropertyEditorHook.RefreshPropertyValues;
|
||||||
|
begin
|
||||||
|
if Assigned(FOnRefreshPropertyValues) then
|
||||||
|
FOnRefreshPropertyValues();
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TPropertyEditorHook.SetLookupRoot(AComponent:TComponent);
|
procedure TPropertyEditorHook.SetLookupRoot(AComponent:TComponent);
|
||||||
begin
|
begin
|
||||||
if FLookupRoot=AComponent then exit;
|
if FLookupRoot=AComponent then exit;
|
||||||
|
Loading…
Reference in New Issue
Block a user