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;

    源代码

  • 相关阅读:
    C语言学习之指针
    IT人和普洱茶
    茶如人生 你是什么茶?
    普洱茶的冲泡技巧
    普洱茶保健功效
    廖雪峰Python总结3
    廖雪峰Python总结2
    Linux之软件包安装管理
    Linux常用命令6 关机重启命令
    Linux之Vim编辑器
  • 原文地址:https://www.cnblogs.com/liszt/p/1969454.html
Copyright © 2011-2022 走看看