?? 00103.htm
字號(hào):
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>1</title>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF">
<p align="left"><span style="BACKGROUND-COLOR: #ff0000"><a href="00103.zip">源程序下載</a></span><b><span style="background-color: #000080"><br>
</span><span style="background-color: #000000">
<br>
</span><span style="background-color: #000080">
<a name="1"></a>
1：用Image顯示JPEG圖片<br>
</span></b> 在程序的uses中加入Jpeg單元，使用TImage中的Picture.LoadFromFile 方法裝入JPEG格式圖象文件。注意，不要使用Picture.Bitmap屬性，Picture.Graphic屬性卻可以使用。TBitmap只能適合Bitmap格式的圖象，而TGraphic是所有g(shù)raphic objects的父類(lèi)。<br>
uses<br>
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,
ExtCtrls, Jpeg;<br>
//顯示JPEG圖片<br>
procedure TForm1.Button1Click(Sender: TObject);<br>
Var<br>
AppPath : String ;<br>
begin<br>
AppPath :=
ExtractFilePath(Application.Exename);<br>
Image1.Picture.LoadFromFile(AppPath+'Img\Beautiful.jpg') ;<br>
end;<b><span style="background-color: #000080"><br>
</span><span style="background-color: #000000">
<br>
</span><span style="background-color: #000080">
<a name="2"></a>
2：給MenuItem中添加Image</span></b>
<br>
要給MenuItem添加Image，可以和ImageList配合使用，要顯示的圖片可以用ImageIndex來(lái)指定。在本程序中添加了一個(gè)MainMenu1 : TMainMenu，在MainMenu1里面添加了些菜單項(xiàng)，只有菜單二沒(méi)有指定圖片，和一個(gè)ImageList1: TImageList。在這個(gè)小的試驗(yàn)里面，Code沒(méi)有多少，主要是設(shè)置屬性。<br>
//給ImageList1添加圖標(biāo)<br>
procedure TForm1.Button2Click(Sender: TObject);<br>
Var<br>
TheBitmap : TBitmap ;<br>
begin<br>
TheBitmap := TBitmap.Create ;<br>
TheBitmap.LoadFromFile(AppPath + 'Img\1.bmp') ;<br>
ImageList1.Add(TheBitmap, nil) ;<br>
<br>
TheBitmap.LoadFromFile(AppPath + 'Img\2.bmp') ;<br>
ImageList1.Add(TheBitmap, nil) ;<br>
<br>
TheBitmap.LoadFromFile(AppPath + 'Img\3.bmp') ;<br>
ImageList1.Add(TheBitmap, nil) ;<br>
<br>
TheBitmap.LoadFromFile(AppPath + 'Img\4.bmp') ;<br>
ImageList1.Add(TheBitmap, nil) ;<br>
<br>
TheBitmap.Free ;<br>
end;<b><span style="background-color: #000080"><br>
</span><span style="background-color: #000000">
<br>
</span><span style="background-color: #000080">
<a name="3"></a>
3：改變?cè)贛enuItem中的Image位置</span></b>
<br>
在這個(gè)例子里面只是改變了菜單N021即菜單2中Image的位置，<br>
procedure TForm1.N021DrawItem(Sender: TObject; ACanvas: TCanvas;ARect: TRect; Selected: Boolean);<br>
var<br>
TheBitmap : TBitmap;<br>
begin<br>
TheBitmap := TBitmap.Create;<br>
ACanvas.TextOut(ARect.Left + 1, ARect.Top,(Sender as
TMenuItem).Caption); //輸出Caption<br>
ImageList1.GetBitmap((Sender as
TMenuItem).ImageIndex,TheBitmap); //從ImageList1中獲得這個(gè)MenuItem的Bitmap<br>
ACanvas.Draw(ARect.Left + ACanvas.TextWidth((Sender as
TMenuItem).Caption) + 5,<br>
ARect.Top,<br>
TheBitmap); //Draw it<br>
TheBitmap.Free;<br>
end;<br>
<br>
<span style="background-color: #FF0000"><a href="00103.zip">源程序下載</a></span>
</p>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -