Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Прозрачный TCustomControl 
:(
    Опции темы
mhalion
Дата 18.1.2008, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 113
Регистрация: 18.2.2007

Репутация: -4
Всего: нет



Подскажите пожалуйстаsmile
Нашел много инфы по прозрачности и полупрозрачности (и на этом форуме тоже), но вот что-то ника единую мысль не могу уловить.
У меня есть наследник от TCustomControl и мне нужно чтобы его задный фон был прозрачным. И чтобы на нем я мог выводить изображения любой формы
??????
PM MAIL   Вверх
Alexeis
Дата 18.1.2008, 12:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



  родных виндовых средств нет, разве что сделать сложный регион по форме непрозрачной части.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
mhalion
Дата 18.1.2008, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 113
Регистрация: 18.2.2007

Репутация: -4
Всего: нет



Ну ладненько пусть у меня есть битмап с clWhite фоном. Так вот необходимо, чтобы мой регион содержал все точки кроме точек с цветом clWhite. Хотя бы ссылочкуsmilesmile Заранее спасибо...

Добавлено через 11 минут и 14 секунд
И ещё момент не могу в конструкторе получить
constructor TSimpleControl.Create(AOwner : TComponent);
var
  LRgn: HRgn;
  LHwnd : HWnd;
begin
  inherited Create(AOwner);
  LHwnd := Self.Handle; // << Вылезает эксепшн о том что нет родительского окна
  GetWindowRgn(LHwnd , LRgn);
  DeleteObject(LRgn);
  LRgn := CreateRoundRectRgn(1, 1, Width - 1, Height - 1, Width, Height);
  SetWindowRgn(LHwnd , LRgn, TRUE);
end;

Что не так???
PM MAIL   Вверх
mhalion
Дата 18.1.2008, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 113
Регистрация: 18.2.2007

Репутация: -4
Всего: нет



Т.е. тоже самое с формой прокатывает, а с TCustomControl НЕТ(((((
PM MAIL   Вверх
MetalFan
Дата 18.1.2008, 16:47 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128



обращайся к хэндлу после назначения Parent'а этому контролу


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Prof_2000
Дата 18.1.2008, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 121
Регистрация: 26.3.2005
Где: Харьков, Украина

Репутация: 1
Всего: 1



Вот пример для контрола с простым регионом(круг).  Для любых других регионов - аналогично.

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

Присоединённый файл ( Кол-во скачиваний: 16 )
Присоединённый файл  Main.pas 1,91 Kb
--------------------
Pereant qui ante nos nostra dixerunt! (лат.)      Да погибнут те, кто раньше нас высказал наши мысли!   
PM MAIL WWW ICQ   Вверх
mhalion
Дата 18.1.2008, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 113
Регистрация: 18.2.2007

Репутация: -4
Всего: нет



Спасибо огромноеsmile
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0482 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.