Скачать: CL | DM;

Transparent Background   Найти похожие ветки 

← →
Ded Moroz ©   (2005-06-22 16:35) [0]

Подскажите, plz, как сделать прозрачный фон вместо белого в TListView?

---

← →
DVM ©   (2005-06-22 17:35) [1]

Что значит прозрачный? Как на рабочем столе что ли? Так он там не прозрачный, а просто с картинкой.

---

← →
Ded Moroz ©   (2005-06-22 20:21) [2]

Ведь можно же сделать прозрачную форму, значит скорее всего и TListView можно. Картинку вставить у меня пока не получилось - она затирается при выделении элементов...

---

← →
Ученик   (2005-06-22 22:03) [3]



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;



---

← →
DVM ©   (2005-06-23 10:12) [4]

> Ведь можно же сделать прозрачную форму, значит скорее всего
> и TListView можно.

Нельзя. Если нужно чтобы сквозь ListView "просвечивал" рабочий стол, то используй PaintDesktop() в обработчике WM_ERASEBKGND.

> Картинку вставить у меня пока не получилось - она затирается
> при выделении элементов...

Вставляется без проблем. См. [3] Вроде правильно все.

---

← →
Ded Moroz ©   (2005-06-23 15:21) [5]

ОГРОМНОЕ ВСЕМ СПАСИБО! :)

---

← →
Игорь Шевченко ©   (2005-06-23 20:42) [6]

Ученик   (22.06.05 22:03) [3]

Все вижу, кроме связи класса TMyListView с ListView1.
Я что-то пропустил ?

---

← →
Ученик   (2005-06-23 21:33) [7]

>Игорь Шевченко ©   (23.06.05 20:42) [6]


TListView = class(TMyListView);


---

← →
Игорь Шевченко ©   (2005-06-23 22:20) [8]

Ученик   (23.06.05 21:33) [7]

Спасибо. Действительно не заметил.

---

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

Скачать: CL | DM;



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