створіть проєкт у якому в результаті настання події create (Exsplose) зміняться розміри вікна,колір фону і зменшиться на 100 пікселів відступ його лівої межі від лівої межі екрана.Pascal
Ответы
Ответ:
Объяснение:
program Project1;
uses
crt, graph;
var
gd, gm: integer;
event: char;
begin
gd := detect;
initgraph(gd, gm, '');
{ Встановлюємо початкові значення розмірів вікна та його фону }
setcolor(white);
setbkcolor(black);
cleardevice;
rectangle(100, 100, 500, 400);
{ Встановлюємо початкове значення відступу лівої межі вікна від лівої межі екрана }
setviewport(100, 0, 500, 400, true);
repeat
{ Очікуємо на подію "Exsplose" }
if keypressed then
event := readkey;
if event = 'e' then
begin
{ Змінюємо розміри вікна та його фон }
cleardevice;
rectangle(200, 200, 600, 500);
setbkcolor(red);
{ Зменшуємо відступ лівої межі вікна від лівої межі екрана на 100 пікселів }
setviewport(0, 0, getmaxx - 100, getmaxy, true);
end;
until event = 'q';
closegraph;
end.