Formular an Objekte anpassen

[Delphi-Narr]

Hallo,
ich habe ein Programm, bei dem der Nutzer die größe eines Objekts auf der Form anpassen kann (TImage).
Doch es vergrößert sich nur die Scrollbar, nicht aber die Zeichenfläche (Ich passe erst Höhe und Breite des Timage an, dann fülle ich es neu).
Weiß jemand, woran das leigen könnte???

Liebe Grüße!

[s.h.a.r.k]

Ein TImage hat doch keine Scrollbar, daher vergrößerst du irgendwas anderes.

[Delphi-Narr]

Nein, das Formular bekommt Scrollbars. Das TImage wird vergrößert (von width 800 auf 1200, was dann größer ist als der Bildschirm:

Delphi-Quellcode:

     Form2.Bild.width:=Breite.value;
     Form2.Bild.height:=hoehe.value;
     Form2.Bild.Canvas.Brush.color:=HGFarbe.brush.color;
     Form2.Bild.canvas.fillrect(rect(0,0,Form2.Bild.width,Form2.Bild.height));
     Form2.show;
     Form3.hide;

Doch das Image wird nicht größer...

[DeddyH]

Nimm mal statt des Image eine Paintbox und zeichne in deren OnPaint-Ereignis.

[himitsu]

Wenn ein TImage vergrößert wird, dann vergrößert sich nicht deren Inhalt.
(abgesehn von der Stretchgeschiechte, wo das Bild nur verzerrt angezeigt wird)

Wenn dieses also mit angepaßt werden soll, dann mußt du auch noch das enthaltene Bild vergrößern.

[Namenloser]

Wie wäre es mit TForm.AutoSize?

[DeddyH]

Er hat ja gar kein Bild geladen, sondern zeichnet selbst auf dem Canvas herum (zumindest laut Code).

[Namenloser]

Zitat:

Zitat von DeddyH (Beitrag 1026427)

Er hat ja gar kein Bild geladen, sondern zeichnet selbst auf dem Canvas herum (zumindest laut Code).

Ja, aber er verändert trotzdem die Größe des Images.

[DeddyH]

Richtig, aber ich bezog mich auf

Zitat:

Doch das Image wird nicht größer...

Logisch, wenn man nicht im richtigen Ereignis zeichnet.

[himitsu]

Wenn in TImage kein Bild enthalten ist, dann wird beim Zugriff auf das Canvas ein TBitmap erstellt und .Picture zugewiesen (irgendwo muß die Zeichnung ja rein).
Diese Bitmap bekommt genau die Größe des TImage (halt nur soviel wie nötig).

Bei einer Größenänderung werden aber enthaltene Bilder nimals angepaßt.

Heißt also, wenn man ein TImage in seiner Größe ändert, dann muß auch das enthaltene TBitmap mit angepaßt werden (vorallem bei einer Vergrößerung des TImage, wo das Bitmap dann zu klein wäre), wenn man dieses für eine Zeichenausgabe im kompetten Bereich nutzen will.

[Delphi-Narr]

Zitat:

Zitat von DeddyH (Beitrag 1026427)

Er hat ja gar kein Bild geladen, sondern zeichnet selbst auf dem Canvas herum (zumindest laut Code).

Stimmt. Es ist, wenn man das geladene Bild löschen möchte und es in der Größe Breite x Höhe wieder neu haben will. Darum wird erst die Höhe und Breite verändert, dann wird das ganze übermalt...

Auch OnFormCreate wird die Größe angepasst, doch da funktioniert das. Es funktioniert nur nicht, wenn es über die Fenstergröße hinweg vergrößert wird.

Edit: Mit Bild.picture.width:=Breite.value klappt es, danke!!!

[Namenloser]

Achso, jetzt verstehe ich, was ihr meint. Ich dachte er wollte verhindern, dass das Formular Scrollbalken bekommt, wenn das Bild vergrößert wird, sondern sich stattdessen selbst an die Größe des Bildes anpasst.