paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Changes the default style of the brush of a TFPImageCanvas to bsSolid

Browse Source 
git-svn-id: trunk@16304 -
This commit is contained in:
sekelsenmat 2010-11-04 17:09:59 +00:00
parent 584fa63ea4
commit d077572f85
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-image/src/fppixlcanv.pp
View File

@ -105,10 +105,7 @@ end;
function TFPPixelCanvas.DoCreateDefaultBrush : TFPCustomBrush; function TFPPixelCanvas.DoCreateDefaultBrush : TFPCustomBrush;
begin begin
result := TFPEmptyBrush.Create; result := TFPEmptyBrush.Create;
with result do result.Style := bsSolid;
begin
Style := bsClear;
end;
end; end;
procedure TFPPixelCanvas.DoTextOut (x,y:integer;text:string); procedure TFPPixelCanvas.DoTextOut (x,y:integer;text:string);