Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Прозрачные надписи иконок на столе. [D6, WinXP]

ЮРИЙ_К © (2003-02-17 09:42:00)
Коллеги! Как можно реализовать САБЖ в ХР без помощи дополнительных программ. Могет чего в реестре нужно подкрутить?

Diamond Cat (2003-02-18 00:43:00) [1]
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.

Мда.. (2003-02-17 16:32:00) [2]

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

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

Юров Владимир (2003-02-17 16:00:00) [3]
Был такой комплекс небольших программ - Effective Desktop. Отличная штука...

Шишкин Илья (2003-02-17 15:58:00) [4]
А как осуществить прозрачность в Win98?

Юров Владимир (2003-02-17 15:41:00) [5]
Нашел. Настройка за это дело отвечающая - "Отбрасывание теней значками на рабочем столе" (в моей версии).

AGGRESSOR (2003-02-17 15:38:00) [6]
Мой компьютер->Свойства->Дополнительно->Производительность, там находишь список эффектов, и в нем делаешь, что тебе надо. У меня англ., но опция должна называться что-то вроде "Использовать контурные шрифты".

ЮРИЙ_К (2003-02-17 10:44:00) [7]
>> Можно поточнее, у меня ХР-рус. чтость нигде не могу найти, где управление этими самыми надписями ?? 8-(

Charlie (2003-02-17 10:05:00) [8]
Прозрачность в XP выключается\включается безо всяких проблем через отключение некоторых визуальных эффектов.Реализовывать что-либо программно имеет смысл только в предыдущих осях,типа 9х

Юров Владимир (2003-02-17 09:59:00) [9]
То есть ты прозрачность сам выключаешь?

ЮРИЙ_К (2003-02-17 09:56:00) [10]
>>Юров Владимир , Axis_of_Evil говорит правду и это действительно так. Просто не хочется вешать дополнительные примочки. А транспорентность хотелось-бы поиметь

Axis_of_Evil (2003-02-17 09:51:00) [11]
Нет, они непрозрачные.

Юров Владимир (2003-02-17 09:48:00) [12]
Зачем тебе это? Они вроде бы и так уже прозрачные!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »