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

fixed view OI menu item to always show OI, instead of showing next

Browse Source 
git-svn-id: trunk@6960 -
This commit is contained in:
mattias 2005-03-16 11:41:33 +00:00
parent 0c905491cf
commit 2d3286e8c2
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/main.pp
View File

@ -759,7 +759,7 @@ type
// form editor and designer // form editor and designer
procedure DoBringToFrontFormOrUnit; procedure DoBringToFrontFormOrUnit;
procedure DoBringToFrontFormOrInspector; procedure DoBringToFrontFormOrInspector(ForceInspector: boolean);
procedure DoShowDesignerFormOfCurrentSrc; procedure DoShowDesignerFormOfCurrentSrc;
procedure DoShowSourceOfActiveDesignerForm; procedure DoShowSourceOfActiveDesignerForm;
procedure SetDesigning(AComponent: TComponent; Value: Boolean); procedure SetDesigning(AComponent: TComponent; Value: Boolean);
@ -2521,7 +2521,7 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
procedure TMainIDE.mnuViewInspectorClicked(Sender: TObject); procedure TMainIDE.mnuViewInspectorClicked(Sender: TObject);
begin begin
DoBringToFrontFormOrInspector; DoBringToFrontFormOrInspector(true);
end; end;
procedure TMainIDE.mnuViewSourceEditorClicked(Sender: TObject); procedure TMainIDE.mnuViewSourceEditorClicked(Sender: TObject);
@ -8027,8 +8027,20 @@ begin
end; end;
end; end;
procedure TMainIDE.DoBringToFrontFormOrInspector; procedure TMainIDE.DoBringToFrontFormOrInspector(ForceInspector: boolean);
procedure ShowInspector;
begin
if ObjectInspector1=nil then exit;
ObjectInspector1.ShowOnTop;
FDisplayState:= Succ(FDisplayState);
end;
begin begin
if ForceInspector then begin
ShowInspector;
exit;
end;
case FDisplayState of case FDisplayState of
dsInspector: dsInspector:
@ -8037,11 +8049,8 @@ begin
dsInspector2: dsInspector2:
DoShowSourceOfActiveDesignerForm; DoShowSourceOfActiveDesignerForm;
else begin else
if ObjectInspector1=nil then exit; ShowInspector;
ObjectInspector1.ShowOnTop;
FDisplayState:= Succ(FDisplayState);
end;
end; end;
end; end;
@ -11483,6 +11492,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.858 2005/03/16 11:41:33 mattias
fixed view OI menu item to always show OI, instead of showing next
Revision 1.857 2005/03/08 00:30:37 mattias Revision 1.857 2005/03/08 00:30:37 mattias
removed debugging removed debugging