Инструменты пользователя

Инструменты сайта


subjects:programming:pascal:pascalabc:graphabc

PascalABC:GraphABC

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

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

uses GraphABC;

В справке

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

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

Рисование

Некоторые цвета

КонстантаЦвет
clBlackЧёрный
clPurpureФиолетовй
clWhiteБелый
clRedКрасный
clGreenЗелёный
clBlueСиний
clYellowЖёлтый
clLtGrayСветло-серый
clGrayСерый
clDkGrayТёмно-серый

Пример рисования

Program Figurka;
uses GraphABC;
begin
	SetWindowCaption("Title");	// задаем заголовок графического окна
	SetWindowSize(800, 600);	// задаем размер графического окна
	CenterOnScreen;			// центрируем графическое окно по центру экрана
 
	ClearWindow(clWhite);		// очищаем окно указанным цветом
	SetBrushColor(clPurpure);	// устанавливаем цвет кисти
 
	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.

События

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

События

СобытиеОбработчик
OnMouseDownprocedure (x, y, mousebutton: integer);
OnMouseUpprocedure (x, y, mousebutton: integer);
OnMouseMoveprocedure (x, y, mousebutton2): integer);
OnKeyDownprocedure (key: integer);
OnKeyUpprocedure (key: integer);
OnKeyPressprocedure (ch: char);
OnResizeprocedure;
OnCloseprocedure;

Код некоторых клавиш

  • 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.
1)
В Linux-версии PascalABC.NET не будет работать ряд модулей: в частности, все графические модули. Информация на 2018 г.
2)
0кнопка мыши не нажата
1левая кнопка мыши
2правая кнопка мыши
subjects/programming/pascal/pascalabc/graphabc.txt · Последние изменения: 2018/06/19 12:59 —

На главную страницу Обучение Wikipedia Тестирование Контакты Нашли ошибку? Справка

Записаться на занятия

Ошибка Записаться на занятия к репетитору

Телефоны:

  • +7 (910) 874 73 73
  • +7 (905) 194 91 19
  • +7 (831) 247 47 55

Skype: eduVdom.com

закрыть[X]
Наши контакты