Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.11.2008, 20:21   #1
lionman
Пользователь
 
Регистрация: 02.10.2008
Сообщений: 31
По умолчанию Оформление формы

Для того чтобы сделать форму по рисунку я нашел процедуру:
Цитата:
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;
Но у нее недостаток края как будто оборваны. Есть ли более лучший способ создания формы по рисунку?
lionman вне форума Ответить с цитированием
Старый 07.11.2008, 20:37   #2
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Писал сдесь не раз... ищим Windows Layers - слови виндовс.
BOBAH13 вне форума Ответить с цитированием
Старый 07.11.2008, 21:13   #3
lionman
Пользователь
 
Регистрация: 02.10.2008
Сообщений: 31
По умолчанию

Че та на форуме ни че не нашел
lionman вне форума Ответить с цитированием
Старый 08.11.2008, 11:41   #4
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Попробуйте замечательные компоненты FormRGN. Они предназначены для работы с формой и имеют много возможностей: FormRGN.rar
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оформление LIstbox lionman Общие вопросы Delphi 4 28.10.2008 15:40
Оформление кода AnnNet Общие вопросы Delphi 5 22.10.2008 17:30
оформление FIIR Помощь студентам 1 16.06.2008 20:40
оформление текста eks-s Общие вопросы Delphi 4 25.04.2008 13:52