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

wince: filter LogPen styles by supported in CreatePenIndirect (bug #0014749)

Browse Source 
git-svn-id: trunk@22094 -
This commit is contained in:
paul 2009-10-10 05:04:02 +00:00
parent 07fc3954f6
commit 484862674f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -574,9 +574,10 @@ function TWinCEWidgetSet.CreatePenIndirect(const LogPen: TLogPen): HPEN;
var
LP: TLogPen;
begin
LP := LogPen;
Lp.lopnColor := Windows.COLORREF(ColorToRGB(Lp.lopnColor));
Assert(False, 'Trace:[TWinCEWidgetSet.CreatePenIndirect]');
LP := LogPen;
LP.lopnColor := Windows.COLORREF(ColorToRGB(LP.lopnColor));
LP.lopnStyle := LP.lopnStyle and PS_STYLE_MASK;
Result := Windows.CreatePenIndirect(Windows.LOGPEN(LP));
end;