| Class TMainForm (unit Unit1) |
TForm
| Constructors |
| Functions |
procedure btnNextPageClick(Sender: TObject);
procedure btnPreviewClick(Sender: TObject);
procedure btnPrevPageClick(Sender: TObject);
procedure btnPrintClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure PrnGetCellFormat(Sender: TObject; const Col: Cardinal;
var ColInfo: TTableLineColumnInfo);
procedure ZoomListClick(Sender: TObject);
procedure ZoomListKeyPress(Sender: TObject; var Key: Char);
procedure ZoomTimerTimer(Sender: TObject);| Properties |
| Events |
| Variables |
btnNextPage : TSpeedButton;
btnPreview : TButton;
btnPrevPage : TSpeedButton;
btnPrint : TButton;
Label4 : TLabel;
lblPage : TLabel;
Panel1 : TPanel;
Prn : TPagePrinter;
ZoomList : TComboBox;
ZoomTimer : TTimer;| Constructors |
| Functions |
procedure btnNextPageClick(Sender: TObject);
procedure btnPreviewClick(Sender: TObject);
procedure btnPrevPageClick(Sender: TObject);
procedure btnPrintClick(Sender: TObject);This kludge is necessary to display the actual zoom percent after Fit To Width, Fit To Height, or Whole Page are chosen. If you assign something (e.g. ZoomPercent) to TComboBox.Text inside of TComboBox.OnClick, it gets overwritten with the selected item's text right after the OnClick handler returns. To get around this, I made this timer update the text property after all the TComboBox event handling is finished. If someone knows a better way, please let me know!
procedure FormShow(Sender: TObject);Do some canvas doodling.
procedure PrnGetCellFormat(Sender: TObject; const Col: Cardinal;
var ColInfo: TTableLineColumnInfo);
procedure ZoomListClick(Sender: TObject);
procedure ZoomListKeyPress(Sender: TObject; var Key: Char);
procedure ZoomTimerTimer(Sender: TObject);| Properties |
| Events |
| Variables |
btnNextPage : TSpeedButton;
btnPreview : TButton;
btnPrevPage : TSpeedButton;
btnPrint : TButton;
Label4 : TLabel;
lblPage : TLabel;
Panel1 : TPanel;
Prn : TPagePrinter;
ZoomList : TComboBox;
ZoomTimer : TTimer;