chapt12图形图像处理.pptVIP

Chap12 图形图像处理 图形设计 图像处理 图形设计 Canvas画布对象 绘图方法 窗口绘图事件 响应鼠标事件 Canvas画布对象 Pen画笔：color、mode、style、width Brush刷子：color、style Pixels像素：canvas的各个像素的二维数组，用来存取窗口中的每一个点的颜色值 PenPos：设置和表示当前笔的位置 Draw方法 Procedure Draw (x, y: integer: Graphic: Tgraphic); StrechDraw方法 Procedure StretchDraw (const Rect: Trect: Tgraphic); 绘图方法 绘图的坐标体系 绘制直线 MoveTo和LineTo PolyLine PolyBezier和PolyBezierTo 绘制圆和椭圆的方法 Arc Ellipse ChordPie 绘制多边形的方法 Rectangle FillRect、FrameRect和RoundRect Polygon 显示字符串：Textout 窗口绘图事件 Form的OnPaint事件 当窗口启动或被激活时，触发窗体的OnPaint事件。 主动刷新 Invalidate方法，该方法没有参数，它会自动产生一个WM_Paint消息，先清除窗口上的图形，再产生OnPaint事件，重新绘制同样的图形。 立即刷新 在与窗口有关的各种消息中，WM_Paint消息的优先级较低。当窗口需要处理其他较高优先级的消息时，就不会立即触发OnPaint事件，因而也不能立即重画窗口。如果程序需要立即重画窗口，可以在调用Invalidate方法后再调用Update方法，或直接调用Repaint方法来刷新窗口。 响应鼠标事件 OnMouseDown事件 当鼠标按下时发生OnMouseDown事件 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer); OnMouseUp事件 当鼠标松开时发生OnMouseUp事件 OnMouseMove事件 当鼠标移动时发生OnMouseMove事件 图像处理 图形图像组件 常用图像类 图形图像组件 PaintBox组件 Shape组件 主要属性：brush、pen、shape Image组件 主要属性：picture、strech、autosize、center、transparent 图片对话框 OpenPictureDialog SavePictureDialog 常用图像类 TGraphic类 TBitmap类 TPicture类 读取、显示与保存图像 打印图像 必须将Painters单元添加在项目文件的uses语句中； 在调用Tpainter类的两个方法BeginDoc和EndDoc之间调用所有真正的画图语句。 备用试验 实验要求： 对所学图像和文件组建综合练习 实验内容 P355如图所示 Keep on walking ——杨丽敬 《Delphi程序设计》工学结合特色精品课程 备注： 讨论、思考题、作业： 实训题目1：MediaPlaye播放器的生成 实训题目2：canvas丰富界面效果 2课时 教学方法和教学手段： 教学方法运用了多媒体课件讲授、开发进度讨论、代码编写示教、系统分析指导等。教学手段采用板书、多媒体、模型、示例等教学工具。 教学目的要求： 了解使用常见的多媒体组件，增加系统的生动性，并应用于设计中。 主要教学内容和课时分配（请注明：* 重点 # 难点 ）： 1.Animate组件 2.MediaPlayer组件 * 1课时 3.Canvas组件 #1课时 4.shape组件 *1课时 5.image组件 * 1课时 6.paintbox组件 7.teechart组件 第__九_模块 本模块题目：delphi多媒体及图像组件 感谢聆听！ Thanks for your time！