Canvas

//显示当前系统的时间

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);    

 

 

 

 

通过 为知笔记 发布

附件列表