| Class TFormMain (unit Main) |
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;