熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

DELPHI基礎教程:Delphi圖形圖像編程(二)[3]

2013-11-23 17:52:02  來源: Delphi編程 

  在加速按鈕和位圖按鈕中顯示位圖的代碼如下

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.