Streckungsfaktor in eigenem Bildbearbeitungsprogramm

[delphiNoob]

Hallo an alle!!

Ich hab mich mal an einem Bildbetrachter versucht, der unter anderem die angezeigtem Bilder strecken können soll.
Ähnlich wie bei Paint soll man hier den Prozentwert des gestreckten bildes vom original eingeben.

Den Faktor rechnet Delphi dann folgendermaßen aus:

Delphi-Quellcode:

...
function CalculateY(y : Integer):Integer;
var
factor : Extended;
begin
factor := y div 100;
...

y ist die aktuelle Höhe des Bildes.

dann wird die neue Höhe des Bildes ausgerechnet:

Delphi-Quellcode:

...
yres := Round(factor * cury);
...

aber das ganze funktioniert leider nur bei einem Streckungsprozentsatz größer oder gleich 100

was hab ich falsch gemacht?

DelphiNoob

[dizzy]

Nimm anstelle von "div" mal "/"

[delphiNoob]

Danke jetzt funktioniert es

DelphiNoob

[delphiNoob]

Ich hab noch ne Frage...

wenn ich das Bild jetzt gestreckt habe, wie kann ich es dann gestreckt speichern, denn so:

Delphi-Quellcode:

...
if sd.Execute then
Image.Picture.SaveToFile(sd.FileName);
...

speichert er das Bild nur ungestreckt.

DelphiNoob