Визуализация элементов табличной величины

Пример 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.

Запустите проект на выполнение: