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

Как, например, положить фоновый рисунок в listbox?   Найти похожие ветки 

← →
Grab ©   (2003-03-15 22:53) [0]

У меня к местной публике такой вот вопросик... Все время хотел спросить, но боялся, вдруг помидорами забросают :) Люди, кто знает подскажите, как мне положить в фон, скажем listbox"a рисунок? Мне бы хотелось не только прочитать Ваше мнение по этому поводу, но и увидеть какой нибудь примерчик (хотя-бы пару строк кода)... Весьма буду благодарен...

---

← →
Song ©   (2003-03-16 12:47) [1]

WM_ERASEBKGRND

---

← →
Grab ©   (2003-03-18 12:28) [2]

2ALL
Мне тута в чате сказали что надо использовать ListBoxDrawItem, а рисовать надо на (control as TListBox).canvas. Я тута с другом проверили - слишком криво все выходит: нет нужной прорисовки итемов листбокса, причем интересно происходит - выделенный итем отображаеться так как нужно, а остальные остаються невидимыми... Помогите, кто может, в чем проблема?


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect:TRect; State: TOwnerDrawState);
var
Bitmap: TBitmap;
Offset: Integer; { text offset width }
i:integer;
begin
with (Control as TListBox).Canvas do
begin
FillRect(Rect); { clear the rectangle }
Offset := 2; { provide default offset }
Bitmap:=TBitmap.Create;
Bitmap.LoadFromFile ("Splash.bmp");

if Bitmap <> nil then
begin
CopyMode :=cmSrcPaint;
BrushCopy(Bounds(0, 0, Bitmap.Width, Bitmap.Height),
Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), clWhite);
end;

Brush.Color :=clred;
Brush.Style :=bsClear;
TextOut(Rect.Left + Offset, Rect.Top,
(Control as TListBox).Items[Index]);
Bitmap.free;
end;
end;


2Song

> WM_ERASEBKGRND

Мистер Мастер, а мона подробнее... :)

---

← →
Игорь Шевченко ©   (2003-03-18 12:47) [3]

Grab © (18.03.03 12:28)


> Я тута с другом проверили


Ты тута (www.delphi-jedi.org) с другом поищи JCVL. Там есть JvBmpListBox.pas - с изодниками и с картинками

---

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

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



Память: 0.45 MB
Время: 0.009 c