Прозрачные надписи иконок на столе.

← →
ЮРИЙ_К (2003-02-17 09:42) [0]

Коллеги! Как можно реализовать САБЖ в ХР без помощи дополнительных программ. Могет чего в реестре нужно подкрутить?

← →
Юров Владимир (2003-02-17 09:48) [1]

Зачем тебе это? Они вроде бы и так уже прозрачные!

← →
Axis_of_Evil (2003-02-17 09:51) [2]

Нет, они непрозрачные.

← →
ЮРИЙ_К (2003-02-17 09:56) [3]

>>Юров Владимир , Axis_of_Evil говорит правду и это действительно так. Просто не хочется вешать дополнительные примочки. А транспорентность хотелось-бы поиметь

← →
Юров Владимир (2003-02-17 09:59) [4]

То есть ты прозрачность сам выключаешь?

← →
Charlie (2003-02-17 10:05) [5]

Прозрачность в XP выключается\включается безо всяких проблем через отключение некоторых визуальных эффектов.Реализовывать что-либо программно имеет смысл только в предыдущих осях,типа 9х

← →
ЮРИЙ_К (2003-02-17 10:44) [6]

>> Можно поточнее, у меня ХР-рус. чтость нигде не могу найти, где управление этими самыми надписями ?? 8-(

← →
AGGRESSOR (2003-02-17 15:38) [7]

Мой компьютер->Свойства->Дополнительно->Производительность, там находишь список эффектов, и в нем делаешь, что тебе надо. У меня англ., но опция должна называться что-то вроде "Использовать контурные шрифты".

← →
Юров Владимир (2003-02-17 15:41) [8]

Нашел. Настройка за это дело отвечающая - "Отбрасывание теней значками на рабочем столе" (в моей версии).

← →
Шишкин Илья (2003-02-17 15:58) [9]

А как осуществить прозрачность в Win98?

← →
Юров Владимир (2003-02-17 16:00) [10]

Был такой комплекс небольших программ - Effective Desktop. Отличная штука...

← →
Мда.. (2003-02-17 16:32) [11]

> Шишкин Илья © (17.02.03 15:58)
>А как осуществить прозрачность в Win98?

Не так давно видел в кладовке программу Roter-pro, вроде так называется. Вот она это делает.

← →
Diamond Cat (2003-02-18 00:43) [12]

uses
Windows, Messages, SysUtils, 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, clBlack);
end;

end.

Прозрачные надписи иконок на столе. Найти похожие ветки