home *** CD-ROM | disk | FTP | other *** search
- object frmDisplay: TfrmDisplay
- Left = 266
- Top = 499
- BorderStyle = bsNone
- Caption = 'Interface'
- ClientHeight = 434
- ClientWidth = 423
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = True
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 10
- Top = 7
- Width = 405
- Height = 405
- ActivePage = tsEffects
- DockSite = True
- TabIndex = 0
- TabOrder = 0
- object tsEffects: TTabSheet
- Caption = 'Effects'
- ImageIndex = 12
- OnShow = tsEffectsShow
- object Label4: TLabel
- Left = 51
- Top = 10
- Width = 326
- Height = 31
- AutoSize = False
- Caption =
- 'Select the settings you want to be used when displaying and usin' +
- 'g user elements.'
- WordWrap = True
- end
- object imgEffects: TImage
- Left = 12
- Top = 10
- Width = 33
- Height = 33
- end
- object lblEffectsTopic: TLabel
- Left = 12
- Top = 56
- Width = 67
- Height = 13
- Caption = '&Settings:'
- FocusControl = BigLBOpticEffects
- end
- object BigLBOpticEffects: TBigCheckListBox
- Left = 12
- Top = 73
- Width = 372
- Height = 174
- HelpContext = 2001
- SmallList = True
- NoMouseScrolling = True
- SelColor = clHighlight
- TabOrder = 0
- OnClick = BigLBOpticEffectsClick
- OnChange = BigLBOpticEffectsChange
- OnExit = BigLBOpticEffectsExit
- end
- object btnEffectsDefault: TButton
- Left = 12
- Top = 339
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- TabOrder = 1
- OnClick = btnEffectsDefaultClick
- end
- object btnEffectsTurbo: TButton
- Left = 114
- Top = 339
- Width = 103
- Height = 24
- HelpContext = 6
- Caption = 'Best Performance'
- TabOrder = 2
- OnClick = btnEffectsTurboClick
- end
- object btnEffectsDesign: TButton
- Left = 221
- Top = 339
- Width = 103
- Height = 24
- HelpContext = 8
- Caption = 'Best Appearance'
- TabOrder = 3
- OnClick = btnEffectsDesignClick
- end
- object gbEffectsDesc: TGroupBox
- Left = 12
- Top = 256
- Width = 372
- Height = 70
- Caption = 'Description'
- TabOrder = 4
- object lblOpticEffects: TLabel
- Left = 12
- Top = 17
- Width = 347
- Height = 45
- AutoSize = False
- Caption =
- 'If this option is enabled, Windows shows the complete window and' +
- ' its contents instead of just an outline when a window is moved ' +
- 'with mouse or keyboard.'
- Transparent = True
- WordWrap = True
- end
- end
- end
- object tsAnimations: TTabSheet
- Caption = 'Animation'
- ImageIndex = 6
- OnShow = tsAnimationsShow
- object imgAnimation: TImage
- Left = 12
- Top = 10
- Width = 33
- Height = 33
- Transparent = True
- end
- object Label25: TLabel
- Left = 51
- Top = 10
- Width = 334
- Height = 33
- AutoSize = False
- Caption =
- 'Select the desired animation that should be applied for actions ' +
- 'on windows and lists.'
- WordWrap = True
- end
- object gbAnimations1: TGroupBox
- Left = 12
- Top = 56
- Width = 372
- Height = 132
- Caption = 'Window and message animation'
- TabOrder = 0
- object lblAnimations: TLabel
- Left = 12
- Top = 17
- Width = 344
- Height = 33
- AutoSize = False
- Caption =
- 'Select whether and how interface elements such as windows and to' +
- 'oltips should be animated.'
- WordWrap = True
- end
- object lblToolTipAnimationType: TLabel
- Left = 31
- Top = 99
- Width = 33
- Height = 13
- HelpContext = 2004
- Caption = '&Effect:'
- FocusControl = cbToolTipAnimationType
- end
- object chkMinAnimate: TCheckBox
- Left = 12
- Top = 52
- Width = 304
- Height = 17
- HelpContext = 2003
- Caption = 'Animate windows when minimizing and maximizing'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkMinAnimateClick
- end
- object chkToolTipAnimation: TCheckBox
- Left = 12
- Top = 74
- Width = 304
- Height = 17
- HelpContext = 2004
- Caption = 'Use the following animation with tooltips'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = chkToolTipAnimationClick
- end
- object cbToolTipAnimationType: TComboBox
- Left = 68
- Top = 96
- Width = 124
- Height = 21
- HelpContext = 2004
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- OnSelect = cbToolTipAnimationTypeSelect
- Items.Strings = (
- 'Roll-up effect'
- 'Fade effect')
- end
- end
- object gbAnimations2: TGroupBox
- Left = 12
- Top = 199
- Width = 372
- Height = 125
- Caption = 'Animation of elements'
- TabOrder = 1
- object Label22: TLabel
- Left = 12
- Top = 17
- Width = 343
- Height = 33
- AutoSize = False
- Caption =
- 'Select for which control and display elements scrolling and fold' +
- 'ing should be animated.'
- WordWrap = True
- end
- object chkSmoothScrolling: TCheckBox
- Left = 12
- Top = 51
- Width = 243
- Height = 17
- HelpContext = 2005
- Caption = 'Animate list view and &tree view'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkSmoothScrollingClick
- end
- object chkComboBoxAnimation: TCheckBox
- Left = 12
- Top = 72
- Width = 243
- Height = 17
- HelpContext = 2006
- Caption = 'Slide open &combo boxes'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = chkComboBoxAnimationClick
- end
- object chkListBoxSmoothScrolling: TCheckBox
- Left = 12
- Top = 93
- Width = 243
- Height = 17
- HelpContext = 2007
- Caption = 'Smooth-scroll &list boxes'
- Checked = True
- State = cbChecked
- TabOrder = 2
- OnClick = chkListBoxSmoothScrollingClick
- end
- end
- object btnAnimationsDefault: TButton
- Left = 12
- Top = 339
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- OnClick = btnAnimationsDefaultClick
- end
- object btnAnimationsTurbo: TButton
- Left = 114
- Top = 339
- Width = 103
- Height = 24
- HelpContext = 6
- Caption = 'Best Performance'
- TabOrder = 3
- OnClick = btnAnimationsTurboClick
- end
- end
- object tsMenu2k: TTabSheet
- Caption = 'Menu Appearance'
- ImageIndex = 4
- OnShow = tsMenu2kShow
- object Image36: TImage
- Left = 12
- Top = 10
- Width = 33
- Height = 33
- Picture.Data = {<image000.ico>}
- end
- object Label9: TLabel
- Left = 51
- Top = 10
- Width = 337
- Height = 33
- AutoSize = False
- Caption =
- 'Set the way context menus and application default menus should l' +
- 'ook and behave.'
- WordWrap = True
- end
- object gbMenuAni2k: TGroupBox
- Left = 12
- Top = 56
- Width = 372
- Height = 98
- Caption = 'Animation'
- TabOrder = 0
- object lblMenuAnimationType: TLabel
- Left = 31
- Top = 65
- Width = 33
- Height = 13
- HelpContext = 2011
- Caption = 'E&ffect:'
- FocusControl = cbMenuAnimationType
- end
- object chkMenuAnimation: TCheckBox
- Left = 12
- Top = 41
- Width = 238
- Height = 17
- HelpContext = 2011
- Caption = 'Use the following display effect:'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = chkMenuAnimationClick
- end
- object chkSelectionFade: TCheckBox
- Left = 12
- Top = 20
- Width = 238
- Height = 17
- HelpContext = 2010
- Caption = 'Fade out menu items after clicking'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkSelectionFadeClick
- end
- object cbMenuAnimationType: TComboBox
- Left = 71
- Top = 62
- Width = 111
- Height = 21
- HelpContext = 2011
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- OnSelect = cbMenuAnimationTypeSelect
- Items.Strings = (
- 'Scroll effect'
- 'Fade effect')
- end
- end
- object gbMenuXP: TGroupBox
- Left = 12
- Top = 166
- Width = 372
- Height = 71
- Caption = 'Effects'
- TabOrder = 1
- object chkFlatMenu: TCheckBox
- Left = 12
- Top = 20
- Width = 205
- Height = 17
- HelpContext = 2012
- Caption = 'Show flat menus'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkFlatMenuClick
- end
- object chkDropShadow: TCheckBox
- Left = 12
- Top = 42
- Width = 205
- Height = 17
- HelpContext = 2013
- Caption = 'Show shadows under menus'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = chkDropShadowClick
- end
- end
- object btnMenu2kDefault: TButton
- Left = 12
- Top = 339
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- TabOrder = 2
- OnClick = btnMenu2kDefaultClick
- end
- object gbMenuShowDelay: TGroupBox
- Left = 12
- Top = 249
- Width = 372
- Height = 76
- Caption = 'Menu speed'
- TabOrder = 4
- object Label6: TLabel
- Left = 12
- Top = 17
- Width = 348
- Height = 29
- AutoSize = False
- Caption =
- 'You can find the opening delay setting for submenus under the St' +
- 'art menu item.'
- WordWrap = True
- end
- object lblJumpToStartMenuXP: TLabel
- Left = 239
- Top = 49
- Width = 120
- Height = 13
- Cursor = crHandPoint
- Alignment = taRightJustify
- Caption = 'Go to Start menu'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- ParentFont = False
- OnClick = lblJumpToStartMenuXPClick
- OnMouseEnter = lblJumpToStartMenuMouseEnter
- OnMouseLeave = lblJumpToStartMenuMouseLeave
- end
- end
- object btnMenu2kTurbo: TButton
- Left = 114
- Top = 339
- Width = 103
- Height = 24
- HelpContext = 6
- Caption = 'Best Performance'
- TabOrder = 3
- OnClick = btnMenu2kTurboClick
- end
- end
- object tsMenu9x: TTabSheet
- Caption = 'Menu Appearance'
- ImageIndex = 4
- OnShow = tsMenu9xShow
- object Image12: TImage
- Left = 12
- Top = 10
- Width = 33
- Height = 33
- Picture.Data = {<image001.ico>}
- end
- object Label13: TLabel
- Left = 51
- Top = 10
- Width = 337
- Height = 33
- AutoSize = False
- Caption =
- 'Configure the appearance and behavior of context menus and stand' +
- 'ard application menus here.'
- WordWrap = True
- end
- object gbMenuEffectsAvail95: TGroupBox
- Left = 12
- Top = 56
- Width = 372
- Height = 83
- Caption = 'Availability'
- TabOrder = 4
- Visible = False
- object Label1: TLabel
- Left = 20
- Top = 37
- Width = 331
- Height = 13
- Caption = 'No menu display effects are available under Windows 95.'
- end
- end
- object gbMenuAni9x: TGroupBox
- Left = 12
- Top = 56
- Width = 372
- Height = 83
- Caption = 'Animation'
- TabOrder = 0
- object Label17: TLabel
- Left = 12
- Top = 17
- Width = 342
- Height = 33
- AutoSize = False
- Caption =
- 'Select whether menus should be animated with the scroll effect o' +
- 'r if they should be shown immediately.'
- WordWrap = True
- end
- object chkMenuAnimation9x: TCheckBox
- Left = 12
- Top = 52
- Width = 249
- Height = 17
- HelpContext = 2304
- Caption = 'Animate menu opening with scroll effect'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = chkMenuAnimation9xClick
- end
- end
- object btnMenu9xDefault: TButton
- Left = 12
- Top = 339
- Width = 97
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- TabOrder = 2
- OnClick = btnMenu9xDefaultClick
- end
- object GroupBox12: TGroupBox
- Left = 12
- Top = 152
- Width = 372
- Height = 83
- Caption = 'Opening of submenus'
- TabOrder = 1
- object Label10: TLabel
- Left = 12
- Top = 17
- Width = 348
- Height = 29
- AutoSize = False
- Caption =
- 'You can find the opening delay setting for submenus under the St' +
- 'art menu item.'
- WordWrap = True
- end
- object lblJumpToStartMenu: TLabel
- Left = 239
- Top = 55
- Width = 120
- Height = 13
- Cursor = crHandPoint
- Alignment = taRightJustify
- Caption = 'Go to Start menu'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- ParentFont = False
- OnClick = lblJumpToStartMenuClick
- OnMouseEnter = lblJumpToStartMenuMouseEnter
- OnMouseLeave = lblJumpToStartMenuMouseLeave
- end
- end
- object btnMenu9xTurbo: TButton
- Left = 114
- Top = 339
- Width = 103
- Height = 24
- HelpContext = 6
- Caption = 'Best Performance'
- TabOrder = 3
- OnClick = btnMenu9xTurboClick
- end
- end
- object tsSmoothing: TTabSheet
- HelpContext = 2015
- Caption = 'Font Smoothing'
- ImageIndex = 4
- OnShow = tsSmoothingShow
- object lblFontSmoothTopic: TLabel
- Left = 12
- Top = 56
- Width = 54
- Height = 13
- Caption = 'S&moothing:'
- FocusControl = cbFontSmoothingStyle
- end
- object Label3: TLabel
- Left = 12
- Top = 104
- Width = 48
- Height = 13
- Caption = 'Preview:'
- end
- object imgFontSmoothing: TImage
- Left = 12
- Top = 10
- Width = 33
- Height = 33
- end
- object Label5: TLabel
- Left = 51
- Top = 10
- Width = 341
- Height = 33
- AutoSize = False
- Caption =
- 'Specify whether fonts on the screen should be smoothed to enhanc' +
- 'e readability and presentation.'
- WordWrap = True
- end
- object cbFontSmoothingStyle: TComboBox
- Left = 12
- Top = 73
- Width = 205
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnSelect = cbFontSmoothingStyleSelect
- Items.Strings = (
- 'No smoothing'
- 'Standard'
- 'ClearType')
- end
- object pnlFontSmoothPreview: TPanel
- Left = 12
- Top = 121
- Width = 350
- Height = 229
- BevelInner = bvLowered
- BevelOuter = bvNone
- Color = clWhite
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'Verdana'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- object shpSmoothingOff: TShape
- Left = 15
- Top = 15
- Width = 322
- Height = 62
- Brush.Style = bsClear
- Pen.Color = 14869218
- end
- object imgSmoothingOff: TImage
- Left = 17
- Top = 17
- Width = 318
- Height = 58
- Cursor = crHandPoint
- OnClick = imgSmoothingOffClick
- end
- object shpSmoothingStd: TShape
- Left = 15
- Top = 84
- Width = 322
- Height = 62
- Brush.Style = bsClear
- Pen.Color = 14869218
- end
- object shpSmoothingClr: TShape
- Left = 15
- Top = 153
- Width = 322
- Height = 62
- Brush.Style = bsClear
- Pen.Color = 14869218
- end
- object imgSmoothingStd: TImage
- Left = 17
- Top = 86
- Width = 318
- Height = 58
- Cursor = crHandPoint
- OnClick = imgSmoothingStdClick
- end
- object imgSmoothingClr: TImage
- Left = 17
- Top = 155
- Width = 318
- Height = 58
- Cursor = crHandPoint
- OnClick = imgSmoothingClrClick
- end
- end
- object btnClearTypeSettings: TButton
- Left = 223
- Top = 72
- Width = 147
- Height = 23
- HelpContext = 2098
- Caption = '&ClearType Settings...'
- Enabled = False
- TabOrder = 2
- OnClick = btnClearTypeSettingsClick
- end
- end
- end
- end
-