Гостевая книга Ассемблер Delphi

Области.

К сожалению, в класс 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): Cardi nal;

Создает прямоугольную область

 

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 может значения:

rgn_and - включает в результат общие части областей; rgn_copy -копирует область Rgnl В DestRgn; RGN_DIFF - исключает изRgnl часть, принадлежащую Rgn2; rgn_or - объединяет области; rgn_xor -включает в результат только те части областей, которые не принадлежат им одновременно. Область DestRgn уже должна существовать и иметь размеры, достаточные для размещения объединенной области. При обращении к функции createPoiygonRgn параметр Poly FillMode может иметь значения: Alternate И Winding. В первом случае заполнение многоугольника идет последовательно между двумя близлежащими его сторонами: сначала между 1-й и 2-й, затем между 2-й и 3-й и т. д. В режиме winding заполняется все внутреннее пространство области.

Во всех случаях 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, при этом фактически прорисовывается не область, а лишь та часть окна, которая ограничена ею. Любые заливки области, ее очерчивание и объединение с другими областями игнорируются.

назад - Вперёд