首页 考试吧论坛 Exam8视线 考试商城 网络课程 模拟考试 考友录 实用文档 求职招聘 论文下载
2011中考 | 2011高考 | 2012考研 | 考研培训 | 在职研 | 自学考试 | 成人高考 | 法律硕士 | MBA考试
MPA考试 | 中科院
四六级 | 职称英语 | 商务英语 | 公共英语 | 托福 | 雅思 | 专四专八 | 口译笔译 | 博思 | GRE GMAT
新概念英语 | 成人英语三级 | 申硕英语 | 攻硕英语 | 职称日语 | 日语学习 | 法语 | 德语 | 韩语
计算机等级考试 | 软件水平考试 | 职称计算机 | 微软认证 | 思科认证 | Oracle认证 | Linux认证
华为认证 | Java认证
公务员 | 报关员 | 银行从业资格 | 证券从业资格 | 期货从业资格 | 司法考试 | 法律顾问 | 导游资格
报检员 | 教师资格 | 社会工作者 | 外销员 | 国际商务师 | 跟单员 | 单证员 | 物流师 | 价格鉴证师
人力资源 | 管理咨询师考试 | 秘书资格 | 心理咨询师考试 | 出版专业资格 | 广告师职业水平
驾驶员 | 网络编辑
卫生资格 | 执业医师 | 执业药师 | 执业护士
会计从业资格考试会计证) | 经济师 | 会计职称 | 注册会计师 | 审计师 | 注册税务师
注册资产评估师 | 高级会计师 | ACCA | 统计师 | 精算师 | 理财规划师 | 国际内审师
一级建造师 | 二级建造师 | 造价工程师 | 造价员 | 咨询工程师 | 监理工程师 | 安全工程师
质量工程师 | 物业管理师 | 招标师 | 结构工程师 | 建筑师 | 房地产估价师 | 土地估价师 | 岩土师
设备监理师 | 房地产经纪人 | 投资项目管理师 | 土地登记代理人 | 环境影响评价师 | 环保工程师
城市规划师 | 公路监理师 | 公路造价师 | 安全评价师 | 电气工程师 | 注册测绘师 | 注册计量师
缤纷校园 | 实用文档 | 英语学习 | 作文大全 | 求职招聘 | 论文下载 | 访谈 | 游戏
您现在的位置: 考试吧(Exam8.com) > 计算机等级考试 > 计算机二级 > Delphi > 复习资料 > 正文

2011计算机等级考试Delphi:Delphi图形图像编程

