19 липня о 18:00Вебінар: Реалізація національно-патріотичного проекту в закладах дошкільної та середньої освіти

Практична робота в Delphi "Підбір кольору"

Про матеріал

Роздатковий матеріал з об'єктно-зорієнтованого програмування для практичної роботи "Підбір кольору". Практична робота містить опис необхідних компонентів і процедур

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

 

Подбор цвета

 

       

 

Panel1

 

 

 

ScrollBar1

 

 

 

ScrollBar2

 

 

ScrollBar3

 

 

 

 

Для элемента Panel1 в свойстве Caption написать «ПОДБОР ЦВЕТА»

 

Дописать процедуры:


 


procedure SetPanelColor;

var red, green, blue : word;

begin

  red := Form1.ScrollBar1.Position;

  green := Form1.ScrollBar2.Position;

  blue := Form1.ScrollBar3.Position;

  Form1.Panel1.Color:=RGB(red, green, blue);

end;

 

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

  SetPanelColor;

end;

 

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

    SetPanelColor;

end;

 

procedure TForm1.ScrollBar3Change(Sender: TObject);

begin

    SetPanelColor;

end;

doc
Додано
14 листопада 2018
Переглядів
103
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку