home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 December
/
Chip_2001-12_cd1.bin
/
sharewar
/
blackscr
/
black.exe
/
0
/
RCDATA
/
TFRMSETUP
/
TFRMSETUP.txt
Wrap
Text File
|
2001-10-28
|
14KB
|
503 lines
object frmSetup: TfrmSetup
Left = 329
Top = 109
BorderStyle = bsDialog
Caption = 'Black Screen Setup'
ClientHeight = 241
ClientWidth = 394
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
KeyPreview = True
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnKeyUp = FormKeyUp
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object btnOK: TButton
Left = 312
Top = 16
Width = 75
Height = 25
Hint = 'Accept changes and close this dialog'
Caption = '&OK'
Default = True
ModalResult = 1
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = btnOKClick
end
object btnCancel: TButton
Left = 312
Top = 48
Width = 75
Height = 25
Hint = 'Cancel changes and close this dialog'
Cancel = True
Caption = '&Cancel'
ModalResult = 2
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 297
Height = 225
ActivePage = TabSheet3
HotTrack = True
TabOrder = 0
OnMouseMove = TabSheet3MouseMove
object TabSheet4: TTabSheet
Caption = '&Welcome!'
object Label8: TLabel
Left = 8
Top = 8
Width = 219
Height = 20
Caption = 'Welcome to Black Screen v'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object lblVersionNumber: TLabel
Left = 232
Top = 8
Width = 41
Height = 20
Caption = '####'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 8
Top = 48
Width = 245
Height = 33
AutoSize = False
Caption =
'This is the Black Screen Setup. Here you define the display opti' +
'on and password.'
WordWrap = True
end
object Label10: TLabel
Left = 8
Top = 136
Width = 245
Height = 57
AutoSize = False
Caption =
'*** NOTE: Remember you password. This will be the password used ' +
'to exit the program. This will also be used to access these setu' +
'p options again with CTRL-S.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
WordWrap = True
end
object Bevel1: TBevel
Left = 8
Top = 40
Width = 273
Height = 9
Shape = bsTopLine
end
object Label11: TLabel
Left = 8
Top = 80
Width = 253
Height = 33
AutoSize = False
Caption =
'This screen will not display the next time you start. To access ' +
'this screen again, press CTRL-S'
WordWrap = True
end
end
object TabSheet2: TTabSheet
Caption = '&Options'
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 257
Height = 129
Caption = 'On Startup Display'
TabOrder = 0
object lblBitmap: TLabel
Left = 32
Top = 100
Width = 35
Height = 13
Caption = 'Bitmap:'
end
object rbtnBlack: TRadioButton
Left = 16
Top = 24
Width = 89
Height = 17
Hint = 'Screen displays all black'
Caption = '&Black Screen'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = rbtnBlackClick
end
object rbtnCapture: TRadioButton
Left = 16
Top = 48
Width = 97
Height = 17
Hint = 'Displays a snapshot of your screen'
Caption = '&Screen Capture'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = rbtnCaptureClick
end
object rbtnBitmap: TRadioButton
Left = 16
Top = 72
Width = 121
Height = 17
Hint = 'Display any bitmap you want'
Caption = '&User Defined Bitmap'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = rbtnBitmapClick
end
object txtBitmap: TEdit
Left = 72
Top = 96
Width = 145
Height = 21
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 3
OnMouseMove = txtBitmapMouseMove
end
object btnBitmap: TButton
Left = 221
Top = 96
Width = 25
Height = 22
Hint = 'Load Bitmap File'
Caption = '...'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = btnBitmapClick
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 144
Width = 257
Height = 41
Caption = 'Other Options'
TabOrder = 1
object chkMouse: TCheckBox
Left = 16
Top = 16
Width = 81
Height = 17
Hint = 'Display Mouse on screen'
Caption = 'Show &Mouse'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
end
end
object TabSheet1: TTabSheet
Caption = '&Passwords'
object Label1: TLabel
Left = 8
Top = 28
Width = 113
Height = 29
Hint = 'NOT Case Sensitive'
AutoSize = False
Caption = 'Setup Screen && Program Exit Password:'
ParentShowHint = False
ShowHint = True
WordWrap = True
end
object Label3: TLabel
Left = 139
Top = 8
Width = 46
Height = 13
Caption = 'Password'
end
object Label4: TLabel
Left = 216
Top = 8
Width = 52
Height = 13
Caption = 'Verification'
end
object Label12: TLabel
Left = 40
Top = 104
Width = 165
Height = 13
Caption = 'Passwords cannot contain spaces.'
end
object Label13: TLabel
Left = 40
Top = 120
Width = 168
Height = 13
Caption = 'Passwords are NOT case sensitive.'
end
object Label14: TLabel
Left = 40
Top = 136
Width = 199
Height = 13
Caption = 'Passwords have a 10 character maximum.'
end
object Label15: TLabel
Left = 16
Top = 88
Width = 26
Height = 13
Caption = 'Note:'
end
object txtSecret: TEdit
Left = 128
Top = 32
Width = 73
Height = 21
Hint = 'Keys to press to close program'
CharCase = ecLowerCase
MaxLength = 10
ParentShowHint = False
PasswordChar = '*'
ShowHint = True
TabOrder = 0
OnExit = txtSecretExit
OnKeyUp = txtSecretKeyUp
end
object txtSecret2: TEdit
Left = 208
Top = 32
Width = 73
Height = 21
Hint = 'Keys to press to close program'
CharCase = ecLowerCase
MaxLength = 10
ParentShowHint = False
PasswordChar = '*'
ShowHint = True
TabOrder = 1
OnExit = txtSecret2Exit
end
end
object TabSheet3: TTabSheet
Caption = '&About'
OnMouseMove = TabSheet3MouseMove
object Label2: TLabel
Left = 8
Top = 8
Width = 125
Height = 24
Hint = 'Written by R.J. Lindelof'
Caption = 'Black Screen v'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
OnMouseMove = TabSheet3MouseMove
end
object Label5: TLabel
Left = 160
Top = 32
Width = 116
Height = 13
Hint = 'Support issues'
Caption = 'support@rjlsoftware.com'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Label5Click
OnMouseMove = Label5MouseMove
end
object Label6: TLabel
Left = 32
Top = 32
Width = 64
Height = 13
Hint = 'Company Web Site'
Caption = 'RJL Software'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = Label6Click
OnMouseMove = Label5MouseMove
end
object Label7: TLabel
Left = 16
Top = 32
Width = 12
Height = 13
Caption = 'By'
end
object lblVersion: TLabel
Left = 136
Top = 8
Width = 50
Height = 24
Caption = '#####'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Memo1: TMemo
Left = 8
Top = 56
Width = 273
Height = 137
TabStop = False
Color = clMenu
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Problems? Email support@rjlsoftware.com'
'Questions? Email support@rjlsoftware.com'
'Enhacement Ideas? Visit www.rjlsoftware.com'
''
'This program is FREEWARE. For copyright, see '
'below.'
''
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*='
'Special thanks to: '
''
'Aaron Boss - BETA Tester'
'Robert Lasher - For ideas that lead to 4 hours of '
'coding.'
'Niall Haddow, Sulo Kesir - For password change '
'idea.'
'Mark Montgomery - For Setup password idea.'
'Nathan Holtz - For finding bitmap display defect.'
'John Albee - For finding bug with Password dialog'
'showing other applications in background.'
'Eric Burton, Joe, Enemy1415, Johnny Moore - '
'You'#39'all forgot your password and I had to account'
'for that. Thanks Guys! :)'
''
'And to all of the other people who sent us ideas '
'on how to make this program better and easier'
'to use.'
''
'*****'
'Note to developers:'
''
'All source code for Black Screen can be '
'purchased for $99.99 If you are interested in '
'purchasing the code to this program '
'please email us at the above address.'
''
'**************************************************************'
''
'DISCLAIMER '
''
'RJL Software, Inc. accepts no responsibility for '
'damages resulting from the use of its products and '
'makes no warranty or representation, either express '
'or implied, including but not limited to, any implied '
'warranty of merchantability or fitness for a particular '
'purpose. This software is provided "AS IS," and the '
'user assumes all risks therein. By downloading, '
'copying, using software produced by RJL Software, '
'Inc., or accessing RJL Software, Inc.'#39's website, you '
'agree to be bound by this disclaimer. '
''
'RJL Software, Inc.'#39's software is provided as freeware '
'and cannot be sold. It may be freely distributed to '
'individual end-users for their personal use, provided '
'they are informed by the distributor of RJL Software, '
'Inc.'#39's authorship of the software being distributed. '
'Tampering with the code is illegal. The files in this '
'software package may not be disassembled, '
'decomposed, reverse engineered, or altered in any '
'way. '
''
'Software produced by RJL Software, Inc. may not be '
'bundled with any commercial package, copied and '
'distributed on CD-ROM or floppy disk, or distributed '
'with any accompanying books or magazines without '
'the express written consent of RJL Software, Inc. '
''
'**************************************************************'
'')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
end
end
object btnRemove: TButton
Left = 312
Top = 208
Width = 75
Height = 25
Hint = 'Remove any Registry entries added (uninstall)'
Caption = '&De-Registry'
ModalResult = 3
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = btnRemoveClick
end
object OpenPictureDialog1: TOpenPictureDialog
DefaultExt = '*.bmp'
FileName = '*.bmp'
Filter = 'Bitmaps (*.bmp)|*.bmp'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
Title = 'Open Bitmap Image'
Left = 320
Top = 96
end
end