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