diff options
| author | sekelsenmat <sekelsenmat@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-11-04 17:09:59 +0000 |
|---|---|---|
| committer | sekelsenmat <sekelsenmat@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-11-04 17:09:59 +0000 |
| commit | e09c86be030bdda9f17aa75aa6dc6cac26e7ded3 (patch) | |
| tree | f7a0fdbd6a048e0708544cf95f2bc07eaf0cc1e5 /packages/fcl-image | |
| parent | c2e430e3d3089df3a98762b6b437f6c8d10374d8 (diff) | |
| download | fpc-e09c86be030bdda9f17aa75aa6dc6cac26e7ded3.tar.gz | |
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
Diffstat (limited to 'packages/fcl-image')
| -rw-r--r-- | packages/fcl-image/src/fppixlcanv.pp | 5 |
1 files changed, 1 insertions, 4 deletions
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); |