TImage Zoom

[Davidlocke13]

2.
Es hat sich bei mir noch ein weiters Problem ergeben !
Ich wollte auf das Bild jetzt nen Button setzten hat auch in der TScrollBox so weit funktioniert das der auf ein und der Selben Stelle bleibt, nur seit dem Zoom klappt das halt nicht mehr da der Button seine Position nicht durch den Zoom hält und auch nicht mit vergrößert wir !

Gibt es dafür eine Lösung ?

Gruß

[Bummi]

Wenn der Button auch die Größe anpassen soll, könnte ScaleBy des Forms für Dich interessant sein (hat aber reichlich Seiteneffekte)

[Davidlocke13]

Tja das mit dem ScaleBy muss ich erst mal begreifen bevor ich das umsetzen kann ! Ich lese mich da mal durch die Seiten ;-)

[Davidlocke13]

Irgendwie werde ich aus dem ScaleBy nicht so schlau :cry:
Hoffe könnt mir da noch mal helfen

THX

[DeddyH]

Mir ist nicht ganz klar, was daran nicht zu verstehen ist: TWinControl.ScaleBy :gruebel:

[Davidlocke13]

Sorry das ich so ein Idiot bin !
Mitbekommen für was das ist habe ich !
Aber bekomme es damit nicht hin ne vernünftige procedure für meine Buttons zu bastel damit die auf ein und der selben Stelle bleiben und mit dem Zoom größer und kleiner werden !

[DeddyH]

Definier doch erst einmal "an der selben Stelle". Ich nehme einmal an, dass alle 4 Ecken manipuliert werden müssen, damit sie relativ zum Bild bleiben, oder?

[DeddyH]

Mir ist der Gedanke gekommen, dass man das doch mit einfacher Prozentrechnung lösen könnte. Dazu merkt man sich den prozentualen Anteil (als Gleitkommazahl für größere Genauigkeit) der Koordinaten relativ zum gewünschten Rechteck. Der Einfachheit halber habe ich hier testhalber einen neuen Datentyp definiert und als privates Feld in meinem Formular deklariert:

Delphi-Quellcode:

type
  TPercentRect = record
    Left, Top, Width, Height: double;
  end;

  TFormTest = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private-Deklarationen }
    FPercent: TPercentRect;
  public
    { Public-Deklarationen }
  end;

So, nun rechnet man vor der ersten Größenänderung den jeweiligen Anteil aus und merkt sich den im Record.

Delphi-Quellcode:

procedure TFormTest.FormCreate(Sender: TObject);
begin
  FPercent.Left := Button1.Left / ClientWidth * 100;
  FPercent.Top := Button1.Top / ClientHeight * 100;
  FPercent.Width := Button1.Width / ClientWidth * 100;
  FPercent.Height := Button1.Height / ClientHeight * 100;
end;

Wird nun die Größe geändert, rechnet man die neuen Koordinaten zurück und positioniert den Button neu.

Delphi-Quellcode:

procedure TFormTest.FormResize(Sender: TObject);
var
  NewLeft, NewTop, NewWidth, NewHeight: integer;
begin
  NewLeft := round(ClientWidth / 100 * FPercent.Left);
  NewTop := round(ClientHeight / 100 * FPercent.Top);
  NewWidth := round(ClientWidth / 100 * FPercent.Width);
  NewHeight := round(ClientHeight / 100 * FPercent.Height);
  Button1.SetBounds(NewLeft, NewTop, NewWidth, NewHeight);
end;

In einem kleinen Testprogramm funktioniert das abgesehen von logischerweise auftretenden kleinen Rundungsungenauigkeiten ganz gut. Normalerweise würde ich zwar eher den Button ableiten und den Record dort deklarieren, aber ich wollte es so einfach wie möglich halten.

[Davidlocke13]

unter Var bei der procedure TForm1.FormCanResize werden mir NewWidth, NewHeight mit folgendem Fehler angezeigt:

[Pascal Fehler] WerkPlan.pas(71): E2004 Bezeichner redefiniert: 'NewWidth'

[Pascal Fataler Fehler] Werk2Plan.dpr(5): F2063 Verwendete Unit 'WerkPlan.pas' kann nicht compiliert werden

[DeddyH]

In der CanResize-Methode werden NewWidth und NewHeight als Parameter übergeben, Du kannst also entweder auf OnResize ausweichen wie in meinem Beispiel oder Du benennst die lokalen Variablen um.