| Class TfrmConfiguration (unit configuration) |
TForm
************************************************************************** ssaver95 -- a delphi screen saver that requires little work to personalize Copyright (C) 1998 - Christopher Litsinger xopher@interiority.org This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. For more information, check out more information on the copyleft at http://www.gnu.org/copyleft/copyleft.html **************************************************************************
| Constructors |
| Functions |
procedure btnCancelClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure CreateParams (var Params : TCreateParams);| Properties |
| Events |
| Variables |
btnCancel : TButton;
btnOK : TButton;
cbxDesktop : TCheckBox;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
rgpStyle : TRadioGroup;
tbSpeed : TTrackBar;
formParent : Hwnd;| Constructors |
| Functions |
procedure btnCancelClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);here comes the tricky part
procedure FormCreate(Sender: TObject);
procedure CreateParams (var Params : TCreateParams);| Properties |
| Events |
| Variables |
btnCancel : TButton;
btnOK : TButton;
cbxDesktop : TCheckBox;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
rgpStyle : TRadioGroup;
tbSpeed : TTrackBar;
formParent : Hwnd;Public declarations