From 26979ca90aa6d202ebbfcc25ec2761a562dc8eb5 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Fri, 31 Oct 2014 16:51:46 +0000 Subject: [PATCH] Patch from bug #26748 Improved CreateBrushIndirect workaround git-svn-id: trunk@46732 - --- lcl/interfaces/wince/wincewinapi.inc | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lcl/interfaces/wince/wincewinapi.inc b/lcl/interfaces/wince/wincewinapi.inc index 4a6dcac509..ed35a65278 100644 --- a/lcl/interfaces/wince/wincewinapi.inc +++ b/lcl/interfaces/wince/wincewinapi.inc @@ -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;