[ главная ]   [ рейтинг статей ]   [ справочник радиолюбителя ]   [ новости мира ИТ ]



Ответов: 0
25-02-12 07:01







   Web - программирование
PHP


ASP






XML



CSS

SSI





   Программирование под ОС











   Web - технологии








   Базы Данных









   Графика






Данные




Программирование под ОС / Pascal - Delphi /

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

В класс 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.

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

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

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

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.




Комментарии

 Ваш комментарий к данному материалу будет интересен нам и нашим читателям!



Последние статьи: Программирование под ОС / Pascal - Delphi /

Работа со шрифтами на Win API
06-06-2010   

Сегодня поговорим о шрифтах, и о том, каким образом работать с ними на Win API. Нам потребуется переменная типа HFONT. Изменить стиль шрифта можно у любого компонента, я покажу это на примере кнопки... подробнее

Кол. просмотров: общее - 4892 сегодня - 0

Работа с таймером на Win API
06-06-2010   

Таймер - вещь в хозяйстве очень полезная. Если некое действие нужно повторять с определенной периодичностью, то таймер, это как раз то, что нужно... подробнее

Кол. просмотров: общее - 4905 сегодня - 0

Работа с мультимедийным таймером на Win API
06-06-2010   

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

Кол. просмотров: общее - 5052 сегодня - 0

Создание CheckBoxов средствами Win API
06-06-2010   

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

Кол. просмотров: общее - 5287 сегодня - 0

Создание группы RadioButton средствами Win API
06-06-2010   

В прошлый раз мы сделали несколько радио-кнопок, которые автоматически объединялись в одну группу. Сейчас рассмотрим, как создавать несколько независимых групп радио-кнопок... подробнее

Кол. просмотров: общее - 4932 сегодня - 1



  WWW.COMPROG.RU - 2009-2012 | Designed and Powered by Zaipov Renat | Projects