Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Подписаться Бесплатный дискуссионный лист Подписчиков 308
←   Май 2004   →
 1
 2
 3
 4
04.05.2004
13:50:29
19:05:00
 5
 6
 7
 8
 9
10
11
11.05.2004
03:45:55
20:11:33
12
13
14
15
16
17
18
19
19.05.2004
06:23:09
22:02:26
20
21
21.05.2004
10:37:37
20:32:15
22
23
24
24.05.2004
12:46:15
22:01:04
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт листа: http://codeguru.ru
Открыт: 21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес модератора: comp.soft.prog.prog-owner@subscribe.ru

Модератор
3V

Статистика

308 подписчиков
0 за неделю

WinAPI|Delphi - Transparent

-=[7 мая 2004 г.]=-
Hi!

Как сделать окно прозрачным (полупрозрачным)???

--
-=[ -B0rM@N- ]=- ICQ: 239-535-374
~Вечер (0.00) [*********-Утро (8.00)-############ ] Вечер (0.00)~
mailto:BormanSubscri***@u*****.net - т0льк0 для р@((ь|лkи ,)
mailto:Boris_Kolupa***@u*****.net - личнь|й [Redirect to Mobile Phone]
Номер выпуска : 3000
Возраст листа : 229 (дней)
Количество подписчиков : 394
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/140668
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   "-=[-B0rMaN-]=-" Fri, 7 May 2004 20:22:22 +0300 (#140668)

 

Ответы:

Здоровеньки булы, -=[-B0rMaN-]=-!

7 мая 2004 г., пятница, 22:22:22 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "WinAPI|Delphi - Transparent",
в котором сообщалось следующее:

BorMan хватит удалять письма - этот вопрос был уже несколько раз
(первый раз я задал ;) tnx moderator)

function SetLayeredWindowAttributes(HWND: hwnd; crKey: COLORREF; bAlpha: BYTE;
dwFlags: DWORD): BOOL; stdcall; external 'User32.dll';

procedure TFormMain.TimerTimer(Sender: TObject);
const LWA_ALPHA=2;
LWA_COLORKEY=1;
begin
If Timer.Tag = 255 Then Timer.Tag := -255;
If Timer.Tag > 0 Then
SetLayeredWindowAttributes(Handle, clBlack, Timer.Tag, LWA_ALPHA or LWA_COLORKEY)
Else
SetLayeredWindowAttributes(Handle, clBlack, Timer.Tag, LWA_ALPHA or LWA_COLORKEY);
Timer.Tag := Timer.Tag+1;

end;

Ответить   Томилов Александр Sat, 8 May 2004 14:44:13 +0500 (#140837)

 

-=[Прив!]=-
8 мая 2004 г. /суббота 12:44:13/ Томилов |E-Mail: <mailto:astero***@p*****.ru>|
в мессаге <<WinAPI|Delphi - Transparent>> накрапал:
[B~E~G~I~N~>

BorMan хватит удалять письма - этот вопрос был уже несколько раз
(первый раз я задал ;) tnx moderator)

[E|.|N|.|D|.>

Да меня тут вирь здорово потрепал (~140 зараженных файликов было, в том числе
и часть БАТ'овских папок :( ), так что пришлось грохнуть часть рассылки :(

Короче, спасибо за помощь, вопрос закрыт, буду разбиратся, так как ты там чего-то
напутал (мне так кажется)!!!

If Timer.Tag > 0 Then
SetLayeredWindowAttributes(Handle, clBlack, Timer.Tag, LWA_ALPHA or LWA_COLORKEY)
Else
SetLayeredWindowAttributes(Handle, clBlack, Timer.Tag, LWA_ALPHA or LWA_COLORKEY);

В If и Else абсолютно одинаковые строки! :(

P.s. И остальные вопросы на тему WinAPI|Delphi ... тоже!

Ответить   "-=[-B0rMaN-]=-" Sat, 8 May 2004 21:39:56 +0300 (#141044)

 

-=[Бодрого времени сУток!]=-
8 мая 2004 г. /суббота 12:44:13/ Томилов |E-Mail: <mailto:astero***@p*****.ru>|
в мессаге <<WinAPI|Delphi - Transparent>> накрапал:
[B~E~G~I~N~>
Томилов> Здоровеньки булы, -=[-B0rMaN-]=-!
Томилов> 7 мая 2004 г., пятница, 22:22:22 (GMT+05:00), пришел ко мне
Томилов> почтальон Почкин и всучил письмо с пометкой
Томилов> "WinAPI|Delphi - Transparent",
Томилов> в котором сообщалось следующее:
~~~< Message on address 0x00000000 cannot be read (written) >Томилов> Else
Томилов> SetLayeredWindowAttributes(Handle, clBlack,
Томилов> Timer.Tag, LWA_ALPHA or LWA_COLORKEY);
Томилов> Timer.Tag := Timer.Tag+1;
Томилов> end;

[E|.|N|.|D|.>
Народ, я тут покопался - все намного проще!!! На форме есть AlphaBlendValue 0-255.
Именно это и устанавливает прозрачность формы!!!

Ответить   "-=[-B0rMaN-]=-" Sun, 9 May 2004 00:16:06 +0300 (#141085)

 

Здоровеньки булы, -=[-B0rMaN-]=-!

9 мая 2004 г., воскресенье, 02:16:06 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "WinAPI|Delphi - Transparent",
в котором сообщалось следующее:

0-255.

Ну ты же не указал какая у тебя Delpha, я и указал API, т.к. в Delphi 5
AlphaBlendValue отсутствует.
Да и если побродить по дебрям VCL все равно AlphaBlendValue
реализуется через SetLayeredWindowAttributes

Ответить   Томилов Александр Sun, 9 May 2004 11:59:34 +0500 (#141197)