object frmAutoScroll: TfrmAutoScroll Left = 225 Top = 100 Hint = '|Smooth scrolling...' HelpContext = 36 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMinimize] AutoScroll = False Caption = 'Auto Scroll' ClientHeight = 71 ClientWidth = 146 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} Position = poScreenCenter Scaled = False OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 146 Height = 71 Align = alClient BevelInner = bvLowered TabOrder = 0 object btnStop: TSpeedButton Left = 33 Top = 4 Width = 25 Height = 25 Hint = 'Quit|Quit auto-scroll' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033 70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = btnStopClick end object btnPlay: TSpeedButton Left = 8 Top = 4 Width = 25 Height = 25 Hint = 'Play|Activate auto-scroll' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333 70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033 70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333 70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = btnPlayClick end object btnPause: TSpeedButton Left = 58 Top = 4 Width = 25 Height = 25 Hint = 'Pause|Pause auto-scroll' AllowAllUp = True GroupIndex = 1 Down = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F333FF3FF337F3E0F330030033 70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033 70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033 70E337F33773773337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = btnPauseClick end object btnForward: TSpeedButton Left = 112 Top = 4 Width = 25 Height = 25 Hint = 'Forward|Scroll forward' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333 70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003 70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333 70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = btnForwardClick end object btnRewind: TSpeedButton Left = 87 Top = 4 Width = 25 Height = 25 Hint = 'Rewind|Scroll back' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F3333F3FF337F3E0F333030033 70E337F3337F77F337F3E0F33003003370E337F3377F77F337F3E0F300030033 70E337F3777F77F337F3E0F33003003370E337F3377F77F337F3E0F333030033 70E337F33373773337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = btnRewindClick end object lbl_edtSpeed: TEnhLabel Left = 8 Top = 41 Width = 56 Height = 17 AutoSize = False Caption = '&Speed:' FocusControl = edtSpeed end object edtSpeed: TLblEdit Left = 64 Top = 38 Width = 73 Height = 21 Hint = '|Set scroll speed (in characters per second)' TabOrder = 0 Text = '0' OnKeyDown = edtSpeedKeyDown OnKeyPress = edtSpeedKeyPress OnKeyUp = edtSpeedKeyUp Alignment = taRightJustify OverwriteMode = False UndoWhenEsc = False WordWrap = False OnEdited = edtSpeedEdited LabelPos = lpCustom LabelComponent = lbl_edtSpeed LabelRelLeft = -56 LabelRelTop = 3 end end object sysTimer: TTimer OnTimer = sysTimerTimer Left = 32 Top = 32 end end