object frmMarquee: TfrmMarquee
  Left = 289
  Top = 235
  HelpContext = 150
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Marquee'
  ClientHeight = 266
  ClientWidth = 570
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 553
    Height = 220
    Shape = bsFrame
    IsControl = True
  end
  object lblScrollText: TLabel
    Left = 16
    Top = 24
    Width = 64
    Height = 13
    Alignment = taRightJustify
    Caption = '&Scrolling Text'
    WordWrap = True
  end
  object lblAlign: TLabel
    Left = 57
    Top = 56
    Width = 23
    Height = 13
    Alignment = taRightJustify
    Caption = '&Align'
    FocusControl = cmbAlign
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object lblBehavior: TLabel
    Left = 200
    Top = 56
    Width = 72
    Height = 13
    Alignment = taRightJustify
    Caption = '&Behavior'
    FocusControl = cmbBehavior
    WordWrap = True
  end
  object lblDirection: TLabel
    Left = 392
    Top = 56
    Width = 56
    Height = 13
    Alignment = taRightJustify
    Caption = 'Di&rection'
    FocusControl = cmbDirection
    WordWrap = True
  end
  object lblHeight: TLabel
    Left = 49
    Top = 92
    Width = 31
    Height = 13
    Alignment = taRightJustify
    Caption = '&Height'
    FocusControl = cmbHeight
  end
  object lblWidth: TLabel
    Left = 200
    Top = 92
    Width = 72
    Height = 13
    Alignment = taRightJustify
    Caption = '&Width'
    FocusControl = cmbWidth
    WordWrap = True
  end
  object lblHSpace: TLabel
    Left = 392
    Top = 92
    Width = 56
    Height = 13
    Alignment = taRightJustify
    Caption = 'HS&pace'
    FocusControl = txtHSpace
    WordWrap = True
  end
  object lblLoop: TLabel
    Left = 48
    Top = 200
    Width = 24
    Height = 13
    Alignment = taRightJustify
    Caption = '&Loop'
    Enabled = False
    FocusControl = txtLoop
  end
  object lblFontColor: TLabel
    Left = 22
    Top = 157
    Width = 58
    Height = 26
    Alignment = taRightJustify
    Caption = 'Background &Color'
    FocusControl = txtColor
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object shpBGColor: TShape
    Left = 204
    Top = 156
    Width = 29
    Height = 29
  end
  object lblScrollAmt: TLabel
    Left = 15
    Top = 126
    Width = 65
    Height = 13
    Alignment = taRightJustify
    Caption = 'Scroll A&mount'
    FocusControl = txtScrollAmt
    WordWrap = True
  end
  object lblScrollDelay: TLabel
    Left = 200
    Top = 126
    Width = 72
    Height = 13
    Alignment = taRightJustify
    Caption = 'Scroll &Delay'
    FocusControl = txtScrollDelay
    WordWrap = True
  end
  object lblVSpace: TLabel
    Left = 392
    Top = 126
    Width = 55
    Height = 13
    Alignment = taRightJustify
    Caption = '&VSpace'
    FocusControl = txtVSpace
    WordWrap = True
  end
  object OKBtn: TBitBtn
    Left = 314
    Top = 236
    Width = 77
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 14
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 398
    Top = 236
    Width = 77
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 15
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 482
    Top = 236
    Width = 77
    Height = 25
    Caption = '&Help'
    TabOrder = 16
    OnClick = HelpBtnClick
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object txtScrollText: TEdit
    Left = 88
    Top = 20
    Width = 461
    Height = 21
    Hint = 'Text that will be scrolled'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object cmbAlign: TComboBox
    Left = 88
    Top = 52
    Width = 109
    Height = 21
    Hint = 
      'Specifies that the text around the marquee should align with the' +
      ' top, middle, or bottom of the marquee'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    Items.Strings = (
      'Bottom'
      'Middle'
      'Top')
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Sorted = True
    TabOrder = 1
  end
  object cmbBehavior: TComboBox
    Left = 280
    Top = 52
    Width = 93
    Height = 21
    Hint = 'Specifies how the text should behave. Scroll is the default.'
    ItemHeight = 13
    Items.Strings = (
      'Scroll'
      'Slide'
      'Alternate')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object cmbDirection: TComboBox
    Left = 456
    Top = 52
    Width = 93
    Height = 21
    Hint = 'Specifies which direction the text should scroll.'
    ItemHeight = 13
    Items.Strings = (
      'Left'
      'Right')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object txtLoop: TEdit
    Left = 88
    Top = 196
    Width = 98
    Height = 21
    Hint = 'Number of times the marquee repeats'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    Text = '1'
  end
  object chkInfinite: TCheckBox
    Left = 264
    Top = 198
    Width = 97
    Height = 17
    Hint = 'Should the marquee repeat forever?'
    Caption = 'Loop &Forever'
    ParentShowHint = False
    ShowHint = True
    State = cbChecked
    TabOrder = 13
    OnClick = chkInfiniteClick
  end
  object txtHSpace: TEdit
    Left = 456
    Top = 88
    Width = 93
    Height = 21
    Hint = 
      'Specifies left & right margins for the outside of the marquee, i' +
      'n pixels.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
  end
  object txtColor: TComboBox
    Left = 88
    Top = 160
    Width = 109
    Height = 21
    Hint = 'Color can be in either text or hex format'
    ItemHeight = 13
    Items.Strings = (
      'Aqua'
      'Black'
      'Blue'
      'Fuchsia'
      'Gray'
      'Green'
      'Lime'
      'Maroon'
      'Navy'
      'Olive'
      'Purple'
      'Red'
      'Silver'
      'Teal'
      'White'
      'Yellow')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnChange = txtColorChange
  end
  object bbtnSetColor: TBitBtn
    Left = 240
    Top = 157
    Width = 109
    Height = 27
    Hint = 'Set the marquee background'#39's color'
    Caption = 'C&olor'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = bbtnSetColorClick
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000F0000000D0000000100
      0400000000006800000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444
      444F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBBBB4F4CCCCCC4BBBB
      BB4F4CCCCCC4BBBBBB4F444444444444444F49999994AAAAAA4F49999994AAAA
      AA4F49999994AAAAAA4F49999994AAAAAA4F49999994AAAAAA4F444444444444
      444F}
  end
  object txtScrollAmt: TEdit
    Left = 88
    Top = 124
    Width = 109
    Height = 21
    Hint = 
      'Specifies the number of pixels drawn between each sucessive draw' +
      ' of the marquee text.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
  end
  object txtScrollDelay: TEdit
    Left = 280
    Top = 124
    Width = 93
    Height = 21
    Hint = 
      'Specifies the number of millseconds between each sucessive draw ' +
      'of the marquee text.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
  end
  object txtVSpace: TEdit
    Left = 456
    Top = 124
    Width = 93
    Height = 21
    Hint = 
      'Specifies top & bottom margins for the outside of the marquee, i' +
      'n pixels.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
  end
  object cmbHeight: TComboBox
    Left = 88
    Top = 88
    Width = 109
    Height = 21
    Hint = 
      'Specifies the height of the marquee, either in pixels or as a pe' +
      'rcentage of the screen height.'
    ItemHeight = 13
    Items.Strings = (
      '10%'
      '20%'
      '30%'
      '40%'
      '50%'
      '60%'
      '70%'
      '80%'
      '90%'
      '100%')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object cmbWidth: TComboBox
    Left = 280
    Top = 88
    Width = 93
    Height = 21
    Hint = 
      'Specifies the width of the marquee, either in pixels or as a per' +
      'centage of the screen width.'
    ItemHeight = 13
    Items.Strings = (
      '10%'
      '20%'
      '30%'
      '40%'
      '50%'
      '60%'
      '70%'
      '80%'
      '90%'
      '100%')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
  end
  object udLoop: TUpDown
    Left = 186
    Top = 196
    Width = 11
    Height = 21
    Associate = txtLoop
    Min = 1
    Position = 1
    TabOrder = 17
    Wrap = False
  end
  object dlgColor: TColorDialog
    Ctl3D = True
    Left = 8
    Top = 232
  end
end