paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 01:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'canvas_test_gtk2_fix' into 'main'

Browse Source 
CanvasTest Example fix under GTK2

See merge request freepascal.org/lazarus/lazarus!460
This commit is contained in:
alligator 2025-04-13 23:36:29 +00:00
commit 3e6a605846
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/canvas_test/shapedwindowtest.pas
View File

@ -42,9 +42,12 @@ var
begin
Shape := TBitmap.Create;
try
Shape.Width := 200;
Shape.Height := 200;
Shape.Canvas.Ellipse(0, 0, 200, 200);
{$IFDEF LCLGtk2}
Shape.Monochrome := True;
{$ENDIF}
Shape.Width := Width;
Shape.Height := Height;
Shape.Canvas.Ellipse(0, 0, Width, Height);
SetShape(Shape);
finally
Shape.Free;