Jak zrobić aby tło ikon na pulpicie było przeźroczyste? (w Delphi {brawo} )
pozdrawiam :-)
Jak zrobić aby tło ikon na pulpicie było przeźroczyste? (w Delphi {brawo} )
pozdrawiam :-)
Delphi tu nie ma nic do rzeczy, tło ikony jak sam to zauważyłeś musi być przezroczyste, a to oznacza, że musisz swoją ikonę zrobić w edytorze, który pozwala ustawić taki atrybut dla koloru tła (delphioski ResourceEditor na to pozwala menu Tools).
kolor przezroczysty jest ten ktory
przy malowaniu ikony umiescisz w lewym dolnym rogu
no oki troche żle zadałem ;( pytanie chodziło mi o tło nazwy ikony domyślnie jest to kolor pulpitu a ja chcę je zmienić na przeźroczyste aby było widać dobże tapetę
W i-necie - jak dobrze poszukasz - to znajdziesz kilkukilobajtowy programik o nazwie transdesk.exe wraz z jego prościutkim kodem źródłowym. Gdybym siedział w domu, to nawet bym Ci go podesłał... ale nie siedze ;) --"Imagination is more important than knowledge." - A. Einstein
Chyba o to chodzi ???
var
uch:HWND;
begin
uch:= FindWindow('Progman', 'Program Manager');
if ( uch<> NULL ) then
uch := FindWindowEx(uch, 0, 'SHELLDLL_DefView',); if ( uch <> NULL ) then uch := FindWindowEx(uch, 0, 'SysListView32',
);
if ( uch <> NULL ) then
if ( ListView_GetTextBkColor(uch) <> CLR_NONE ) then
ListView_SetTextBkColor(uch, CLR_NONE) ;
InvalidateRect(uch, nil, TRUE);
UpdateWindow(uch);
--Pozdrowienia