| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Zoom в TImage ? [D4, Win95/98]

texHelp ©   (2002-08-24 20:01:00) 

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

---

Настя   (2002-08-27 09:53:00) [1]

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

---

Dmk   (2002-08-25 17:33:00) [2]

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;

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

---

texHelp   (2002-08-25 15:12:00) [3]

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

---

Dmk   (2002-08-24 21:49:00) [4]

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

---

Наверх