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

Don't show taskbar button, until MainForm is shown.

Browse Source 
git-svn-id: trunk@5842 -
This commit is contained in:
vincents 2004-08-23 21:29:40 +00:00
parent 68ff4d1a7b
commit 9e4015399f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32object.inc
View File

@ -173,7 +173,7 @@ Begin
// Create parent of all windows, `button on taskbar'
FAppHandle := CreateWindow(@ClsName, PChar(Application.Title), WS_POPUP or
WS_CLIPSIBLINGS or WS_CAPTION or WS_SYSMENU or WS_MINIMIZEBOX or WS_VISIBLE,
WS_CLIPSIBLINGS or WS_CAPTION or WS_SYSMENU or WS_MINIMIZEBOX,
0, {Windows.GetSystemMetrics(SM_CXSCREEN) div 2,}
0, {Windows.GetSystemMetrics(SM_CYSCREEN) div 2,}
0, 0, HWND(nil), HMENU(nil), HInstance, nil);
@ -3383,6 +3383,9 @@ End;
{
$Log$
Revision 1.226 2004/08/23 21:29:40 vincents
Don't show taskbar button, until MainForm is shown.
Revision 1.225 2004/08/09 21:12:43 mattias
implemented FormStyle fsSplash for splash screens