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. Картинки надо в начале загружать.

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