home *** CD-ROM | disk | FTP | other *** search
- object frmTaskBar: TfrmTaskBar
- Left = 581
- Top = 304
- BorderStyle = bsNone
- Caption = 'Task Bar'
- ClientHeight = 436
- ClientWidth = 424
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 10
- Top = 7
- Width = 405
- Height = 405
- ActivePage = tsForeGroundFlash
- TabIndex = 0
- TabOrder = 0
- object tsForeGroundFlash: TTabSheet
- Caption = 'Flashing Buttons'
- ImageIndex = 3
- OnShow = tsForeGroundFlashShow
- object Image46: TImage
- Left = 12
- Top = 10
- Width = 32
- Height = 32
- Picture.Data = {<image000.ico>}
- end
- object Label11: TLabel
- Left = 51
- Top = 10
- Width = 333
- Height = 32
- AutoSize = False
- Caption =
- 'While typing, activated windows are prevented from stealing focu' +
- 's and are indicated by a flashing taskbar button.'
- WordWrap = True
- end
- object gbFlashCount: TGroupBox
- Left = 12
- Top = 82
- Width = 372
- Height = 93
- Caption = 'Flashing speed'
- TabOrder = 1
- object lblForeGroundFlashCount: TLabel
- Left = 230
- Top = 63
- Width = 25
- Height = 13
- HelpContext = 2070
- Caption = 'times'
- Layout = tlCenter
- end
- object lblFGFlashCount: TLabel
- Left = 12
- Top = 17
- Width = 349
- Height = 33
- AutoSize = False
- Caption =
- 'Select how often a taskbar button should flash to indicate a cha' +
- 'nge.'
- WordWrap = True
- end
- object rbForeGroundFlashInfinite: TRadioButton
- Left = 12
- Top = 38
- Width = 309
- Height = 17
- HelpContext = 2069
- Caption = 'The button in the taskbar will flash until you click on it'
- TabOrder = 0
- OnClick = rbForeGroundFlashInfiniteClick
- end
- object rbForeGroundFlashCount: TRadioButton
- Left = 12
- Top = 61
- Width = 193
- Height = 18
- HelpContext = 2070
- Caption = 'Button in the taskbar flashes'
- Checked = True
- TabOrder = 1
- TabStop = True
- OnClick = rbForeGroundFlashCountClick
- end
- object udeForeGroundFlashCount: TUpDownEdit
- Left = 177
- Top = 60
- Width = 47
- Height = 20
- Min = 1
- Max = 999
- Position = 1
- TabOrder = 1
- TabStop = True
- OnChange = udeForeGroundFlashCountChange
- OnEnter = udeForeGroundFlashCountEnter
- OnExit = udeForeGroundFlashCountExit
- end
- end
- object chkForeGroundFlash: TCheckBox
- Left = 12
- Top = 56
- Width = 261
- Height = 17
- HelpContext = 2068
- Caption = 'Enable flashing taskbar buttons'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkForeGroundFlashClick
- end
- object gbStealFocus: TGroupBox
- Left = 12
- Top = 186
- Width = 372
- Height = 89
- Caption = 'General'
- TabOrder = 2
- object lblForeGroundLockTimeout: TLabel
- Left = 12
- Top = 56
- Width = 155
- Height = 13
- HelpContext = 2091
- Caption = 'Time after the last input:'
- WordWrap = True
- end
- object lblForeGroundLockTimeout2: TLabel
- Left = 197
- Top = 56
- Width = 47
- Height = 13
- HelpContext = 2091
- Caption = 'seconds'
- end
- object lblForeGroundLockTimeoutDesc: TLabel
- Left = 12
- Top = 17
- Width = 345
- Height = 33
- AutoSize = False
- Caption =
- 'Specify how long windows should be prevented from stealing focus' +
- ' after the last key has been pressed.'
- WordWrap = True
- end
- object udeForeGroundLockTimeout: TUpDownEdit
- Left = 138
- Top = 53
- Width = 53
- Height = 20
- Min = 1
- Max = 32000
- Position = 1
- TabOrder = 0
- TabStop = True
- OnChange = udeForeGroundLockTimeoutChange
- OnExit = chkForeGroundFlashClick
- end
- end
- object btnDefaultFlashing: TButton
- Left = 12
- Top = 342
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- TabOrder = 3
- OnClick = btnDefaultFlashingClick
- end
- end
- object tsButtonSettings: TTabSheet
- Caption = 'Button Appearance'
- ImageIndex = 1
- OnShow = tsButtonSettingsShow
- object Label5: TLabel
- Left = 51
- Top = 10
- Width = 309
- Height = 33
- AutoSize = False
- Caption =
- 'Define whether and how windows are represented by buttons on the' +
- ' taskbar. '
- WordWrap = True
- end
- object Image2: TImage
- Left = 12
- Top = 10
- Width = 32
- Height = 32
- Picture.Data = {<image001.ico>}
- end
- object gbButtonGrouping: TGroupBox
- Left = 12
- Top = 169
- Width = 372
- Height = 151
- Caption = 'Grouping'
- TabOrder = 2
- object lblGroupingByMinWndCount: TLabel
- Left = 266
- Top = 119
- Width = 56
- Height = 13
- HelpContext = 2074
- Caption = 'windows'
- end
- object lblGroupingDesc: TLabel
- Left = 12
- Top = 17
- Width = 353
- Height = 33
- AutoSize = False
- Caption =
- 'The grouping of similar items means that buttons belonging to th' +
- 'e same program can be collapsed into a single button.'
- WordWrap = True
- end
- object chkButtonGrouping: TCheckBox
- Left = 12
- Top = 52
- Width = 183
- Height = 17
- HelpContext = 2074
- Caption = 'Group similar taskbar buttons'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkButtonGroupingClick
- end
- object rbGroupingLeastUsed: TRadioButton
- Left = 29
- Top = 74
- Width = 307
- Height = 17
- HelpContext = 2074
- Caption = 'Group least used applications first'
- TabOrder = 1
- OnClick = rbGroupingChoose
- end
- object rbGroupingByMinWndCount: TRadioButton
- Left = 28
- Top = 119
- Width = 189
- Height = 15
- HelpContext = 2074
- Caption = 'Group any application with at least'
- TabOrder = 3
- OnClick = rbGroupingChoose
- end
- object rbGroupingMostWnds: TRadioButton
- Left = 29
- Top = 96
- Width = 315
- Height = 17
- HelpContext = 2074
- Caption = 'Group applications with the most windows first'
- TabOrder = 2
- OnClick = rbGroupingChoose
- end
- object udeGroupingMinWnds: TUpDownEdit
- Left = 217
- Top = 117
- Width = 42
- Height = 20
- HelpContext = 2074
- Min = 2
- Max = 99
- Position = 2
- TabOrder = 1
- TabStop = True
- OnChange = udeGroupingMinWndsChange
- OnEnter = udeGroupingMinWndsEnter
- OnExit = rbGroupingChoose
- end
- end
- object gbButtonDisplay: TGroupBox
- Left = 12
- Top = 82
- Width = 372
- Height = 76
- Caption = 'Appearance'
- TabOrder = 1
- object lblButtonWidth: TLabel
- Left = 13
- Top = 22
- Width = 128
- Height = 14
- HelpContext = 2072
- AutoSize = False
- Caption = 'Maximum width of buttons:'
- WordWrap = True
- end
- object lblButtonWidthMetric: TLabel
- Left = 175
- Top = 22
- Width = 27
- Height = 13
- HelpContext = 2072
- Caption = 'pixels'
- end
- object chkButtonAnimation: TCheckBox
- Left = 12
- Top = 46
- Width = 193
- Height = 15
- HelpContext = 2073
- Caption = 'Show animated buttons'
- TabOrder = 1
- OnClick = chkButtonAnimationClick
- end
- object udeTaskbarButtonWidth: TUpDownEdit
- Left = 111
- Top = 19
- Width = 57
- Height = 20
- HelpContext = 2072
- Min = 1
- Max = 12000
- Position = 1
- TabOrder = 0
- TabStop = True
- OnChange = udeTaskbarButtonWidthChange
- OnExit = udeTaskbarButtonWidthExit
- end
- end
- object chkTaskbarShowButtons: TCheckBox
- Left = 12
- Top = 56
- Width = 317
- Height = 17
- HelpContext = 2071
- Caption = 'Show windows as taskbar buttons'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkTaskbarShowButtonsClick
- end
- object btnResetButtonSettings: TButton
- Left = 12
- Top = 342
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- TabOrder = 3
- OnClick = btnResetButtonSettingsClick
- end
- end
- object tsMinMetrics: TTabSheet
- Caption = 'Minimized Windows'
- ImageIndex = 2
- object Label4: TLabel
- Left = 51
- Top = 10
- Width = 332
- Height = 33
- AutoSize = False
- Caption =
- 'Specify how minimized windows that are not shown on the taskbar ' +
- 'should be positioned and organized here.'
- WordWrap = True
- end
- object Image1: TImage
- Left = 12
- Top = 10
- Width = 32
- Height = 32
- Picture.Data = {<image002.ico>}
- end
- object gbMinMetrics: TGroupBox
- Left = 12
- Top = 56
- Width = 372
- Height = 121
- Caption = 'Position and alignment'
- TabOrder = 0
- object Label71: TLabel
- Left = 12
- Top = 58
- Width = 67
- Height = 14
- HelpContext = 2075
- AutoSize = False
- Caption = 'Position:'
- end
- object Label3: TLabel
- Left = 12
- Top = 17
- Width = 332
- Height = 30
- AutoSize = False
- Caption =
- 'Specify the location of the title bars of minimized windows that' +
- ' are not shown on the taskbar here.'
- WordWrap = True
- end
- object Label2: TLabel
- Left = 12
- Top = 85
- Width = 67
- Height = 14
- HelpContext = 2075
- AutoSize = False
- Caption = 'Alignment:'
- end
- object cbTaskbarPosY: TComboBox
- Left = 160
- Top = 55
- Width = 73
- Height = 21
- HelpContext = 2075
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- OnSelect = MinMetricsChange
- Items.Strings = (
- 'Top'
- 'Bottom')
- end
- object cbTaskbarPosX: TComboBox
- Left = 80
- Top = 55
- Width = 73
- Height = 21
- HelpContext = 2075
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnSelect = MinMetricsChange
- Items.Strings = (
- 'Left'
- 'Right')
- end
- object cbTaskbarPosArrange: TComboBox
- Left = 80
- Top = 83
- Width = 153
- Height = 21
- HelpContext = 2075
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- OnSelect = MinMetricsChange
- Items.Strings = (
- 'Side by side'
- 'Cascading')
- end
- end
- object GroupBox4: TGroupBox
- Left = 12
- Top = 189
- Width = 372
- Height = 94
- Caption = 'Spacing'
- TabOrder = 1
- object Label6: TLabel
- Left = 266
- Top = 59
- Width = 27
- Height = 13
- HelpContext = 2076
- Caption = 'pixels'
- end
- object Label8: TLabel
- Left = 199
- Top = 59
- Width = 13
- Height = 13
- HelpContext = 2076
- AutoSize = False
- Caption = 'x'
- end
- object Label12: TLabel
- Left = 11
- Top = 59
- Width = 183
- Height = 13
- HelpContext = 2076
- AutoSize = False
- Caption = 'Space between title bars:'
- WordWrap = True
- end
- object Label14: TLabel
- Left = 12
- Top = 17
- Width = 328
- Height = 30
- AutoSize = False
- Caption =
- 'Set the spacing of title bars for minimized windows that are not' +
- ' shown on the taskbar here.'
- WordWrap = True
- end
- object udeTaskbarHorzGap: TUpDownEdit
- Left = 141
- Top = 56
- Width = 51
- Height = 20
- HelpContext = 2076
- Min = 0
- Max = 9999
- Position = 0
- TabOrder = 0
- TabStop = True
- OnChange = udeTaskbarHorzGapChange
- OnExit = MinMetricsChange
- end
- object udeTaskbarVertGap: TUpDownEdit
- Left = 211
- Top = 56
- Width = 50
- Height = 20
- HelpContext = 2076
- Min = 0
- Max = 9999
- Position = 0
- TabOrder = 1
- TabStop = True
- OnChange = udeTaskbarVertGapChange
- OnExit = MinMetricsChange
- end
- end
- object btnMinMetricsDefault: TButton
- Left = 12
- Top = 342
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- TabOrder = 2
- OnClick = btnMinMetricsDefaultClick
- end
- end
- object tsAdvanced: TTabSheet
- Caption = 'Advanced'
- OnShow = tsAdvancedShow
- object Label7: TLabel
- Left = 51
- Top = 10
- Width = 327
- Height = 35
- AutoSize = False
- Caption =
- 'Define the general display and behavior options for the taskbar ' +
- 'and notification area here.'
- WordWrap = True
- end
- object Image9: TImage
- Left = 12
- Top = 10
- Width = 32
- Height = 32
- Picture.Data = {<image003.ico>}
- end
- object btnResetXPSpecific: TButton
- Left = 12
- Top = 342
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- TabOrder = 1
- OnClick = btnResetXPSpecificClick
- end
- object gbWarnOnLowDiskSpace: TGroupBox
- Left = 12
- Top = 160
- Width = 372
- Height = 90
- Caption = 'Warning when not enough disk space'
- TabOrder = 0
- object Label20: TLabel
- Left = 12
- Top = 17
- Width = 348
- Height = 33
- AutoSize = False
- Caption =
- 'You can configure balloon warnings for lack of free space on you' +
- 'r drives in the Drives tab.'
- WordWrap = True
- end
- object lblJumpToDrives: TLabel
- Left = 241
- Top = 63
- Width = 117
- Height = 13
- Cursor = crHandPoint
- Alignment = taRightJustify
- Caption = 'Go to Drives'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- ParentFont = False
- OnClick = lblJumpToDrivesClick
- OnMouseEnter = lblJumpToDrivesMouseEnter
- OnMouseLeave = lblJumpToDrivesMouseLeave
- end
- end
- object GroupBox1: TGroupBox
- Left = 12
- Top = 56
- Width = 372
- Height = 91
- Caption = 'Notification area'
- TabOrder = 2
- object Label1: TLabel
- Left = 12
- Top = 17
- Width = 349
- Height = 20
- AutoSize = False
- Caption = 'Configure the settings for the notification area here.'
- WordWrap = True
- end
- object chkShowTrayNotificationArea: TCheckBox
- Left = 12
- Top = 40
- Width = 213
- Height = 17
- HelpContext = 2097
- Caption = 'Show notification area'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkShowTrayNotificationAreaClick
- end
- object chkBalloonTips: TCheckBox
- Left = 12
- Top = 61
- Width = 201
- Height = 15
- HelpContext = 2077
- Caption = 'Show balloons in the notification area'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = chkBalloonTipsClick
- end
- end
- end
- end
- end
-