Тема: Transparent
Показать сообщение отдельно
  #2  
Старый 15.07.2007, 23:49
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

Ну, например, вот этот кусочек кода сделает часть окна - "дыркой"...
Код:
var
  R1:DWORD;
  R2:DWORD;
begin

  R1 := CreateRectRgn(0,0,301,283);
  R2 := CreateRectRgn(254,215,290,230);
  CombineRgn(R1,R1,R2,COMPLEXREGION);
  SetWindowRgn(Handle,R1,TRUE);

end;
Тут с цифрами поигать можно. Писал по памяти, мог ошибиться...
Найти место именно определенного цвета можно пытаться через компоненты (если они конечно имееют сво-во color), которыем мы хотим сделать прозрачными...Можно положить на форму какой-нибудь Label и вычислять его Rect, закрашивать цветом и делать полупрозрачность\прозрачность. А вот как реализовать полупрозрачность в определенной области я бы и сам хотел узнать...
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием