paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 14:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: formatting and fix spelling.

Browse Source 
git-svn-id: trunk@40644 -
This commit is contained in:
juha 2013-03-25 18:05:12 +00:00
parent 840df65eb7
commit 65d6d21e1d
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ideintf/propedits.pp
View File

@ -160,7 +160,7 @@ type
GetProperties GetProperties
Should be overridden to call PropertyProc for every sub-property (or Should be overridden to call PropertyProc for every sub-property (or
nested property) of the property begin edited and passing a new nested property) of the property begin edited and passing a new
TPropertyEdtior for each sub-property. By default,PropertyProc is not TPropertyEditor for each sub-property. By default, PropertyProc is not
called and no sub-properties are assumed. TClassPropertyEditor will pass a called and no sub-properties are assumed. TClassPropertyEditor will pass a
new property editor for each published property in a class. new property editor for each published property in a class.
TSetPropertyEditor passes a new editor for each element in the set. TSetPropertyEditor passes a new editor for each element in the set.
@ -572,8 +572,7 @@ type
protected protected
function GetSelections: TPersistentSelectionList; virtual; function GetSelections: TPersistentSelectionList; virtual;
public public
constructor Create( constructor Create(Hook: TPropertyEditorHook; APropCount: Integer); override;
Hook: TPropertyEditorHook; APropCount: Integer); override;
function GetAttributes: TPropertyAttributes; override; function GetAttributes: TPropertyAttributes; override;
procedure GetProperties(Proc: TGetPropEditProc); override; procedure GetProperties(Proc: TGetPropEditProc); override;
@ -5443,7 +5442,7 @@ end;
procedure TPropertyEditorHook.GetComponentNames(TypeData: PTypeData; procedure TPropertyEditorHook.GetComponentNames(TypeData: PTypeData;
const Proc: TGetStrProc); const Proc: TGetStrProc);
procedure TraverseComponents(Root: TComponent); procedure TraverseComponents(Root: TComponent);
var var
i: integer; i: integer;
@ -5452,7 +5451,7 @@ procedure TPropertyEditorHook.GetComponentNames(TypeData: PTypeData;
if (Root.Components[i] is TypeData^.ClassType) then if (Root.Components[i] is TypeData^.ClassType) then
Proc(Root.Components[i].Name); Proc(Root.Components[i].Name);
end; end;
var var
i: integer; i: integer;
Handler: TPropHookGetComponentNames; Handler: TPropHookGetComponentNames;
@ -5468,12 +5467,9 @@ begin
Handler(TypeData, Proc); Handler(TypeData, Proc);
end; end;
end end
else else if LookupRoot is TComponent then
if LookupRoot is TComponent then // No handler -> only traverse local form/datamodule components
begin
// only traverse local form/datamodule components
TraverseComponents(TComponent(LookupRoot)); TraverseComponents(TComponent(LookupRoot));
end;
end; end;
function TPropertyEditorHook.GetRootClassName: Shortstring; function TPropertyEditorHook.GetRootClassName: Shortstring;