Entwickler-Ecke :: Thema anzeigen - Größe eines TImage wärend der Laufzeit ändern

ggehrma - So 24.07.05 20:53
Titel: Größe eines TImage wärend der Laufzeit ändern

Hallo,

Ich habe ein TImage auf dem wärend der Laufzeit gezeichnet wird. Nun kann es aber passieren, dass mehr gezeichnet werden soll als Platz auf dem TImage ist. In diesem Fall möchte ich die Größe des TImage so anpassen, dass alles darauf Platz hat und das Form gescrollt werden muss. Wie kann ich das am besten erreichen?

Danke.
mfg, ggehrma.

ggehrma - So 24.07.05 21:23

Matthias-K hat folgendes geschrieben:

indem du width und height setzt!

Nein, eben nicht! Damit verändert man nicht den zeichenbaren Bereich.

Matthias-K - Mo 25.07.05 09:39

Dann erklärs genauer, das man weis, was du von einem willst!

wenn du sagst, du willst das image vergrößern, dann schließe ich daraus, das du das image vergrößern willst!

und wenn ich dann lese: "Nein, eben nicht!".

Drücke dich bitte etwas gewählter aus! in der Fragestellung SOWIE in der Antwort.

maxk - Mo 25.07.05 12:01

Falls du das Canvas vergrößern willst: 1) Bild in Bitmap temporär kopieren 2) Image1.Picture:=nil; 3) FillRect benutzen, um die Größe festzulegen 4) Temporäres Bitmap wieder draufpacken

Gruß,
maxk

*Matthias-K Recht geb*

Popov - Mo 25.07.05 12:30

In dem du bei der TImage AutoSize auf TRUE setzt und die TImage in eine ScrollBox einfügst ;)

Beispiel als Anlage:

ggehrma - Di 26.07.05 15:00

Ok, hab mich vielleicht etwas undeutlich ausgedrückt. Sorry.

Ich möchte die Zeichenfläche meines TImage wärend der Laufzeit vergrößern. Dachte da an sowas:

Quelltext

1:	TImage1.Picture.Width := TImage.Picture.Width + 50;

Aber leider ist Picture.Width ja nur ReadOnly.

@maxk: Hört sich ganz gut an was du da schreibst. Aber geht das nicht vielleicht noch etwas einfacher?

maxk - Di 26.07.05 19:40

Nicht das ich wüsste. Ich sitze gerade nicht an meinem Delphirechner, aber evtl. kann dir TPaintbox auch weiterhelfen, da du ja sowieso selbst zeichnen willst. Was ich oben beschrieben habe, ist übrigens nicht "schwierig". Das ist ein Code von (wenn er sauber geschrieben ist!) etwa 7 Zeilen. Versuch es, so wie es beschrieben ist. Wenn du Probleme hast, frag nochmal nach ;)

Gruß,
maxk

ggehrma - Fr 29.07.05 15:09

Hallo,

ich hab das jetzt so gemacht:

Delphi-Quelltext

1:
2:
3:
4:
5:

    tempBild := frmStat.Bild.Picture.Bitmap;
    frmStat.Bild.Picture := nil;
    frmStat.Bild.Width := frmStat.Bild.Width + (Ext.Count-21)*XE;
    frmStat.Bild.Canvas.Rectangle(0,0,frmStat.Bild.Width, frmStat.Bild.Height);
    frmStat.Bild.Picture.Bitmap := tempBild;

Funktioniert aber lieder nicht. Wo liegt mein Fehler?

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

jaenicke - Fr 29.07.05 15:14

Bitmap lässt sich so nicht zuweisen (letzte Zeile). Das geht, wenn, dann mit Assign. Aber du solltest das tempBild stattdessen mit Draw auf dein Image zeichnen. Ansonsten bringt die deine vorletzte Zeile rein gar nix, wenn die letzte funktionieren würde, da das alles wieder weg wäre...

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!