Class TMainForm (unit Unit1) |
Inherits from
TForm
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.
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);
btnNextPage : TSpeedButton;
btnPreview : TButton;
btnPrevPage : TSpeedButton;
btnPrint : TButton;
Label4 : TLabel;
lblPage : TLabel;
Panel1 : TPanel;
Prn : TPagePrinter;
ZoomList : TComboBox;
ZoomTimer : TTimer;
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);
btnNextPage : TSpeedButton;
btnPreview : TButton;
btnPrevPage : TSpeedButton;
btnPrint : TButton;
Label4 : TLabel;
lblPage : TLabel;
Panel1 : TPanel;
Prn : TPagePrinter;
ZoomList : TComboBox;
ZoomTimer : TTimer;