'A font for all... 
CREATE TheFont AS QFont
	Size = 10
	Name = "Courier New"
END CREATE

'A container for the top images on the forms... 
CREATE TopImg AS QBitmap
	'All properties set at run-time. 
END CREATE

'Main console form 
CREATE Form AS QForm
	BorderStyle = bsNone
	Caption = "Console for Windows v2"
	Width = Screen.Width
	WndProc = ProcessMessages 
	'Top and height set at run time. 
	CREATE CLI AS QEdit
		BorderStyle = bsNone
		Align = alBottom
'		OnKeyDown = ProcessCommandLine 
		OnKeyUp = ProcessCommandLine
		'Colour and font set at run time. 
		Font = TheFont
	END CREATE
	CREATE Image AS QImage
		AutoSize = True
		Visible = False
	END CREATE
	CREATE Canvas AS QCanvas
		Align = alClient
		OnPaint = RepaintCanvas
		OnMouseDown = CheckRightClickOnCanvas
	END CREATE
END CREATE

CREATE TrayPopup AS QPopUpMenu
	CREATE TPSCMN AS QMenuItem
		Caption = "&Show/Hide console"
		OnClick = TrayShow
	END CREATE
	CREATE TPSP1 AS QMenuItem
		Caption = "-"
	END CREATE
	CREATE TPABMN AS QMenuItem
		Caption = "&About"
		OnClick = ShowAbout
	END CREATE
	CREATE TPEXMN AS QMenuItem
		Caption = "&Exit"
		OnClick = TrayExit
	END CREATE
END CREATE

CREATE Buffer AS QBitmap
	Font = TheFont
END CREATE

CREATE HideTimer AS QTimer
	Interval = 200
	Enabled = False
	OnTimer = HideForm
END CREATE

'Splash screen form 
CREATE SplashForm AS QForm
	BorderStyle = bsNone
	Width = 300
	Height = 220
	Center
	CREATE StartProgress AS QGauge
		Align = alBottom
		Height = 20
	END CREATE
	CREATE SplashImage AS QImage
		BMPHandle = SplashBmp
		Align = alClient
	END CREATE
END CREATE

DIM Files AS QFileStream
DIM OpenDlg AS QOpenDialog
'DIM SaveDlg AS QSaveDialog 

'A form for the custom message box... 
CREATE CMBXForm AS QForm
	Height = 250
	Width = 400
	BorderStyle = bsNone
	OnPaint = DrawFormBorder
	Center
	CREATE CMBXImgTop AS QImage
		Align = alTop
		OnMouseDown = StartMoveCMBXForm
		OnMouseMove = MoveCMBXForm
		OnMouseUp = StopMoveCMBXForm
	END CREATE
	CREATE CMBXLabel AS QLabel
		AutoSize = False
		Top = 35
		Left = 5
		Width = 390
		Height = 200
		WordWrap = True
	END CREATE
	CREATE CMBXOKBTN AS QButton
		Caption = "&Ok"
		Visible = False
		Tag = mrOk
		OnClick = CMBXBtnClick
	END CREATE
	CREATE CMBXCancelBtn AS QButton
		Caption = "&Cancel"
		Cancel = True
		Visible = False
		Tag = mrCancel
		OnClick = CMBXBtnClick
	END CREATE
	CREATE CMBXYesBtn AS QButton
		Caption = "&Yes"
		Visible = False
		Tag = mrYes
		OnClick = CMBXBtnClick
	END CREATE
	CREATE CMBXNoBtn AS QButton
		Caption = "&No"
		Cancel = True
		Visible = False
		Tag = mrNo
		OnClick = CMBXBtnClick
	END CREATE
END CREATE

CREATE BindForm AS QFORM
    Caption = "Bind New command"
    Width = 569
    Height = 340
    BorderStyle = bsNone
    Hint = "1"
        OnMouseDown = StartMoveForm
        OnMouseMove = MoveForm
        OnMouseUp = StopMoveForm
    OnPaint = DrawFormBorder
    Center
    CREATE BFIL1 AS QLABEL
        Caption = "Bound Name:"
        Left = 5
        Top = 30
        Width = 65
    END CREATE
    CREATE BFIL2 AS QLABEL
        Caption = "Real Name:"
        Left = 260
        Top = 31
        Width = 56
    END CREATE
    CREATE BoundNameBox AS QEDIT
        Left = 75
        Top = 27
        Width = 175
        MaxLength = 20
    END CREATE
    CREATE RealNameBox AS QEDIT
        Left = 324
        Top = 27
        Width = 240
        MaxLength = 30
        TabOrder = 1
    END CREATE
    CREATE BFGB AS QGROUPBOX
        Caption = "Bind to..."
        Left = 5
        Top = 55
        Width = 559
        Height = 249
        CREATE BFRB1 AS QRADIOBUTTON
            Caption = "Executable..."
            Left = 5
            Top = 20
            Width = 81
            Checked = 1
		Tag = 1
	 	OnClick = BindFormSelectType
        END CREATE
        CREATE BFRB2 AS QRADIOBUTTON
            Caption = "File..."
            Left = 5
            Top = 60
            Width = 89
		Tag = 2
	 	OnClick = BindFormSelectType
        END CREATE
        CREATE BFRB3 AS QRADIOBUTTON
            Caption = "Folder..."
            Left = 5
            Top = 100
            Width = 65
            TabOrder = 2
		Tag = 3
	 	OnClick = BindFormSelectType
        END CREATE
        CREATE BFRB4 AS QRADIOBUTTON
            Caption = "Web page..."
            Left = 5
            Top = 140
            Width = 81
		Tag = 4
	 	OnClick = BindFormSelectType
        END CREATE
        CREATE BFRB5 AS QRADIOBUTTON
            Caption = "Control Panel applet..."
            Left = 5
            Top = 180
            Width = 129
		Tag = 5
	 	OnClick = BindFormSelectType
        END CREATE
        CREATE BFRB6 AS QRADIOBUTTON
            Caption = "Custom command..."
            Left = 5
            Top = 220
		Tag = 6
	 	OnClick = BindFormSelectType
        END CREATE

        CREATE FilePanel AS QPANEL
            Left = 135
            Top = 15
            Width = 415
            Height = 225
            CREATE BFGB7 AS QGROUPBOX
                Caption = "Executable"
                Left = 5
                Top = 5
                Width = 405
                Height = 57
                CREATE ExecLbl AS QLABEL
                    Caption = "Executable:"
                    Left = 5
                    Top = 25
                    Width = 56
                END CREATE
                CREATE ExecBox AS QEDIT
                    Left = 65
                    Top = 22
                    Width = 270
                END CREATE
                CREATE ExecChBtn AS QBUTTON
                    Caption = "C&hoose"
                    Left = 339
                    Top = 21
                    Width = 60
			  OnClick = ChooseFileFold
			  Tag = 1
                END CREATE
            END CREATE
            CREATE BFGB8 AS QGROUPBOX
                Caption = "File"
                Left = 5
                Top = 64
                Width = 405
                Height = 54
                CREATE FileLbl AS QLABEL
                    Caption = "File:"
                    Left = 5
                    Top = 25
                    Width = 19
                END CREATE
                CREATE FileBox AS QEDIT
                    Left = 65
                    Top = 22
                    Width = 270
                END CREATE
                CREATE FileChBtn AS QBUTTON
                    Caption = "Ch&oose"
                    Left = 339
                    Top = 21
                    Width = 60
			  OnClick = ChooseFileFold
			  Tag = 2
                END CREATE
            END CREATE
            CREATE BFGB9 AS QGROUPBOX
                Caption = "Folder"
                Left = 5
                Top = 126
                Width = 405
                Height = 94
                CREATE FoldLbl AS QLABEL
                    Caption = "Folder:"
                    Left = 5
                    Top = 25
                END CREATE
                CREATE FoldBox AS QEDIT
                    Left = 65
                    Top = 22
                    Width = 270
                END CREATE
                CREATE FoldChBtn AS QBUTTON
                    Caption = "Choo&se"
                    Left = 339
                    Top = 21
                    Width = 60
			  OnClick = ChooseFileFold
			  Tag = 3
                END CREATE
		    CREATE PlainOpenCheck AS QRadioButton
			  Caption = "Open normally"
			  Left = 65
			  Top = 45
			  Width = 150
			  Checked = True
		    END CREATE
                CREATE OpenWithExplorerCheck AS QRadioButton
                    Caption = "Open with Windows Explorer"
                    Left = 65
                    Top = 60
                    Width = 161
                END CREATE
		    CREATE OpenWCommandLine AS QRadioButton
			  Caption = "Open in DOS command line"
			  Checked = False
			  Left = 65
			  Top = 75
			  Width = 161
		    END CREATE
            END CREATE
	   END CREATE

    CREATE OtherPanel AS QPANEL
     	  Left = 135
        Top = 15
     	  Width = 415
        Height = 225
	  Visible = False
     	  CREATE BFWPGB AS QGROUPBOX
            Caption = "Web page..."
     	      Left = 5
            Top = 5
     	      Width = 405
            Height = 90
     		  CREATE BFIL4 AS QLABEL
	           	Caption = "URL to visit:"
            	Left = 5
     		      Top = 20
	           	Width = 64
      	  END CREATE
	     	  CREATE GetFavsBtn AS QBUTTON
           		Caption = "&Link to file..."
      	      Left = 250
	     	      Top = 44
           		Width = 147
			Tag = 4
			OnClick = ChooseFileFold
      	  END CREATE
	     	  CREATE OpenNewWindowCheck AS QCHECKBOX
           		Caption = "Open in new window"
      	      Left = 75
	     	      Top = 48
           		Width = 129
      	      Checked = 1
      	  END CREATE
	     	  CREATE UrlBox AS QEDIT
      	      Left = 70
	            Top = 17
            	Width = 325
	        END CREATE
        END CREATE
        CREATE CtrlPanelGB AS QGROUPBOX
            Caption = "Control panel applet..."
            Left = 5
            Top = 95
            Width = 405
            Height = 50
            CREATE BFIL5 AS QLABEL
                Caption = "Select applet:"
                Left = 5
                Top = 20
                Width = 72
            END CREATE
            CREATE AppletComboBox AS QCOMBOBOX
                Left = 76
                Top = 17
                Width = 320
		    Style = csDropDownList
		    Sorted = True
            END CREATE
        END CREATE
        CREATE CustCommandGB AS QGROUPBOX
            Caption = "Custom command..."
            Left = 5
            Top = 145
            Width = 405
            Height = 75
            CREATE BFIL6 AS QLABEL
                Caption = "Custom command string:"
                Left = 5
                Top = 20
                Width = 120
            END CREATE
            CREATE BFIL7 AS QLABEL
                Caption = "Note: This custom command string is sent directly to Windows."
                Left = 5
                Top = 45
                Width = 392
                Alignment = taCenter
            END CREATE
            CREATE CustomCommandBox AS QEDIT
                Left = 130
                Top = 17
                Width = 265
            END CREATE
        END CREATE
    END CREATE
    END CREATE
    CREATE AddBindingBtn AS QBUTTON
        Caption = "&Add binding"
        Left = 5
        Top = 310
	  OnClick = AddBinding
    END CREATE
    CREATE CancelBindingBtn AS QBUTTON
        Caption = "&Cancel"
        Left = 490
        Top = 310
	  OnClick = CloseBindForm
    END CREATE
