Отображение jpeg в StringGrid

[WhistleR]

Всем доброго утра/дня/вечера!

Есть у меня таблица StringGrid (большая, > 100 строк), в её ячейках записаны имена jpeg файлов. Как мне отобразить эти файлы в соответствующих ячейках таблицы? Либо может каким-то другим компонентом пользоваться?

[Stilet]

Например в обработчике отрисовки пропиши ченить типа:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var   b:TBitmap;
begin
 b:=TBitmap.Create;
 b.Width:=1024;b.Height:=768;
 b.LoadFromFile('D:\stasya_ru_2_big.bmp');
 if acol=1 then begin
  StretchBlt(StringGrid1.Canvas.Handle,rect.Left,rect.Top,rect.Right-rect.Left,
   Rect.Bottom-rect.Top,b.Canvas.Handle,0,0,b.Width,b.Height,SRCCOPY);
 end;
 b.Free;
end;

Смысл в загрузке файла, получении его габаритов и отрисовки в нужных координатах ячейки. Имя файла соответственно бери из другой ячейки.

[WhistleR]

Сообщение от Stilet

Например в обработчике отрисовки пропиши ченить типа:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var   b:TBitmap;
begin
 b:=TBitmap.Create;
 b.Width:=1024;b.Height:=768;
 b.LoadFromFile('D:\stasya_ru_2_big.bmp');
 if acol=1 then begin
  StretchBlt(StringGrid1.Canvas.Handle,rect.Left,rect.Top,rect.Right-rect.Left,
   Rect.Bottom-rect.Top,b.Canvas.Handle,0,0,b.Width,b.Height,SRCCOPY);
 end;
 b.Free;
end;

Смысл в загрузке файла, получении его габаритов и отрисовки в нужных координатах ячейки. Имя файла соответственно бери из другой ячейки.

1) не bmp, а jpeg файл
2) у меня есть скролл и при прокрутке получается чушь

[Stilet]

не bmp, а jpeg файл

Ну прикрути JPEG пример здесь:
http://www.delphiworld.narod.ru/base...jpeg_file.html

у меня есть скролл и при прокрутке получается чушь

А у меня нет.

[WhistleR]

Сообщение от Stilet

Ну прикрути JPEG пример здесь:
http://www.delphiworld.narod.ru/base...jpeg_file.html

А у меня нет.

Ага, работает! Спасибо! Но качество бмп картинки оставляет желать лучшего, ничего не видно и не понятно Как бы сохранить оригинальное джепег качество?

[Stilet]

Как бы сохранить оригинальное джепег качество?

Там же дето было пояснение. Я никогда так глубоко не копал.