Подскажите где найти компонент

← →
leonidus © (2007-09-17 23:58) [0]

Господа, подскажите пожалуйста где найти компонент, пусть даже платный, для быстрого отображения превьюшек фотографий как это делает ACDSee? Все то видел либо тормозит лобо просто нечто убогое, а хочется именно приятный и быстрый компонент.

← →
Andy BitOff © (2007-09-18 00:01) [1]

GDI+

← →
Andy BitOff © (2007-09-18 00:20) [2]

function FastFileThumbnail(const FileName: string; const ThumbWidth, ThumbHeight: Integer): TBitmap; var Graphics: TGPGraphics; Image, pThumbnail: TGPImage; ZoomFactor: Extended; W, H: Integer; begin Result := TBitmap.Create; Result.Canvas.Lock; pThumbnail := nil; Image := TGPImage.Create(FileName); try W := Image.GetWidth; H := Image.GetHeight; if (W = 0) or (H = 0) then Exit; ZoomFactor := Min(ThumbWidth / W, ThumbHeight / H); if ZoomFactor >= 1 then ZoomFactor := 1; Result.Width := Trunc(W * ZoomFactor); Result.Height := Trunc(H * ZoomFactor); Graphics := TGPGraphics.Create(Result.Canvas.Handle); try pThumbnail := Image.GetThumbnailImage(Result.Width, Result.Height, nil, nil); Graphics.DrawImage(pThumbnail, 0, 0, pThumbnail.GetWidth, pThumbnail.GetHeight); finally Graphics.Free; end; finally Image.Free; pThumbnail.Free; end; Result.Canvas.Unlock; end;

← →
leonidus © (2007-09-18 19:40) [3]

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

← →
homm © (2007-09-18 20:05) [4]

> [1] Andy BitOff © (18.09.07 00:01)
> GDI+

Сказано же, быстрый ;)

Посмотри EasyListView, бесплатный, и если я правильно понял задачу,
то именно для этого.

Подскажите где найти компонент Найти похожие ветки