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;