paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 12:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give watches window also a number

Browse Source 
* leave watches window in the bottom when cascading windows
This commit is contained in:
peter 2000-06-11 07:01:32 +00:00
parent 42bdcb649b
commit 186d38f8c7
2 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/text/fpdebug.pas
View File

@ -2379,8 +2379,8 @@ end;
R,R2 : trect; R,R2 : trect;
begin begin
Desktop^.GetExtent(R); Desktop^.GetExtent(R);
R.A.Y:=R.B.Y-5; R.A.Y:=R.B.Y-7;
inherited Init(R, dialog_watches, wnNoNumber); inherited Init(R, dialog_watches,SearchFreeWindowNo);
Palette:=wpCyanWindow; Palette:=wpCyanWindow;
GetExtent(R); GetExtent(R);
HelpCtx:=hcWatches; HelpCtx:=hcWatches;
@ -3347,7 +3347,11 @@ end.
{ {
$Log$ $Log$
Revision 1.61 2000-05-02 08:42:27 pierre Revision 1.62 2000-06-11 07:01:32 peter
* give watches window also a number
* leave watches window in the bottom when cascading windows
Revision 1.61 2000/05/02 08:42:27 pierre
* new set of Gabor changes: see fixes.txt * new set of Gabor changes: see fixes.txt
Revision 1.60 2000/04/18 21:45:35 pierre Revision 1.60 2000/04/18 21:45:35 pierre

16
ide/text/fpide.pas
View File

@ -672,11 +672,13 @@ begin
Desktop^.GetExtent(R); Desktop^.GetExtent(R);
{ Leave the compiler messages window in the bottom } { Leave the compiler messages window in the bottom }
if assigned(CompilerMessageWindow) and (CompilerMessageWindow^.GetState(sfVisible)) then if assigned(CompilerMessageWindow) and (CompilerMessageWindow^.GetState(sfVisible)) then
R.B.Y:=Min(CompilerMessageWindow^.Origin.Y,Desktop^.Size.Y); R.B.Y:=Min(CompilerMessageWindow^.Origin.Y,R.B.Y);
{ Leave the messages window in the bottom } { Leave the messages window in the bottom }
if assigned(MessagesWindow) and (MessagesWindow^.GetState(sfVisible)) and if assigned(MessagesWindow) and (MessagesWindow^.GetState(sfVisible)) then
(MessagesWindow^.Origin.Y<R.B.Y) then R.B.Y:=Min(MessagesWindow^.Origin.Y,R.B.Y);
R.B.Y:=MessagesWindow^.Origin.Y; { Leave the watch window in the bottom }
if assigned(WatchesWindow) and (WatchesWindow^.GetState(sfVisible)) then
R.B.Y:=Min(WatchesWindow^.Origin.Y,R.B.Y);
end; end;
@ -998,7 +1000,11 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.61 2000-05-17 09:51:11 pierre Revision 1.62 2000-06-11 07:01:33 peter
* give watches window also a number
* leave watches window in the bottom when cascading windows
Revision 1.61 2000/05/17 09:51:11 pierre
Disable/Enable keyboard on UserScreen Disable/Enable keyboard on UserScreen
Revision 1.60 2000/05/02 10:20:40 pierre Revision 1.60 2000/05/02 10:20:40 pierre