TplLCDScreen

type TplLCDScreen = class(TGraphicControl)

protected

  procedure HorzScroll();

  procedure LinesOnChange();

  procedure Notification(); override;

  procedure Paint; override;

  procedure SetLines();

  procedure TimerOnTimer();

  procedure VertScroll();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Reset();

  property Canvas;

published

  property AnimationDelay: Cardinal; [rw]

  property AnimationEnabled: Boolean; [rw]

  property AnimationRepeating: Boolean; [rw]

  property Bitmap: TPicture; [rw]

  property BitmapCopyMode: TBitmapCopyMode; [rw]

  property BitmapAnimMode: TAnimMode; [rw]

  property BitmapXOffset: ShortInt; [rw]

  property BitmapYOffset: ShortInt; [rw]

  property BorderSpace: ShortInt; [rw]

  property BorderStyle: TLCDBorder; [rw]

  property ColorBackground: TColor; [rw]

  property ColorPixelOFF: TColor; [rw]

  property DisplayMode: TDisplayMode; [rw]

  property Font: TFont; [rw]

  property Intensity: ShortInt; [rw]

  property LCDAnimator: TplLCDAnimator; [rw]

  property Lines: TStringList; [rw]

  property LinesAnimMode: TAnimMode; [rw]

  property LinesXOffset: ShortInt; [rw]

  property LinesYOffset: ShortInt; [rw]

  property PixelHeight: ShortInt; [rw]

  property PixelShape: TPixelShape; [rw]

  property PixelSize: TPixelSize; [rw]

  property PixelSpacing: ShortInt; [rw]

  property PixelWidth: ShortInt; [rw]

  property SpecialEffects: TSpecialEffects; [rw]

  property Visible;

  property Enabled;

  property Color;

  property ShowHint;

  property OnClick;

  property OnDblClick;

  property OnPaint;

  property OnResize;

  property OnChangeBounds;

  property OnContextPopup;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnMouseWheelHorz;

  property OnMouseWheelLeft;

  property OnMouseWheelRight;

  property OnDragDrop;

  property OnDragOver;

  property OnStartDrag;

  property OnStartDock;

  property OnEndDock;

end;

TplLCDScreen

TObject