Class TMainForm (unit WpMain1)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

Don't get the special directories ('.

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;



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;