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

wince: try to merge win32 fix of CheckListBox (not tested)

Browse Source 
docs: add Yuriy Yeroshkin to contributor list

git-svn-id: trunk@16788 -
This commit is contained in:
paul 2008-09-29 08:28:43 +00:00
parent 7f6b691173
commit d4c1dc0b6d
2 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/Contributors.txt
View File

@ -125,6 +125,7 @@ Vincent Beuselinck
Vincent Snijders
Wanderlan Santos dos Anjos
Wojciech Malinowski
Yuriy Yeroshkin
Zaenal Mutaqin
Zaher Dirkey
Zeljan Rikalo

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

@ -157,7 +157,7 @@ var
Brush: HBRUSH;
Rect: Windows.Rect;
Details: TThemedElementDetails;
OldColor: COLORREF;
NewColor, OldColor: COLORREF;
OldBackColor: COLORREF;
WideBuffer: widestring;
begin
@ -169,10 +169,13 @@ var
Note: GetSysColorBrush is more efficient then getting the
color and creating a brush because it uses a buffered brush
}
if Enabled and Selected then
Brush := Windows.GetSysColorBrush(COLOR_HIGHLIGHT or SYS_COLOR_INDEX_FLAG)
if Selected then
NewColor := COLOR_HIGHLIGHT
else
Brush := Windows.GetSysColorBrush(COLOR_WINDOW or SYS_COLOR_INDEX_FLAG);
NewColor := COLOR_WINDOW;
Brush := Windows.GetSysColorBrush(NewColor or SYS_COLOR_INDEX_FLAG)
Rect := Data^.rcItem;
Windows.FillRect(Data^._HDC, Rect, Brush);
@ -194,21 +197,17 @@ var
because the LCLIntf version makes sure that SYS_COLOR_INDEX_FLAG
is added to the constant.
}
if Selected then
begin
OldColor := Windows.SetTextColor(Data^._HDC, LCLIntf.GetSysColor(COLOR_HIGHLIGHTTEXT));
OldBackColor := Windows.SetBkColor(Data^._HDC, LCLIntf.GetSysColor(COLOR_HIGHLIGHT)); // $00D39137
end
else if not Enabled then
begin
OldColor := Windows.SetTextColor(Data^._HDC, LCLIntf.GetSysColor(COLOR_GRAYTEXT)); // $00BFBFBF
OldBackColor := Windows.SetBkColor(Data^._HDC, LCLIntf.GetSysColor(COLOR_WINDOW)); // $00FFFFFF
end
OldBackColor := Windows.SetBkColor(Data^._HDC, Windows.GetSysColor(NewColor));
if not Enabled then
OldColor := Windows.SetTextColor(Data^._HDC, Windows.GetSysColor(COLOR_GRAYTEXT))
else
begin
OldColor := Windows.SetTextColor(Data^._HDC, LCLIntf.GetSysColor(COLOR_WINDOWTEXT));
OldBackColor := Windows.SetBkColor(Data^._HDC, LCLIntf.GetSysColor(COLOR_WINDOW)); // $00FFFFFF
end;
if Selected then
OldColor := Windows.SetTextColor(Data^._HDC, Windows.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,