Hi, ich hab nen TImage, auf dat ich über canvas ein weißes rechteck(als zeichenfläche) zeichne. Nun kann man da über ne andere Schaltfläche z.B ein rechteck drauf zeichnen, und dann soll über eine andere schaltfläche das bild vergrößert/verkleinert werden, wobei die prozentzahl angegeben werden können. Das Problem ist, dass die größe der TImages sich nit ändern darf, sondern nur der inhalt.
Mein versuch war jetzt, das TImage auf die Gewünchte größe zu bringen, und mit stretch dat bild anzupassen, soweit gings auch, nur da ich dat TImage ja nicht vergrößern darf, hab ich das stretch ausgestellt, und dann Timage wieder auf originalgröße gebracht, nur leider hat der dabei das bild auch wieder kleiner/größer.
gibt es da irgendne möglichkeit??
mein versuch:
Delphi-Quellcode:
procedure einlesen(var hoehe,breite,zoom:integer);
begin
zoom:=se_zoom.value;
hoehe:=300;
breite:=600;
end;
procedure zoomen(var hoehe,breite,zoom:integer);
begin
imBild.stretch:=true;
ImBild.Height:=hoehe+((hoehe div 100)*se_zoom.Value);
ImBild.width:=breite+((breite div 100)*se_zoom.Value);
imBild.stretch:=false;
ImBild.Height:=hoehe;
ImBild.width:=breite;
end;