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

examples canvas_test: set canvas.copymode to srccopy, since it's cmWhiteness in next paint.

Browse Source 
git-svn-id: trunk@44368 -
This commit is contained in:
zeljko 2014-03-07 08:38:28 +00:00
parent 43f34d9bc2
commit c3b928689b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/canvas_test/drawtest.pas
View File

@ -39,7 +39,7 @@ begin
Bmp.Height := 50; Bmp.Height := 50;
Bmp.Canvas.Brush.Color := clBlue; Bmp.Canvas.Brush.Color := clBlue;
Bmp.Canvas.Rectangle(0, 0, 50, 50); Bmp.Canvas.Rectangle(0, 0, 50, 50);
Canvas.CopyMode := cmSrcCopy;
// BrushCopy // BrushCopy
Canvas.TextOut(50, 30, 'CopyBrush simple'); Canvas.TextOut(50, 30, 'CopyBrush simple');