paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 21:00:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win32: Support StatusBar under Win32 LCL Dll. Issue #37100, patch from Zdravko Gabrovski.

Browse Source 
git-svn-id: trunk@63288 -
This commit is contained in:
juha 2020-06-04 20:07:37 +00:00
parent 39effc2a52
commit e2fdf3e89b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -302,6 +302,8 @@ var
begin begin
Flags := WS_CHILD or WS_CLIPSIBLINGS or WS_CLIPCHILDREN; Flags := WS_CHILD or WS_CLIPSIBLINGS or WS_CLIPCHILDREN;
Parent := TWin32WidgetSet(WidgetSet).AppHandle; Parent := TWin32WidgetSet(WidgetSet).AppHandle;
if ( Parent=0 ) and IsLibrary and Assigned( Screen.ActiveForm ) then
Parent := Screen.ActiveForm.Handle;
PreferredSizeStatusBar := CreateWindowExW(0, STATUSCLASSNAMEW, PreferredSizeStatusBar := CreateWindowExW(0, STATUSCLASSNAMEW,
nil, Flags, nil, Flags,
0, 0, 0, 0, Parent, 0, HInstance, nil); 0, 0, 0, 0, Parent, 0, HInstance, nil);