Skalering af billede i Image

Det er ikke så svært .. Du starter med at sætter Stretch til true. Og s åResizer du blot din Image kontrol.

Jens B

Hmm - Det er nok mest det der er problemet....at resize.

er så dum at jeg ikke kan finde ud af det!

/Stalle

Du skal starte med at beregne forhold mellem længde og brede :

ratio := Image1.Length/Image1.Width;

Når så du resizer i den ene eller den anden retning er det blot atr gange dennne fakto på. Og hvordan resizer du så ? Joe .. Di ændere enten Width eller lenght ....

Skal jeg svare mere konkret skal jeg vide noget mere om hvad der er du laver ...

Jens B

Tror jeg skal uddybe mig noget mere.

Min Image komponent, skal hele tiden have den samme størrelse. Når jeg så henter et billede ind i den, og dette ikke har en størrelse der passer til Image komponenten, og jeg sætter gang i noget stretch, bliver billedet helt forkert.
Så er det, at jeg godt kunne tænke mig, at billedet, når jeg stretcher, fik det samme forhold, mellem Højde og Brede, som jeg vil mene de hedder.

Udover det, er der heller ikke noget der hedder Image1.Length

Håber det er til at forstå.

Ellers kan du prøve at hente programmet --->> http://www.tstalle.dk/LynLogViewer.exe
(Det er så under IRC venner)

/Stalle

Et lille eksempel på hvordan du kan holde de korrekte forhold. Kald den med den ønskede bredde på dit image.

procedure SetSize(Width: integer);
var Ratio: double;
begin
  Ratio := 1 / (Image1.Width / Image1.Height);
  Image1.Width := Width;
  Image1.Height := Round(Width * Ratio);
end;