Class TFormTicket (unit Ticket)

Inherits from

TForm

Constructors



Functions

procedure Assign(Source: TPersistent);


class function DerivedClass(const Info: TFormTicketCreateInfo): TFormTicketClass;


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ItemCloseClick(Sender: TObject);


procedure ItemCourierFontClick(Sender: TObject);


procedure ItemPrintClick(Sender: TObject);


procedure ItemSavetoFileClick(Sender: TObject);


procedure ItemSystemFontClick(Sender: TObject);


procedure MemoMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Print;


class procedure Register;


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


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


procedure SaveToFile;


procedure Tick;


procedure HandleTick;


class function Match(const Info: TObject): Boolean;


procedure SaveImage(TicketImage: TStringList);


procedure WMSysCommand(var Message: TMessage);


class procedure NoMatch( Sender: TObject; const Info: TObject);


Properties

property ListIndex : Integer


property TickEnabled : Boolean


Events

Variables

ItemClose : TMenuItem;


ItemCourierFont : TMenuItem;


ItemPrint : TMenuItem;


ItemSavetoFile : TMenuItem;


ItemSystemFont : TMenuItem;


Memo : TRichEdit;


N1 : TMenuItem;


N2 : TMenuItem;


PopupMenu : TPopupMenu;


FListIndex : Integer;


FTickEnabled : Boolean;



Constructors


Functions


procedure Assign(Source: TPersistent);


class function DerivedClass(const Info: TFormTicketCreateInfo): TFormTicketClass;


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure ItemCloseClick(Sender: TObject);


procedure ItemCourierFontClick(Sender: TObject);


procedure ItemPrintClick(Sender: TObject);


procedure ItemSavetoFileClick(Sender: TObject);


procedure ItemSystemFontClick(Sender: TObject);


procedure MemoMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Print;


class procedure Register;


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


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


procedure SaveToFile;


procedure Tick;


procedure HandleTick;


class function Match(const Info: TObject): Boolean;


procedure SaveImage(TicketImage: TStringList);


procedure WMSysCommand(var Message: TMessage);


class procedure NoMatch( Sender: TObject; const Info: TObject);


Properties


property ListIndex : Integer


property TickEnabled : Boolean


Events


Variables


ItemClose : TMenuItem;


ItemCourierFont : TMenuItem;


ItemPrint : TMenuItem;


ItemSavetoFile : TMenuItem;


ItemSystemFont : TMenuItem;


Memo : TRichEdit;


N1 : TMenuItem;


N2 : TMenuItem;


PopupMenu : TPopupMenu;


FListIndex : Integer;


FTickEnabled : Boolean;