손주양 wrote:

> 안녕하세요.

> 이곳에서 많은 도움을 받고 있습니다. 감사하게 생각합니다.

> 알고 싶은건 ListBox에 item을 텍스트만 넣을 수 있나요?

> 아이콘을 넣을 수 있는 ListBox component가 따로 있는건지

> 아니면 기존에것도 지원을 하는지 알고 싶습니다.

> 그럼 답변 부탁드립니다.





손주양님 안녕하세요?

Listbox의 canvas property와 onDrawItem event를 이용합니다.

style property은 lbOwnerDrawFixed나lbOwnerDrawVariable로 설정하세요.



Listbox에 bitmap 또는 icon data를 추가하는 방법은 AddObject method를 이용합니다.



ListBox1.Items.AddObject('Bitmap', Image1.Picture.Bitmap);

ListBox2.Items.AddObject('Icon', Image2.Picture);



procedure TForm1.ListBox1DrawItem(Control:TWinControl; Index:Integer; Rect:TRect; State: TOwnerDrawState);

var Bitmap : TBitmap;

begin

with Listbox1.Canvas do

begin

FillRect(Rect);

Bitmap := TBitmap(Listbox1.Items.Objects[index]);

BrushCopy(Bounds(Rect.Left + 2, Rect.Top, Bitmap.Width, Bitmap.Height),

Bitmap, Bounds(0, 0, Bitmap.Width, Bi tmap.Height), clRed);

TextOut(Rect.Left+50, Rect.Top, Listbox1.Items[Index]);

end;

end;



procedure TForm1.ListBox2DrawItem(Control:TWinControl; Index:Integer; Rect:TRect; State: TOwnerDrawState);

var Pic : TPicture;

begin

with Listbox2.Canvas do

begin

FillRect(Rect);

Pic := TPicture(Listbox2.Items.Objects[index]);

Draw(Rect.Left, Rect.Top, Pic.Graphic);

TextOut(Rect.Left+50, Rect.Top, Listbox2.Items[Index]);

end;

end;



즐거운 프로그래밍이 되시길~~

손주양 wrote:

> 안녕하세요.

> 이곳에서 많은 도움을 받고 있습니다. 감사하게 생각합니다.

> 알고 싶은건 ListBox에 item을 텍스트만 넣을 수 있나요?

> 아이콘을 넣을 수 있는 ListBox component가 따로 있는건지

> 아니면 기존에것도 지원을 하는지 알고 싶습니다.

> 그럼 답변 부탁드립니다.



TListBox, TComboBox 등의 OnDrawItem 을 사용하시면 됩니다

아래는 TImage의 그림을 ListBox의 모든 Item 에 그리는 예제인데

TImageList 들을 사용하시면 각각의 Item에 다른 Image를 올릴 수

있습니다



procedure TForm1.ListBoxDrawItem(Control: TWinControl;

Index: Integer; Rect: TRect; State: TOwnerDrawState);

begin

with (Control as TListBox).Canvas do

begin

FillRect(Rect);

BrushCopy(Bounds(Rect.Left, Rect.Top, Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height),

Image1.Picture.Bitmap,

Bounds(0,0, Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height),

clRed);

TextOut(Rect.Left+21, Rect.Top+3, TListBox(Control).Items[Index]);

end;

end;