来源:考试吧Exam8.com) 2010-10-27 14:23:49 考试吧:中国教育培训第一门户 模拟考场
本章将介绍以下内容:TCanvas,TPen,TBrush,TColor对象的方法及属性; 绘图功能的实现;TImage,TPicture,TBitBtn,TBitmap部件的方法及属性;图像观测及处理。

  5.2.3 绘图功能的实现

  绘图软件常根据用户的要求改变绘图工具。Graphex.dpr例程中,当用户按下某个按钮时,可选择绘图工具中的画笔或画刷,在程序类型说明部分定义了五种绘图工具。

  type

  TDrawingTool = (dtLine,dtRectangle,dtEllips,dtRoundRect,dtPolygon);

  当选中某种按钮,则选中了相应的绘图工具,如:

  procedure TForm1.LineButtonClick(Sender: TObject);

  begin

  DrawingTool := dtLine;

  end;

  procedure TForm1.RectangleButtonClick(Sender: TObject);

  begin

  DrawingTool := dtRectangle;

  end;

  procedure TForm1.EllipseButtonClick(Sender: TObject);

  begin

  DrawingTool := dtEllipse;

  end;

  procedure TForm1.RoundRectButtonClick(Sender: TObject);

  begin

  DrawingTool := dtRoundRect;

  end;

  procedure TForm1.PolygonButtonClick(Sender: TObject);

  begin

  DrawingTool :=dtPolygon;

  end;

  DrawShape过程定义了每种绘图工具的动作:

  procedure TForm1.DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);

  begin

  with Image.Canvas do

  begin

  Pen.Mode := AMode;

  case DrawingTool of

  dtLine: begin

  MoveTo(TopLeft.X, TopLeft.Y);

  LineTo(BottomRight.X, BottomRight.Y);

  end;

  dtRectangle: Rectangle(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y);

  dtEllipse: Ellipse(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y);

  dtRoundRect: RoundRect(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y,

  (TopLeft.X - BottomRight.X) div 2, (TopLeft.Y - BottomRight.Y) div 2);

  dtPolygon:Polygon([Point(0,0),TopLeft,BottomRight]); end;

  end;

  end;

  程序刚运行时,只有一个工具栏。当用户单击画笔和画刷时,则出现相应的工具栏,如图5.4。其代码如下:

  procedure TForm1.PenButtonClick(Sender: TObject);

  begin

  PenBar.Visible := PenButton.Down;

  end;

  procedure TForm1.BrushButtonClick(Sender: TObject);

  begin

  BrushBar.Visible := BrushButton.Down;

  end;

  在设计绘图程序时,还要解决一些问题。如为了在鼠标移动时能观测图形的变化,我们定义了OnMouseMove事件。但会出现这样的现象,当鼠标进入绘图区时,用户未按下鼠标键,画布上却出现绘制的图形,这是我们不希望看到的。其原因是没有对鼠标按钮是否按下进行判断。因此在窗体对象中定义了drawing的域,当鼠标按钮按下时,drawing 设置成真值。只有drawing为真,鼠标移动才执行绘图功能;当鼠标键松开时,drawing设置成假,鼠标移动将不执行绘图动作。

  另外一个问题是, 我们希望得到的是鼠标按钮按下和松开这两点所形成的图形,但OnMouseMove却把鼠标轨迹上各点与起始点所形成的所有图形画在屏幕上,这同样是我们不希望看到的,为了解决这些问题,程序定义了鼠标的三个事件:

  procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

  begin

  Drawing := True;

  Image.Canvas.MoveTo(X, Y);

  Origin := Point(X, Y);

  MovePt := Origin;

  OriginPanel.Caption := Format('Origin: (%d, %d)', [X, Y]);

  end;

  procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

  begin

  if Drawing then

  DrawShape(Origin, Point(X, Y), pmCopy);

  Drawing := False;

  end;

  procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

  begin

  if Drawing then

  begin

  DrawShape(Origin, MovePt, pmNotXor);

  MovePt := Point(X, Y);

  DrawShape(Origin, MovePt, pmNotXor);

  end;

  MovePt用来记录鼠标当前位置。当下次鼠标移动时, 就能在上次鼠标绘制的图形上画一个形状、大小一样的图形,并把画笔颜色设置成PmNotXor,使上次绘制的图形颜色变成了屏幕颜色,从而达到“橡皮擦”的效果。

  将画笔、画刷的Style属性设置成用户希望的值,可实现对画笔和画刷风格的选择。

  procedure TForm1.SetBrushStyle(Sender: TObject);

  begin

  with Image.Canvas.Brush do

  begin

  if Sender = SolidBrush then Style := bsSolid

  else if Sender = ClearBrush then Style := bsClear

  else if Sender = HorizontalBrush then Style := bsHorizontal

  else if Sender = VerticalBrush then Style := bsVertical

  else if Sender = FDiagonalBrush then Style := bsFDiagonal

  else if Sender = BDiagonalBrush then Style := bsBDiagonal

  else if Sender = CrossBrush then Style := bsCross

  else if Sender = DiagCrossBrush then Style := bsDiagCross;

  end;

  procedure TForm1.SetPenStyle(Sender: TObject);

  begin

  with Image.Canvas.Pen do

  begin

  if Sender = SolidPen then Style := psSolid

  else if Sender = DashPen then Style := psDash

  else if Sender = DotPen then Style := psDot

  else if Sender = DashDotPen then Style := psDashDot

  else if Sender = DashDotDotPen then Style := psDashDotDot

  else if Sender = ClearPen then Style := psClear;

  end;

  end;

上一页  1 2 3 4 5 下一页
  相关推荐:2010年9月计算机等级考试试题及答案解析专题
       预告:名师解析2010年9月计算机等级考试试题答案
       2010年9月计算机等级考试成绩查询时间及入口
       2010年9月计算机等考成绩查询短信免费提醒开通
文章搜索
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。