| Class TfrmConfig (unit savConf) |
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);
procedure butOKClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure SpeedBarChange(Sender: TObject);
procedure CreateParams (var Params : TCreateParams);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;