Фон подписей значков на Десктопе

← →
123000 (2003-01-07 13:46) [0]

Народ!
Когда ставлю обои на рабочий стол, за подписями ко всем иконкам появляется БЕЗОБРАЗНЫЙ фон какого-либо цвета. Подскажите PLZ как от него избавиться, тоесть сделать его прозрачным?

← →
Morfein (2003-01-07 20:13) [1]

Хы...такая фишка только в XP есть... прозрачными надписи сделать никак, можно только цвет так подобрать, чтобы не выделялся...

← →
123000 (2003-01-07 22:12) [2]

Я на 100% уверен что можно в 98 винде(сам видел)

← →
Diamond Cat (2003-01-08 00:11) [3]

К сожалению не знаю автора, но он публиковал этот текст на этом сайте, так что надеюсь он будет не в обиде за повтор
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Commctrl;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Const LVM_FIRST = 4096;
Const LVM_GETTEXTBKCOLOR = 4133;
Const LVM_SETTEXTBKCOLOR = 4134;
Const CLR_NONE = 4294967295;
implementation

{$R *.dfm}

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, clRed);
end;

end.

под 98 работало на ура

← →
Diamond Cat (2003-01-08 00:13) [4]

кстати на XP тоже работает, проверил

← →
Charlie (2003-01-08 12:53) [5]

Круто!!!Но возникает вопрос:при обновление окна вся эта музыка пропадает.Логично,что нужно перехватывать обновление.Но как?

← →
Cobalt (2003-01-08 19:36) [6]

Надо, наверное, устанавливать в системе SetSystemParametr (типа того)

← →
Charlie (2003-01-08 21:13) [7]

Мне кажется,что недостаточно просто установить в виде параметров.Причем следить нужно только за обновлением окна,при перерисовке все ок.Вопрос как?

← →
Diamond Cat (2003-01-09 00:00) [8]

ну запусти winsight посмотри какие сообщения проходят при обновлении рабочего стола, ставь на них хук , далее по плану

← →
123000 (2003-01-09 16:40) [9]

К чему такие сложности??? Я своими глазами видел, что избавиться от фона можно изменив что-то в реестре, но что именно я не знаю!

← →
GROL (2003-01-10 02:09) [10]

там где не предусмотрено, там и будет геморно
у меня иконки открываются по одному нажатию, так вот, когда ведешь них..а за ней не прозначно.
Вывод - надо вешать хук и каждый раз провереть и обновлять этот параметр в прозрачный

Фон подписей значков на Десктопе Найти похожие ветки