home *** CD-ROM | disk | FTP | other *** search
- object SetupMsg31: TSetupMsg31
- Left = 41
- Top = 124
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- ActiveControl = SpeedScrollBar
- BorderStyle = bsDialog
- Caption = 'Create a new scrolling message'
- ClientHeight = 270
- ClientWidth = 541
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- PrintScale = poNone
- Scaled = False
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- TextHeight = 16
- object Label3: TLabel
- Left = 16
- Top = 87
- Width = 82
- Height = 16
- Caption = 'Message Text'
- end
- object ScrollingMessage: TLabel
- Left = 16
- Top = 199
- Width = 505
- Height = 57
- AutoSize = False
- Color = clBlack
- ParentColor = False
- Visible = False
- end
- object Label4: TLabel
- Left = 64
- Top = 130
- Width = 412
- Height = 14
- Alignment = taCenter
- Caption =
- 'Right mouse button for BackGround colour. Left mouse button for' +
- ' ForeGround colour'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object GroupBox1: TGroupBox
- Left = 15
- Top = -2
- Width = 433
- Height = 88
- Caption = ' Speed '
- TabOrder = 0
- object Label1: TLabel
- Left = 382
- Top = 22
- Width = 28
- Height = 16
- Caption = 'Slow'
- end
- object Label2: TLabel
- Left = 24
- Top = 24
- Width = 26
- Height = 16
- Caption = 'Fast'
- end
- object Label5: TLabel
- Left = 203
- Top = 16
- Width = 4
- Height = 16
- end
- object SpeedScrollBar: TScrollBar
- Left = 24
- Top = 48
- Width = 388
- Height = 25
- Max = 11
- Min = 1
- Position = 6
- TabOrder = 0
- OnChange = SpeedScrollBarChange
- end
- end
- object NewMsg: TEdit
- Left = 16
- Top = 103
- Width = 504
- Height = 24
- MaxLength = 254
- TabOrder = 1
- OnChange = NewMsgChange
- end
- object Ok: TBitBtn
- Left = 451
- Top = 5
- Width = 81
- Height = 28
- Caption = 'OK'
- Default = True
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 2
- OnClick = OkClick
- Glyph.Data = {
- 4E010000424D4E01000000000000760000002800000012000000120000000100
- 040000000000D800000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333330000003333333333333333330000003333344333333333330000003333
- 4224333333333300000033342222433333333300000033422222243333333300
- 000034222A2222433333330000003222A3A222433333330000003A2A333A2224
- 33333300000033A33333A222433333000000333333333A222433330000003333
- 333333A222433300000033333333333A222433000000333333333333A2224300
- 00003333333333333A224300000033333333333333A223000000333333333333
- 333A33000000333333333333333333000000}
- Style = bsNew
- end
- object Cancel: TBitBtn
- Left = 451
- Top = 32
- Width = 81
- Height = 27
- TabOrder = 3
- OnClick = CancelClick
- Kind = bkCancel
- Style = bsNew
- end
- object TxtFont: TBitBtn
- Left = 451
- Top = 58
- Width = 81
- Height = 28
- Caption = '&Font'
- TabOrder = 4
- OnClick = TxtFontClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333FF3FFFFFFF33FFF003000000033
- 0000773777777733777703330033033330037FFF77F37F33377F700007330333
- 3003777777337FFFF77F303003337000007337F77F3377777773303073333033
- 003337F77F3337F377F337007333303300333777733337FF77F3330033333703
- 07333377F333377F7733330733333300033333773FF3F3777F33333399393300
- 033333337737FF777F333333339993307333333333777FF77333333333999930
- 3333333333777737333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- Style = bsNew
- end
- object ColorGrid: TColorGrid
- Left = 16
- Top = 143
- Width = 504
- Height = 56
- Ctl3D = True
- GridOrdering = go8x2
- ParentCtl3D = False
- TabOrder = 5
- OnChange = ColorGridChange
- end
- object FontDialog: TFontDialog
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Left = 464
- Top = 224
- end
- object ColorDialog: TColorDialog
- Options = [cdPreventFullOpen]
- Left = 488
- Top = 224
- end
- end
-