1 Відповідь від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

Torbins, велике дякую. Начебто робить:

procedure TViewForm.VImageGesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
  LObj: IControl;
  HorizontalPercent, VerticalPercent: Single;
  NewPos: TPointF;
begin

 if EventInfo.GestureID = igiZoom then
  begin

    LObj := Self.ObjectAtPoint(ClientToScreen(EventInfo.Location));

    if LObj is TImageViewer then
    begin
      if (not(TInteractiveGestureFlag.gfBegin in EventInfo.Flags)) and
        (not(TInteractiveGestureFlag.gfEnd in EventInfo.Flags)) then
    begin
      VImage.BeginUpdate;

      HorizontalPercent := (VImage.ViewportPosition.X + VImage.ClientWidth/2) / (VImage.Bitmap.Width * VImage.BitmapScale);
      VerticalPercent := (VImage.ViewportPosition.Y + VImage.ClientHeight/2) / (VImage.Bitmap.Height * VImage.BitmapScale);

        if (EventInfo.Distance - FLastDistance)/2 > 0 then VImage.BitmapScale:=VImage.BitmapScale + 0.03  else
        if (EventInfo.Distance - FLastDistance)/2 < 0 then VImage.BitmapScale:=VImage.BitmapScale - 0.03;


      NewPos.X := VImage.Bitmap.Width * VImage.BitmapScale * HorizontalPercent - VImage.ClientWidth/2;
      NewPos.Y := VImage.Bitmap.Height * VImage.BitmapScale * VerticalPercent - VImage.ClientHeight/2;
      VImage.ViewportPosition := NewPos;

      VImage.EndUpdate;

    end;
      FLastDistance:=EventInfo.Distance;
      Handled:=True;

  end;
end;

Перейти до форуму: Pascal/Delphi

2 Відповідь від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

Firefox is dead написав:

try it

