Difference between revisions of "Drawing with canvas/zh CN"
From Lazarus wiki
Jump to navigationJump to searchWangyouworld (talk | contribs) (Created page with "leo_tecnologica@yahoo.com.ar 发布 —— Leonardo Gabriel Calautti '''Line''' (x1, y1, x2, y2)-> 从(x1,y1)到(x2,y2)画线 '''Rectangle''' (x1, y1, x2, y2)-> 从(x1,y1)...") |
m (Fixed syntax highlighting) |
||
(4 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
+ | {{Drawing with canvas}} | ||
+ | |||
leo_tecnologica@yahoo.com.ar 发布 —— Leonardo Gabriel Calautti | leo_tecnologica@yahoo.com.ar 发布 —— Leonardo Gabriel Calautti | ||
Line 13: | Line 15: | ||
如,下面的代码,将绘制对角线,在Button1Click间: | 如,下面的代码,将绘制对角线,在Button1Click间: | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
procedure TForm1.Button1Click(Sender: TObject); | procedure TForm1.Button1Click(Sender: TObject); | ||
begin | begin | ||
Line 24: | Line 26: | ||
如何绘制矩形和椭圆在里面使用'''Rectangle'''和'''Ellipse''';在调用Brush和Pen时,使用color设置颜色,该属性给绘制对象填充、线条的颜色。在绘制前,顺序很重要: | 如何绘制矩形和椭圆在里面使用'''Rectangle'''和'''Ellipse''';在调用Brush和Pen时,使用color设置颜色,该属性给绘制对象填充、线条的颜色。在绘制前,顺序很重要: | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
canvas.Brush.color:= clred; | canvas.Brush.color:= clred; | ||
canvas.Ellipse(195, 117, 205, 128); | canvas.Ellipse(195, 117, 205, 128); | ||
Line 44: | Line 46: | ||
− | [[ | + | [[Graphics/zh_CN|上一页]] |
− | + | ||
− | + | ||
− | |||
[[Category:zh]] | [[Category:zh]] |
Latest revision as of 08:13, 14 February 2020
│
Deutsch (de) │
English (en) │
français (fr) │
中文(中国大陆) (zh_CN) │
leo_tecnologica@yahoo.com.ar 发布 —— Leonardo Gabriel Calautti
Line (x1, y1, x2, y2)-> 从(x1,y1)到(x2,y2)画线
Rectangle (x1, y1, x2, y2)-> 从(x1,y1)点到(x2,y2)点画矩形
Ellipse (x1, y1, x2, y2)-> 从(x1,y1)点到(x2,y2)点画椭圆
如,下面的代码,将绘制对角线,在Button1Click间:
procedure TForm1.Button1Click(Sender: TObject);
begin
canvas.Line(0,0, form1.Width,form1.Height);
canvas.Line(0,form1.height,form1.width,0);
end;
如何绘制矩形和椭圆在里面使用Rectangle和Ellipse;在调用Brush和Pen时,使用color设置颜色,该属性给绘制对象填充、线条的颜色。在绘制前,顺序很重要:
canvas.Brush.color:= clred;
canvas.Ellipse(195, 117, 205, 128);
canvas.Brush.color:= clblue;
canvas.Rectangle (192, 130,208,160);
canvas.Brush.color:= clgreen;
Canvas.Rectangle (187, 130,191,162);
canvas.Brush.color:= clyellow;
Canvas.Rectangle (209, 130,213,162);
canvas.Brush.color:= clmaroon;
Canvas.Rectangle (193,161,199,200);
canvas.Brush.color:= clpurple;
Canvas.Rectangle (201,161,207,200);
如果按着步骤,你可以做到: