| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подпись к иконкам на десктопе на прозрачном фоне [D5, Win95/98, WinME, NT4, Win2k, WinXP]
digitalbomb © (2002-05-01 10:24:00)Кто знает, как сделать подписи к иконкам на десктопе на прозрачном фоне (т.е, на фоне картинки, а не на синем, зеленом и т.д. квадрате), пожалуйста, киньте мылом
Jazzy$ (2002-05-07 14:51:00) [1]Вот держи:
procedure SetDIColors(fg,bg:TColor);
var
FLVHandle, FHandle : hWND;
begin
FHandle:=FindWindow("Progman","Program Manager");
FLVHandle :=(FindWindowEx(FindWindowEx(FHandle, 0, "SHELLDLL_DefView",""),0 ,"SysListView32",""));
ListView_SetTextBkColor(FLVHandle,bg);
SendMessage(FLVHandle,WM_PAINT,0,0);
ListView_SetTextColor(FLVHandle, fg);
ListView_RedrawItems(FLVHandle,0,ListView_GetItemCount(FLVHandle));
end;
если bg=$FFFFFFFF, то фон у иконок будет прозрачным
digitalbomb (2002-05-02 23:51:00) [2]А как все-таки из Дельфей (5) это сделать ?
Digitalbomb (2002-05-01 23:12:00) [3]ОК.
Song (2002-05-01 10:51:00) [4]У меня есть программка маленькая, могу выслать.
Ptr (2002-05-01 10:29:00) [5]ПОставь XP
| |
