Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Форма окна по картинке

Delphi , Программа и Интерфейс , Формы

Форма окна по картинке

Автор: Nikolay
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Создание непрямоугольных окон.

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

Зависимости: Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms.
Автор:       Nikolay, hapnik@mail.ru, Moscow
Copyright:   http://delphi.mastak.ru
Дата:        27 апреля 2002 г.
***************************************************** }

// Свойства окна небходимо поставить
//Borders=None
var
  regn, tmpRegn: integer; // регион окна и временный регион
  x, y: integer; // координаты пикселя
  nullClr: TColor; // «прозрачный цвет»
begin
  nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
  // Image1 это картинка по которой создается форма окна
  regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,
    image1.picture.Graphic.Height);
  for x := 1 to image1.picture.Graphic.Width do
    for y := 1 to image1.picture.Graphic.Height do
      if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
      begin
        tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
        CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
        DeleteObject(tmpRegn);
      end;
  SetWindowRgn(form1.handle, regn, true);
end;

Статья Форма окна по картинке раздела Программа и Интерфейс Формы может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Формы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
28.03.2024 14:01:29/0.069382905960083/0