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游戲開發實踐指南

[]  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25245.html