-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathU_P_SIZE.PAS
130 lines (113 loc) · 4.01 KB
/
U_P_SIZE.PAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
(*/////////////////////////////////////////////////////////////////////////////
// //
// Part of Imagelib VCL/DLL Library Corporate Suite 4.0 //
// //
// All rights reserved. (c) Copyright 1995, 1996, 1997, 1998. //
// SkyLine Tools a division by Creative Development LTD. //
// //
// Created by: Jan Dekkers, //
// Jillian Pinsker, //
// Reginald Armond, //
// Che-Chern Lin, //
// Alex Zitser, //
// Charles Ye, //
// Song Han, //
// Vitaly Bondarenko, //
// Jane Scarano, //
// Misha Popov; //
// //
// and many others who provided feedback, gave tips and comments. //
// //
// Call 1-800 404-3832 or 1-818 346-4200 to order ImageLib Corp. Suite. //
// //
/////////////////////////////////////////////////////////////////////////////*)
unit U_p_size;
{Includes settings to compile in either 16 or 32 bit}
{$I DEFILIB.INC}
interface
uses
{$IFDEF DEL32}
Windows,
{$ELSE}
WinTypes,
WinProcs,
{$ENDIF}
Classes,
Graphics,
Forms,
Controls,
Buttons,
StdCtrls,
ExtCtrls,
Spin;
type
TPrintersize = class(TForm)
OKBtn: TBitBtn;
Bevel1: TBevel;
WidthSpinEdit: TSpinEdit;
HeigthSpinEdit: TSpinEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
BitBtn1: TBitBtn;
CB1: TCheckBox;
procedure FormActivate(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
private
{ Private declarations }
bwt, bht : integer;
public
{ Public declarations }
end;
var
Printersize: TPrintersize;
implementation
{$R *.DFM}
procedure TPrintersize.FormActivate(Sender: TObject);
begin
bwt:= WidthSpinEdit.Value;
bht:=HeigthSpinEdit.Value;
end;
procedure TPrintersize.RadioButton1Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht;
WidthSpinEdit.Value:=bwt;
end;
procedure TPrintersize.RadioButton2Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*2;
WidthSpinEdit.Value:=bwt*2;
end;
procedure TPrintersize.RadioButton3Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*3;
WidthSpinEdit.Value:=bwt*3;
end;
procedure TPrintersize.RadioButton4Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*4;
WidthSpinEdit.Value:=bwt*4;
end;
procedure TPrintersize.RadioButton5Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*5;
WidthSpinEdit.Value:=bwt*5;
end;
procedure TPrintersize.RadioButton6Click(Sender: TObject);
begin
HeigthSpinEdit.Value:=bht*6;
WidthSpinEdit.Value:=bwt*6;
end;
end.