OwnerDraw в ListBox'e [D7, WinXP]
ArtemESC © (2006-07-18 19:10:00)
Доброго времени суток...
Загружаю 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:00) [1]
> начинается какая то чушь
Свет выключается? Или чертики мерещатся? А еще есть такой
рецепт рыбы - "Чуша" называется - может быть он имеется в виду?
P.S. Картинки надо в начале загружать.
Наверх 
ЧАТ |
Орешник |
|
