Текущий архив: 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.012 c