Вы хотите чтобы ваше приложение было замечено потребителем ? Немалую роль в этом играет оформление. Оформление это не только удобный интерфейс и красивые картинки. Как правило запоминаются приложения, которые выделяются из общей массы чем-то особенным. Предлагаю Вам создать формы нестандартной формы. Если Вас интересует создание окон в виде звезды или еще более вычурной формы, то располагайтесь поудобнее и читайте дальше эту статью.

Начнем мы с рассмотрения работы с регионами в Windows. Регион в Windows представляет собой некоторую замкнутую фигуру. Например круг или звезда, или прямоугольник и т.д. Давайте рассмотрим примеры построения таких регионов. Первая функция для построения регионов:

function CreateEllipticRgn (Left,Top,Right,Bottom: integer) : HRGN
Данная функция создает область представляющую собой элипс вписаный в прямоугольник, координаты которого задаются с помощью параметров Left,Top,Right,Bottom. Функция возвращает дескриптор области, с помощью которого можно будет в дальнейшем с ней работать.

function CreateEllipticRgnIndirect( Rect: TRect) : HRGN;
Данная функция по действию аналогична предыдущей, только параметры прямоугольника задаются структурой TRect.

function CreatePolygonRgn(const Points; nPoints, FillMode: integer): HRGN;
Создает регион, форма которого определяется массивом Points, который задается слеующим образом: Points: array [1..nPoints] of TPoint; nPoints , как Вы уже поняли, это количество точек. FillMode - определет какая именно область войдет в регион. Здесь как мне кажется этот параметр особого значения не имеет и как правило устанавливается равным ALTERNATE.

function CreatePolyPolygonRgn(const pPtStruct; const pIntArray; nCount, FillMode: integer): HRGN;
Создает регион, который состоит из нескольких регионов. pPtStruct - это как бы массив массивов, т.е. массив элементами которого являются массивы вида array [1..n] of TPoint, каждый такой элемент представляет собой отдельный регион. pIntArray - массив, элементы которого показывают количестов вершин в соответствующем регионе nCount - количество задаваемых регионов. FillMode - режим заполнения.

function CreateRectRgn (Left,Top,Right,Bottom: integer) : HRGN;
Создает прямоугольный регион.

function CreateRectRgnIndirect( Rect: TRect) : HRGN;
Тоже создает прямоугольный регион, но его положение и размер задаются через структуру TRect.

function CreateRoundRectRgn (Left,Top,Right,Bottom, WidthEl,HeightEl: integer) : HRGN;
Создает прямоугольный регион (размеры Left,Top,Right,Bottom) с закругленными углами. Параметры WidthEl и HeightEl определяют параметры закругления.

Данные регионы можно использовать для построения более сложных регионов, путем комбинирования.

function CombineRgn( Dest, Source1, Source2: HRGN; mode: integer): integer;
Функция комбинирует два региона Source1 и Source2 и получает новый регион Dest. Mode - это режим комбинирования регионов, значения параметра приведены в таблице.

Таким образом мы научились создавать регионы практически любой формы. А теперь научимся изменять форму окна. Для этого применяется следующая функция:

function SetWindowRgn(hWnd: THandle; Rgn: HRGN; RDraw: boolean): integer;
Данная функция для окна с дескриптором hWnd устанавливает новую область отображения, которую определяет созданный регион Rgn. Регион может быть любой формы. Параметр RDraw установленный в TRUE указывает операционной системе перерисовать окно после изменения его области отображения. Т.е. теперь все что есть на форму будет так же работать как и всегда, но отображаться будет только то, что попало в указанный регион.

Сейчас мы рассмотрим еще две полезные функции и после этого построим форму в виде звезды, которая хорошо подойдет для окна About.

function PtInRegion (Rgn: HRGN; X,Y: integer): boolean;
Функция определяет попала ли точка (X,Y) в регион Rgn.

function FrameRgn(DC:THandle;Rgn:HRGN;Brush:THandle;W,H:integer):boolean;
Функция рисует рамку для региона Rgn; DC - дескриптор плотна, на котором рисуем рамку; Brush - кисть которой рисуем; W, H - параметры рамки (ширина и высота).

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

