Стр. 266 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
266
//начальное значение операции
oper:=0;
//ожидание первой цифры
f:=0;
//начальное значение аккумулятора
accum:=0;
//стиль границ формы
Form1.BorderStyle:=bsDialog;
//заголовок формы
Form1.Caption:='Калькулятор';
//цвет формы
Form1.Color:=clSkyBlue;
//число на индикаторе
Edit1.Text:='0';
//цвет цифр
Edit1.Font.Color:=clNavy;
//размер цифр
Edit1.Font.Size:=12;
//цвет индикатора
Edit1.Color:=clSkyBlue;
//запрет на ввод чисел с клавиатуры
Edit1.ReadOnly:=true;
//прозрачность кнопок:
// при ненажатом состоянии кнопки видно только изображение
SpeedButton0.Flat:=true;
SpeedButton1.Flat:=true;
SpeedButton2.Flat:=true;
SpeedButton3.Flat:=true;
SpeedButton4.Flat:=true;
SpeedButton5.Flat:=true;
SpeedButton6.Flat:=true;
SpeedButton7.Flat:=true;
SpeedButton8.Flat:=true;
SpeedButton9.Flat:=true;
ravno.Flat:=true;
zap.Flat:=true;
minus.Flat:=true;
plus.Flat:=true;
del.Flat:=true;
umn.Flat:=true;
c.Flat:=true;
//определяет цифру кнопки
SpeedButton0.Tag:=0;
SpeedButton1.Tag:=1;