文字滚屏控件(SliderPanel)--满天星共享软件注册服务中心（http://www.star-reg.com/）冠名发布版

{
==================== 满天星共享软件注册服务中心 申明 ======================
本软件由满天星共享软件注册服务中心（ http://www.star-reg.com/ ）赞助冠名发布，
目的在于促进技术交流，促进中国软件产业的发展与进步。

本软件的版权以及其他所有权益归原作者所有，满天星共享软件注册服务中心不承担
任何由本软件的发布带来的权益纠纷和责任。

欢迎软件作者加盟满天星共享软件注册服务中心（ http://www.star-reg.com/ ），为
民族软件产业的发展而共同努力！！
===========================================================================
}

{
  关于SliderPanel:

一个文字滚屏控件，可以用作系统的新任务或者消息提示。

这是本人两年前在做一个项目时的产物，参照了一个外国的控件，具体是什么控件现
在想不起来了。但是本人可以保证，其中很大的部分代码都是我自己重新写的。当时
刚刚开始做控件，写得不怎么样，不过可以给初学者提供一个如何写控件的学习样例。

本控件的特点：
   1，在Panel面板上滚动由Lines属性提供的任何文字信息。
   2，提供OnLoop事件，这样每次从头显示时可以进行一些必要处理，比如重新设定
      Lines属性的值。
   3，提供背景文字，在属性Caption中设置，其样式由CaptionStyle属性控制。
   4，文字滚动速度由属性ScrollSpeed控制，单位是毫秒。
   5，文字的对齐方式可以由Alignment属性控制。
   6，文字可以自动换行。

感谢满天星共享软件注册服务中心（ http://www.star-reg.com/ ）在我发布软件时对
我的帮助，特此自愿冠名发布。

欢迎各位传播、使用和修改本控件，但是务必请保留本处的所有说明信息。如果您有
什么改进的地方，也欢迎您提供一份新的拷贝给我，谢谢！

本人联系方式： arlinfd@etang.com

}

unit SliderPanel;

interface

uses Windows, Messages, SysUtils, Classes, Graphics,Controls,StdCtrls,Dialogs,
  ExtCtrls,StrUtils,forms;

type
  TCaptionStyle = (csNormal,csHollow,csShadow);
  TSliderPanel = class(TPanel)
  private
    FOnLoop:TNotifyEvent;
    FOnChange:TNotifyEvent;
    FTopNow:integer;
    FScrollSpeed: integer;
    FTimer: TTimer;
    FLines: TStringList;
    FDealStrings:boolean;
    FAlignment :TAlignment;
    FCaptionStyle :TCaptionStyle;
    FActive :Boolean;

    Initial:boolean;
    TxtHeight:integer;
    FXOffSet :array of integer;