Class TfrmConfig (unit savConf)

Inherits from

TForm

this unit provieds the configuration-dialog for my screen saver sample you must change this whole unit to make your new saver work. Look out for comments in the file on special issues Version 1.0 Author: Meik Weber IMPORTANT: See Copyright and disclaimer in README.TXT and Project Source

Constructors



Functions

procedure butCancelClick(Sender: TObject);

as I made myself modal, I should undo so now

procedure butOKClick(Sender: TObject);

Click on OK saves my configuration to the registry.

procedure FormClose(Sender: TObject; var Action: TCloseAction);

My dialog should be modal, so disable parent

procedure FormCreate(Sender: TObject);


procedure SpeedBarChange(Sender: TObject);

close and exit without saving conig

procedure CreateParams (var Params : TCreateParams);

Public declarations } {it is very important that you leave this CreateParams intact, it is essential to making this window modal to the screen-properties-dialog

close this window and exit the config dialog


Properties

Events

Variables

butCancel : TButton;


butOK : TButton;


Fast : TLabel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


labSpeed : TLabel;


Slow : TLabel;


SpeedBar : TTrackBar;



Constructors


Functions


procedure butCancelClick(Sender: TObject);

as I made myself modal, I should undo so now


procedure butOKClick(Sender: TObject);

Click on OK saves my configuration to the registry. I checked the sample-savers from Microsoft (BEZIER.SCR) and found out that they still write lots of information to CONTROL.INI. I think it is better to write it to the Registry


procedure FormClose(Sender: TObject; var Action: TCloseAction);

My dialog should be modal, so disable parent


procedure FormCreate(Sender: TObject);


procedure SpeedBarChange(Sender: TObject);

close and exit without saving conig


procedure CreateParams (var Params : TCreateParams);

Public declarations } {it is very important that you leave this CreateParams intact, it is essential to making this window modal to the screen-properties-dialog

close this window and exit the config dialog


Properties


Events


Variables


butCancel : TButton;


butOK : TButton;


Fast : TLabel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


labSpeed : TLabel;


Slow : TLabel;


SpeedBar : TTrackBar;