mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-19 03:19:43 +02:00
canvas_test: Adds test to arc with start and end point
git-svn-id: trunk@41562 -
This commit is contained in:
parent
8b83833f63
commit
223705c79f
@ -40,6 +40,7 @@
|
|||||||
</CompilerMessages>
|
</CompilerMessages>
|
||||||
<CompilerPath Value="$(CompPath)"/>
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
</Other>
|
</Other>
|
||||||
|
<LCLWidgetType Value="customdrawn"/>
|
||||||
</CompilerOptions>
|
</CompilerOptions>
|
||||||
</Item2>
|
</Item2>
|
||||||
</BuildModes>
|
</BuildModes>
|
||||||
@ -70,6 +71,7 @@
|
|||||||
<Filename Value="canvastestunit.pas"/>
|
<Filename Value="canvastestunit.pas"/>
|
||||||
<IsPartOfProject Value="True"/>
|
<IsPartOfProject Value="True"/>
|
||||||
<ComponentName Value="frmCanvasTest"/>
|
<ComponentName Value="frmCanvasTest"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
<ResourceBaseClass Value="Form"/>
|
<ResourceBaseClass Value="Form"/>
|
||||||
<UnitName Value="canvastestunit"/>
|
<UnitName Value="canvastestunit"/>
|
||||||
</Unit1>
|
</Unit1>
|
||||||
|
@ -1,9 +1,9 @@
|
|||||||
object frmEllipse: TfrmEllipse
|
object frmEllipse: TfrmEllipse
|
||||||
Left = 290
|
Left = 290
|
||||||
Height = 240
|
Height = 307
|
||||||
Top = 197
|
Top = 197
|
||||||
Width = 433
|
Width = 433
|
||||||
Caption = 'frmEllipse'
|
Caption = 'frmEllipse'
|
||||||
OnPaint = FormPaint
|
OnPaint = FormPaint
|
||||||
LCLVersion = '0.9.31'
|
LCLVersion = '1.1'
|
||||||
end
|
end
|
||||||
|
@ -42,6 +42,10 @@ begin
|
|||||||
Canvas.TextOut(150, 130, 'Arc S=-25 L=45');
|
Canvas.TextOut(150, 130, 'Arc S=-25 L=45');
|
||||||
Canvas.TextOut(250, 130, 'Arc S=30 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.Brush.Style := bsSolid;
|
||||||
|
|
||||||
Canvas.Ellipse(50, 50, 100, 100);
|
Canvas.Ellipse(50, 50, 100, 100);
|
||||||
@ -51,6 +55,10 @@ begin
|
|||||||
Canvas.Arc(50, 150, 100, 200, 0, 90*16);
|
Canvas.Arc(50, 150, 100, 200, 0, 90*16);
|
||||||
Canvas.Arc(150, 150, 200, 200, -25*16, 45*16);
|
Canvas.Arc(150, 150, 200, 200, -25*16, 45*16);
|
||||||
Canvas.Arc(250, 150, 300, 200, 30*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;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user