zoukankan      html  css  js  c++  java
  • Delphi初浅入门笔记之十一:多媒体编程四(画笔篇)

    procedure TForm1.FormPaint(Sender: TObject);
    var
    trect1:trect;
    begin
    canvas.Pen.Color:=clred;
    //canvas.Pen.Width:=1; //指定画笔的宽度
    //canvas.Pen.Style:=psDashDotDot;//指定画笔的样式
    with canvas do
    begin
         pen.color:=clnavy;
         //画折线
         polyline([Point(120,10),Point(80,110),Point(180,50),Point(60,50),Point(160,110),Point(120,10)]);
         pen.Color:=clred;
         //arc绘制弧形曲线
         arc(220,10,420,110,220,10,420,10);
         //moveto作用是将画笔移到指定位置
         moveto(100,160);
         //lineto画一条到指定位置的直线段,线段起始位置由画布对象的Penpos属性值即画笔的当前位置确定。
         lineto(10,250);
         pen.color:=clolive;
         //画圆或者椭圆
         ellipse(110,160,300,250);
         pen.color:=clteal;
         //roundrect圆角矩形
         roundrect(310,160,400,250,50,240);
         pen.Color:=clblue;
         //rectangle绘制矩形
         rectangle(410,160,500,250);
         pen.Color:=clYellow;
         Textout(100,250,'Delphi,你好');
         trect1.Left:=220;
         trect1.Top:=250;
         TextRect(trect1,230,320,'Delphi中的画笔');

    end;
    end;

    源代码

  • 相关阅读:
    团队代码
    团队代码
    团队代码
    团队代码
    innerHTML与innerText与outHTML与outText 的区别。
    【C++】 C++知识点总结
    【海思】Hi3516A 运行sample_venc的demo内核奔溃(DDR问题)
    【C/C++】 C++寄存器优化
    【工具】 memtester内存压力测试工具
    【知识点】 gcc和g++的联系和区别
  • 原文地址:https://www.cnblogs.com/liszt/p/1969454.html
Copyright © 2011-2022 走看看