home *** CD-ROM | disk | FTP | other *** search
- object CfgFrm: TCfgFrm
- Left = 212
- Top = 206
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Test Screen Saver'
- ClientHeight = 246
- ClientWidth = 201
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object pnlSpeed: TPanel
- Left = 0
- Top = 0
- Width = 201
- Height = 40
- Align = alTop
- Alignment = taLeftJustify
- BorderWidth = 6
- Caption = 'Speed:'
- TabOrder = 1
- Visible = False
- object ssspeed: TScrollBar
- Left = 56
- Top = 12
- Width = 133
- Height = 17
- LargeChange = 8
- Min = 1
- Position = 10
- TabOrder = 0
- OnChange = sbSpeedChange
- end
- end
- object pnlPassword: TPanel
- Left = 0
- Top = 80
- Width = 201
- Height = 40
- Align = alTop
- Alignment = taLeftJustify
- BorderWidth = 4
- Caption = 'Password:'
- TabOrder = 2
- object ndpass: TCheckBox
- Left = 64
- Top = 12
- Width = 73
- Height = 17
- Caption = 'Protected'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 0
- OnClick = ndpassClick
- end
- object btnSet: TButton
- Left = 136
- Top = 9
- Width = 49
- Height = 23
- Caption = '&Set'
- TabOrder = 1
- OnClick = btnSetClick
- end
- end
- object pnlButtons: TPanel
- Left = 0
- Top = 120
- Width = 201
- Height = 49
- Align = alTop
- Alignment = taLeftJustify
- BorderWidth = 4
- TabOrder = 0
- object btnOK: TButton
- Left = 104
- Top = 12
- Width = 75
- Height = 23
- Caption = '&OK'
- Default = True
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnOKClick
- end
- object btnAbout: TButton
- Left = 22
- Top = 12
- Width = 75
- Height = 23
- Caption = '&About'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnAboutClick
- end
- end
- object pnlSound: TPanel
- Left = 0
- Top = 40
- Width = 201
- Height = 40
- Align = alTop
- Alignment = taLeftJustify
- BorderWidth = 4
- TabOrder = 3
- object chkSound: TCheckBox
- Left = 16
- Top = 12
- Width = 169
- Height = 17
- Caption = 'Play Sound'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 0
- OnClick = chkSoundClick
- end
- end
- end
-