TOvcCalcTape

type TOvcCalcTape = class(TObject)

protected

  FMaxPaperCount: Integer;

  FShowTape: Boolean;

  FTapeDisplaySpace: Integer;

  FVisible: Boolean;

  taListBox: TListBox;

  taTapeColor: TColor;

  taHeight: Integer;

  taOwner: TComponent;

  taOperandSize: Integer;

  taFont: TFont;

  taMaxTapeCount: Integer;

  taTapeInitialized: Boolean;

  taWidth: Integer;

  procedure ValidateListBox;

  function GetFont;

  procedure SetFont();

  function GetHeight;

  procedure SetHeight();

  function GetTape;

  procedure SetTape();

  function GetTapeColor;

  procedure SetTapeColor();

  function GetTop;

  procedure SetTop();

  function GetTopIndex;

  procedure SetTopIndex();

  function GetVisible;

  procedure SetVisible();

  function GetWidth;

  procedure SetWidth();

  procedure Add();

  procedure DeleteFirst;

  procedure taOnClick();

  procedure taOnDblClick();

  procedure taOnDrawItem();

  procedure taTapeFontChange();

public

  constructor Create();

  destructor Destroy; override;

  procedure InitializeTape;

  procedure SetBounds();

  function GetDisplayedItemCount;

  procedure AddToTape();

  procedure AddToTapeLeft();

  procedure ClearTape;

  procedure RefreshDisplays;

  procedure SpaceTape();

  property Font: TFont; [rw]

  property Height: Integer; [rw]

  property MaxPaperCount: Integer; [rw]

  property ShowTape: Boolean; [rw]

  property Tape: TStrings; [rw]

  property TapeColor: TColor; [rw]

  property TapeDisplaySpace: Integer; [rw]

  property Top: Integer; [rw]

  property TopIndex: Integer; [rw]

  property Visible: Boolean; [rw]

  property Width: Integer; [rw]

end;

TOvcCalcTape

TObject