image zoomen

[markus lemcke]

Hallo,

habe folgenden code im netz gefunden:
<pre>
//bild zoomen

procedure TForm1.zoom(bild:TRotateImage;zoomfaktor:integer);

begin

PnlBild.Width := (bild.picture.Graphic.width * zoomfaktor) div 100 ;

PnlBild.height := (bild.picture.Graphic.height * zoomfaktor) div 100;

bild.width := (bild.picture.Graphic.width * zoomfaktor) div 100 ;

bild.height := (bild.picture.Graphic.height * zoomfaktor) div 100;

bild.stretch := True;

end;
</pre>
weil meine timage-komponente auf einem panel liegt, habe ich das mit pnlbild eingebaut.
aber irgendwas ist faul!
wenn die Bilder von hochformat (höhe ist größer als breite) in querformat(breite ist größer als höhe) wechseln, werden die bilder ganz merkwürdig dargestellt! wie funzt es richtig?

Gruß

Markus

[DirkMüller]

Hallo Markus,ich kann dir nur Empfehlen von TImage eine ableitung auf ein Activex Steuerelement zumachen,dann kannst du nämlich die Zoomfunktion aus der OLE benutzen und Sparst dir viel ärger.
Delphi hat leider einige Bugs und ich weiß jetzt auch nicht was für ne Version du benutzt,kann dir aber eigentlich für Win32 nur Delphi5 empfehlen.
Das ist meiner meinung nach die Stabilste Delphiversion.
Gruß dir

[Dietmar Elsässer]

Schau Dir mal Graphics32 an "http://sourceforge.net/projects/graphics32". Zoom, Layer uns. sind möglich. In ruhe mal die umfangreiche Beispielsammlung anschauen lohnt sich. Hier im Forum gibt es ein Beispiel zum Thema Layer

[markus lemcke]

danke ihr beiden!
war whl ne einstellungssache von der image-kompo. inzischen tut es