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

Fixes checklistbox in wince

Browse Source 
git-svn-id: trunk@20175 -
This commit is contained in:
sekelsenmat 2009-05-24 20:38:46 +00:00
parent ddc23216ac
commit 32b89c1100
1 changed files with 18 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
lcl/interfaces/wince/wincewinapi.inc
View File

@ -153,31 +153,29 @@ var
);
var
Enabled, Selected: Boolean;
lgBrush: LOGBRUSH;
Brush: HBRUSH;
Rect: Windows.Rect;
Details: TThemedElementDetails;
NewColor, OldColor: COLORREF;
OldBackColor: COLORREF;
OldColor, OldBackColor: COLORREF;
WideBuffer: widestring;
begin
Selected := (Data^.itemState AND ODS_SELECTED)>0;
Enabled := CheckListBox.Enabled;
{ fill the background
Note: GetSysColorBrush is more efficient then getting the
color and creating a brush because it uses a buffered brush
}
{ fill the background }
if Selected then
NewColor := COLOR_HIGHLIGHT
lgBrush.lbColor := LCLIntf.GetSysColor(COLOR_HIGHLIGHT) // $00D39137
else
NewColor := COLOR_WINDOW;
Brush := Windows.GetSysColorBrush(NewColor or SYS_COLOR_INDEX_FLAG);
// if default COLOR_WINDOW: $00FFFFFF
lgBrush.lbColor := ColorToRGB(CheckListBox.Color);
lgBrush.lbStyle := BS_SOLID;
Brush := CreateBrushIndirect(lgBrush);
Rect := Data^.rcItem;
Windows.FillRect(Data^._HDC, Rect, Brush);
DeleteObject(Brush);
// draw checkbox
InflateRect(Rect, -1, -1);
Rect.Right := Rect.Left + Rect.Bottom - Rect.Top;
@ -189,25 +187,24 @@ var
Rect := Windows.Rect(Data^.rcItem);
Rect.Left := Rect.Left + Rect.Bottom - Rect.Top + 5;
{ Don't suppose anything about the current background color
or text color. Always set them.
{ VERY IMPORTANT: (see bug 13387)
Don't suppose anything about the current background color
or text color in Windows CE. Always set them.
LCLIntf.GetSysColor must be called instead of Windows.GetSysColor
because the LCLIntf version makes sure that SYS_COLOR_INDEX_FLAG
is added to the constant.
}
OldBackColor := Windows.SetBkColor(Data^._HDC, Windows.GetSysColor(NewColor));
OldBackColor := Windows.SetBkColor(Data^._HDC, lgBrush.lbColor);
if not Enabled then
OldColor := Windows.SetTextColor(Data^._HDC, Windows.GetSysColor(COLOR_GRAYTEXT))
else
if Selected then
OldColor := Windows.SetTextColor(Data^._HDC, Windows.GetSysColor(COLOR_HIGHLIGHTTEXT))
OldColor := Windows.SetTextColor(Data^._HDC, LCLIntf.GetSysColor(COLOR_GRAYTEXT)) // $00BFBFBF
else if Selected then
OldColor := Windows.SetTextColor(Data^._HDC, LCLIntf.GetSysColor(COLOR_HIGHLIGHTTEXT))
else
OldColor := Windows.SetTextColor(Data^._HDC, ColorToRGB(CheckListBox.Font.Color));
WideBuffer := UTF8Decode(CheckListBox.Items[Data^.ItemID]);
Windows.DrawTextW(Data^._HDC, PWideChar(WideBuffer), -1,
Rect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);