Текущий архив: 2005.12.11;
Скачать: CL | DM;

Вниз

Как на фон 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]

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

---

← →
DVM ©   (2005-10-03 10:21) [5]

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

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

---

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

DVM ©   (03.10.05 10:21) [5]
Большущее вам спасибо, товарищи коллеги!

---

Страницы: 1 вся ветка

Текущий архив: 2005.12.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.043 c