Как разделить экран на две области GraphABC

[Eegorr]

Для GraphABC
Как разделить экран по диагонали на две области.

Мне нужно что бы получился разделенный по диагонали экран, с двумя областями.

Вероятнее всего с помощью команд:
windowwidth & windowheight

Это нужно все для того, что бы при клике на разную область появлялись указанные слова.

Пример разделенного окна на ровные 4 части.

111 if(x>0)and(x<windowwidth div 2)and(y>0)and(y<windowheight div 2) then
else if(x>windowwidth div 2)and(x<windowwidth)and(y>0)and(y<w indowheight div 2) then
else if(x>0)and(x<windowwidth div 2)and(y>windowheight div 2)and(y<windowheight) then
else if(x>windowwidth div 2)and(x<windowwidth)and(y>windowhei ght div 2)and(y<windowheight) then

[Eegorr]

Pascal

uses GraphABC;
 
const
  Gren = RGB(0, 192, 0);
  Red  = RGB(192, 0, 0);
 
procedure Ups(x, y, btn : Integer);
 
  procedure Show(x, y : Integer; c : Color; msg : String);
  begin
    Font.Color := c;
    Pen.Color := c;
    Circle(x, y, 1);
    TextOut(x + 5, y - 5, msg);
  end;
  
begin
  if x / y > Window.Width / Window.Height then
    Show(x, y, Gren, '1 часть')
  else
    Show(x, y, Red , '2 часть');
end;
 
begin
  Line(0,0,Window.Width,Window.Height);
  Brush.Style := bsClear;
  Pen.Width := 2;
  onMouseDown := Ups;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор