Визуализация элементов табличной величины
Пример 2. Многострочное текстовое поле содержит 8 целых чисел.Создать обработчик события Click для кнопки, выполнение которого закрасит в зеленый цвет фигуры, для которых соответствующие значения положительные, в красный цвет - фигуры, для которых соответствующие значения отрицательные. и в желтый цвет - фигуры, для которых соответствующие значения равны нулю.
Открыть окно среды программирования Lazarus.
Расположить на форме :
- многострочное текстовое поле Memo1;
- кнопку с текстом Пуск;
- 8 компонентов Фигура и установить для каждого из них значение stTriangle свойству Shape и значение 80 свойству Height.
Создать обработчик события Click для кнопки:
procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..7] of integer; b:array[0..7] of tshape; i:integer;
begin
b[0]:= shape1; b[1]:= shape2; b[2]:= shape3;
b[3]:= shape4; b[4]:= shape5; b[5]:= shape6;
b[6]:= shape7; b[7]:= shape8;
for i:=0 to 7 do begin a[i]:=random(10) - 6; memo1.Lines[i]:= inttostr(a[i]); end;
for i:=0 to 7 do
if a[i] < 0 then b[i].brush.color:=clred
else if a[i] = 0 then b[i].brush.color:=clyellow
else b[i].brush.color:=clgreen;
end;
Запустите проект на выполнение:
Установите для каждого из компонентов Фигура значение stCircle свойства Shape и значения 60 свойств Height и Width.
Запустите проект на выполнение: