计算机二级DELPHI基础:基本图形的绘制计算机二级考试

文章作者 100test 发表时间 2009:04:09 22:58:34
来源 100Test.Com百考试题网

　　Delphi中的基本图形包括直线、圆、椭圆、矩形、圆角矩形和圆弧等。下面将通过实例来介绍它们的一些属性和方法。
　　1．画点
　　画点使用Pixels属性，设置点的颜色，就可以在指定的位置画一个点。例如，在坐标中(100，100)画一红色的点，使用语句：
　　Canvas．Pixels[100，100]：=clRed；
　　下面这段程序可画出由200个红点组成的45斜线。
　　procedure TForml．ButtonlClick(Sender：TObject)；
　　var i：integer；
　　begin
　　Canvas．MoveTo(10，10)；
　　for i：=1 to 200 do Canvas．Pixels[10 i，10 i]：=clRed；
　　end；
　　2．直线的绘制
　　在Delphi中绘制直线是通过LineTo方法来实现的，它的语法格式如下：
　　procedure LineTo(x，y：Integer)；
　　该方法从画布的当前位置开始，画一条到坐标(x，y)的直线。例如，画一条从坐标(100，
　　100)到(200，200)的直线的语句为：
　　Canvas．MoveTo(100，100)； //将画笔移动到(100，100)处
　　canvas．LineTo(200，200)； //从(100，100)画一条直线到(200，200)
　　3．椭圆的绘制
　　Delphi中绘制椭圆的方法是Ellipse，它的语法格式如下：
　　procedure Ellispe(x1，y1，x2，y2：Integer)；
　　该方法绘制一个椭圆，其外切矩形以(x1，y1)为左上角，(x2，y2)为右下角。例如，以(100，100)为左上角，(200，200)为右下角绘制一个外切矩形的椭圆的语句为：
　　Ellispe(100，100，200，200)；
　　4．矩形的绘制
　　Delphi中绘制矩形的方法是Rectangle，它的语法格式如下：
　　procedure Rectangle(x1，y1，x2，y2：Integer)；
　　该方法绘制一个以(x1，y1)为左上角、(x2，y2)为右下角的矩形。例如，绘制一个以(100，100)为左上角、(200，200)为右下角的矩形的语句为：
　　Rectangle(100，100，200，200)；
　　5．输出文本
　　调用TextOut方法输出文本，其语法格式为：
　　Canvas．TextOut(x，Y，Text)；
　　其中，(X，y)是文本输出的左上角坐标，Text为输出的文本。输出时使用当前的字体。
　　如果想在鼠标按下的地方出现”Here”，响应鼠标的OnMouseDown事件，可在该事件中调用TextOut方法：
　　Drocedure TForm 1．FormMouseDown(Sender：TObject，Button：TMouseButton；
　　Shift：TShifState；X，Y：Integer)；
　　begin
　　Canvas．TextOut(x，y，Here!’)； //(x，y)是鼠标按下位置的坐标
　　end；
　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛
　　2009年上半年全国计算机等级考试报名信息汇总
　　2009年NCRE考试有新变化
　　2009年全国计算机等级考试-大纲
　　2009年上半年全国计算机二级考试试题及答案