paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 08:50:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Postpone InitDesktop to set the correct size

Browse Source
This commit is contained in:
pierre 2002-08-22 13:39:29 +00:00
parent ac29d65fc4
commit 981d0bf876
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fv/app.pas
View File

@ -669,9 +669,9 @@ BEGIN
Size.Y := ScreenHeight; { Set y size value }
RawSize.X := ScreenWidth * SysFontWidth - 1; { Set rawsize x }
RawSize.Y := ScreenHeight * SysFontHeight - 1; { Set rawsize y }
InitDesktop; { Create desktop }
InitStatusLine; { Create status line }
InitMenuBar; { Create a bar menu }
InitDesktop; { Create desktop }
If (Desktop <> Nil) Then Insert(Desktop); { Insert desktop }
If (StatusLine <> Nil) Then Insert(StatusLine); { Insert status line }
If (MenuBar <> Nil) Then Insert(MenuBar); { Insert menu bar }
@ -1193,7 +1193,10 @@ END;
END.
{
$Log$
Revision 1.18 2002-06-07 14:12:21 pierre
Revision 1.19 2002-08-22 13:39:29 pierre
* Postpone InitDesktop to set the correct size
Revision 1.18 2002/06/07 14:12:21 pierre
* try to get resizing to work
Revision 1.17 2002/06/06 20:34:19 pierre

7
fvision/app.pas
View File

@ -669,9 +669,9 @@ BEGIN
Size.Y := ScreenHeight; { Set y size value }
RawSize.X := ScreenWidth * SysFontWidth - 1; { Set rawsize x }
RawSize.Y := ScreenHeight * SysFontHeight - 1; { Set rawsize y }
InitDesktop; { Create desktop }
InitStatusLine; { Create status line }
InitMenuBar; { Create a bar menu }
InitDesktop; { Create desktop }
If (Desktop <> Nil) Then Insert(Desktop); { Insert desktop }
If (StatusLine <> Nil) Then Insert(StatusLine); { Insert status line }
If (MenuBar <> Nil) Then Insert(MenuBar); { Insert menu bar }
@ -1193,7 +1193,10 @@ END;
END.
{
$Log$
Revision 1.18 2002-06-07 14:12:21 pierre
Revision 1.19 2002-08-22 13:39:29 pierre
* Postpone InitDesktop to set the correct size
Revision 1.18 2002/06/07 14:12:21 pierre
* try to get resizing to work
Revision 1.17 2002/06/06 20:34:19 pierre