TImage vergößern: Problem

[Mysterio08]

Guten Morgen,
ich habe folgendes Problem:
Ich möchte, dass mein TImage das ganze Formular füllt. Zuerst habe ich meiner Benutzeroberfläche den Wert WindowState-wsMaximized zugewiesen. Das stellt noch kein Problem dar.
Dann wollte ich das Image zu Beginn der Laufzeit vergrößern und habe folgenden Quelltext geschrieben:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
    Image1.Top:=0;image1.Left:=0;
    Image1.Canvas.Brush.Color:=RGB(215,215,215);
    Image1.Canvas.Pen.Color:=RGB(215,215,215);
    Image1.Canvas.Rectangle(0,0,2000,2000);
end;

Jetzt tritt etwas auf, was ich nicht verstehe: Das Image beginnt zwar oben links, wie geschrieben, doch füllt es nicht das ganze Formular, sondern nur den Teil, den ich im Objektinspektor eingestellt habe (das heißt es hat die Eigenschaften Heigth: 160 und Width:500). Wo ist mein Fehler?

mfg.

PS: Ich programmiere noch nicht sehr lange (ca. ein halbes Jahr) und erst recht noch nicht sehr lange mit Grafik, deswegen verstehe ich noch nicht sehr viel und bitte habt Verständnis, auch wenn es ein dummer Fehler sein sollte.

/Edit
OMG......sry, habs ja an total den falschen Platz gestellt.......omg, sorry, kann man das noch verschieben?

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Multimedia" verschoben.
In die Code-Library gehören nur funktionierende Code-Snippets.

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Multimedia" nach "VCL / WinForms / Controls" verschoben.
Ups, doch eher VCL, da TImage.

[nuclearping]

Hallo und willkommen in der DP!

1.) Falsches Forum. ;)

2.) Du mußt das Bitmap des Images anpassen.

Delphi-Quellcode:

Image1.Picture.Bitmap.Assign (nil);
Image1.Picture.Bitmap.Width := 2000;
Image1.Picture.Bitmap.Height := 2000;

[Matze]

Hallo, herzlich Willkommen!

Du musst die Image-Größe noch ändern:

Delphi-Quellcode:

Image1.Width := ...;
Image1.height := ...;

Oder wenn es formatfüllend sein soll, reicht auch eine Zuweisung im Objektinspektor bzw. im OnCreate:

Delphi-Quellcode:

Image1.Align := clClient

Hinzu kommt, dass du die Größe des Bitmaps noch ändern musst:

Delphi-Quellcode:

Image1.Picture.Bitmap.Width := Form1.ClientWidth;    // Wert ggf. anpassen
Image1.Picture.Bitmap.height := Form1.ClientHeight;  // Wert ggf. anpassen

Grüße, Matze


Edit: NuclearPing hat aber auch einen niedrigen Ping und war somit wohl etwas schneller als ich mit dem Antworten. :stupid:

[mkinzler]

Du musst die Größe des TImages an die Größe der Form koppeln.

Setze Image.Align auf alClient

[Mysterio08]

Danke für Eure schnellen und sehr hilfreichen Antworten! Ich hab es jetzt so hinbekommen, wie ich es mir gewünscht habe.

Und Entschuldigung nochmal, dass ich es ins falsche Forum gesetzt habe, aber das hat sich ja durch das Verschieben erledigt; ich werde bei weiteren Anliegen darauf achten.
mfg.