Class TWallPaperChanger (unit TWall)

Inherits from

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;