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

Fixes event sending to controls inside wince groupbox

Browse Source 
git-svn-id: trunk@25659 -
This commit is contained in:
sekelsenmat 2010-05-26 09:06:04 +00:00
parent 11d073d94e
commit 68f4c7344d
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -385,20 +385,12 @@ end;
{ TWinCEWSCustomGroupBox } { TWinCEWSCustomGroupBox }
//roozbeh:there are still some issues with group box! // Don't choose too much which messages to send to WindowProc or else
// events on controls inside the panel will stop working, see bug 16530
function GroupBoxPanelWindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam; function GroupBoxPanelWindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
LParam: Windows.LParam): LResult; {$ifdef win32}stdcall{$else}cdecl{$endif}; LParam: Windows.LParam): LResult; {$ifdef win32}stdcall{$else}cdecl{$endif};
begin begin
// handle paint messages for theming Result := WindowProc(Window, Msg, WParam, LParam);
case Msg of
WM_ERASEBKGND, WM_NCPAINT, WM_PAINT, WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC:
begin
Result := WindowProc(Window, Msg, WParam, LParam);
end;
else
Result := CallDefaultWindowProc(Window, Msg, WParam, LParam);
end;
end; end;
class function TWinCEWSCustomGroupBox.CreateHandle(const AWinControl: TWinControl; class function TWinCEWSCustomGroupBox.CreateHandle(const AWinControl: TWinControl;