📄 dpi13.htm
字号:
<html>
<head>
<title>贴上精致的壁纸</title>
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
</tr>
</tbody>
</table>
<table border=0 bordercolordark=#66aaff bordercolorlight=#66aaff cellpadding=0
cellspacing=0 width=680 align="center" height="128">
<tbody>
<tr>
<td bgcolor=#F9D23C height=14>
<div align=center class=H1> <big>贴上精致的壁纸</big> </font></b></font></b></font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="center"> </p>
<p> 在网上，几乎每个主页的壁纸都具有鲜明的特色，或是木纹，或是玛瑙色大理石纹，或是浅色的文字等等，令人赏心悦目。我们在设计Delphi应用程序时，也不妨借鉴借鉴，利用TImage对象以及窗体的画布(Canvas)对象，给程序的主窗口设计一幅精致有趣的壁纸，以增强应用程序的感染力。<br>
1、利用PhotoShop等图像处理软件，充分展示你的想象能力，制作一幅底纹图像，或者在网上抓一个。如果你制作的图像的颜色数设置得很高，例如16位真彩色，就需要相应设置Win95中显示器的调色板参数，为了让你的程序能适应不同的计算机环境，建议图像尺寸和图像的颜色数不要设置得太大。<br>
2、新建一个工程，打开程序的代码编辑窗口，在Var部分加入以下说明：<br>
TileImage:TImage; //定义一个TImage对象<br>
3、编写Form1.OnCreate事件代码：<br>
procedure TForm1.FormCreate(Sender: TObject);<br>
begin<br>
//创建一个TImage对象，并载入指定底纹位图文件<br>
TileImage:=TImage.Create(Self);<br>
TileImage.Picture.LoadFromFile('bg_green.bmp');<br>
end;<br>
4、编写Form1.OnPaint事件代码：<br>
procedure TForm1.FormPaint(Sender: TObject);<br>
var<br>
PWidth,PHeight,X,Y: Integer;<br>
begin<br>
//壁纸图片的宽，高<br>
PWidth := TileImage.Picture.Bitmap.Width;<br>
PHeight := TileImage.Picture.Bitmap.Height;<br>
X := 0;<br>
while X < Form1.Width do begin<br>
Y := 0;<br>
while Y < Form1.Height do begin<br>
Form1.Canvas.Draw(X, Y, TileImage.Picture.Bitmap);<br>
Y := Y ＋ PHeight;<br>
end;<br>
X := X ＋ PWidth;<br>
end;<br>
end;<br>
5、加入应用程序的其他对象，并编写相应代码。<br>
6、编译、运行程序，试着改变窗口的大小。<br>
7、本程序在Pwin95、Delphi3环境下调试通过。
<p align="center"><font
color=#ffa000><b><br>
</b><b>
</td>
</tr>
</tbody>
</table>
</div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -