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

OwnerDraw в ListBox e   Найти похожие ветки 

← →
ArtemESC ©   (2006-07-18 19:10) [0]

Доброго времени суток...
 Загружаю BMP-шки в ListBox из каталога, работает вроде нормально, но когда прорисовывается рисунок размером 300X300 начинается какая то чушь.
 
OwnerDraw

procedure TfrmMain.DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
 var BM: TBitmap;
begin
  BM := TBitmap.Create;
  lbMain.Canvas.Brush.Color := clWhite;
  lbMain.Canvas.FillRect(Rect);
  BM.LoadFromFile(Dir + "..\Images\" + IntToStr(Index + 1) + ".bmp");
  lbMain.Canvas.Draw(Rect.Left + 5, Rect.Top + 5, BM);
  BM.Free;
end;

 Measure Item

procedure TfrmMain.MeasureItem(Control: TWinControl; Index: Integer;
 var Height: Integer);
 var BM: TBitmap;
begin
  BM := TBitmap.Create;
  BM.LoadFromFile(Dir + "..\Images\" + IntToStr(Index + 1) + ".bmp");
  Height := BM.Height + 10;
  BM.Free;
end;

---

← →
GrayFace ©   (2006-07-18 23:19) [1]

> начинается какая то чушь

Свет выключается? Или чертики мерещатся? А еще есть такой рецепт рыбы - "Чуша" называется - может быть он имеется в виду?

P.S. Картинки надо в начале загружать.

---

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

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



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