知识大全 Delphi图形图像编程（二）[3]

Posted 2022-07-22 知

篇首语：古人已用三冬足，年少今开万卷余。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi图形图像编程（二）[3]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：Delphi图形图像编程（二）[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在加速按钮和位图按钮中显示位图的代码如下

　　procedure TImageForm CheckBox Click（Sender: TObject）

　　begin

　　ViewAsGlyph（UpperCase（ExtractFileExt（FileListBox Filename）））

　　end;

　　procedure TImageForm ViewAsGlyph（const FileExt: string）

　　begin

　　if CheckBox Checked and （FileExt = BMP ） then

　　begin

　　SpeedButton Glyph := Image Picture Bitmap;

　　SpinEdit Value := SpeedButton NumGlyphs;

　　BitBtn Glyph := Image Picture Bitmap;

　　end;

　　窗体中有一个检查框用来检验图像部件的Strecth 属性的效果当此检查框被选中时 Stretch设成真值图像将根据部件大小调整自身大小代码如下

　　procedure TImageForm StretchCheckClick（Sender: TObject）

　　begin

　　Image Stretch := StretchCheck Checked;

　　end;

　　在这个窗体中用户可以在屏幕和打印纸上调整图像部件的大小位置调整图像的代码如下

　　procedure TViewForm SpinEdit Change（Sender: TObject）

　　begin

　　IMage Height:= +SpinEdit Value* ;

　　IMage Width:= +SpinEdit Value* ;

　　end;

　　procedure TViewForm SpinEdit Change（Sender: TObject）

　　begin

　　Image Left:= + SpinEdit Value* ;

　　end;

　　procedure TViewForm SpinEdit Change（Sender: TObject）

　　begin

　　Image Top:= +SpinEdit Value* ;

　　当用户按下标有全尺寸字样的按钮时另一个窗体将显示

　　图像打印代码如下

　　procedure TViewForm Button Click（Sender: TObject）

　　begin

　　Printer BeginDoc;

　　Printer Canvas Draw（Trunc（ *Image Left） Trunc（ *Image Top） Image Picture Graphic）

　　Printer EndDoc;

　　end;

　　返回目录 DELPHI基础教程

编辑推荐

Java程序设计培训视频教程

J EE高级框架实战培训视频教程

　　Visual C++音频/视频技术开发与实战

　　Oracle索引技术

　　ORACLE G数据库开发优化指南

　　Java程序性能优化让你的Java程序更快更稳定

　　C嵌入式编程设计模式

　　Android游戏开发实践指南

cha138/Article/program/Delphi/201311/25245