| Class TWallPaperChanger (unit TWall) |
TComponent
============================================================================ Author: Ben Menking (731422) Email: bmenking@acm.org Type: Delphi 2.0 Non-Visual Component Version: 1.0b Code: Delphi Object Pascal Descript: Allows user to change Windows 95 wallpaper by passing in a filename and mode (tiled or centered). !NOTE!: This component (compiled or source) is freeware that can be used by anyone. If you use it for a commercial products, please give credit to me. You may modify the source code to your desire and if you make any cool modifications, please send me the mods!! :) |Copyright Ben Menking 1997| ===========================================================================
| Constructors |
constructor Create( AOwner: TComponent );| Functions |
procedure ChangeNow;
destructor Destroy;
Procedure ChangeWallPaper( FName: String; IsTiled: Boolean );
procedure OnChangeTimer( Sender: TObject );
function GetFileName: String;
procedure SetActive( Value: Boolean );
procedure SetFilename( const FName: String );
procedure SetInterval( Value: Longint );
procedure SetTiled( Value: Boolean );| Properties |
property Active : Boolean
property Filename : String
property Interval : Longint
property Tiled : Boolean| Events |
event OnBeginChange : TNotifyEvent
event OnFinishChange : TNotifyEvent| Variables |
fActive : Boolean;
fFilename : String;
fInterval : Longint;
fOnBeginChange : TNotifyEvent;
fOnFinishChange : TNotifyEvent;
fTiled : Boolean;
fTimer : TTimer;| Constructors |
constructor Create( AOwner: TComponent );| Functions |
procedure ChangeNow;
destructor Destroy;
Procedure ChangeWallPaper( FName: String; IsTiled: Boolean );
procedure OnChangeTimer( Sender: TObject );
function GetFileName: String;
procedure SetActive( Value: Boolean );
procedure SetFilename( const FName: String );
procedure SetInterval( Value: Longint );
procedure SetTiled( Value: Boolean );| Properties |
property Active : Boolean
property Filename : String
property Interval : Longint
property Tiled : Boolean| Events |
event OnBeginChange : TNotifyEvent
event OnFinishChange : TNotifyEvent| Variables |
fActive : Boolean;
fFilename : String;
fInterval : Longint;
fOnBeginChange : TNotifyEvent;
fOnFinishChange : TNotifyEvent;
fTiled : Boolean;
fTimer : TTimer;