Класс TCanvas - Программирование от RIN.RU

Области

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

uses 
    Forms, Unit1 in 'Unitl.pas' {Formi}, Windows; // Этот модуль экспортирует функции API 

  
{$R *.RES} 

  
var 
   Rgn: Cardinal; 
begin 
  // Сначала создаем обычное окно: 
  Application.CreateForm(Tform1, Form1); 
  with Formi.Canvas, Formi do 
    begin 
      // Теперь создаем в нем эллиптическую область 
      Rgn := CreateEllipticRgn(0, 0, Width, Height); 
      // и показываем ее вместо окна 
      SetWindowRgn(Handle, Rgn, True); 
    end; 
  Application.Run; 
end.

Ниже перечислены основные функции для работы с областями.

Работа с областями

**Работа с областями**
function CombineRgn(DestRgn, Rgnl, Rgn2: Cardinal; Com-bineMode: Ineger): Integer;	Объединяет две области в одну: DestRgn - дескриптор результирующей области; Rgnl, Rgn2 -дескрипторы объединяемых областей; CombineMode - параметр, указывающий способ объединения; этот параметр, а также возвращаемое значение описаны ниже
function CreateEllipticRgn(XI, Yl, X2, Y2: Integer) : Cardinal;	Создает эллиптическую область
function CreatePoly-gonRgn(var Points; Count, PolyFillMode: Integer): Cardinal;	Создает область в виде многоугольника: Points - массив координат всех вершин многоугольника; Count - количество вершин; PolyFillMode -режим заполнения многоугольника (см. ниже)
function CreateRectRgn(XI, Yl, X2, Y2: Integer): Cardinal;	Создает прямоугольную область
function CreateRoundRectRgn(Xl, Yl, X2, Y2, X3, Y3: Integer): Cardinal;	Создает область со скругленными углами; параметры обращения иллюстрирует
function EqualRgn(Rgnl,Rgn2: Cardibal): Bool;	Проверяет эквивалентность двух областей
function FillRgn(DC, Rgn,Brush: Cardinal): Bool;	Закрашивает область кистью: DC - дескриптор канвы окна; Rgn - дескриптор области; Brush - дескриптор кисти
function FrameRgn(DC, Rgn,Brush: Cardinal; Width,Height: Integer): Bool;	Обводит (но не заполняет) область кистью высотой Height и шириной Width пикселей
function InvertRgn(DC, Rgn:Cardinal): Bool;	Инвертирует все пиксели внутри области
function OffsetRgn(DC, Rgn:Cardinal; dX, dY: Integer):Integer;	Смещает область на dX по горизонтали и на dY по вертикали
function PaintRgn(DC, Rgn:Cardinal): Bool;	Закрашивает область текущей кистью
function PtInRegion(Rgn:Cardinal; X, Y: Integer):Bool;	Проверяет принадлежность точки (X,Y) области Rgn
function RectInRegion(Rgn:Cardinal; Rect: TRect):Bool;	Проверяет принадлежность прямоугольника Rect области Rgn
function SetWindowRgn(DC,Rgn: Cardina; Redraw: Bool): Integer	Показывает принадлежащую окну с канвой DC область Rgn вместо окна; Redraw- разрешает/запрещает перерисовку области; все не вошедшие в область части окна не показываются (см. ниже)

Параметр combineMode в функции combineRgn может значения:

Во всех случаях Windows автоматически проводит линию между последней и первой точкой многоугольника, делая его замкнутым.

unit Unit1; 
interface 

  
uses 
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; 
tуре 
   Tform1 = class (TForm) 
      PaintBoxl: TPaintBox; 
      PaintBox2: TPaintBox; 
      Button1: TButton; 


      procedure ButtonlClick(Sender: TObject); 

  
private 
   { Private declarations } 

  
public 
{ Public declarations } 
end; 

  
var 
  Form1: Tform1; 


implernentation 

  
$R *.DFM) 

  
procedure TFormI.ButtonlClick(Sender: TObject); 

  
var 
   Rgnl, Rgn2: Cardinal; 

 
const 
   Points: array [1..5, 1..2] of Integer = C(91, 0), (160, 183), (0, 70), (183, 70), (23, 183)); 

  
begin 
  Rgn1 := CreatePolygonRgn(Points, 5, Alternate); 
  Rgn2 := CreatePolygonRgn(Points, 5, Winding); 
  with PaintBoxl.Canvas do 
    begin 
      Brush.Color := clBlack; 
      FillRgn(Handle, Rgnl, Brush.Handle); 
    end; 
  with PaintBox2.Canvas do 
    begin 
      Brush.Color := clBlack; 
      FillRgn(Handle, Rgn2, Brush.Handle) ; 
   end; 
end; 

  
end.

Обратите внимание: прорисовка и объединение областей доступны, только если области видны в окне (для создания предыдущего рисунка нельзя, например, использовать обработчик формы OnActivate).

Функция SetWindowRgn, как уже отмечалось, поручает прорисовку окна самой Windows, при этом фактически прорисовывается не область, а лишь та часть окна, которая ограничена ею. Любые заливки области, ее очерчивание и объединение с другими областями игнорируются.