END CREATE

'Image list for the binding box... 
CREATE SmallImgs AS QImageList
	Height = 16
	Width = 16
	AddBMPHandle FileBmp,&HFFFFFF
	AddBMPHandle ExecBmp,&HFFFFFF
	AddBMPHandle FoldBmp,&HFFFFFF
	AddBMPHandle WebBmp,&HFFFFFF
	AddBMPHandle CustBmp,&HFFFFFF
	AddBMPHandle ControlBmp,&HFFFFFF
END CREATE

CREATE BindEditForm AS QForm
	BorderStyle = bsNone
	Width = 600
	Height = 405
    Hint = "2"
        OnMouseDown = StartMoveForm
        OnMouseMove = MoveForm
        OnMouseUp = StopMoveForm
	OnPaint = DrawFormBorder
	Center
	CREATE BindingListBox AS QListView
		Top = 30
		Left = 5
		Width = 590
		Height = 220
		SmallImages = SmallImgs
		ViewStyle = vsReport
		ColumnClick = False
		ReadOnly = True
		RowSelect = True
		AddColumns("Real Name","Bound Name","Bound Type","Bound to...")
		Column(0).Width = 125
		Column(1).Width = 80
		Column(2).Width = 70
		Column(3).Width = 290
		OnClick = ShowEditBox
	END CREATE

    CREATE EFGB1 AS QGROUPBOX
        Caption = "General Properties"
        Left = 5
        Top = 255
        Width = 289
        Height = 115
        CREATE BoundNmLbl AS QLABEL
            Caption = "Bound Name:"
            Left = 5
            Top = 20
            Width = 72
        END CREATE
        CREATE RealNmLbl AS QLABEL
            Caption = "Real Name:"
            Left = 5
            Top = 45
            Width = 56
        END CREATE
        CREATE BoundTypLbl AS QLABEL
            Caption = "Bound Type:"
            Left = 5
            Top = 71
            Width = 72
        END CREATE
        CREATE BoundNmBox AS QEDIT
            Left = 80
            Top = 17
            Width = 200
            MaxLength = 20
        END CREATE
        CREATE RealNmBox AS QEDIT
            Left = 80
            Top = 42
            Width = 200
            MaxLength = 30
        END CREATE
        CREATE BoundTypCombo AS QCOMBOBOX
            AddItems "File", _
                     "Executable", _
                     "Folder", _
                     "Web Page", _
                     "Custom command", _
                     "Control Panel Applet"
            Left = 80
            Top = 67
            Width = 120
		OnChange = SelectControls
		Style = csDropDownList
        END CREATE
	  CREATE ApplyChgsBtn AS QButton
		Top = 67
		Left = 205
		Caption = "A&pply"
		OnClick = AcceptEditBox
	  END CREATE
    END CREATE

    CREATE EFGB2 AS QGROUPBOX
        Caption = "Specific properties"
        Left = 306
        Top = 255
        Width = 289
	  Height = 115
        CREATE BoundItmLbl AS QLABEL
            Caption = "Bound item:"
            Left = 5
            Top = 20
            Width = 64
        END CREATE
        CREATE BoundItmBox AS QEDIT
            Left = 80
            Top = 17
            Width = 200
        END CREATE
        CREATE ChangeBoundBtn AS QBUTTON
            Caption = "C&hange"
            Left = 205
            Top = 68
		OnClick = SelectFileFolder
        END CREATE
        CREATE AppletChCombo AS QCOMBOBOX
            Left = 80
            Top = 42
            Width = 200
		Enabled = False
		Sorted = True
		Style = csDropDownList
        END CREATE
        CREATE OpenNewWindCheck AS QCHECKBOX
            Caption = "Open in new window"
            Left = 24
            Top = 65
            Width = 177
		Enabled = False
		Visible = False
        END CREATE
	  CREATE OpenPlnCheck AS QRadioButton
		Caption = "Open normally"
		Enabled = False
		Top = 65
		Left = 24
		Width = 150
	  END CREATE
        CREATE OpenWExCheck AS QRadioButton
            Caption = "Open with Windows Explorer"
            Left = 24
            Top = 80
            Width = 177
		Enabled = False
        END CREATE
	    CREATE OpenWCmdLine AS QRadioButton
		  Caption = "Open in DOS command line"
		  Enabled = False
		  Left = 24
		  Top = 95
		  Width = 161
	    END CREATE
    END CREATE


	CREATE AddAnotherBtn AS QButton
		Left = 5
		Top = 375
		Caption = "&Add"
		OnClick = BindEditorBind
	END CREATE
	CREATE RemoveBindingBtn AS QButton
		Left = 115
		Top = 375
		Caption = "&Remove"
		OnClick = RemoveBinding
	END CREATE
	CREATE SortBtn AS QButton
		Left = 262
		Top = 375
		Caption = "&Sort"
		OnClick = SortEntries
	END CREATE
	CREATE ImportBtn AS QButton
		Left = 410
		Top = 375
		Caption = "&Import"
		OnClick = StartImport
	END CREATE
	CREATE DoneBtn AS QButton
		Left = 520
		Top = 375
		Caption = "&Done"
		OnClick = CloseBindEditor
	END CREATE
