Class TMainForm (unit WpMain2)

Inherits from

TForm

Constructors



Functions

procedure FormCreate(Sender: TObject);

---------------------- TMainForm ---------------------

procedure FormDestroy(Sender: TObject);

Finally close the app.

procedure ChangeWallpaper(Wallpaper: String);

Don't get the special directories ('.

procedure FindBitmaps(Folder: String);


Properties

Events

Variables

BitmapFolder : String;


BitmapList : TStringList;



Constructors


Functions


procedure FormCreate(Sender: TObject);

---------------------- TMainForm ---------------------


procedure FormDestroy(Sender: TObject);

Finally close the app.


procedure ChangeWallpaper(Wallpaper: String);

Don't get the special directories ('.' and '..'


procedure FindBitmaps(Folder: String);


Properties


Events


Variables


BitmapFolder : String;


BitmapList : TStringList;