Zeichnen auf Image mit zoom

[thomas2009]

Hallo,

ich suche eine Lösung, wie man die Image zoomt und dann drauf zeichnet
Das ist meine erste Idee um einen Zoom Faktor zu berechnen
Vielleicht hat jemand noch eine bessere Idee

Meine Frage ist folgendes :
Ist die Berechnung mit Trunc oder Round nicht so gefährlich und nicht genauer, wenn ich beim Zeichnen den berechneten Faktor verwende ?

Delphi-Quellcode:

var
  Form1: TForm1;
  zoom: Real;

implementation

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if Trackbar1.Position > 10 then begin
zoom:=Trackbar1.Position-10; end;

if Trackbar1.Position = 10 then begin
zoom:=1; end;

if Trackbar1.Position < 10 then begin
zoom:=Trackbar1.Position/10; end;

Edit1.Text:= FloatToStr(zoom);

//Image1.Stretch:=True;
//Image1.autosize:=False;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Trackbar1.Position:=Trackbar1.Position+2;
Image1.Width:=Round(Image1.Picture.Width*zoom);
Image1.Height:=Round(Image1.Picture.Height*zoom);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Trackbar1.Position:=Trackbar1.Position-2;
Image1.Width:=Round(Image1.Picture.Width*zoom);
Image1.Height:=Round(Image1.Picture.Height*zoom);
end;

end.

[DeddyH]

Prozentrechnung und die Grafik skalieren, ist das so schwer?

[s.h.a.r.k]

Das kann hier echt nicht dein Ernst sein?! Deine Threads sollte man zunächst alle auf geschlossen setzen und erst deren Inhalt auf Sinn prüfen...

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if Trackbar1.Position > 10 then begin
zoom:=Trackbar1.Position-10; end;

if Trackbar1.Position = 10 then begin
zoom:=1; end;

if Trackbar1.Position < 10 then begin
zoom:=Trackbar1.Position/10; end;

Edit1.Text:= FloatToStr(zoom);

Image1.Stretch:=True;
Image1.autosize:=False;


end;

Wie oft willst du Stretch und Autosize denn setzen?!

[thomas2009]

Zitat von DeddyH:

Prozentrechnung und die Grafik skalieren, ist das so schwer?

Meinst Du besser die Bitmap skalieren statt das Strecke zu verwenden ?
Aber das ständige skalieren von Bitmap geht die Qualität verloren
Oder habe ich falsch verstanden ?

Zitat von s.h.a.r.k:

Wie oft willst du Stretch und Autosize denn setzen?!

man kann die 2. Zeilen wegnehmen. ok

[DeddyH]

Meine Güte Behalt die Originalgrafik im Speicher, erstelle beim Zoomen eine neue aus dem Original, skaliere diese und lade sie ins Image. Wird der Zoomfaktor geändert, wiederholst Du das Ganze. Mit ein bisschen Hirnschmalz kann man darauf kommen, oder?

[thomas2009]

Wenn man die Bitmap 10x skaliert und dann drauf Texte, Grafiken, ... zeichnet und wieder 10x verkleinert, bleibt die Qualität 100% die selbe ?

[DeddyH]

Du hast schon gelesen, was ich geschrieben habe? Wenn ja, hast Du es auch verstanden?

[mkinzler]

Das Quellimage ist ja immer das Selbe.
Wenn du natürlich im das Ergebnis als Quelle der nächsten Skalierung verwendest natürlich nicht.

[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