DELPHI基础教程：Delphi图形图像编程（二）[3]

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

procedure TImageFormCheckBoxClick（Sender: TObject）

begin

ViewAsGlyph（UpperCase（ExtractFileExt（FileListBoxFilename）））

end;

procedure TImageFormViewAsGlyph（const FileExt: string）

begin

if CheckBoxChecked and （FileExt = BMP） then

begin

SpeedButtonGlyph := ImagePictureBitmap;

SpeedButtonGlyph := ImagePictureBitmap;

SpinEditValue := SpeedButtonNumGlyphs;

BitBtnGlyph := ImagePictureBitmap;

BitBtnGlyph := ImagePictureBitmap;

end;

end;

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

procedure TImageFormStretchCheckClick（Sender: TObject）

begin

ImageStretch := StretchCheckChecked;

end;

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

procedure TViewFormSpinEditChange（Sender: TObject）

begin

IMageHeight:=+SpinEditValue*;

IMageWidth:=+SpinEditValue*;

end;

procedure TViewFormSpinEditChange（Sender: TObject）

begin

ImageLeft:=+ SpinEditValue*;

end;

procedure TViewFormSpinEditChange（Sender: TObject）

begin

ImageTop:=+SpinEditValue*;

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

图像打印代码如下

procedure TViewFormButtonClick（Sender: TObject）

begin

PrinterBeginDoc;

PrinterCanvasDraw（Trunc（*ImageLeft）Trunc（*ImageTop） ImagePictureGraphic）

PrinterEndDoc;

end;

返回目录DELPHI基础教程

编辑推荐

Java程序设计培训视频教程

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

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

Oracle索引技术

ORACLEG数据库开发优化指南

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

C嵌入式编程设计模式

Android游戏开发实践指南

[] [] []