END CREATE

'Hmmm... gee, this doesn't look like any other form... 
CREATE ImportForm AS QForm
	BorderStyle = bsNone
	Width = 600
	Height = 400
    Hint = "3"
        OnMouseDown = StartMoveForm
        OnMouseMove = MoveForm
        OnMouseUp = StopMoveForm
	OnPaint = DrawFormBorder
	Center
	CREATE ImportListBox AS QListView
		MultiSelect = True
		Top = 30
		Left = 5
		Width = 590
		Height = 330
		SmallImages = SmallImgs
		ViewStyle = vsReport
		ColumnClick = False
		ReadOnly = True
		RowSelect = True
		AddColumns("Real Name","Bound Name","Bound Type","Bound to...")
		Column(0).Width = 110
		Column(1).Width = 90
		Column(2).Width = 75
		Column(3).Width = 290
	END CREATE
	CREATE DoImportBtn AS QButton
		Left = 5
		Top = 365
		Caption = "&Import"
		OnClick = DoImport
	END CREATE
	CREATE CancelImportBtn AS QButton
		Left = 520
		Top = 365
		Caption = "&Cancel"
		OnClick = CancelImport
	END CREATE
END CREATE

CREATE SortForm AS QForm
	Height = 100
	Width = 200
	BorderStyle = bsNone
	Center
    Hint = "4"
	OnPaint = DrawFormBorder
	CREATE SortProgress AS QGauge
		Top = 30
		Left = 5
		Width = 190
		Height = 65
	END CREATE
