Zoom funktion på picture.

Gå ind på denne adresse.
http://www.torry.net/graphics_eff.htm

Søg så efter denne sætning.
\"with zoom capabilities\"

Så finder du en \"TImage-agtig\" komponent med zoomfunktion.

Hvis du selv vil gøre det, har jeg ingen ideer.

/SpEeDy

Jeg tænkte mere på eks. Image1.picture.width := 100.... Så man selv kunne vklge hvor mange pixels bred billedet skulle være..

Image1.picture.width := 100 <--- denne funktion findes bare ikke, men findes der noget ligende!!

nå ok.

Du har dit billede på I Image1 f.eks.

Så vil du have det over i Image2.

var
  myRect: TRect;
begin
  myRect.Left := 0;
  myRect.Top := 0;
  myRect.Right := Din_Bredde;;
  myRect.Left := Din_hojde;
  Image2.Width := Din_Bredde;
  Image2.Height := Din_hojde;
  Image2.Canvas.StretchDraw(MyRect, Image1.picture);
end;

Så skulle det gerne virke.

/SpEeDy

Det er lige meget!!!! Jeg har lavet e nødløsning som virker!! Ellers tak!

Du er da fedtet!! Du har lige afvist 3 af mine svar, som var rigtige!

Se spm. :

http://www.eksperten.dk/spm/55577
http://www.eksperten.dk/spm/40876
http://www.eksperten.dk/spm/33916

Hvad er du ude på ?? Du har fået fine besvarelser alle tre gange!

Er du i point-mangel ??

Jeg synes bare det virker underligt!

/SpEeDy