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

Removes ifdef.

Browse Source 
git-svn-id: trunk@14125 -
This commit is contained in:
sekelsenmat 2008-02-13 20:22:13 +00:00
parent b5c1ef3ae2
commit 9639dc2b06
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/wince/winceobject.inc
View File

@ -144,21 +144,12 @@ begin
// Create parent of all windows, 'button on taskbar'
// does this work on wince?!
{$ifdef win32}
FAppHandle := CreateWindowW(@ClsName, LCLStringToPWideChar(Application.Title),
FAppHandle := CreateWindowExW(0, @ClsName, LCLStringToPWideChar(Application.Title),
WS_POPUP or 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);
AllocWindowInfo(FAppHandle);
{$else}
FAppHandle := CreateWindow(@ClsName, LCLStringToPWideChar(Application.Title),
WS_POPUP or 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);
AllocWindowInfo(FAppHandle);
{$endif}
// set nice main icon
SendMessage(FAppHandle, WM_SETICON, ICON_BIG,