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

Вниз

Подскажите пожалуйста, как засунуть картинку из ImageList в ListB   Найти похожие ветки 

← →
Delphin ©   (2003-07-14 00:21) [0]

Подскажите пожалуйста, как засунуть картинку из ImageList в ListBox

---

← →
Marser ©   (2003-07-14 01:05) [1]

Через ListBox1.Canvas

---

← →
Юрий Зотов ©   (2003-07-14 01:55) [2]

См. также:
TImageList: GetBitmap, GetIcon.
TListBox: OnDrawItem, OnMeasureItem.

---

← →
Семен Сорокин ©   (2003-07-14 08:54) [3]

procedure TfmSelGraph.lvParGraphsCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
_bmp : TBitmap;
_rect: TRect;
begin
if Assigned(Item.Data) and (SubItem = 4) then begin
DefaultDraw := false;
ListView_GetSubItemRect(lvParGraphs.Handle, Item.Index, SubItem, 0, @_rect);
_bmp := TBitmap.Create;
try
if _rect.Right - _rect.Left > 32 then
_rect.Right := _rect.Left + 32;
if _rect.Bottom - _rect.Top > 16 then
_rect.Bottom := _rect.Top + 16;
_bmp.Height := 16;
_bmp.Width := 32;
_bmp.Transparent := true;
imgs32x16.GetBitmap(Ord(PParameter(Item.Data)^.Selected), _bmp);
lvParGraphs.Canvas.CopyRect(_rect, _bmp.Canvas, _bmp.Canvas.ClipRect);
finally
_bmp.Free
end
end
end

---

← →
Delphin ©   (2003-07-14 11:13) [4]

Угу, спасибо ;)

---

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

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

Наверх

Память: 0.47 MB
Время: 0.016 c