Нажаль(

Перейти до форуму: Pascal/Delphi

3 Відповідь від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

1a1ka написав:

invalid floating point operation

Вибачаюсь, без слова "delphi".

Перейти до форуму: Pascal/Delphi

4 Відповідь від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

Torbins написав:
ImageViewer1.BitmapScale := ImageViewer1.ClientWidth / ImageViewer1.Bitmap.Width;

Потім те саме для висоти і залишити менше з двох значень.

Велике дякую. Те, що треба

Torbins написав:

А після зміни масштабу відновіть його:

var
  NewPos: TPointF;
//...
NewPos.X := ImageViewer1.Bitmap.Width * ImageViewer1.BitmapScale * HorizontalPercent - ImageViewer1.ClientWidth/2;
ImageViewer1.ViewportPosition := NewPos;

invalid floating point operation delphi

Перейти до форуму: Pascal/Delphi

5 Відповідь від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

Torbins написав:

Порівняйте розміри ImageViewer1 і його ImageViewer1.Bitmap, тоді буде зрозуміло, який ставити зум.

Represents the scale of the image.

BitmapScale represents a Single value used to determine the image's size. The Height and Width of the displayed image are calculated by multiplying the original height and width with the BitmapScale value.

    Note: The minimum value for BitmapScale is 0.01 and the maximum value is 10. If a value smaller than the minimum value is assigned, then the property is set to the minimum value. Similarly, if a value greater than the maximum value is assigned, then the property is set to the maximum value.

--
Щось я не зрозумів який BitmapScale у такому разі виставляти(


Torbins написав:

Точку, яку збільшує юзер можна дізнатись з EventInfo.Location, а прокрутити картинку в потрібне місце за допомогою ImageViewer1.ViewportPosition.

Не могли б ви допомогти з кодом? Буду дуже вдячним

Перейти до форуму: Pascal/Delphi

6 Відповідь від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

1a1ka написав:

Все одно, якщо й виставлю BitmapScale під свій екран - всеодно зум не працює

працює, це я накосячив. Але працює неналежно - завжди перекидає в центр зображення, треба якось прописати координати з точки зуму.

Ще й залишилось якось прописати розмiри

Перейти до форуму: Pascal/Delphi

7 Відповідь від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

1a1ka написав:

тільки я не знайшов як у FMX прописати розміри зображення під ClientWidth/ClientHeight

Є BitmapScale, але як підлаштувати під розміри екрану? Це мабуть не то.
Все одно, якщо й виставлю BitmapScale під свій екран - всеодно зум не працює

Перейти до форуму: Pascal/Delphi

8 Відповідь від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

Torbins написав:

Неправильна відповідь: чорні рамки з'явились тому, що пропорції фотки і Image1 не співпадають. Після завантаження фотки треба змінити розміри Image1, щоб картинка акуратно в нього поміщалась.

Правильна відповідь: спробуйте використати TImageViewer, він створений саме для перегляду картинок.

Вже пробував і щось у мене не вийшло.
1. Коли гружу великий Bitmap в TImageViewer, то зображення відразу відображається у реальних розмірах + скроллбари. В принципі, як і має бути, але тільки я не знайшов як у FMX прописати розміри зображення під ClientWidth/ClientHeight.

Є код зуму для TimageViewer, але вiн не працює в мене чомусь, хоча в iнспекторi установив Zoom в InteractiveGesture:

procedure TForm1.ImageViewer1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
  case EventInfo.GestureID of
    igiZoom:
    begin
      if (EventInfo.Distance - fDistance)/2 > 0 then ImageViewer1.BitmapScale:=ImageViewer1.BitmapScale + 0.01  else
      if (EventInfo.Distance - fDistance)/2 < 0 then ImageViewer1.BitmapScale:=ImageViewer1.BitmapScale - 0.01;
      fDistance:=EventInfo.Distance;
      Handled:=True;
    end;
  end;
end;

Перейти до форуму: Pascal/Delphi

9 Відповідь від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

Betterthanyou написав:

А можна зробити залежність з Image1 з ScrollBox1 при Resize ?

Нажаль, нi. Зум тодi не буде працювати

Перейти до форуму: Pascal/Delphi

10 Тема від 1a1ka

(14 відповідей, залишених у Pascal/Delphi)

Доброго дня, шановні.
Відразу прошу вибачення за мою тупість - років 5 не кодив, та й особливо Делфі не знав i не знаю). Зараз ще й довелося працювати з FMX.
Моє завдання зробити переглядач фотографій (не саму галерею) як стандартний на Андроїді: зум та скролінг фото.

На формі є ScrollBox( Align: Client ) i в ньому Timage( Align: Center, WrapMode: Fit ).
Є робочий код зуму з папки Samples, все працює як треба:

procedure TViewForm.Image1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
  LObj: IControl;
  LImageCenter: TPointF;
begin
 
if EventInfo.GestureID = igiZoom then
  begin
 
    LObj := Self.ObjectAtPoint(ClientToScreen(EventInfo.Location));
 
    if LObj is TImage then
      begin
      if (not(TInteractiveGestureFlag.gfBegin in EventInfo.Flags)) and (not(TInteractiveGestureFlag.gfEnd in EventInfo.Flags)) then
        begin
         LImageCenter := Image1.Position.Point + PointF(Image1.Width / 2, Image1.Height / 2);
         Image1.Width := Max(Image1.Width + (EventInfo.Distance - FLastDistance), 10);
         Image1.Height := Max(Image1.Height + (EventInfo.Distance - FLastDistance), 10);
         Image1.Position.X := LImageCenter.X - Image1.Width / 2;
         Image1.Position.Y := LImageCenter.Y - Image1.Height / 2;
        end;
        FLastDistance := EventInfo.Distance;
   end;
  end;
end;

Проблема в тому, що я не можу зробити, щоб ScrollBox був повністю заповнений фотографією.
Тобто, коли завантажену фотографію збільшую, то по краях зліва та справа (або зверху та знизу - залежить від співвідношення сторін у фотографії) з'являються порожні границi, які збільшуються разом із фотографією ( див. скрiн ).

https://i.stack.imgur.com/GcPTi.jpg

Що я не так роблю? І як це можна виправити?
Дякую хто допоможе

Перейти до форуму: Pascal/Delphi