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

win32: simplify checklistbox paint handler

Browse Source 
git-svn-id: trunk@24943 -
This commit is contained in:
paul 2010-04-26 02:16:29 +00:00
parent e4743af864
commit 4cf5a87f9d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/win32/win32wschecklst.pp
View File

@ -154,7 +154,7 @@ class procedure TWin32WSCustomCheckListBox.DefaultWndHandler(
ARect, TextRect: Windows.Rect;
Details: TThemedElementDetails;
OldColor: COLORREF;
OldBackColor: COLORREF;
OldBkMode: Integer;
{$ifdef WindowsUnicodeSupport}
AnsiBuffer: string;
WideBuffer: widestring;
@ -185,7 +185,7 @@ class procedure TWin32WSCustomCheckListBox.DefaultWndHandler(
// draw text
TextRect.Left := TextRect.Left + 2;
OldBackColor := Windows.SetBkColor(Data^._HDC, lgBrush.lbColor);
OldBkMode := Windows.SetBkMode(Data^._HDC, TRANSPARENT);
if not Enabled then
OldColor := Windows.SetTextColor(Data^._HDC, Windows.GetSysColor(COLOR_GRAYTEXT))
else
@ -210,14 +210,14 @@ class procedure TWin32WSCustomCheckListBox.DefaultWndHandler(
Windows.DrawText(Data^._HDC, PChar(CheckListBox.Items[Data^.ItemID]), -1,
TextRect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);
{$endif}
// restore old colors
Windows.SetTextColor(Data^._HDC, OldColor);
Windows.SetBkMode(Data^._HDC, OldBkMode);
if Enabled and ((Data^.itemState and ODS_FOCUS) > 0) and CheckListBox.Focused then
begin
TextRect.Left := TextRect.Left - 2;
DrawFocusRect(Data^._HDC, TextRect);
Windows.DrawFocusRect(Data^._HDC, TextRect);
end;
// restore old colors
Windows.SetTextColor(Data^._HDC, OldColor);
Windows.SetBkColor(Data^._HDC, OldBackColor);
end;
begin