[已解决]画图

Lin-Ye

Delphi 如何画图呀

最佳答案

月排行榜 / 总排行榜

aminghanhua

2015-1-31 20:51:52

楼主可以看看TCanvas类
Canvas 是画布,  Pen 是画笔,  Brush 是画刷,

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. begin
   
3.   Canvas.Pen.Color := clRed; {设置画笔颜色}
   
4.   Canvas.Pen.Width := 2;     {设置画笔宽度}
   
5. 
   
6.   Canvas.MoveTo(10,10);      {直线起点}
   
7.   Canvas.LineTo(100,100);    {直线终点}
   
8. end;
   
9. 
   
10. {矩形填充}
    
11. procedure TForm1.Button2Click(Sender: TObject);
    
12. begin
    
13.   Canvas.Brush.Color := clYellow; {设置画刷颜色, 也就是填充色}
    
14.   Canvas.FillRect(ClientRect);    {填充窗体客户区}
    
15. end;

复制代码

1. procedure TForm1.Button2Click(Sender: TObject);
   
2. var
   
3.   R: TRect; {定义一个矩形结构}
   
4. begin
   
5.   btn := TButton(Sender);
   
6.   R := Rect(btn.Left, y1, btn.Left+btn.Width, y2);
   
7.   Canvas.Rectangle(R);
   
8. end;
   
9. {绘制圆角矩形; 最后两个参数是设置圆角的}
   
10. procedure TForm1.Button3Click(Sender: TObject);
    
11. begin
    
12.   btn := TButton(Sender);
    
13.   Canvas.RoundRect(btn.Left, y1, btn.Left+btn.Width, y2, 20,20);
    
14. end;

复制代码

更多可看万一博客 http://www.cnblogs.com/del/category/123038.html

跳转到最佳答案楼层

aminghanhua

楼主可以看看TCanvas类
Canvas 是画布,  Pen 是画笔,  Brush 是画刷,

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. begin
   
3.   Canvas.Pen.Color := clRed; {设置画笔颜色}
   
4.   Canvas.Pen.Width := 2;     {设置画笔宽度}
   
5. 
   
6.   Canvas.MoveTo(10,10);      {直线起点}
   
7.   Canvas.LineTo(100,100);    {直线终点}
   
8. end;
   
9. 
   
10. {矩形填充}
    
11. procedure TForm1.Button2Click(Sender: TObject);
    
12. begin
    
13.   Canvas.Brush.Color := clYellow; {设置画刷颜色, 也就是填充色}
    
14.   Canvas.FillRect(ClientRect);    {填充窗体客户区}
    
15. end;

复制代码

1. procedure TForm1.Button2Click(Sender: TObject);
   
2. var
   
3.   R: TRect; {定义一个矩形结构}
   
4. begin
   
5.   btn := TButton(Sender);
   
6.   R := Rect(btn.Left, y1, btn.Left+btn.Width, y2);
   
7.   Canvas.Rectangle(R);
   
8. end;
   
9. {绘制圆角矩形; 最后两个参数是设置圆角的}
   
10. procedure TForm1.Button3Click(Sender: TObject);
    
11. begin
    
12.   btn := TButton(Sender);
    
13.   Canvas.RoundRect(btn.Left, y1, btn.Left+btn.Width, y2, 20,20);
    
14. end;

复制代码

更多可看万一博客 http://www.cnblogs.com/del/category/123038.html

Angel丶L

支持楼上的，