Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11650
Последний выпуск: 19.06.2015

Области и API-функции работы с ними

Автор: Садовой А.Г.
26 марта 2006 года

В класс TCanvas Delphi не входит интересный графический объект Windows - область (Region). Область формируется из простейших геометрических фигур, таких как эллипс, многоугольник и т.п. С помощью областей можно значительно разнообразить графическое оформление своих программ. Появляются такие возможности, например, как создание эллиптических или другой формы кнопок, окон. Замечу, что именно для таких применений целесообразно использовать области. Для обычного рисования вполне достаточно средств класса TCanvas.

Для создания нестандартного окна нужно лишь немного изменить файл проекта. Следующий пример делает форму эллиптической (привожу файл проекта полностью):

program Project1;

Uses

Forms,
Unit1 in 'Unit1.pas' {Form1}, 
Windows; // добавляем сами (функции API)
 
{$R *.RES} 
 
var
   Region: Cardinal; // добавляем переменную
Begin
	Application.Initialize;
         Application.CreateForm(TForm1, Form1);
	// добавляем в стандартный файл проекта несколько строк:
          with Form1.Canvas, Form1 do
          begin
                Region := CreateEllipticRgn(0, 0, Width, Height);
                SetWindowRgn(Handle, Region, True);
         end;
Application.Run;
end.

Как видно, мы добавили вызов двух функций API: CreateEllipticRgn и SetWindowRgn. Эти функции будут описаны ниже.

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

procedure TForm1.Button1Click(Sender: TObject);
var
   Region: Cardinal;
begin
  with Button1 do
    begin
     Region := CreateRoundRectRgn(0, 0, Width, Height, 20, 20);
     SetWindowRgn(Handle, Region, True);
   end;
end;

Запустите проект и щелкните по кнопке. В результате кнопка станет скругленной по углам. Скругление углов производит функция CreateRoundRectRgn.

В таблице 1 приведены описания функций API по созданию областей различной формы:

Таблица 1.

function CreateEllipticRgn(X1, Y1, X2, Y2: Integer) : Cardinal;

Создает эллиптическую область.

  • X1 - координата по горизонтали верхнего левого угла ограничивающего прямоугольника;
  • Y1 - координата по вертикали верхнего левого угла ограничивающего прямоугольника;
  • X2 и Y2 - аналогично для нижнего правого угла ограничивающего прямоугольника.
function CreateRoundRectRgn(X1, Y1, X2, Y2, H, W: Integer): Cardinal;

Создает область "прямоугольник со скругленными углами".

  • X1 - координата по горизонтали верхнего левого угла области;
  • Y1 - координата по вертикали верхнего левого угла области;
  • X2 и Y2 - аналогично для нижнего правого угла области;
  • H - высота эллипса для скругленных углов;
  • W - ширина эллипса для скругленных углов.
function CreatePolygonRgn(Const Points; Count, PolyFillMode: Integer): Cardinal;

Создает область в виде многоугольника.

  • Points - двумерный массив координат всех вершин многоугольника или массив TPoint этих вершин;
  • Count - количество вершин; PolyFillMode -режим заполнения многоугольника. PolyFillMode может иметь значения: ALTERNATE и WINDING. В режиме ALTERNATE заполнение многоугольника идет последовательно между двумя близлежащими его сторонами: сначала между 1-й и 2-й, затем между 2-й и 3-й и т. д. В режиме WINDING заполняется все внутреннее пространство области. Во всех случаях автоматически соединяются последняя и первая точки.
function CreateRectRgn(X1, Y1, X2, Y2: Integer): Cardinal;

Создает область в виде прямоугольника.

  • X1 - координата по горизонтали верхнего левого угла прямоугольника;
  • Y1 - координата по вертикали верхнего левого угла прямоугольника;
  • X2 и Y2 - аналогично для нижнего правого угла прямоугольника.

Следующая, упоминавшаяся в примерах функция - SetWindowRgn - имеет следующее описание:

function SetWindowRgn (DC, Rgn: Cardinal; Redraw: Bool): Integer; 

Выводит принадлежащую окну с канвой DC область Rgn вместо окна; Redraw- разрешает (True) / запрещает (False) перерисовку области; все не вошедшие в область части окна не показываются. Любые заливки области, ее очерчивание и объединение с другими областями игнорируются.

В таблице 2 приводятся дополнительные функции API по работе с областями:

Таблица 2.

function CombineRgn(DestRgn, Rgn1, Rgn2: Cardinal; CombineMode: Ineger): Integer; Объединяет две области в одну.
  • DestRgn - дескриптор результирующей области;
  • Rgn1, Rgn2 -дескрипторы объединяемых областей;
  • CombineMode - параметр, указывающий способ объединения.

Параметр CombineMode может иметь следующие значения:

  • RGN_AND- включает в результат общие части областей;
  • RGN_COPY- копирует область Rgn1 в DestRgn;
  • RGN_DIFF- исключает из Rgn1 часть, принадлежащую Rgn2;
  • RGN_OR- объединяет области;
  • RGN_XOR- включает в результат только те части областей, которые не принадлежат им одновременно.

До применения функции область DestRgn уже должна существовать и иметь размеры, достаточные для размещения объединенной области.

function EqualRgn(Rgn1,Rgn2: Cardinal): Bool; Проверяет эквивалентность двух областей. Rgn1, Rgn2 - дескрипторы сравниваемых областей.
function FillRgn(DC, Rgn,Brush: Cardinal): Bool; Закрашивает область кистью.
  • DC - дескриптор канвы окна;
  • Rgn - дескриптор области;
  • Brush - дескриптор кисти.
function FrameRgn(DC, Rgn,Brush: Cardinal; Width,Height: Integer): Bool; Обводит область кистью высотой Height и шириной Width пикселей.
  • DC - дескриптор канвы окна;
  • Rgn - дескриптор области;
  • Brush - дескриптор кисти.
function InvertRgn(DC, Rgn:Cardinal): Bool; Инвертирует цвет всех точек внутри области.
  • DC - дескриптор канвы окна;
  • Rgn - дескриптор области.
function OffsetRgn(DC, Rgn:Cardinal; dX, dY: Integer):Integer; Смещает область на dX по горизонтали и на dY по вертикали.
  • DC - дескриптор канвы окна;
  • Rgn - дескриптор области.
function PaintRgn(DC, Rgn:Cardinal): Bool; Закрашивает область текущей кистью.
  • DC - дескриптор канвы окна;
  • Rgn - дескриптор области.
function PtInRegion(Rgn:Cardinal; X, Y: Integer):Bool; Проверяет принадлежность точки (X,Y) области с дескриптором Rgn.
function RectInRegion(Rgn:Cardinal; Rect: TRect):Bool; Проверяет принадлежность прямоугольника Rect области с дескриптором Rgn.

Данная статья призвана восполнить недостающие возможности класса TCanvas среды Delphi по работе с областями. В классе TCanvas недостает некоторых возможностей Windows и по выводу текста, в частности, отсутствуют возможности вывода вертикального текста и текста под произвольным углом. Попытку восполнить этот пробел я сделал в другой моей статье - "Вывод текста средствами API".

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

1.
98K
06 октября 2016 года
Olga Doroshkevich
0 / / 06.10.2016
Мне нравитсяМне не нравится
22 декабря 2016, 20:52:31
получилась и закругленная кнопка и элипсом окно. спасибо.
22.12.2016г.
2.
289
19 ноября 2005 года
sadovoya
757 / / 19.11.2005
Мне нравитсяМне не нравится
3 октября 2006, 12:07:57
У меня все работало и в Windows 2000 SP4 и в Windows 98.
3.
4.4K
03 февраля 2005 года
StranikS
44 / / 03.02.2005
Мне нравитсяМне не нравится
19 июня 2006, 09:20:14
Следует обратить внимание пользователя на то, что поддержка регионов входит в API ОС начиная с Windows XP.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог