Description: rolling subtitles : Rolling subtitles for the Form scrollform, in the form of an additional timer Timer1, a label control Label1 (subtitles), a TrackBar1 (rolling speed control), a MainMenu1 and a Button. The main function can be achieved subtitles rolling; Subtitles rolling speed adjustment; Subtitles font color changes; Subtitles content changes and reduction. The core code is as follows : procedure Tscrollform.Timer1Timer (Sender : TObject) begin timer1.Interval : = 300-TrackBar1.Position Label3.Caption : = IntToStr (210-timer1.Interval) if label2.Left label2.Width gt; 0 then label2. Left : = label2.Left-10 label2.Left else : = Panel1.Width end timer : Form for the timer timerform, in the form of an additional MaskEdit1 control, a timer Timer2, two Start and Reset button. The main funct
File list (Check if you may need any files):
Download