Zoom в TImage ?

← →
texHelp (2002-08-24 20:01) [0]

Проблема в выводе больших изображений. При попытке увеличить они пропадают.
Изображение 800x600 грузится через TImage.Picture.LoadFromFile(). После загрузки увеличение происходит примерно до 3000x3000 пикселей, а потом пропадает, хотя если создать самому Bitmap через TBitmap.Create, то изображение можно увеличить до 32000x32000 пикселей. Как с этим бороться ?

← →
Dmk (2002-08-24 21:49) [1]

Насколько больших?
Я работаю с tiff файлами по 1-2GB и никаких проблем не возникает с zoom"ом. Отличие только в том, что я не использую TImage (хотя могу), а делаю все через DC размером с экран.
Можно(скорее нужно) увеличивать не все изображение, а увеличивать только участки.

← →
texHelp (2002-08-25 15:12) [2]

Спасибо за ответ, но как это сделать в TImage.

← →
Dmk (2002-08-25 17:33) [3]

Procedure DrawImage(DestDC:HDC; ImageX, ImageY, DestWidth, DestHeight, SrcWidth, SrcHeight:Integer);
begin
StretchBlt(DestDC,
0,
0,
DestWidth,
DestHeight,
SrcDC,
ImageX,
ImageY,
SrcWidth,
SrcHeight,
SrcCopy);

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var fDC:HDC;
begin
fDC := GetDC(handle);
DrawImage(fDC,x - 100,y - 100,ClientWidth,ClientHeight,ClientWidth div 2,ClientHeight div 2);

end;

SrcDC := MyImage.Picture.Bitmap.Canvas.Handle;

Могу по почте пример выслать

← →
Настя (2002-08-27 09:53) [4]

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

Zoom в TImage ? Найти похожие ветки