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

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

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.10.2006, 20:11   #1
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию Прозрачный фон в ТMemo

Sion
Мужики не у кого нет реализации прозрачного фона в TMemo? Буду премного благодарен.
rpy3uH вне форума Ответить с цитированием
Старый 30.10.2006, 20:16   #2
rpy3uH
добрый няша
Старожил
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,804
По умолчанию

rpy3uH
если тебе надо чтобы в форме была дырка то так
form1.transparenrcolor:=true;
form1.transparentcolorvalue:=form1. memo1.color;
и всё будет пучком!!!
zetrix
Хех, ну при таком раскладе Memo - полностью прозрачное! Рабочий стол видно! А думаю ему надо как у label фон прозрачный был (форма сзади видна была).
sion
Хех, ну при таком раскладе Memo - полностью прозрачное! Рабочий стол видно! А думаю ему надо как у label фон прозрачный был (форма сзади видна была).
rpy3uH
аааа, понял
для этого вроде сть какое то значение цвета фона
короче есть такой специальный цвет который прозрачный
sion
Базара нет с ярлыками на рабочем столе в 98-х виндах точно канает (цвет -1), а вот тут полюбому облом. Пробывал так:
var
DC: hDC;
i: integer;
p: TPoint;
begin
DC := GetDC(Memo1.Handle);
i := SaveDC(DC);
p := GetScreenClient(Memo1);
p.x := -p.x;
p.y := -p.y;
MoveWindowOrg(DC, p.x, p.y);
SendMessage(Form1.Handle, $0014, DC, 0);
Form1.PaintControls(DC, nil);
RestoreDC(DC, i);

end;
но не то, если под мемо другой мемо то его не видно.
Ты кстати с
SetLayeredWindowAttributes(hWnd, RGB(0, 0, 0), 0, LWA_COLORKEY)
и
SetLayeredWindowAttributes(hWnd, RGB(0, 0, 0), 0(Прозрачность),LWA_ALPHA)
не общался я думаю с их помощью реализовать. Только окно должно быть создано через CreateWindowEx, а к готовой форме можно применить вот это SetWindowLong(hWnd, GWL_EXSTYLE, WS_EX_LAYERED).
rpy3uH
попробуй использовать
SetLayeredWindowAttributes(hWnd, RGB(0, 0, 0), 0(Прозрачность),LWA_ALPHA)
тоже нормально
но этой функцией не пользовался поэтому немогу сказать ничего плохого
rpy3uH вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прозрачный PageControl Nemez Компоненты Delphi 7 23.07.2008 06:58
ТMemo и файлы... GAGARIN-NEW Компоненты Delphi 13 29.03.2008 22:26
Прозрачный фон формы Yogik™ Помощь студентам 2 03.01.2008 08:53
прозрачный Image Roof Помощь студентам 8 27.07.2007 12:15
Прозрачный фон Label Alar Компоненты Delphi 0 30.10.2006 00:38