Форум: "Потрепаться";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];
ВнизКак можно сделать фон вокруг значков рабочего стола прозрачным? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c