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

ideintf: formatting

Browse Source 
git-svn-id: trunk@19642 -
This commit is contained in:
paul 2009-04-27 03:21:47 +00:00
parent b0aabf363d
commit a1de14844b
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ideintf/objectinspector.pp
View File

@ -2151,12 +2151,14 @@ end;
procedure TOICustomPropertyGrid.DoTabKey;
begin
if Column=oipgcValue then begin
Column:=oipgcName;
if Column = oipgcValue then
begin
Column := oipgcName;
Self.SetFocus;
end else begin
Column:=oipgcValue;
if FCurrentEdit<>nil then
end else
begin
Column := oipgcValue;
if FCurrentEdit <> nil then
FCurrentEdit.SetFocus;
end;
end;
@ -4075,13 +4077,13 @@ begin
ComponentRestrictedBox.Invalidate;
end;
for Page:=Low(TObjectInspectorPage) to High(TObjectInspectorPage) do
if GridControl[Page]<>nil then
for Page := Low(TObjectInspectorPage) to High(TObjectInspectorPage) do
if GridControl[Page] <> nil then
GridControl[Page].Selection := FSelection;
ComponentTree.Selection := FSelection;
ComponentTree.MakeSelectionVisible;
if (not Visible) and AutoShow and (FSelection.Count > 0) then
Visible:=true;
Visible := True;
end;
procedure TObjectInspectorDlg.SaveChanges;