Как на фон TListView вставить рисунок рабочего стола

← →
NikNet © (2005-09-26 19:05) [0]

или вообще свой?

← →
NikNet © (2005-09-26 22:11) [1]

Не ужели не кто не знает 8(

← →
kami © (2005-09-26 22:30) [2]

http://delphimaster.net/view/1-1119443714/&web=1
Ученик (22.06.05 22:03)

uses CommCtrl; procedure TForm1.FormShow(Sender: TObject); begin ListView1.Brush.Bitmap := Image1.Picture.Bitmap; ListView_SetBkcolor(ListView1.Handle, CLR_NONE); ListView_SetTextBkcolor(ListView1.Handle, CLR_NONE); end;

или
type TMyListView = class(TListView) protected procedure WMEraseBkgnd(var Message: TMessage); message WM_ERASEBKGND; end; TListView = class(TMyListView); TForm1 = class(TForm) ListView1: TListView; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses ComObj, CommCtrl; procedure TForm1.Button1Click(Sender: TObject); var LVBKIMAGE: TLVBKIMAGE; begin FillChar(LVBKIMAGE, SizeOf(LVBKIMAGE), 0); LVBKIMAGE.ulFlags := LVBKIF_SOURCE_URL or LVBKIF_STYLE_NORMAL; LVBKIMAGE.pszImage := "c:\ascent.jpg"; LVBKIMAGE.xOffsetPercent := -50; LVBKIMAGE.yOffsetPercent := -50; ListView_SetBkImage(ListView1.Handle, @LVBKIMAGE) end; procedure TMyListView.WMEraseBkgnd(var Message: TMessage); begin DefaultHandler(Message) end;

<offtopic> Почту смотрел ? </offtopic>

← →
DVM © (2005-09-27 10:35) [3]

в обработчике WM_ERASEBKGND вызывать функцию PaintDesktop().

p.s Explorer именно так и делает.

← →
Igor_thief (2005-09-30 18:39) [4]

А как теперь сделать так, чтобы фон под текстом элемента был прозрачным? Т.е. чтобы фон текста был не белым, а прозрачным, чтобы сквозь него было видно картинку.

> А как теперь сделать так, чтобы фон под текстом элемента
> был прозрачным?

ListView_SetBkcolor(ListView1.Handle, CLR_NONE);
ListView_SetTextBkcolor(ListView1.Handle, CLR_NONE);

← →
Igor_thief (2005-10-08 19:07) [6]

Как на фон TListView вставить рисунок рабочего стола Найти похожие ветки