From e09c86be030bdda9f17aa75aa6dc6cac26e7ded3 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 4 Nov 2010 17:09:59 +0000
Subject: Changes the default style of the brush of a TFPImageCanvas to bsSolid

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16304 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-image/src/fppixlcanv.pp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'packages/fcl-image')

diff --git a/packages/fcl-image/src/fppixlcanv.pp b/packages/fcl-image/src/fppixlcanv.pp
index 7956461544..9010a78bc0 100644
--- a/packages/fcl-image/src/fppixlcanv.pp
+++ b/packages/fcl-image/src/fppixlcanv.pp
@@ -105,10 +105,7 @@ end;
 function TFPPixelCanvas.DoCreateDefaultBrush : TFPCustomBrush;
 begin
   result := TFPEmptyBrush.Create;
-  with result do
-    begin
-    Style := bsClear;
-    end;
+  result.Style := bsSolid;
 end;
 
 procedure TFPPixelCanvas.DoTextOut (x,y:integer;text:string);
-- 
cgit v1.2.1