procedure TForm1.FormCreate(Sender: TObject); var Star1,Star2: HRGN; Ver: array [1..11] of TPoint; _Height,_Width,CapY: integer; begin BorderStyle:=bsNone; // обязательно установить, чтобы Windows //не мешалась со своим отображением границы CapY := GetSystemMetrics(SM_CYCAPTION)+8; //получаем высоту заголовока //создаем регион (внешний) Ver[1]:=Point(0,3*height div 10); Ver[2]:=Point(3*width div 10,3*height div 10); Ver[3]:=Point(5*width div 10,0); Ver[4]:=Point(7*width div 10,3*height div 10); Ver[5]:=Point(width,3*height div 10); Ver[6]:=Point(8*width div 10,5*height div 10); Ver[7]:=Point(width,height); Ver[8]:=Point(8*width div 10,9*height div 10); Ver[9]:=Point(2*width div 10,9*height div 10); Ver[10]:=Point(0,height); Ver[11]:=Point(2*width div 10,5*height div 10); Star1:=CreatePolygonRgn(Ver,11,ALTERNATE); //создаем внутренний регион (в виде треугольника) Ver[1]:=Point(5*width div 10,6*height div 10); Ver[2]:=Point(6*width div 10,7*height div 10); Ver[3]:=Point(4*width div 10,7*height div 10); Star2:=CreatePolygonRgn(Ver,3,ALTERNATE); //вычитаем из внешнего региона внутренний CombineRgn(Star1,Star1,Star2,RGN_DIFF); //устанавливаем окну новый регион SetWindowRgn(Handle,Star1,true); DeleteObject(Star2); //удаляем ненужный объект //создаем регион для рамки (внешний) _Width:=width-4; _height:=height-4; Ver[1]:=Point(2,2+3*_height div 10); Ver[2]:=Point(2+3*_width div 10,2+3*_height div 10); Ver[3]:=Point(2+5*_width div 10,2); Ver[4]:=Point(2+7*_width div 10,2+3*_height div 10); Ver[5]:=Point(2+_width,2+3*_height div 10); Ver[6]:=Point(2+8*_width div 10,2+5*_height div 10); Ver[7]:=Point(2+_width,2+_height); Ver[8]:=Point(2+8*_width div 10,2+9*_height div 10); Ver[9]:=Point(2+2*_width div 10,2+9*_height div 10); Ver[10]:=Point(2,2+_height); Ver[11]:=Point(2+2*_width div 10,2+5*_height div 10); rBound:=CreatePolygonRgn(Ver,11,ALTERNATE); //создаем регион для рамки (внутренний) _width:=width+4; _height:=height+4; Ver[1]:=Point(5*_width div 10-2,6*_height div 10-2); Ver[2]:=Point(6*_width div 10-2,7*_height div 10-2); Ver[3]:=Point(4*_width div 10-2,7*_height div 10-2); Star2:=CreatePolygonRgn(Ver,3,ALTERNATE); CombineRgn(rBound,rBound,Star2,RGN_DIFF); DeleteObject(Star2); //создаем регион для заголовка (из большого треугольника вычитаем поменьше) //причем основания треугольников совмещены Ver[1]:=Point(3*width div 10+4,3*height div 10); Ver[2]:=Point(5*width div 10,4); Ver[3]:=Point(7*width div 10-4,3*height div 10); rTitle:=CreatePolygonRgn(Ver,3,ALTERNATE); Ver[1]:=Point(3*width div 10+(4+CapY),3*height div 10); Ver[2]:=Point(5*width div 10,(4+CapY)); Ver[3]:=Point(7*width div 10-(4+CapY),3*height div 10); Star2:=CreatePolygonRgn(Ver,3,ALTERNATE); CombineRgn(rTitle,rTitle,Star2,RGN_DIFF); DeleteObject(Star2); end;

Прошу не забыть предварительно объявит переменные rTitle и rBound. Это можно сделать в разделе private объявления класса:

private rBound,rTitle: HRGN;

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

procedure TForm1.FormPaint(Sender: TObject); begin //рисуем рамку. Сначала мы рисуем широкую серую оконтовку //а затем на ней более узкую белую, добиваясь этим //некторого подобия трехмерности. Canvas.Brush.Color:=clGray; FrameRgn(Canvas.Handle,rBound,Canvas.Brush.Handle,2,2); Canvas.Brush.Color:=clWhite; FrameRgn(Canvas.Handle,rBound,Canvas.Brush.Handle,1,1); //а теперь отображаем заголовок Canvas.Brush.Color:=clBlue; PaintRgn(Canvas.Handle,rTitle); //здесь можно нарисовать текст на загловке кнопочки и т.д. end;

Надеюсь листинг комментирован достаточно для хорошего понимания, тем более что функции были описаны в начале статьи. Теперь рассмотрим принцип перетаскивания окна за новый заголовок, для этого нам надо обрабатывать сообщение WM_NCHITTEST (как это сделать см. статью 'Перетаскивание окна за рабочую область'), теперь задача стоит немного другая и с ней справляется слеующий листинг:

procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST); begin inherited; //вызываем обработчик по умолчанию WITH Msg DO //переводим экранные координаты в оконные и работаем с ними WITH ScreenToClient(Point(XPos,YPos)) DO //если нажатие было над регионом заголовка //то дать знать об этом Windows, остальное она сделает за вас IF PtInRegion(rTitle, X, Y) THEN Result := htCaption; end;

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

• программист