END CREATE

CREATE OptionsForm AS QFORM
    Caption = "Options"
    Width = 518
    Height = 456
    BorderStyle = bsNone
    Hint = "5"
        OnMouseDown = StartMoveForm
        OnMouseMove = MoveForm
        OnMouseUp = StopMoveForm
    OnPaint = DrawFormBorder
    Center
    CREATE OFGB1 AS QGROUPBOX
        Caption = "Colours and fonts"
        Left = 5
        Top = 30
        Width = 508
        Height = 169
        CREATE OFGB2 AS QGROUPBOX
            Caption = "History Colours"
            Left = 5
            Top = 15
            Width = 233
            Height = 73
            CREATE CMsgColLbl AS QLABEL
                Caption = "Command Messages colour:"
                Left = 5
                Top = 20
                Width = 144
            END CREATE
            CREATE RMsgColLbl AS QLABEL
                Caption = "Returned messages colour:"
                Left = 5
                Top = 45
                Width = 136
            END CREATE
            CREATE ChBtn1 AS QBUTTON
                Caption = "&Change"
                Left = 150
                Top = 15
		    Tag = 1
		    OnClick = ChooseSomething
            END CREATE
            CREATE ChBtn2 AS QBUTTON
                Caption = "C&hange"
                Left = 150
                Top = 41
		    Tag = 2
		    OnClick = ChooseSomething
            END CREATE
        END CREATE
        CREATE OFGB3 AS QGROUPBOX
            Caption = "Command line colours"
            Left = 5
            Top = 90
            Width = 233
            Height = 73
            CREATE BGColLbl AS QLABEL
                Caption = "Background colour:"
                Left = 5
                Top = 20
                Width = 136
            END CREATE
            CREATE FGColLbl AS QLABEL
                Caption = "Text colour:"
                Left = 5
                Top = 45
                Width = 96
            END CREATE
            CREATE ChBtn3 AS QBUTTON
                Caption = "Ch&ange"
                Left = 150
                Top = 15
		    Tag = 3
		    OnClick = ChooseSomething
            END CREATE
            CREATE ChBtn4 AS QBUTTON
                Caption = "Cha&nge"
                Left = 150
                Top = 41
		    Tag = 4
		    OnClick = ChooseSomething
            END CREATE
        END CREATE
        CREATE OFGB4 AS QGROUPBOX
            Caption = "Font type and size"
            Left = 245
            Top = 15
            Width = 257
            Height = 148
            CREATE FontLbl AS QLABEL
                Caption = "Font:"
                Left = 5
                Top = 20
            END CREATE
            CREATE FontSizeLabel AS QLABEL
                Caption = "Font size  =  xxx pts"
                Left = 10
                Top = 45
                Width = 240
                Alignment = 2
                Transparent = 1
            END CREATE
            CREATE FontPrevLabel AS QLABEL
                Left = 5
                Top = 95
                Width = 240
                Height = 45
		    Transparent = True
                Caption = "Hey! Look at me!"
                Alignment = 2
                Layout = 1
            END CREATE
            CREATE FontSizeTrack AS QTRACKBAR
                Left = 10
                Top = 58
                Max = 30
                Min = 5
                Width = 238
                Height = 30
		    Hint = "1"
		    OnChange = UpdateTracks
		    ShowHint = False
            END CREATE
            CREATE FontCombo AS QCOMBOBOX
                Left = 37
                Top = 19
                Width = 209
		    Style = csDropDownList
		    OnChange = ChangePrevFont
            END CREATE
        END CREATE
    END CREATE
    CREATE OFGB5 AS QGROUPBOX
        Caption = "Background image"
        Left = 5
        Top = 200
        Width = 508
        CREATE PicFileLbl AS QLABEL
            Caption = "Picture File:"
            Left = 5
            Top = 20
            Width = 64
        END CREATE
        CREATE ShwImgLbl AS QLABEL
            Caption = "Show this image:"
            Left = 5
            Top = 50
            Width = 88
        END CREATE
        CREATE BackColLbl AS QLABEL
            Caption = "Background colour:"
            Left = 230
            Top = 70
            Width = 102
        END CREATE
        CREATE PicFileBox AS QEDIT
            Left = 64
            Top = 17
            Width = 348
        END CREATE
        CREATE ChBtn5 AS QBUTTON
            Caption = "Ch&oose"
            Left = 420
            Top = 15
	      Tag = 5
	      OnClick = ChooseSomething
        END CREATE
        CREATE SHRB1 AS QRADIOBUTTON
            Caption = "Tiled"
            Left = 95
            Top = 50
        END CREATE
        CREATE SHRB2 AS QRADIOBUTTON
            Caption = "Stretched / Shrunk"
            Left = 95
            Top = 66
            Checked = 1
        END CREATE
        CREATE SHRB3 AS QRADIOBUTTON
            Caption = "Centred"
            Left = 95
            Top = 82
		Width = 200
        END CREATE
        CREATE UseImageCheck AS QCHECKBOX
            Caption = "Use image"
            Left = 230
            Top = 50
            Enabled = 0
            Checked = 1
        END CREATE
        CREATE ChBtn6 AS QBUTTON
            Caption = "Chan&ge"
            Left = 330
            Top = 66
	      Tag = 6
	      OnClick = ChooseSomething
        END CREATE
    END CREATE
    CREATE OFGB6 AS QGROUPBOX
        Caption = "Animation options:"
        Left = 5
        Top = 305
        Width = 241
        Height = 81
        CREATE DropPixLbl AS QLABEL
            Caption = "Drop xxx pixels:"
            Left = 5
            Top = 20
            Width = 78
        END CREATE
        CREATE DropSpeedLbl AS QLABEL
            Caption = "Drop speed:"
            Left = 5
            Top = 45
            Width = 62
        END CREATE
        CREATE DropPixTrack AS QTRACKBAR
            Left = 85
            Top = 14
            Frequency = 50
            Max = 600
            Height = 29
		OnChange = UpdateTracks
		Hint = "2"
		ShowHint = False
        END CREATE
        CREATE DropSpeedTrack AS QTRACKBAR
            Left = 85
            Top = 45
            Frequency = 5
            Max = 400
            Height = 29
	      OnChange = UpdateTracks
		Hint = "3"
		ShowHint = False
        END CREATE
    END CREATE
    CREATE OFGB7 AS QGROUPBOX
        Caption = "Hotkey"
        Left = 250
        Top = 305

        Width = 263
        Height = 81
        CREATE KeyLbl AS QLABEL
            Caption = "And key:"
            Left = 76
            Top = 35
            Width = 46
        END CREATE
        CREATE CTRLCheck AS QCHECKBOX
            Caption = "CTRL"
            Left = 5
            Top = 15
            Width = 57
        END CREATE
        CREATE ShiftCheck AS QCHECKBOX
            Caption = "SHIFT"
            Left = 5
            Top = 55
            Width = 57
        END CREATE
        CREATE AltCheck AS QCHECKBOX
            Caption = "ALT"
            Left = 5
            Top = 35
            Width = 49
        END CREATE
        CREATE HotKeyBox AS QEDIT
            Left = 121
            Top = 32
            Width = 25
            MaxLength = 1
        END CREATE
    END CREATE
    CREATE OFGB8 AS QGROUPBOX
        Caption = "Other options"
        Left = 5
        Top = 386
        Width = 340
        Height = 65
        CREATE AutoFillBox AS QCHECKBOX
            Caption = "Auto bound name fill in"
            Left = 5
            Top = 15
            Width = 140
            Checked = True
        END CREATE
	  CREATE ShTrayIcon AS QCheckBox
		Caption = "Show Icon is system tray"
		Left = 5
		Top = 30
		Width = 140
		Checked = True
	  END CREATE
	  CREATE SwapEnterSpace AS QCheckBox
		Caption = "Swap enter and space"
		Left = 150
		Top = 15
		Checked = False
		Width = 140
	  END CREATE
	  CREATE ShowOnStart AS QCheckBox
		Caption = "Show console on startup"
		Left = 150
		Top = 30
		Checked = False
		Width = 140
	  END CREATE
	  CREATE ConfirmExitCheck AS QCheckBox
		Caption = "Confirm Exit"
		Left = 5
		Top = 45
		Checked = False
		Width = 140
	  END CREATE
	  CREATE ConfirmShutdownCheck AS QCheckBox
		Caption = "Confirm Shutdown"
		Left = 150
		Top = 45
		Checked = False
		Width = 140
	  END CREATE
    END CREATE
    CREATE AcceptBtn AS QBUTTON
        Caption = "Acc&ept"
        Left = 356
        Top = 425
	  OnClick = AcceptOptions
    END CREATE
    CREATE CancelBtn AS QBUTTON
        Caption = "Cance&l"
        Left = 438
        Top = 425
	  Cancel = True
	  OnClick = CancelOptions
    END CREATE
