Canvas

最新推荐文章于 2021-12-21 10:32:17 发布

转载最新推荐文章于 2021-12-21 10:32:17 发布 · 103 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/archive/2012/06/28/832b3231644dc3d6b83c8c8694f71b3c.html

//显示当前系统的时间

Canvas->TextOut(0,0,Time());

Canvas->Pen->Color=clRed;
  Canvas->Pen->Style=psDashDot;
  Canvas->Brush->Style=bsSolid;
  Canvas->Rectangle(50,50,100,100);

  Canvas->Pen->Style=psSolid;
  Canvas->Brush->Style=bsVertical;
  Canvas->Rectangle(150,50,200,130);

  Canvas->RoundRect(250,50,300,100,10,30);

  Canvas->Brush->Style=bsCross;
  Canvas->Ellipse(50,150,100,200);

  Canvas->Brush->Style=bsClear;
  Canvas->Ellipse(150,150,200,230);

  Canvas->Ellipse(250,150,350,200);

  Canvas->Arc(50,250,100,300,250,275,75,250);
  Canvas->Chord(150,250,200,300,175,250,150,275);
  Canvas->Pie(250,250,300,300,300,250,300,300);

   Canvas -> Ellipse ( 250 , 150 , 350 , 200 );

   Canvas -> Arc ( 50 , 250 , 100 , 300 , 250 , 275 , 75 , 250 );
   Canvas -> Chord ( 150 , 250 , 200 , 300 , 175 , 250 , 150 , 275 );
   Canvas -> Pie ( 250 , 250 , 300 , 300 , 300 , 250 , 300 , 300 );

   Canvas -> Pen -> Width = 3 ;
   Canvas -> MoveTo ( 50 , 50 );
   Canvas -> LineTo ( 75 , 75 );
   Canvas -> LineTo ( 100 , 50 );
   Canvas -> MoveTo ( 75 , 75 );
   Canvas -> LineTo ( 75 , 100 );

   TPoint p [ 6 ];
   p [ 0 ]= Point ( 200 , 50 );
   p [ 1 ]= Point ( 175 , 70 );
   p [ 2 ]= Point ( 175 , 100 );
   p [ 3 ]= Point ( 225 , 100 );
   p [ 4 ]= Point ( 225 , 70 );
   p [ 5 ]= Point ( 200 , 50 );
   Canvas -> Polyline ( p , 5 );

   Canvas -> Pen -> Width = 1 ;
   Canvas -> Brush -> Style = bsDiagCross ;
   p [ 0 ]= Point ( 300 , 50 );
   p [ 1 ]= Point ( 275 , 100 );
   p [ 2 ]= Point ( 325 , 100 );
   Canvas -> Polygon ( p , 2 );

   Canvas -> Brush -> Style = bsClear ;
   Canvas -> Rectangle ( 50 , 150 , 350 , 250 );
   Canvas -> Ellipse ( 47 , 147 , 53 , 153 );
   Canvas -> Ellipse ( 97 , 247 , 103 , 253 );
   Canvas -> Ellipse ( 247 , 147 , 253 , 153 );
   Canvas -> Ellipse ( 347 , 247 , 353 , 253 );
   p [ 0 ]= Point ( 50 , 150 );
   p [ 1 ]= Point ( 100 , 250 );
   p [ 2 ]= Point ( 250 , 150 );
   p [ 3 ]= Point ( 350 , 250 );
   Canvas -> PolyBezier ( p , 3 );