answer [i]. Left: = 36;
answer [i]. WordWrap: = false;
end;
// створимо перемикачі для вибору відповіді
for i: = 1 to N_ANSWERS +1 do
begin
selector [i]: = TRadioButton.Create (self);
selector [i]. Parent: = self;
selector [i]. Caption: ='';
selector [i]. Width: = 17;
selector [i]. Left: = 16;
selector [i]. Visible: = false;
selector [i]. Enabled: = True;
selector [i]. OnClick: = SelectorClick;
end;
Продовження додатка 1
ResetForm (Form1);
end;
// вивід вихідної інформації про тест
procedure info (var f: TextFile; l: TLabel);
var
s, buf: string;
begin
buf: ='';
repeat
readln (f, s);
if s [1] <> '.'
then buf: = buf + s + '';
until s [1] = '.';
Form1.Label5.Caption: = buf;
end;
// прочитати інформацію про оцінки за тест
Procedure GetLevel (var f: TextFile);
var
i: integer;
buf: string;
begin// заповнюємо значення глобальних масивів
i: = 1;
repeat
readln (f, buf);
if buf [1] <> '.' then begin
mes [i]: = buf;
readln (f, level [i]);
i: = i +1;
end;
until buf [1] = '.';
Продовження додатка 1
end;
// Збільшення ілюстрації
Procedure ScalePicture;
var
w, h: integer;
scaleX: real;
scaleY: real;
scale: real;
i: integer;
begin
// вирахує макс. допустимі розміри картинки
w: = Form1.ClientWidth-Form1.Label5.Left;
h: = Form1.ClientHeight
- Form1.Panel1.Height -5
- Form1.Label5.Top
- Form1.Label5.Height - 5;
for i: = 1 to N_ANSWERS do
if answer [i]. Caption <>''
then h: = h-answer [i]. Height-5;
// тут визначена максимально допустима величина ілюстрації
// визначити масштаб
if w> Form1.Image1.Picture.Width
then scaleX: = 1
else scaleX: = w/Form1.Image1.Picture.Width;
if h> Form1.Image1.Picture.Height
then scaleY: = 1
else scaleY: = h/Form1.Image1.Picture.Height;
if scaleY
then scale: = scaleY
else scale: = scaleX;
Продовження додатка 1
// тут масштаб визначений
Form1.Image1.Top: = Form1.Label5.Top + Form1.Label5.Height +5;
Form1.Image1.Left: = Form1.Label5.Left;
Form1.Image1.Width: = Round (Form1.Image1.Picture.Width * scale);
Form1.Image1.Height: = Round (Form1.Image1.Picture.Height * scale);
Form1.Label5.Visible: = True;
end;
// висновок питання на екран
Procedure VoprosToScr (var f: TextFile; frm: TForm1; var vopros: inte...
