文档介绍：桌面宠物 DIY
很多人喜欢在电脑的桌面上放上自己喜爱的宠物,看着它(们)活蹦乱跳的样子,缓解一下工作、生活、学习的疲劳。其实做桌面宠物很简单,下面看我详细道来。
我喜欢Delphi,就以Delphi为例吧。,,窗体名称为Form1。在Form1上添加2个Timer,1个SpeedButton,5个Image。见图1。
Timer1
TTimer
Interval = 400 Enabled = True
Timer2
TTimer
Interval = 1 Enabled = False
SpeedButton1
TSpeedButton
Height = 25 Width = 80 Left = 0 Top = 0
Caption = ‘我不玩了’
Form1
TForm1
BorderStyle = bsNone Font为5号宋体
FormStyle = fsStayOnTop
BorderIcons = []
DogImage
TImage
Height = 35 Width = 35 设计时无图像
Image1
TImage
Height = 35 Width = 35 (小狗神态之一。下同)
Image2
TImage
Image3
TImage
Image4
TImage
图1 图2
程序要点:Image1~Image4为4个小狗动作图像,大小均为35×35,轮廓外的颜色均为纯白色($00FFFFFF)。程序中透明色为白色。若为其它色就会出现问题:在背景色与透明色相同的地方,小狗轮廓外为白色而非透明!如果图像中有白色,请改为与白色相近的颜色,因为白色是透明色,不会显示,但相近的颜色会显示出来。
过程说明:
Timer1Timer(Sender: TObject)--循环显示小狗的四个动作;
Timer2Timer(Sender: TObject)--规定小狗下一步到何位置;
RefreshRect--局部刷新。
程序运行后,在屏幕右上角显示为一个按钮,在屏幕中央出现一只摇头摆尾的小狗。见图2。
程序的改进:限于篇幅,本文只介绍了制作桌面宠物的最简单情况。实际上,素材图像也可以大小不一;素材越多,动作越精细好看,比如,往上、下、左、右走可以各用一套或几套图像;宠物离开后,可以在原地留下一些“作品”;可以增加喂养功能(添加菜单,准备一堆成长过程的图片);Timer2定时器描述宠物的行动特性,大有想象空间。
以下是程序的main单元清单:
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Menus,ShellAPI, ExtCtrls,Math, Buttons;
type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
DogImage: TImage;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Imag