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

canvas_test: Adds test to arc with start and end point

Browse Source 
git-svn-id: trunk@41562 -
This commit is contained in:
sekelsenmat 2013-06-06 09:44:25 +00:00
parent 8b83833f63
commit 223705c79f
3 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/canvas_test/canvastest.lpi
View File

@ -40,6 +40,7 @@
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
<LCLWidgetType Value="customdrawn"/>
</CompilerOptions>
</Item2>
</BuildModes>
@ -70,6 +71,7 @@
<Filename Value="canvastestunit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmCanvasTest"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="canvastestunit"/>
</Unit1>

4
examples/canvas_test/ellipseunit.lfm
View File

@ -1,9 +1,9 @@
object frmEllipse: TfrmEllipse
Left = 290
Height = 240
Height = 307
Top = 197
Width = 433
Caption = 'frmEllipse'
OnPaint = FormPaint
LCLVersion = '0.9.31'
LCLVersion = '1.1'
end

8
examples/canvas_test/ellipseunit.pas
View File

@ -42,6 +42,10 @@ begin
Canvas.TextOut(150, 130, 'Arc S=-25 L=45');
Canvas.TextOut(250, 130, 'Arc S=30 L=-45');
Canvas.TextOut(50, 215, 'Arc SX=0 SY=0 EX=300 EY=300');
Canvas.TextOut(150, 230, 'Arc SX=300 SY=300 EX=0 EY=0');
//Canvas.TextOut(250, 230, 'Arc S=30 L=-45');
Canvas.Brush.Style := bsSolid;
Canvas.Ellipse(50, 50, 100, 100);
@ -51,6 +55,10 @@ begin
Canvas.Arc(50, 150, 100, 200, 0, 90*16);
Canvas.Arc(150, 150, 200, 200, -25*16, 45*16);
Canvas.Arc(250, 150, 300, 200, 30*16, -45*16);
Canvas.Arc(50, 250, 100, 300, 0, 0, 300, 300);
Canvas.Arc(150, 250, 200, 300, 300, 300, 0, 0);
//Canvas.Arc(250, 150, 300, 200, 30*16, -45*16);
end;
end.