END CREATE

'About text... 
Dummy$ = "CONSOLE FOR WINDOWS 2"+CHR$(13)
Dummy$ = Dummy$ + "Version "+VersionNumber$+CHR$(13)
Dummy$ = Dummy$ + "Written by Daniel Foote, 2000"+CHR$(13)
Dummy$ = Dummy$ + ""+CHR$(13)
Dummy$ = Dummy$ + "Official website:"+CHR$(13)
Dummy$ = Dummy$ + "http://freefoote.dview.net/cfw"+CHR$(13)
Dummy$ = Dummy$ + ""+CHR$(13)
Dummy$ = Dummy$ + "I hope you like this program. I had heaps of fun and frustration putting this program together. All I would hope is that it makes the computer easier to use."+CHR$(13)
Dummy$ = Dummy$ + ""+CHR$(13)
Dummy$ = Dummy$ + "Send any comments, suggestions, or bug reports to:"+CHR$(13)
Dummy$ = Dummy$ + "d_foote@spyring.com"+CHR$(13)
Dummy$ = Dummy$ + ""+CHR$(13)
Dummy$ = Dummy$ + "If you have any cool background pictures you'd like to share with everybody, send them to me at:"+CHR$(13)
Dummy$ = Dummy$ + "footy@operamail.com"+CHR$(13)
Dummy$ = Dummy$ + "and I will post them on the CfW2 website, for everybody to use."+CHR$(13)
Dummy$ = Dummy$ + ""+CHR$(13)
Dummy$ = Dummy$ + "This program would not exist if it were not for the help of the following people:"+CHR$(13)
Dummy$ = Dummy$ + ""+CHR$(13)
Dummy$ = Dummy$ + "William Yu, for creating RapidQ, with which this was programmed."+CHR$(13)
Dummy$ = Dummy$ + "The RapidQ email list, for answering all of my seemingly stupid questions."+CHR$(13)
Dummy$ = Dummy$ + "Hourann Bosci, Shane Fernandes and A.H.Banen for BETA testing, suggestions, and other useful comments."+CHR$(13)
Dummy$ = Dummy$ + "Some mates from my computing class, for trying this program out when they should be doing work. The infamous bunch are Charles, Shaun, Matt, and Aaron."+CHR$(13)
Dummy$ = Dummy$ + "My parents, for letting me use so much computer time to create this, and also for putting up with my temper whilst I was fixing some of the worst bugs."+CHR$(13)
Dummy$ = Dummy$ + ""+CHR$(13)
Dummy$ = Dummy$ + "Thankyou for using this program!"+CHR$(13)
Dummy$ = Dummy$ + "Daniel Foote"

CREATE AboutForm AS QFORM
    Caption = "About"
    Width = 410
    Height = 275
    BorderStyle = bsNone
    Hint = "6"
        OnMouseDown = StartMoveForm
        OnMouseMove = MoveForm
        OnMouseUp = StopMoveForm
    OnPaint = DrawFormBorder
    Center
    CREATE AboutScrollBox AS QSCROLLBOX
        Left = 5
        Top = 30
        Width = 400
        Height = 210
        CREATE AboutLabel AS QLABEL
            Caption = Dummy$
'		AutoSize = True 
'           Align = alClient 
		Width = 380
            Alignment = taCenter
            Wordwrap = True
        END CREATE
    END CREATE
    CREATE ABDoneBtn AS QBUTTON
        Caption = "&Done"
        Left = 162
        Top = 245
	  OnClick = CloseAbout
    END CREATE
END CREATE