Zeichnen auf Image mit zoom

[DeddyH]

Siehste, Markus hat es gleich kapiert. Manchmal habe ich das Gefühl, ich poste hier in Suaheli

[mkinzler]

Zitat:

Siehste, Markus hat es gleich kapiert. Manchmal habe ich das Gefühl, ich poste hier in Suaheli

Vielleicht würde er das ja verstehen

[DeddyH]

Möglicherweise, er lässt sich ja selbst auf Anfrage nicht auf Einzelheiten zu seiner Person aus, obwohl das unter Umständen zumindest ein bisschen zum Verständnis beitragen könnte.

[Bjoerk]

Google "delphi grafik skalieren"

1. Suchergebnis:

http://www.swissdelphicenter.ch/de/showcode.php?id=1806

[DeddyH]

Oder man rechnet die prozentuale Größe vorher aus und nimmt dann z.B. mein StretchGraphic.

[thomas2009]

Zitat von DeddyH:

Oder man rechnet die prozentuale Größe vorher aus und nimmt dann z.B. mein StretchGraphic.

Schon getestet. es ist OK
Der Code aber kann nur vergrössern, da du Integer verwendest für desWidth, desHeight
Ich versuche nun deinen Code zu ändern, so dass ich auch den Grafik verkleinern kann
StretchGraphic(Image2.Picture.Graphic,Image1.Picture.Graphic, w*zoom, h*zoom);

[himitsu]

Falsch, sein Code kann auch verkleinern.
Der Typ hat hier rein garnichts mit dem Vergrößerungs-/Verkleinerungsfaktor zu tun, da dort nicht der Faktor angegeben wird, aber egal...

Wenn man den wichtigen Teil aus seinem Code rausnimmt, die Berechnung des Faktors übergeht und seinen Faktor direkt verwendet, dann ist es schon richtig so.

[thomas2009]

Ich muss die neue Breite und die neue Höhe vorher je nach dem angegeben Faktor berechnen

Ich habe folgendes gemacht :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
NewWidth, NewHeight : Integer;
begin
zoom:=StrToFloat(Edit1.Text);
NewWidth:=Round(zoom*Image2.Picture.Width);
NewHeight:=Round(zoom*Image2.Picture.Height);
//StretchGraphic(Image2.Picture.Bitmap,Image1.Picture.Graphic,  300, 300);
StretchGraphic(Image2.Picture.Graphic,Image1.Picture.Graphic,  NewWidth, NewHeight);
end;

Also mit dem skalieren ist nun kein Problem
Nun möchte ich auf dem skalierten Image zeichnen
d.h. ich muss auch beim zeichnen alles * zoom multiplizieren
zum Beispiel : Image2.canvas.pen.Width:=1*zoom
Beim Vergrössern ist kein Problem aber was wäre beim Verkleinern ? Wenn ich das Image 2 mal verkleinern wie breit soll Image.canvas.pen.Width sein ?

[DeddyH]

Zitat von thomas2009:

Der Code aber kann nur vergrössern, da du Integer verwendest für desWidth, desHeight

Nur mal so nebenbei: ich hatte den Code ursprünglich geschrieben, weil ich Grafiken verkleinern wollte

[Deep-Sea]

@Bjoerk:
Wie kannst du nur so etwas kompliziertes, wie mit Google suchen, verlangen


@DeddyH:
Das Wort Suaheli ist veraltet, damit du modern bleibst, musst du jetzt Swahili nutzen