Практичне завдання Візуалізація елементів табличної величини з використанням графічних примітивів

Про матеріал

Багаторядкове текстове поле містить 8 цілих чисел. Створити обробник події Click для кнопки, виконання якого зафарбує в зелений колір фігури, для яких відповідні значення додатні, у червоний колір — фігури, для яких відповідні значення від’ємні, і в жовтий колір — фігури, для яких відповідні значення дорівнюють нулю.

Перегляд файлу

Практичне завдання

Візуалізація елементів табличної величини з використанням графічних примітивів

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм

Завдання. Багаторядкове текстове поле містить 8 цілих чисел. Створити обробник події Click для кнопки, виконання якого зафарбує в зелений колір фігури, для яких відповідні значення додатні, у червоний колір — фігури, для яких відповідні значення від’ємні, і в жовтий колір — фігури, для яких відповідні значення дорівнюють нулю.

Відкрийте вікно середовища Lazarus.
Розмістіть на формі

багаторядкове текстове поле заввишки 150;
кнопку з текстом Зобразити;
є 8 компонентів Фігура та встановіть для кожного з них значення stTriangle властивості Shape і значення 80 властивості Height.

Збережіть проект у папці з іменем Вправа 6.3, створеній у вашій папці.

Створіть обробник події Click для кнопки. Уведіть такий текст процедури:

var a: array [0..7] of integer; b: array [0..7] of TShape; i: integer;

begin

b|0] ;= Shape1; b[1] := Shape2; b[2] := Shaped; b[3] := Shape4;

b[4] := Shape5; b[5] := Shape6; b[6] := Shape7; b[7] := Shape8;

for і := 0 to 7 do

a[i] := StrToInt(Memo1.Lines[i]);

for і := 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[і].Brush.Color := clgreen;

end;

Збережіть оновлену версію проекту.
Запустіть проект на виконання.
Уведіть у багаторядкове текстове поле числа: 2; 5; -11; 56; -6; 0; 3; 0. Виберіть кнопку Зобразити. Проаналізуйте отриманий результат