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

win32: fix combobox painting (issue #0017665)

Browse Source 
git-svn-id: trunk@27845 -
This commit is contained in:
paul 2010-10-25 02:30:01 +00:00
parent 1ce921aa0a
commit 867da8c06b
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -353,6 +353,7 @@ var
Info: TComboboxInfo;
WindowInfo: PWin32WindowInfo;
NCCreateParams: PNCCreateParams;
LMessage: TLMessage;
begin
// darn MS: if combobox has edit control, and combobox receives focus, it
// passes it on to the edit, so it will send a WM_KILLFOCUS; inhibit
@ -383,6 +384,23 @@ begin
Exit;
end;
end;
WM_PAINT,
WM_ERASEBKGND:
begin
WindowInfo := GetWin32WindowInfo(Window);
if not WindowInfo^.WinControl.DoubleBuffered then
begin
LMessage.msg := Msg;
LMessage.wParam := WParam;
LMessage.lParam := LParam;
LMessage.Result := 0;
Result := DeliverMessage(WindowInfo^.WinControl, LMessage);
end
else
Result := WindowProc(Window, Msg, WParam, LParam);
end;
WM_PRINTCLIENT:
Result := CallDefaultWindowProc(Window, Msg, WParam, LParam);
end;
// normal processing
Result := WindowProc(Window, Msg, WParam, LParam);