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

MG: reduced output

Browse Source 
git-svn-id: trunk@2835 -
This commit is contained in:
lazarus 2002-08-18 08:54:41 +00:00
parent 85be06eabc
commit 78ccb5cdd4
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -59,7 +59,12 @@ uses
BaseDebugManager, DebugManager, MainBar;
type
TDisplayState = (dsSource, dsInspector, dsForm, dsInspector2);
TDisplayState = (
dsSource, // focussing sourcenotebook
dsInspector, // focussing object inspector
dsForm, // focussing designer form
dsInspector2 // focussing object inspector
);
TMainIDE = class(TMainIDEBar)
// event handlers
@ -283,7 +288,6 @@ type
procedure OnExtToolFreeOutputFilter(OutputFilter: TOutputFilter;
ErrorOccurred: boolean);
private
FCodeLastActivated : Boolean; // used for toggling between code and forms
FDisplayState : TDisplayState;
FLastFormActivated : TCustomForm;// used to find the last form so you can
// display the correct tab
@ -7414,6 +7418,9 @@ end.
{ =============================================================================
$Log$
Revision 1.426 2002/11/05 20:09:36 lazarus
MG: reduced output
Revision 1.425 2002/11/05 20:03:38 lazarus
MG: implemented hints