kein ZEichnen auf vergrößerten Image

[punker-lili]

Hi Leute!

Mein Programm liest Notenwerte aus einer Datei aus und zeichnet diese. Leider weiß ich nicht wie viele Wert darin stehen, das es schnell zum Fall kommen kann, das das Image voll ist. Daher wollte ichs dynamisch nach jeden Durchlauf eine neue Breit geben, leider funktioniert das nicht. Es wird nur soviel angezeigt, wie am Anfang die Maße bestimmt wurden. Woran kann das liegen?

MfG Anna

[mkinzler]

Verwende doch ein 2-Pass-Verfahren. Erst Einlesen um das Maximum zu ermitteln, damm geht es einfacher

[punker-lili]

Danke! ich versuchs mal...

[punker-lili]

Darf ich aber wenigstens erfahren, warum das mit dem iamge nicht so einfach funktioniert?

[mkinzler]

Ich hab dich falsch verstanden. Wie versuchst du das Image zu vergrößern? Warum kein 2., 3. ... Zeile?

[punker-lili]

ich wollte es einfach mit image1.height oder image1.weidth vergrößern... aber das klappt nicht. Das image nimmt zwar den Platz ein, aber es wird nicht als LEinwand benutzt.
Naja ich gehe auch in die nächste Zeile, aber dort weiß ich auch nicht wie weit es geht. Daher muss ich irgendwie das Image vergrößern können... aber wie?

[mkinzler]

Solle aber gehen, wo vergrößerst du?

[punker-lili]

Ich stecke jeden Wert in meiner Datei in einen Array, diese lass ich dann nach einander durchs Programm laufen. Dort werden dann als erstes die Koordinaten des Kreises für den Noten berechnt. Wenn ich diese hab, weiße ich den x - WErt dem Image zu, da es ja mindestens so Breit sein muss.

[mkinzler]

In welcher Methode?

[extrem]

Zitat:

Zitat von punker-lili

ich wollte es einfach mit image1.height oder image1.weidth vergrößern... aber das klappt nicht. Das image nimmt zwar den Platz ein, aber es wird nicht als LEinwand benutzt.

Hi

Hast du schon mal versuch die Größe von Graphic zu ändern, ich meine etwa so:

Delphi-Quellcode:

  Image1.Canvas;//damit Graphic <> nil
  if assigned(Image1.Picture.Graphic) then
  begin
    image1.Width := ...;
    image1.Height := ...;
    Image1.Picture.Graphic.Width := image1.Width;
    Image1.Picture.Graphic.Height := image1.Height;
  end;