Class TMainForm (unit Unit1)

Inherits from

TForm

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.

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;



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;