| Class TMainForm (unit WpMain1) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ChangeWallpaper(Wallpaper: String);
procedure FindBitmaps(Folder: String);| Properties |
| Events |
| Variables |
Button1 : TButton;
Edit1 : TEdit;
Label1 : TLabel;
BitmapFolder : String;
BitmapList : TStringList;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);Don't get the special directories ('.' and '..'
procedure FormCreate(Sender: TObject);---------------------- TMainForm ---------------------
procedure FormDestroy(Sender: TObject);
procedure ChangeWallpaper(Wallpaper: String);
procedure FindBitmaps(Folder: String);| Properties |
| Events |
| Variables |
Button1 : TButton;
Edit1 : TEdit;
Label1 : TLabel;
BitmapFolder : String;
BitmapList : TStringList;