Информационный проект Ynks.Net - Статьи, форум, софт, практические советы, обои, Flash-игры, иконки, CMS Главная :: Поиск :: Статистика :: Аккаунт
Все статьи :: Безопасность :: Статьи по железу :: ОС и Софт :: Интернет и сети :: Связь
Обои :: Наборы иконок :: CMS :: Софт :: Flash - игры
Добавить статью :: Обратная связь
 
 


  Реклама

 

  Авторизация

Логин

Пароль

Не зарегистрировались? Вы можете сделать это, нажав здесь. Когда Вы зарегистрируетесь, Вы получите полный доступ ко всем разделам сайта.
 

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

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

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 и по выводу текста, в частности, отсутствуют возможности вывода вертикального текста и текста под произвольным углом.

Автор: Андрей Садовой
Источник: www.delphiplus.org

 
 
  Связанные ссылки

· Больше про Программы, ОС, их настройка и установка
· Новость от admin


Самая читаемая статья: Программы, ОС, их настройка и установка:
Оптимизация Windows Vista

 

  Рейтинг статьи

Средняя оценка: 0
Ответов: 0

Пожалуйста, проголосуйте за эту статью:

Отлично
Очень хорошо
Хорошо
Нормально
Плохо

 

  опции


 Напечатать текущую страницу Напечатать текущую страницу

 





 
 
Ynks.Net © 2005-2010