home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-10-11 | 29.4 KB | 1,072 lines |
- object ButtonForm: TButtonForm
- Left = 52
- Top = 232
- ActiveControl = GroupBox2
- BorderStyle = bsDialog
- Caption = 'Icon / Button Attributes'
- ClientHeight = 319
- ClientWidth = 510
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- FormStyle = fsStayOnTop
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnHide = FormHide
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 15
- object Bevel1: TBevel
- Left = 8
- Top = 60
- Width = 405
- Height = 229
- Shape = bsFrame
- end
- object SpeedKey: TLabel
- Left = 12
- Top = 75
- Width = 67
- Height = 15
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Speed &Key:'
- FocusControl = SpeedKeyEdit
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label1: TLabel
- Left = 12
- Top = 107
- Width = 67
- Height = 15
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Title:'
- FocusControl = TitleEdit
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object NeoBitBtn1: TNeoBitBtn
- Left = 420
- Top = 260
- Width = 81
- Height = 28
- Caption = '&Help'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- OnClick = NeoBitBtn1Click
- Glyph.Data = {
- 76010000424D760100000000000076000000280000001B000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3300003333333330000033333333333300BFBF00333333300000333333333330
- FBF00BFB03333330000033333333330FBFBFBFBFB0333330000033333333300B
- FBFBFBFBF003333000003333333000BFBFB00FBFBF00033000003333330BF0FB
- FB0BF0FBFB0BF03000003CC330BF80BF000FBF00BF08BF0000003CC330FBF0F0
- FF00F0FF0B0BFB000000333330BF00B0F00FB0F00F00BF0000003CC3330030F0
- 000BF0000B03003000003CCC3333300F00BFBF00B00333300000333CC333330B
- FBF00BFBF03333300000CC3CC3333330BFBF0FBF033333300000CCCCC3333333
- 00FBFB003333333000003CCC3333333333000033333333300000}
- end
- object NeoBitBtn3: TNeoBitBtn
- Left = 420
- Top = 228
- Width = 81
- Height = 28
- Cancel = True
- Caption = 'Cancel'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- TabOrder = 6
- OnClick = NeoBitBtn3Click
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333808333
- 33333333330F833333333333330B033330003333330FB03000B03380000BFB00
- E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000330087FBFBF0
- E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000338000000000
- 0000333333333333333333333333333333333333333333333333}
- end
- object NeoBitBtn2: TNeoBitBtn
- Left = 420
- Top = 196
- Width = 81
- Height = 28
- Caption = 'OK'
- Default = True
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 5
- OnClick = NeoBitBtn2Click
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333300033333333333000B0330000300000E00030BFB70FBFB0
- E0003000000BFBF0E00030BFB70FBFB0E0003000000BFBF0E00030BFB70F0FB0
- E00030000000FBF0E00030BFB700BFB0E0003300000BFB0000003333330FB033
- 33333333330B033333333333330F833333333333333083333333}
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 4
- Width = 405
- Height = 49
- Caption = 'Icon / Button Type'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object Software: TRadioButton
- Tag = 2
- Left = 10
- Top = 20
- Width = 69
- Height = 17
- Caption = 'Software'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = SoftwarebuttonClick
- end
- object Page: TRadioButton
- Tag = 2
- Left = 93
- Top = 20
- Width = 49
- Height = 17
- Caption = 'Page'
- TabOrder = 1
- OnClick = PageButtonClick
- end
- object Macro: TRadioButton
- Tag = 2
- Left = 232
- Top = 20
- Width = 53
- Height = 17
- Caption = 'Macro'
- TabOrder = 2
- Visible = False
- OnClick = MacroButtonClick
- end
- object DialerBtn: TRadioButton
- Left = 160
- Top = 20
- Width = 66
- Height = 17
- Caption = 'Dialer'
- TabOrder = 3
- OnClick = DialerBtnClick
- end
- end
- object Notebook1: TNotebook
- Left = 12
- Top = 132
- Width = 397
- Height = 152
- TabOrder = 4
- object TPage
- Left = 0
- Top = 0
- Caption = 'Commands'
- object Label3: TLabel
- Left = 0
- Top = 35
- Width = 67
- Height = 15
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Command:'
- FocusControl = CommandEdit
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 0
- Top = 7
- Width = 67
- Height = 15
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Location:'
- FocusControl = DirEdit
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object ListBtn: TNeoBitBtn
- Left = 108
- Top = 120
- Width = 125
- Height = 28
- Caption = 'List &Programs...'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = BitBtn1Click
- Glyph.Data = {
- E6000000424DE6000000000000007600000028000000100000000E0000000100
- 0400000000007000000000000000000000000000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
- 1111110000000000001111099999999990111109999999999011110999999999
- 9011110999999999901111099999999990111109999999999011110999999999
- 9011110999999999901111000000000000111100000000000011110000000000
- 00111111111111111111}
- end
- object DirEdit: TEdit
- Left = 72
- Top = 4
- Width = 317
- Height = 23
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object InsBtn: TNeoBitBtn
- Left = 236
- Top = 120
- Width = 155
- Height = 28
- Caption = 'Command &Options...'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = InsBtnClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
- 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
- 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
- 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
- 11155557F755F777777555000755033305555577755F75F77F55555555503335
- 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
- 05555757F75F75557F5505000333555505557F777FF755557F55000000355557
- 07557777777F55557F5555000005555707555577777FF5557F55553000075557
- 0755557F7777FFF57555553350000055555555775777775555550000}
- NumGlyphs = 2
- end
- object CommandEdit: TMemo
- Left = 72
- Top = 36
- Width = 317
- Height = 73
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ScrollBars = ssVertical
- TabOrder = 1
- WordWrap = False
- end
- object ComboBox2: TComboBox
- Left = 13
- Top = 63
- Width = 44
- Height = 23
- Style = csDropDownList
- Enabled = False
- ItemHeight = 15
- TabOrder = 5
- Visible = False
- OnChange = ComboBox2Change
- end
- object NeoBitBtn4: TNeoBitBtn
- Left = 4
- Top = 120
- Width = 101
- Height = 28
- Caption = '&Utilities...'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = NeoBitBtn4Click
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000011000000110000000100
- 0400000000000000000080020000E00100000000000000000000030303000303
- 8300038303000383830083030300830383008383030083838300C3C3C3000303
- FF0003FF030003FFFF00FF030300FF03FF00FFFF0300FFFFFF008FFFFFFFFFFF
- FFFFF00000007000000000000000F00000007000000073333300F00000007000
- 003300337000F00000007000733773737000F00000007007377337033700F000
- 00007003300000003300F0000000703B70000000B370F000000070B370000000
- 3B70F000000070FB70000000B370F0000000707F70000000FF00F0000000700B
- F7000007F700F00000007007FB70000FF000F000000070007FB777B70000F000
- 0000700007FFFB700000F00000007000000000000000F0000000777777777777
- 777780000000}
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Page'
- object NeoImage4: TNeoImage
- Left = 7
- Top = 105
- Width = 59
- Height = 41
- AutoSize = True
- Transparent = True
- end
- object Balloon3: TBalloon
- Left = 70
- Top = 72
- Width = 323
- Height = 77
- Caption =
- 'Page Icons/Buttons are used to move between pages within a deskt' +
- 'op. You can also switch pages by clicking one of the page tabs a' +
- 't the bottom of the desktop screen.'
- XOffset = 5
- YOffset = 3
- StemOffset = 15
- end
- object NeoSpeedButton1: TNeoSpeedButton
- Left = 364
- Top = 35
- Width = 24
- Height = 24
- Enabled = False
- Glyph.Data = {
- E6000000424DE6000000000000007600000028000000100000000E0000000100
- 0400000000000000000080020000E00100000000000000000000030303000303
- 8300038303000383830083030300830383008383030083838300C3C3C3000303
- FF0003FF030003FFFF00FF030300FF03FF00FFFF0300FFFFFF00111111111111
- 11111110000000000111110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB
- B011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB
- B011110BBBBBBBBBB011110BBBBB0000001111100000BBBBB011111111110000
- 01111111111111111111}
- OnClick = NeoSpeedButton1Click
- end
- object ComboBox1: TComboBox
- Left = 72
- Top = 4
- Width = 317
- Height = 23
- Style = csDropDownList
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 15
- ParentFont = False
- TabOrder = 0
- end
- object Edit1: TEdit
- Left = 72
- Top = 35
- Width = 288
- Height = 23
- Enabled = False
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object RadioButton1: TRadioButton
- Left = 15
- Top = 9
- Width = 55
- Height = 17
- Caption = '&Page:'
- Checked = True
- TabOrder = 2
- TabStop = True
- OnClick = RadioButton1Click
- end
- object RadioButton2: TRadioButton
- Left = 15
- Top = 39
- Width = 55
- Height = 17
- Caption = '&Desk:'
- TabOrder = 3
- OnClick = RadioButton2Click
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Macro'
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Dialer'
- object Label8: TLabel
- Left = 0
- Top = 7
- Width = 67
- Height = 15
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Pho&ne #:'
- FocusControl = PhoneNumber
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object NeoImage5: TNeoImage
- Left = 11
- Top = 107
- Width = 59
- Height = 41
- AutoSize = True
- Transparent = True
- end
- object Balloon4: TBalloon
- Left = 72
- Top = 76
- Width = 317
- Height = 73
- Caption =
- 'Hint: Use a comma ( , ) to insert a two second pause into the te' +
- 'lephone number. For example, if your phone system requires that ' +
- 'you first dial 9, you may need to insert a short pause into the ' +
- 'number. i.e. 9,555-1212'
- XOffset = 5
- YOffset = 6
- StemOffset = 22
- end
- object PhoneNumber: TEdit
- Left = 72
- Top = 4
- Width = 317
- Height = 23
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Appearance'
- object Label4: TLabel
- Left = 6
- Top = 6
- Width = 67
- Height = 15
- Caption = 'Button &Style:'
- FocusControl = ScrollBar1
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object ScrollBar1: TScrollBar
- Left = 256
- Top = 24
- Width = 18
- Height = 193
- Kind = sbVertical
- Max = 22
- TabOrder = 0
- OnChange = ScrollBar1Change
- end
- object Icon: TNeoBitBtn
- Left = 284
- Top = 24
- Width = 105
- Height = 28
- Caption = '&Icon...'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = IconClick
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 0400000000000000000080020000E00100000000000000000000030303000303
- 830003830300038383008303030083038300838303007F7F7F00BFBFBF000303
- FF0003FF030003FFFF00FF030300FF03FF00FFFF0300FFFFFF00888888888888
- 8888888800008888888888888888888800008888880000000000000800008888
- 88099999999999080000888888097777777779080000800800097FFF4FFF7908
- 00008E00BF097F4FFF0F790800008E0BFB097FFFF0FF790800008E0FBF097FFF
- 0FFF790800008E0BFB0974FF0FF4790800008E0FBF097FFF0FFF790800008E0B
- F0007FFF0FFF790800008000BFBF0F4F0F4F79080000888800077FFFFFFF7908
- 0000888888097777777779080000888888099999999999080000888888000000
- 0000000800008888888888888888888800008888888888888888888800008888
- 88888888888888880000}
- end
- object Alignment: TNeoBitBtn
- Left = 284
- Top = 56
- Width = 105
- Height = 28
- Caption = '&Alignment...'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = AlignmentClick
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 0400000000000000000080020000E00100000000000000000000030303000303
- 830003830300038383008303030083038300838303007F7F7F00BFBFBF000303
- FF0003FF030003FFFF00FF030300FF03FF00FFFF0300FFFFFF00888888888888
- 8888888800008880000000000000088800008880FFFFFFFFFFFF088800008880
- FFFFFF777777088800008880FFFFFF7DDDDD088800008880FFFFFF7DDDDD0888
- 00008880FFFFFF777777088800008880FFFFFFFFFFFF088800008880FFFFFFFF
- 7C7F088800008880FFFFFFF7CCC7088800008880FFFFFFFCCCCC088800008880
- FFFFFFF7CCC7088800008880FFFFFFFF7C7F088800008880FFFFFFFFFFFF0888
- 00008880FFFFF7777777088800008880000FF79999990888000088880F0FF777
- 7777088800008888800FFFFFFFFF088800008888880000000000088800008888
- 88888888888888880000}
- Spacing = 2
- end
- object ShowIcon: TCheckBox
- Left = 284
- Top = 166
- Width = 81
- Height = 17
- Caption = '&Show Icon'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = ShowIconClick
- end
- object ShowBkgnd: TCheckBox
- Left = 284
- Top = 187
- Width = 101
- Height = 17
- Caption = 'Fill Behind &Text'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = ShowBkgndClick
- end
- object Panel1: TPanel
- Left = 6
- Top = 24
- Width = 247
- Height = 193
- BevelOuter = bvLowered
- TabOrder = 5
- object BkGrndShape: TNeoShape
- Left = 1
- Top = 1
- Width = 244
- Height = 192
- Pen.Style = psClear
- TransParent = False
- Color = clPurple
- PenColor = clBlack
- end
- object NeoImage1: TNeoImage
- Left = 1
- Top = 1
- Width = 245
- Height = 191
- Align = alClient
- Tile = True
- end
- object SelectedBtn: TNeoBtn
- Left = 32
- Top = 46
- Width = 181
- Height = 101
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- NumGlyphs = 1
- TextAlign = nsLeft
- BtnStyle = nsClear
- SpeedKey = 0
- SpeedKeyOn = False
- Color = clBlack
- PenColor = clBlack
- end
- end
- object Dither: TCheckBox
- Left = 284
- Top = 145
- Width = 106
- Height = 17
- Caption = '&Dither Gradient'
- TabOrder = 6
- OnClick = DitherClick
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Miscellaneous'
- object Balloon2: TBalloon
- Left = 72
- Top = 144
- Width = 317
- Height = 69
- Caption =
- 'Some applications, such as screen savers and print spoolers, esp' +
- 'ecially those on the Startup page need to be launched minimized ' +
- '(as an icon). Check with your software'#39's user guide for more inf' +
- 'ormation.'
- XOffset = 9
- YOffset = 4
- StemOffset = 20
- end
- object NeoImage3: TNeoImage
- Left = 11
- Top = 171
- Width = 59
- Height = 41
- AutoSize = True
- Transparent = True
- end
- object Label11: TLabel
- Left = 36
- Top = 88
- Width = 62
- Height = 15
- Caption = 'Sound &File:'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object NeoSpeedButton2: TNeoSpeedButton
- Left = 341
- Top = 84
- Width = 23
- Height = 23
- Glyph.Data = {
- E6000000424DE6000000000000007600000028000000100000000E0000000100
- 0400000000000000000080020000E00100000000000000000000030303000303
- 8300038303000383830083030300830383008383030083838300C3C3C3000303
- FF0003FF030003FFFF00FF030300FF03FF00FFFF0300FFFFFF00111111111111
- 11111110000000000111110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB
- B011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBBB011110BBBBBBBBB
- B011110BBBBBBBBBB011110BBBBB0000001111100000BBBBB011111111110000
- 01111111111111111111}
- OnClick = NeoSpeedButton2Click
- end
- object SoundTestButton: TNeoSpeedButton
- Left = 366
- Top = 84
- Width = 23
- Height = 23
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333FFF3333F333333300033339333333337773F33733333330008033
- 933333333737F7F37333333307078733333933337337373F3337333077088803
- 33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
- 9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
- 99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
- 93333773F377337F73F333308807880339333337F37F337F373F333088077803
- 339333373F73F37333733333087777333339333373F7F7F33F37333330807033
- 933333333737F73373F3333333000333393333333377733337330000}
- NumGlyphs = 2
- OnClick = SoundTestButtonClick
- end
- object Bevel2: TBevel
- Left = 28
- Top = 80
- Width = 9
- Height = 50
- Shape = bsLeftLine
- end
- object RunAppMini: TCheckBox
- Left = 8
- Top = 12
- Width = 235
- Height = 17
- Caption = '&Run Application Minimized (as an icon)'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object SoundFile: TEdit
- Left = 104
- Top = 84
- Width = 235
- Height = 23
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnChange = SoundFileChange
- end
- object AppSound: TCheckBox
- Left = 8
- Top = 60
- Width = 277
- Height = 17
- Caption = 'Play &Sound when this Icon / Button is Activated'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- object RunAppMax: TCheckBox
- Left = 8
- Top = 36
- Width = 357
- Height = 17
- Caption = 'Run Application &Maximized (in a full screen window)'
- TabOrder = 1
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Password'
- object Label7: TLabel
- Left = 0
- Top = 8
- Width = 67
- Height = 15
- Alignment = taRightJustify
- AutoSize = False
- Caption = ' &Password:'
- FocusControl = PassWordEdit
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object NeoImage2: TNeoImage
- Left = 11
- Top = 171
- Width = 59
- Height = 41
- AutoSize = True
- Transparent = True
- end
- object Balloon1: TBalloon
- Left = 72
- Top = 156
- Width = 301
- Height = 53
- Caption =
- 'If you use this feature, be sure to remember your password. A fo' +
- 'rgotten password means you will not be able to activate and/or e' +
- 'dit this Icon/Button.'
- XOffset = 8
- YOffset = 3
- StemOffset = 12
- end
- object TheIcon: TNeoImage
- Left = 20
- Top = 40
- Width = 32
- Height = 32
- end
- object LockClosed: TNeoImage
- Left = 316
- Top = 112
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image000.ico>}
- Visible = False
- end
- object LockOpen: TNeoImage
- Left = 352
- Top = 112
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image001.ico>}
- Visible = False
- end
- object PassWordEdit: TEdit
- Left = 72
- Top = 4
- Width = 149
- Height = 23
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 10
- ParentFont = False
- TabOrder = 0
- OnChange = PassWordEditChange
- end
- object LaunchPass: TCheckBox
- Left = 72
- Top = 40
- Width = 245
- Height = 17
- Caption = 'Require Password to &Launch Icon/Button'
- Color = clBtnFace
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- TabOrder = 1
- OnClick = LaunchPassClick
- end
- object Editpass: TCheckBox
- Left = 72
- Top = 64
- Width = 225
- Height = 17
- Caption = 'Require Password to &Edit Icon/Button'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = LaunchPassClick
- end
- end
- end
- object SpeedKeyEdit: TComboBox
- Left = 84
- Top = 72
- Width = 85
- Height = 23
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 15
- Items.Strings = (
- 'None')
- MaxLength = 1
- ParentFont = False
- TabOrder = 1
- Text = 'None'
- OnChange = SpeedKeyEditChange
- end
- object Visible2: TCheckBox
- Left = 184
- Top = 75
- Width = 117
- Height = 17
- Caption = '&Show Speed Key'
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = Visible2Click
- end
- object TitleEdit: TEdit
- Left = 84
- Top = 104
- Width = 317
- Height = 23
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnChange = TitleEditChange
- end
- object ButtonTab: TTabSet
- Left = 0
- Top = 298
- Width = 510
- Height = 21
- Align = alBottom
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Tabs.Strings = (
- 'Commands'
- 'Appearance'
- 'Miscellaneous'
- 'Password')
- TabIndex = 0
- OnClick = ButtonTabClick
- OnChange = ButtonTabChange
- end
- object PMultiImage1: TPMultiImage
- Left = 440
- Top = 20
- Width = 49
- Height = 45
- Color = clBtnFace
- ImageName = 'file not found'
- ImageDither = True
- ImageReadRes = lAutoMatic
- ImageWriteRes = sAutoMatic
- TifSaveCompress = sNONE
- JPegSaveQuality = 25
- JPegSaveSmooth = 0
- TextLeft = 0
- TextTop = 0
- TextRotate = 0
- TabOrder = 9
- TabStop = False
- Visible = False
- end
- object CommandPopup: TPopupMenu
- AutoPopup = False
- Left = 450
- Top = 121
- object FileSelector1: TMenuItem
- Caption = 'File Selector'
- ShortCut = 0
- OnClick = FileSelector1Click
- end
- object ProgramSelector1: TMenuItem
- Caption = 'Program Selector'
- ShortCut = 0
- OnClick = ProgramSelector1Click
- end
- object DirectorySelector1: TMenuItem
- Caption = 'Directory Selector'
- ShortCut = 0
- OnClick = DirectorySelector1Click
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Alert1: TMenuItem
- Caption = 'Alert Box'
- ShortCut = 0
- OnClick = Alert1Click
- end
- object Confirm1: TMenuItem
- Caption = 'Confirmation (Ok/Cancel)'
- ShortCut = 0
- OnClick = Confirm1Click
- end
- object ConfirmationYesNo1: TMenuItem
- Caption = 'Confirmation (Yes/No)'
- ShortCut = 0
- OnClick = ConfirmationYesNo1Click
- end
- object Delay1: TMenuItem
- Caption = 'Delay'
- ShortCut = 0
- OnClick = Delay1Click
- end
- object KeyStuff1: TMenuItem
- Caption = 'Key Stuff'
- ShortCut = 0
- Visible = False
- OnClick = KeyStuff1Click
- end
- object Query1: TMenuItem
- Caption = 'Multiple Choice (Query)'
- ShortCut = 0
- OnClick = Query1Click
- end
- object TextInput1: TMenuItem
- Caption = 'Text Input'
- ShortCut = 0
- OnClick = TextInput1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Bye1: TMenuItem
- Caption = '!Bye'
- ShortCut = 0
- OnClick = Bye1Click
- end
- object Path1: TMenuItem
- Caption = '!Path'
- ShortCut = 0
- OnClick = Path1Click
- end
- object WindowsDirectory1: TMenuItem
- Caption = '!Windows (Windows Directory)'
- ShortCut = 0
- OnClick = WindowsDirectory1Click
- end
- object DefaultDir1: TMenuItem
- Caption = '!DefaultDir (QuikMenu Directory)'
- ShortCut = 0
- OnClick = DefaultDir1Click
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 450
- Top = 85
- end
- end
-