Class TDemoForm (unit Demounit)

Inherits from

TForm

Constructors



Functions

procedure edtLeftEnter(Sender: TObject);

Don't allow user input in memo.

procedure edtLeftExit(Sender: TObject);

Save original value tag property.

procedure edtLeftKeyPress(Sender: TObject; var Key: Char);

Check that user is entered valid integer value in editbox, if not don't allow user to exit from editbox.

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Default values for preview.

procedure FormResize(Sender: TObject);


procedure InfoClick(Sender: TObject);

Finally draw the chart to "paper".

procedure PrintChartClick(Sender: TObject);


procedure rbnLandscapeClick(Sender: TObject);


procedure rbnPortraitClick(Sender: TObject);

Finally save window dimensions and redraw preview if needed.

procedure ShowChartClick(Sender: TObject);


procedure ShowPreviewClick(Sender: TObject);


procedure DrawPreview;

Get position and size user entered and print the chart.

Properties

Events

Variables

edtHeight : TEdit;


edtLeft : TEdit;


edtTop : TEdit;


edtWidth : TEdit;


grpCommands : TGroupBox;


grpOptions : TGroupBox;


Info : TMemo;


lblHeight : TLabel;


lblLeft : TLabel;


lblTop : TLabel;


lblWidth : TLabel;


Preview : TImage;


PrintChart : TButton;


rbnLandscape : TRadioButton;


rbnPortrait : TRadioButton;


ShowChart : TButton;


ShowPreview : TButton;


Demo : TDemo;

Private declarations

hFont : hFont;


hOldFont : hFont;


Hs : array[1..40] of Longint;


OH : Longint;


OW : Longint;


PrevHeight : longint;


PrevWidth : longint;


Running : boolean;


Ws : array[1..40] of Longint;


Xs : array[1..40] of Longint;


Ys : array[1..40] of Longint;



Constructors


Functions


procedure edtLeftEnter(Sender: TObject);

Don't allow user input in memo.


procedure edtLeftExit(Sender: TObject);

Save original value tag property.


procedure edtLeftKeyPress(Sender: TObject; var Key: Char);

Check that user is entered valid integer value in editbox, if not don't allow user to exit from editbox.


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Default values for preview.


procedure FormResize(Sender: TObject);


procedure InfoClick(Sender: TObject);

Finally draw the chart to "paper".


procedure PrintChartClick(Sender: TObject);


procedure rbnLandscapeClick(Sender: TObject);


procedure rbnPortraitClick(Sender: TObject);

Finally save window dimensions and redraw preview if needed.


procedure ShowChartClick(Sender: TObject);


procedure ShowPreviewClick(Sender: TObject);


procedure DrawPreview;

Get position and size user entered and print the chart.


Properties


Events


Variables


edtHeight : TEdit;


edtLeft : TEdit;


edtTop : TEdit;


edtWidth : TEdit;


grpCommands : TGroupBox;


grpOptions : TGroupBox;


Info : TMemo;


lblHeight : TLabel;


lblLeft : TLabel;


lblTop : TLabel;


lblWidth : TLabel;


Preview : TImage;


PrintChart : TButton;


rbnLandscape : TRadioButton;


rbnPortrait : TRadioButton;


ShowChart : TButton;


ShowPreview : TButton;


Demo : TDemo;

Private declarations


hFont : hFont;


hOldFont : hFont;


Hs : array[1..40] of Longint;


OH : Longint;


OW : Longint;


PrevHeight : longint;


PrevWidth : longint;


Running : boolean;


Ws : array[1..40] of Longint;


Xs : array[1..40] of Longint;


Ys : array[1..40] of Longint;