⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 00103.htm

📁 提供了Delphi编程的几个巧妙用法
💻 HTM
字号:
🔍 
<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是所有graphic objects的父类。<br>    
uses<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,    
ExtCtrls, Jpeg;<br>    
//显示JPEG图片<br>    
procedure TForm1.Button1Click(Sender: TObject);<br>   
Var<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AppPath : String ;<br>    
begin<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AppPath :=    
ExtractFilePath(Application.Exename);<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    
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来指定。在本程序中添加了一个MainMenu1 : TMainMenu，在MainMenu1里面添加了些菜单项，只有菜单二没有指定图片，和一个ImageList1: TImageList。在这个小的试验里面，Code没有多少，主要是设置属性。<br>    
//给ImageList1添加图标<br>    
procedure TForm1.Button2Click(Sender: TObject);<br>   
Var<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TheBitmap : TBitmap ;<br>    
begin<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TheBitmap := TBitmap.Create ;<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TheBitmap.LoadFromFile(AppPath + 'Img\1.bmp') ;<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ImageList1.Add(TheBitmap, nil) ;<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TheBitmap.LoadFromFile(AppPath + 'Img\2.bmp') ;<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ImageList1.Add(TheBitmap, nil) ;<br>    
<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TheBitmap.LoadFromFile(AppPath + 'Img\3.bmp') ;<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ImageList1.Add(TheBitmap, nil) ;<br>    
<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TheBitmap.LoadFromFile(AppPath + 'Img\4.bmp') ;<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ImageList1.Add(TheBitmap, nil) ;<br>    
<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 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：改变在MenuItem中的Image位置</span></b>     
<br>  
在这个例子里面只是改变了菜单N021即菜单2中Image的位置，<br>  
procedure TForm1.N021DrawItem(Sender: TObject; ACanvas: TCanvas;ARect: TRect; Selected: Boolean);<br>    
var<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TheBitmap : TBitmap;<br>   
begin<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TheBitmap := TBitmap.Create;<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ACanvas.TextOut(ARect.Left + 1, ARect.Top,(Sender as    
TMenuItem).Caption); //输出Caption<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ImageList1.GetBitmap((Sender as    
TMenuItem).ImageIndex,TheBitmap); //从ImageList1中获得这个MenuItem的Bitmap<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ACanvas.Draw(ARect.Left + ACanvas.TextWidth((Sender as    
TMenuItem).Caption) + 5,<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    
ARect.Top,<br>   
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    
TheBitmap); //Draw it<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TheBitmap.Free;<br>   
end;<br>   
<br>     
<span style="background-color: #FF0000"><a href="00103.zip">源程序下载</a></span>     
</p>   
   
</body>     
     
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -