paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 15:00:24 +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 }
//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;
LParam: Windows.LParam): LResult; {$ifdef win32}stdcall{$else}cdecl{$endif};
begin
// handle paint messages for theming
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;
Result := WindowProc(Window, Msg, WParam, LParam);
end;
class function TWinCEWSCustomGroupBox.CreateHandle(const AWinControl: TWinControl;