PascalABC:GraphABC

Модуль GraphABC (входит в состав PascalABC) отличается от стандартного модуля Graph и предназначен только для работы в ОС семейства Windows¹⁾.

Для его подключения используется следующий код:

uses GraphABC;

В справке PascalABC, в разделе Стандартные модули : Модуль GraphABC:

• Подпрограммы для работы с графическим окном - управление окном
  (есть и в объектно-ориентированном стиле)
• Графические примитивы - какие ещё фигуры можно рисовать
• Цветовые константы - какие цвета можно использовать
• События - более подробно о событиях
• Виртуальные коды клавиш - для событий OnKeyDown и OnKeyUp

Program Figurka;
uses GraphABC;
begin
	SetWindowCaption('Title');	// задаем заголовок графического окна
	SetWindowSize(800, 600);	// задаем размер графического окна
	// CenterOnScreen;		// центрируем графическое окно по центру экрана
 
	ClearWindow(clWhite);		// очищаем окно указанным цветом
	SetBrushColor(clGreen);		// устанавливаем цвет кисти (закрашивание)
	SetPenColor(clRandom);		// устанавливаем цвет пера (границы)
 
	SetPixel(10,10,clBlack);	// закрашивает один пиксель(x,y,color)
	Circle(200,100,50);		// рисуем окружность (x,y,r)
	Line(200,100,400,200);		// рисуем линию (x1,y1,x2,y2)
	Rectangle(200,300,250,350);	// рисуем прямоугольник (x1,y1,x2,y2)
 
	Sleep(1000);			// пауза в мс.	
 
	SetFontColor(clBlack);		// устанавливаем цвет шрифта
	SetFontSize(20);		// устанавливаем размер шрифта в pt
	TextOut(300,10,'a+b=c');	// выводим текст (x,y,string)
end.

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

• VK_Left
• VK_Right
• VK_Up
• VK_Down
• VK_Enter
• VK_Space
• VK_A
• VK_B
• …

Используется для событий OnKeyDown и OnKeyUp.

Program MouseCircle;
uses GraphABC;
 
procedure DoMouseDown(x,y,mb: integer);	// Процедура-обработчик
begin
	if mb=1 then begin
		ClearWindow;
		Circle(x,y,50);		// рисуем окружность (x,y,r)
	end;
end;
 
begin
	OnMouseDown := DoMouseDown;	// Привязка обработчика к событию
end.