Вторник, 03.12.2024, 21:23
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

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

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

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

 

 

Форма входа
Поиск
Календарь
«  Декабрь 2024  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
3031
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2024
    Конструктор сайтов - uCoz