Текущий архив: 2007.10.21;
Скачать: CL | DM;
Вниз
Подскажите где найти компонент Найти похожие ветки
← →
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+
Сказано же, быстрый ;)
← →
Rouse_ © (2007-09-18 20:43) [5]
> homm © (18.09.07 20:05) [4]
> Сказано же, быстрый ;)
У тебя есть пример, который работает быстрее? ;)
← →
atruhin © (2007-09-19 14:16) [6]Посмотри EasyListView, бесплатный, и если я правильно понял задачу,
то именно для этого.
Страницы: 1 вся ветка
Текущий архив: 2007.10.21;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.047 c
