Class TFormTimedTicket (unit TimedTicket)

Inherits from

TFormTicket

Constructors



Functions

procedure Assign(Source: TPersistent);


procedure BtnClearClick(Sender: TObject);


procedure BtnCountClick(Sender: TObject);


procedure BtnStopClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure LabelOpenTimeClick(Sender: TObject);


procedure Restore( IniFile: TIniFile; const Section: string);


procedure Save( IniFile: TIniFile; const Section: string);


procedure HandleTick;


procedure SaveImage(TicketImage: TStringList);


procedure SetCountEn(En: Boolean);


procedure ShowSts(En: Boolean);


Properties

property CountEn : Boolean


Events

event OnCountEn : TNotifyEvent


Variables

BtnClear : TSpeedButton;


BtnCount : TSpeedButton;


BtnStop : TSpeedButton;


LabelOpenTime : TLabel;


FCountEn : Boolean;


FOnCountEn : TNotifyEvent;


OpenTime : TOpenTime;



Constructors


Functions


procedure Assign(Source: TPersistent);


procedure BtnClearClick(Sender: TObject);


procedure BtnCountClick(Sender: TObject);


procedure BtnStopClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure LabelOpenTimeClick(Sender: TObject);


procedure Restore( IniFile: TIniFile; const Section: string);


procedure Save( IniFile: TIniFile; const Section: string);


procedure HandleTick;


procedure SaveImage(TicketImage: TStringList);


procedure SetCountEn(En: Boolean);


procedure ShowSts(En: Boolean);


Properties


property CountEn : Boolean


Events


event OnCountEn : TNotifyEvent


Variables


BtnClear : TSpeedButton;


BtnCount : TSpeedButton;


BtnStop : TSpeedButton;


LabelOpenTime : TLabel;


FCountEn : Boolean;


FOnCountEn : TNotifyEvent;


OpenTime : TOpenTime;