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

Patch from bug #26748 Improved CreateBrushIndirect workaround

Browse Source 
git-svn-id: trunk@46732 -
This commit is contained in:
sekelsenmat 2014-10-31 16:51:46 +00:00
parent c4a1f0c0e8
commit 26979ca90a
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -754,12 +754,13 @@ begin
LB.lbHatch := LogBrush.lbHatch;
//DebugLn(Format('Trace:> [TWinCEWidgetSet.CreateBrushIndirect] Style: %d, Color: %8x', [lb.lbStyle, lb.lbColor]));
if lb.lbStyle= BS_NULL then
Result := Windows.GetStockObject(NULL_BRUSH)
else if lb.lbStyle = BS_DIBPATTERNPT then
Result := CreateDIBPatternBrushPt(pointer(lb.lbHatch), lb.lbColor)
case lb.lbStyle of
BS_NULL: Result := Windows.GetStockObject(NULL_BRUSH);
BS_DIBPATTERNPT: Result := CreateDIBPatternBrushPt(pointer(lb.lbHatch), lb.lbColor);
BS_PATTERN: Result := CreatePatternBrush(lb.lbHatch);
else { lb.lbStyle = BS_SOLID }
Result := Windows.CreateSolidBrush(LB.lbColor);
Result := Windows.CreateSolidBrush(LB.lbColor)
end
//DebugLn(Format('Trace:< [TWinCEWidgetSet.CreateBrushIndirect] Got --> %x', [Result]));
end;