?? 015.htm
字號:
<p>begin</p>
<p>with Image.Canvas.Pen do</p>
<p>begin</p>
<p>if Sender = SolidPen then Style := psSolid</p>
<p>else if Sender = DashPen then Style := psDash</p>
<p>else if Sender = DotPen then Style := psDot</p>
<p>else if Sender = DashDotPen then Style := psDashDot</p>
<p>else if Sender = DashDotDotPen then Style := psDashDotDot</p>
<p>else if Sender = ClearPen then Style := psClear;</p>
<p>end;</p>
<p>end; </p>
<p>5.3 <font face="宋體" lang="ZH-CN">圖像對象概述 </p>
</font><p>5.3.1 TGraphic<font face="宋體" lang="ZH-CN">對象</p>
<p> </font>TGraphic<font face="宋體" lang="ZH-CN">對象是</font>TBitmap
,TIcon,Tmetafile<font face="宋體" lang="ZH-CN">對象的基類。如果知道圖像的具體類型</font>(
<font face="宋體" lang="ZH-CN">如位圖，</font> <font face="宋體" lang="ZH-CN">圖標元文件</font>)
<font face="宋體" lang="ZH-CN">，</font> <font face="宋體" lang="ZH-CN">則應將圖像貯存在相應類型的對象中</font>(
<font face="宋體" lang="ZH-CN">如</font>TBitmap,TIcon,Tmetafile)<font face="宋體"
lang="ZH-CN">，否則應該使用可貯存任何圖像類型的</font>TPicture<font
face="宋體" lang="ZH-CN">對象。 </p>
</font><p>5.3.2 TPicture<font face="宋體" lang="ZH-CN">對象 </p>
<p> </font>TPicture<font face="宋體" lang="ZH-CN">對象可以保存位圖、圖標或元文件。</font>Graphic<font
face="宋體" lang="ZH-CN">屬性中包括圖像的類型；圖像的高度和寬度分別定義在</font>Height,Width<font
face="宋體" lang="ZH-CN">屬性中；調用</font>LoadFromFile<font face="宋體"
lang="ZH-CN">方法，可以從文件中裝載一幅圖像：</font></p>
<p>procedure TForm1.FormCreate(Sender: TObject);</p>
<p>begin</p>
<p>BitBtn1.Glyph.LoadFromFile('TARTAN.BMP');</p>
<p>end; </p>
<p><font face="宋體" lang="ZH-CN">
要保存一個位圖，則要用</font>SaveToFile<font
face="宋體" lang="ZH-CN">方法；要把圖像復制到剪切板，可以調用</font>TClipboard<font
face="宋體" lang="ZH-CN">對象的</font>Assign<font face="宋體" lang="ZH-CN">方法。 </p>
</font><p>5.3.3 TImage<font face="宋體" lang="ZH-CN">部件 </p>
<p> </font>TImage<font face="宋體" lang="ZH-CN">部件用以在窗體中顯示圖像，它的</font>Picture
<font face="宋體" lang="ZH-CN">屬性保存著要顯示的圖像，</font> <font
face="宋體" lang="ZH-CN">這是一個</font>TPicture<font face="宋體" lang="ZH-CN">對象。</font>AutoSize,Stretch<font
face="宋體" lang="ZH-CN">屬性是用來調節部件與圖像的大小的。當</font>AutoSize
<font face="宋體" lang="ZH-CN">為真值時，</font>TImage<font face="宋體"
lang="ZH-CN">部件將根據它所包含的圖像的大小來調整自身的大小；當</font>AutoSize<font
face="宋體" lang="ZH-CN">為假值時，不論圖像有多大，部件將保持設計時的大小。如果部件比圖像小，</font>
<font face="宋體" lang="ZH-CN">那么只有一部分圖像是可見的。當</font>Stretch<font
face="宋體" lang="ZH-CN">為真值時，位圖像將根據部件的大小調整自身的大小，當部件大小改變時，元文件也做相應變化。</font>Stretch<font
face="宋體" lang="ZH-CN">屬性對圖標沒有作用。 </p>
</font><p>5.3.4 TBitmap Object(<font face="宋體" lang="ZH-CN">位圖對象</font>)</p>
<font face="宋體" lang="ZH-CN"><p> 位圖對象包含一個位圖圖像，有</font>HBITMAP,HPALETE<font
face="宋體" lang="ZH-CN">句柄，可自動管理調色板。位圖對象也有畫布屬性。位圖的</font>Palette<font
face="宋體" lang="ZH-CN">屬性用來控制位圖的顏色映射，它包括</font>256<font
face="宋體" lang="ZH-CN">種可顯示的顏色。</font> <font face="宋體"
lang="ZH-CN">如果應用程序用前景色繪制位圖，</font>Palette <font
face="宋體" lang="ZH-CN">屬性的顏色將被加入</font>Windows<font face="宋體"
lang="ZH-CN">系統調色板，其它顏色被映射到系統調色板已存在的顏色。如果應用程序用自己的顏色繪制位圖，而其它程序已占有系統調色板，位圖的顏色將被映射到系統調色板中。</p>
<p> 如果</font>Monochrome<font face="宋體" lang="ZH-CN">屬性設置成假，位圖將顯示成彩色，反之顯示成黑白色。</p>
<p> 調用</font>Draw<font face="宋體" lang="ZH-CN">和</font>StretchDraw<font
face="宋體" lang="ZH-CN">方法可在畫布上繪制位圖。 </p>
</font><p>5.4 <font face="宋體" lang="ZH-CN">圖像對象的應用 </p>
<p> 本章例程中，單擊（文件</font>|<font face="宋體" lang="ZH-CN">瀏覽）菜單項，將彈出一個圖像瀏覽窗體。如果用戶在窗體中選擇文件列表框的圖形文件，窗體右上角的圖像部件上將出現此文件所代表的圖像；若選擇“雕刻效果”按鈕中檢查框，窗體中的加速按鈕和位圖按鈕上將出現位圖。</p>
<p> 以下代碼是將圖像文件裝載至圖像部件上： </p>
</font><p>procedure TImageForm.FileListBox1Click(Sender: TObject);</p>
<p>var</p>
<p>FileExt: string[4];</p>
<p>begin</p>
<p>FileExt := UpperCase(ExtractFileExt(FileListBox1.Filename));</p>
<p>if (FileExt = '.BMP') or (FileExt = '.ICO') or (FileExt = '.WMF') then</p>
<p>begin</p>
<p>Image1.Picture.LoadFromFile(FileListBox1.Filename);</p>
<p>Label1.Caption := ExtractFilename(FileListBox1.Filename);</p>
<p>if (FileExt = '.BMP') then</p>
<p>begin</p>
<p>Label1.Caption := Label1.Caption + </p>
<p>Format(' (%d x %d)', [Image1.Picture.Height, Image1.Picture.Width]);</p>
<p>ViewForm.Image1.Picture.Bitmap := Image1.Picture.Bitmap;</p>
<p>ViewAsGlyph(FileExt);</p>
<p>end;</p>
<p>if FileExt = '.ICO' then Icon := Image1.Picture.Icon;</p>
<p>if FileExt = '.WMF' then </p>
<p>ViewForm.Image1.Picture.Metafile := Image1.Picture.Metafile;</p>
<p>end;</p>
<p>end;<font face="宋體" lang="ZH-CN"> </p>
</font><p><font face="宋體" lang="ZH-CN">這個過程首先判斷文件類型，如果是圖像文件，則將圖像裝載至圖像部件上，并在標簽上列出文件名稱。如果是位圖文件，還將顯示其大小。</p>
<p> 在加速按鈕和位圖按鈕中顯示位圖的代碼如下： </p>
<p> </font> procedure TImageForm.CheckBox1Click(Sender: TObject); </p>
<p>begin</p>
<p>ViewAsGlyph(UpperCase(ExtractFileExt(FileListBox1.Filename)));</p>
<p>end; </p>
<p>procedure TImageForm.ViewAsGlyph(const FileExt: string);</p>
<p>begin</p>
<p>if CheckBox1.Checked and (FileExt = '.BMP') then </p>
<p>begin</p>
<p>SpeedButton1.Glyph := Image1.Picture.Bitmap;</p>
<p>SpeedButton2.Glyph := Image1.Picture.Bitmap;</p>
<p>SpinEdit1.Value := SpeedButton1.NumGlyphs;</p>
<p>BitBtn1.Glyph := Image1.Picture.Bitmap;</p>
<p>BitBtn2.Glyph := Image1.Picture.Bitmap;</p>
<p>end;</p>
<p>end; </p>
<p><font face="宋體" lang="ZH-CN">
窗體中有一個檢查框用來檢驗圖像部件的</font>Strecth
<font face="宋體" lang="ZH-CN">屬性的效果。當此檢查框被選中時，</font>Stretch<font
face="宋體" lang="ZH-CN">設成真值，圖像將根據部件大小調整自身大小。代碼如下： </p>
</font><p>procedure TImageForm.StretchCheckClick(Sender: TObject);</p>
<p>begin</p>
<p>Image1.Stretch := StretchCheck.Checked;</p>
<p>end;<font face="宋體" lang="ZH-CN"> </font></p>
<p><font face="宋體" lang="ZH-CN">
在這個窗體中，用戶可以在屏幕和打印紙上調整圖像部件的大小、位置。調整圖像的代碼如下： </font></p>
<p>procedure TViewForm.SpinEdit1Change(Sender: TObject);</p>
<p>begin</p>
<p>IMage1.Height:=105+SpinEdit1.Value*5;</p>
<p>IMage1.Width:=105+SpinEdit1.Value*5;</p>
<p>end; </p>
<p>procedure TViewForm.SpinEdit2Change(Sender: TObject);</p>
<p>begin</p>
<p>Image1.Left:=40+ SpinEdit2.Value*20;</p>
<p>end; </p>
<p>procedure TViewForm.SpinEdit3Change(Sender: TObject);</p>
<p>begin</p>
<p>Image1.Top:=96+SpinEdit3.Value*10;</p>
<p><font face="宋體" lang="ZH-CN">
當用戶按下標有“全尺寸”字樣的按鈕時，另一個窗體將顯示。</font></p>
<p><font face="宋體" lang="ZH-CN">圖像打印代碼如下：</font></p>
<p>procedure TViewForm.Button1Click(Sender: TObject); </p>
<p>begin</p>
<p>Printer.BeginDoc;</p>
<p>Printer.Canvas.Draw(Trunc(1.5*Image1.Left),Trunc(1.5*Image1.Top),
Image1.Picture.Graphic);</p>
<p>Printer.EndDoc;</p>
<p>end;</p>
<BR>
<hr color="#EE9B73" size="1" width="94%">
</TD>
<TD CLASS="tt3" VALIGN="bottom" width="8%" bgcolor="#e0e0e0"><strong><A HREF="016.htm"><FONT style="FONT-SIZE: 9pt">后一頁</font></A><BR>
<A HREF="014.htm"><FONT style="FONT-SIZE: 9pt">前一頁</font></A><BR>
<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
</TR>
</table>
</BODY></HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -