Class TDemoForm (unit Demounit) |
Inherits from
TForm
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.
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;
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.
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;