paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:30:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: OI and PropEdits code formatting

Browse Source 
git-svn-id: trunk@39460 -
This commit is contained in:
juha 2012-12-06 16:27:41 +00:00
parent cee6bb8700
commit 989a5004df
2 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ideintf/objectinspector.pp
View File

@ -1178,8 +1178,7 @@ begin
Result:=0;
end;
procedure TOICustomPropertyGrid.SetSelection(
const ASelection: TPersistentSelectionList);
procedure TOICustomPropertyGrid.SetSelection(const ASelection: TPersistentSelectionList);
var
CurRow:TOIPropertyGridRow;
OldSelectedRowPath:string;
@ -4276,16 +4275,17 @@ function TObjectInspectorDlg.GetCurRowDefaultValue(var DefaultStr: string): bool
var
CurRow: TOIPropertyGridRow;
begin
Result:=false;
Result:=False;
DefaultStr:='';
CurRow:=GetActivePropertyRow;
if (CurRow=nil) or (not (paHasDefaultValue in CurRow.Editor.GetAttributes))
then exit;
try
DefaultStr:=CurRow.Editor.GetDefaultValue;
Result:=true;
except
DefaultStr:='';
if Assigned(CurRow) and (paHasDefaultValue in CurRow.Editor.GetAttributes) then
begin
try
DefaultStr:=CurRow.Editor.GetDefaultValue;
Result:=true;
except
DefaultStr:='';
end;
end;
end;
@ -4580,8 +4580,7 @@ begin
if Assigned(OnAddToFavorites) then OnAddToFavorites(Self);
end;
procedure TObjectInspectorDlg.OnRemoveFromFavoritesPopupmenuItemClick(
Sender: TObject);
procedure TObjectInspectorDlg.OnRemoveFromFavoritesPopupmenuItemClick(Sender: TObject);
begin
if Assigned(OnRemoveFromFavorites) then OnRemoveFromFavorites(Self);
end;

4
ideintf/propedits.pp
View File

@ -898,7 +898,7 @@ type
{ TListPropertyEditor
A property editor with dynamic sub properties representing a list of objects.
The items are shown imbedded in the OI and if the user presses the Edit button
The items are shown embedded in the OI and if the user presses the Edit button
as extra window to select items, which are then shown in the OI.
UNDER CONSTRUCTION by Mattias
The problem with all properties is, that we don't get notified, when something
@ -956,7 +956,7 @@ type
end;
{ TCollectionPropertyEditor
Default property editor for all TCollections, imbedded in the OI
Default property editor for all TCollections, embedded in the OI
UNDER CONSTRUCTION by Mattias}
TCollectionPropertyEditor = class(TListPropertyEditor)