paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:00:27 +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

12
ideintf/propedits.pp
View File

@ -160,7 +160,7 @@ type
GetProperties
Should be overridden to call PropertyProc for every sub-property (or
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
new property editor for each published property in a class.
TSetPropertyEditor passes a new editor for each element in the set.
@ -572,8 +572,7 @@ type
protected
function GetSelections: TPersistentSelectionList; virtual;
public
constructor Create(
Hook: TPropertyEditorHook; APropCount: Integer); override;
constructor Create(Hook: TPropertyEditorHook; APropCount: Integer); override;
function GetAttributes: TPropertyAttributes; override;
procedure GetProperties(Proc: TGetPropEditProc); override;
@ -5468,12 +5467,9 @@ begin
Handler(TypeData, Proc);
end;
end
else
if LookupRoot is TComponent then
begin
// only traverse local form/datamodule components
else if LookupRoot is TComponent then
// No handler -> only traverse local form/datamodule components
TraverseComponents(TComponent(LookupRoot));
end;
end;
function TPropertyEditorHook.GetRootClassName: Shortstring;