Zeichnen auf Image mit zoom

[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 ?

[himitsu]

Zitat:

Wenn ich das Image 2 mal verkleinern wie breit soll Image.canvas.pen.Width sein ?

Halbsobreit?


Wie wäre es, wenn du vor einfach dem verkleiner alles darauf zeichnest?

Originalbild > neues Bild mit Draufgezeichnetem > gezoomtes Bild

[thomas2009]

Noch ein mal
beim zoom 100% (kein Zoom) ist beim Zeichnen die canvas.pen.width :=1; also 1 Pixel

Nun möchte ich das Bild 50% verkleinern (Faktor=0,5)
bei diesem zoom möchte auf das Image zeichnen
wie kann ich eine pen.Width von 0,5 pixel eingeben !

Beim Vergrössern ist ja kein Problem

[wicht]

Was meinst du denn, wie ein halber Pixel so aussieht?

Aber das ist am Ende Kinderkram. Ich manipuliere halbe Bits, das ist Hard-Mode für echte Profis!

[thomas2009]

Darum ist das Zoomen bei MS Paint beschränkt
nur vergrössern erlaubt

[wicht]

Zoomen ist beschränkt, aber Vergrößern erlaubt? Schließt sich das nicht irgendwie aus? Naja, ich habe leider schon ein paar Bier getrunken. Vielleicht kann ich diese komplizierten Zusammenhänge nicht mehr fassen

[thomas2009]

zoom besteht aus zoom out und zoom in auf Deutsch (verk./verg.)
Zoom out ist bei mspaint nicht möglich. was ist nun nicht klar