Graphi zoomen

[Thorben86]

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;

[Thorben86]

kann mir hier keiner helfen, oder wenigstens nen kleinen tipp geben?

[edit=Luckie]Es wird hier nicht gerne gesehen, wenn schon nach wenigen Stunden das Topic wieder nach oben geholt wird. Und der ist auch überflüssig: Mfg, Luckie[/edit]

[Benedikt]

Hi,

die Such-Funktion sollte dir bei deinem Problem eigentlich weiterhelfen:

Bild AND Vergrößern

[Thorben86]

Hab ich, aber da geht es überall nur um Bilder von der Festplatte und ich hab es nicht geschafft, dass so umzudenken, dass man dass auf ein nicht-gespeichertes anwendet.