Проблема с TImage и TScrollBox - PullRequest
Новая
       25

Проблема с TImage и TScrollBox

1 голос
/ 23 июня 2010

Я работаю с Delphi.
У меня есть одно поле прокрутки, в которое я помещаю элемент управления TImage. Теперь я хотел увеличить изображение, отображаемое в элемент управления TImage. Итак, я использую метод stretchDraw из TCanvas. Мой код - 

   if sbZoom.Down then begin
      rct := imgmain.Picture.Bitmap.Canvas.ClipRect;
      rct := Rect(rct.Left * 2,rct.Top * 2,rct.Right * 2,rct.Bottom * 2);
      imgmain.Picture.Bitmap.Canvas.StretchDraw(rct,imgmain.Picture.Bitmap);
      imgmain.Repaint;
   end;

Это корректное масштабирование изображения, моя проблема в том, что я хочу, чтобы размер поля прокрутки также изменялся при масштабировании изображения.
Also explain me parameters of Canvas.StretchDraw method. I am little confused with it.
Спасибо.

Ответы [ 3 ]

3 голосов
/ 23 июня 2010

Вы можете сделать это довольно легко, не вызывая StretchDraw: 

  if Zoomed then begin
    Image1.AutoSize := false;
    Image1.Stretch := true;
    Image1.Width := 2*Image1.Width;
    Image1.Height := 2*Image1.Height;
  end
  else begin
    Image1.Stretch := false;
    Image1.AutoSize := true;
  end;

AutoSize: = true гарантирует, что TImage имеет тот же размер, что и изображение внутри. Во время масштабирования мы выключаем AutoSize и растягиваем, чтобы размер изображения был изменен до размера TImage (который здесь все тот же) Затем мы удваиваем размер TImage, чтобы создать эффект увеличения. Поскольку время теперь больше, поле прокрутки может работать правильно.

1 голос
/ 23 июня 2010

Уве Раабе дает вам правильный способ сделать это.Вот почему ваш путь не работает: поле прокрутки покажет полосы прокрутки и поможет вам увидеть все элементы управления.В вашем случае он будет показывать полосы прокрутки только тогда, когда объект TImage станет больше, чем поле прокрутки.Scrollbox не может знать внутренности TImage, поэтому он не заботится о TImage.Picture, он заботится только о контроле.И TImage, который имеет AutoSize = False, не заботится о его изображении, его размер всегда остается неизменным.

Ваш код перерисовывает базовое растровое изображение на себя.Проблема в том, что растровое изображение имеет фиксированные ширину и высоту: если вы рисуете вне области растрового изображения, вы в основном молча игнорируетесь.Когда вы «масштабируете» с помощью StretchDrawing растровое изображение на себя (и я удивлен, что оно с самого начала сработало!) Вы не увеличиваете растровое изображение, и материал, который не подходит, незаметно обрезается.Если вы хотите, чтобы внутреннее растровое изображение изменило размер, вам сначала нужно создать новое, более крупное растровое изображение, нарисовать увеличенное изображение в новом растровом изображении, а затем назначить растровое изображение вашему TImage.Если вы сделаете это, убедитесь, что TImage.AutoSize = True.

0 голосов
/ 23 июня 2010

Вы должны установить размер элемента управления изображением равным размеру растрового изображения.

...