Question

Написати програму в якій вікно має розміри 500 на 300 пікселів, є три поля, розташовані в один рядок, ширина кожного - 100 пікселів, висота - 50 пікселів, поля мають різний колір, а шрифт arial ДОПОМОЖІТЬ БУДЬ ЛАСКА

Answer 1

uses GraphABC;

begin

SetWindowSize(500, 300);

SetWindowTitle('Three Fields');

var field1 := RectangleABC.Create(10, 10, 110, 60);

field1.BrushColor := Color.Red;

var field2 := RectangleABC.Create(120, 10, 220, 60);

field2.BrushColor := Color.Green;

var field3 := RectangleABC.Create(230, 10, 330, 60);

field3.BrushColor := Color.Blue;

var label1 := LabelABC.Create(20, 20, 'Field 1');

label1.Font.Name := 'Arial';

label1.Font.Size := 14;

var label2 := LabelABC.Create(130, 20, 'Field 2');

label2.Font.Name := 'Arial';

label2.Font.Size := 14;

var label3 := LabelABC.Create(240, 20, 'Field 3');

label3.Font.Name := 'Arial';

label3.Font.Size := 14;

end.