Class TFormMain (unit Main)

Inherits from

TForm

Constructors



Functions

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


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


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


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


procedure BtnShowClick(Sender: TObject);


procedure BtnTileClick(Sender: TObject);


procedure ComboBoxTicketsChange(Sender: TObject);


procedure ComboBoxTicketsClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure ItemExitClick(Sender: TObject);


procedure ItemPrintAllClick(Sender: TObject);


procedure ItemReorderClick(Sender: TObject);


procedure ItemSaveClick(Sender: TObject);


procedure ItemShowClick(Sender: TObject);


procedure TimerTickTimer(Sender: TObject);


procedure Print(TicketImage: TStringList; Font: TFont);


procedure SaveToFile( TicketImage: TStringList; const TicketCaption: string);


procedure SetTray(IconID: string; Hint: string);


procedure BtnEnabled(En,CopyEn: Boolean);


procedure TicketClose( Sender: TObject; var Action: TCloseAction);


procedure TicketCount(Sender: TObject);


function TicketCreate(TicketClass: TTicketClass): TFormTicket;


procedure TicketDeactivate(Sender: TObject);


procedure TicketNewPosition(var NewTop,NewLeft: Integer);


procedure TopMostExceptionHandler(Sender: TObject; E: Exception);


procedure WMSysCommand(var Message: TMessage);


Properties

property ResourceIcon : TResourceIcon


Events

Variables

BtnCopy : TSpeedButton;


BtnNew : TSpeedButton;


BtnNewAlarm : TSpeedButton;


BtnNewTimed : TSpeedButton;


BtnShow : TSpeedButton;


BtnTile : TSpeedButton;


ComboBoxTickets : TComboBox;


DialogSave : TSaveDialog;


ItemExit : TMenuItem;


ItemPrintAll : TMenuItem;


ItemReorder : TMenuItem;


ItemSave : TMenuItem;


ItemShow : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


TimerTick : TThreadedTimer;


TrayIcon : TTrayIcon;


TrayMenu : TPopupMenu;


FResourceIcon : TResourceIcon;


LastActiveTicketIndex : Integer;


LeftDelta : Integer;


TicketsFile : TIniFile;


TopDelta : Integer;



Constructors


Functions


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


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


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


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


procedure BtnShowClick(Sender: TObject);


procedure BtnTileClick(Sender: TObject);


procedure ComboBoxTicketsChange(Sender: TObject);


procedure ComboBoxTicketsClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure ItemExitClick(Sender: TObject);


procedure ItemPrintAllClick(Sender: TObject);


procedure ItemReorderClick(Sender: TObject);


procedure ItemSaveClick(Sender: TObject);


procedure ItemShowClick(Sender: TObject);


procedure TimerTickTimer(Sender: TObject);


procedure Print(TicketImage: TStringList; Font: TFont);


procedure SaveToFile( TicketImage: TStringList; const TicketCaption: string);


procedure SetTray(IconID: string; Hint: string);


procedure BtnEnabled(En,CopyEn: Boolean);


procedure TicketClose( Sender: TObject; var Action: TCloseAction);


procedure TicketCount(Sender: TObject);


function TicketCreate(TicketClass: TTicketClass): TFormTicket;


procedure TicketDeactivate(Sender: TObject);


procedure TicketNewPosition(var NewTop,NewLeft: Integer);


procedure TopMostExceptionHandler(Sender: TObject; E: Exception);


procedure WMSysCommand(var Message: TMessage);


Properties


property ResourceIcon : TResourceIcon


Events


Variables


BtnCopy : TSpeedButton;


BtnNew : TSpeedButton;


BtnNewAlarm : TSpeedButton;


BtnNewTimed : TSpeedButton;


BtnShow : TSpeedButton;


BtnTile : TSpeedButton;


ComboBoxTickets : TComboBox;


DialogSave : TSaveDialog;


ItemExit : TMenuItem;


ItemPrintAll : TMenuItem;


ItemReorder : TMenuItem;


ItemSave : TMenuItem;


ItemShow : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


TimerTick : TThreadedTimer;


TrayIcon : TTrayIcon;


TrayMenu : TPopupMenu;


FResourceIcon : TResourceIcon;


LastActiveTicketIndex : Integer;


LeftDelta : Integer;


TicketsFile : TIniFile;


TopDelta : Integer;