---

Hello NG..

Jeg er ved at lave en lille billed database, hvor ikke alle billeder er at
samme størrelse...

Hvis jeg anvender stretch , bliver nogle af billederne helt deforme..
Er der en mulig hed for at evt sige Imasize = 50%

Det drejer sig om JPEG billeder i Delphi 5..

Jeg håber på lidt hjælp...

MVH Jan Clausen

---

Jan Clausen wrote:
>
> Hello NG..
>
> Jeg er ved at lave en lille billed database, hvor ikke alle billeder er at
> samme størrelse...
>
> Hvis jeg anvender stretch , bliver nogle af billederne helt deforme..
> Er der en mulig hed for at evt sige Imasize = 50%
>
Ikke indbygget, men en algoritme her:

1: find den største af height og width.
2: divider denne med den tilsvarende af billedfeltet.
3: dette er din "scale"
4: gang både height og width med denn "scale" og sæt stretch til
5: Et Viola! Et skaleret billede!

(det kan være at "2" skal byttes omkring)

> Det drejer sig om JPEG billeder i Delphi 5..
>
> Jeg håber på lidt hjælp...
>
> MVH Jan Clausen


--
>o ********* PINKY! aka. Rasmus Klitgaard-Nielsen *********
<()> **** Mad Programmer - Commodore Freak - ABP regular ****
^^ "Can't sing. Can't dance. Can handle a sword a little."
-- Victor's resume (Terry Pratchett, Moving Pictures)

---

>> Hvis jeg anvender stretch , bliver nogle af billederne helt deforme..
>> Er der en mulig hed for at evt sige Imasize = 50%

Følgende stump kode er taget fra et rigtigt program, der i opløsning 800x600
viser et billede i fuld størrelse. Det har vist kun et problem - nemlig når
vandret/lodret forhold ("aspect ratio") er mindre end skærmen. Lidt
tilretning af dette skulle løse dit problem:

Scale := TJPEGScale(jsFullSize);
// nødvendig pga stretch:
if Image1.Picture.Width > Image1.Picture.Height then { styr efter
bredde }
Scrollbox1.Height:=trunc(Image1.Picture.Height /
(Image1.Picture.Width / 800))
else { styr efter højde }
Scrollbox1.Width:=trunc(Image1.Picture.Width /
(Image1.Picture.Height / 600));
Image1.Stretch := true;
Image1.Autosize := false;

(billedet ligger inde i en scrollbox)

M.v.h.
Olav M.J. Christiansen
IT Consultant
Jydholm IT
omjc@ingenspamtakjydholm.dk / omjc@ingenspamtake-kontor.dk