Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.13;
Скачать: CL | DM;

Вниз

Как можно сделать фон вокруг значков рабочего стола прозрачным?   Найти похожие ветки 

 
Timofey   (2003-01-27 22:11) [0]

Всё.


 
sancho ©   (2003-01-27 22:34) [1]

Недопонял %)


 
Sentinel ©   (2003-01-27 22:39) [2]

Ищи в кладовке, не найдешь, свечку возьми.


 
Uncle Archi ©   (2003-01-27 22:52) [3]

Код:


Const
LVM_FIRST = 4096;
LVM_GETTEXTBKCOLOR = 4133;
LVM_SETTEXTBKCOLOR = 4134;
CLR_NONE = 4294967295;

procedure TForm1.Button1Click(Sender: TObject);
var
SysListView32,SHELLDLLDefView:hwnd;
begin
SHELLDLLDefView := FindWindowEx(FindWindow("Progman", "Program Manager"), 0, "SHELLDLL_DefView", nil);
If SHELLDLLDefView <> 0 Then
SysListView32 := FindWindowEx(SHELLDLLDefView, 0, "SysListView32", nil);
If SysListView32 <> 0 Then
begin
If SendMessage(SysListView32, LVM_GETTEXTBKCOLOR, 0, 0) <> CLR_NONE Then
begin
SendMessage(SysListView32, LVM_SETTEXTBKCOLOR, 0,CLR_NONE);
InvalidateRect(SysListView32, 0, True);
UpdateWindow(SysListView32);
End;
End;
SendMessage(SysListView32, LVM_SETTEXTCOLOR, 0, clFuchsia);
end;


Правда после обновления экрана всё исчезает. Такой вопрос был в WinApi. Не знаю, как решили поблему с обновлением.


 
Sentinel ©   (2003-01-28 04:49) [4]

Попробуй это.

http://delphi.mastak.ru/cgi-bin/download.pl?get=1028042732&n=1


 
Наталия ©   (2003-01-28 06:15) [5]

>Как можно сделать фон вокруг значков рабочего стола прозрачным?
Это чтобы видеть внутренности монитора? :)




Страницы: 1 вся ветка

Текущий архив: 2003.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
3-38024
lutikh
2003-01-25 16:44
2003.02.13
DBF разрушаются...


14-38526
dimich1978
2003-01-29 09:00
2003.02.13
Не Свежая идея


1-38340
Makhanev A.S.
2003-02-03 12:00
2003.02.13
Actions - тихий ужас или кривые руки???


1-38226
Михайлов Антон
2003-02-03 21:17
2003.02.13
Как сделать инсталлятор


1-38180
kull
2003-02-04 15:33
2003.02.13
Кто-нибудь может объяснить это?