TPaintBox resizen

[ThE_-_BliZZarD]

Hallo liebe Gemeinde,

ich habe folgendes Problem:

Auf meinem Form liegt eine TPaintBox (heißt DisplayImage), die ich resizen möchte und zwar während das Form resized wird.

Ich habe also im Form (FMain) eine OnResize-Methode eingetragen, diese wird auch aufgerufen, darin machen ich folgendes:

Delphi-Quellcode:

procedure TFMain.FormResize(Sender: TObject);
begin
   DisplayImage.Width  := FMain.ClientWidth;
   DisplayImage.Height := FMain.ClientHeight;
   
   DisplayImage.Canvas.Brush.Color := clGreen;
   DisplayImage.Canvas.Brush.Style := bsSolid;
   DisplayImage.Canvas.Rectangle(0, 0, DisplayImage.Width, DisplayImage.Height);
end;

Meiner Meinung nach sollte nur das Formular immer grün erscheinen und auch während/nach einem Resize grün sein.
Dies ist nicht der Fall, es blitzt manchmal grün auf aber dann ist alles wieder grau (die Standard-bg-color von Delphi-Forms).

Was mache ich falsch, was muss ich noch hinzufügen?
Vielen Dank schon mal für eure Mühe :)

[jfheins]

1. Kennsst sud die Anchors? Nein? Guck sie dir mal an ;)

Zitat:

Zitat von ThE_-_BliZZarD (Beitrag 1035179)

Was mache ich falsch, was muss ich noch hinzufügen?

2. Du zeichnest die Paintbox nicht im OnPaint. Lösung: Bemale die Paintbos im OnPaint Ereignis. Das wird dann automatisch aufgerufen wenn neugezeichnet werden soll.

[Blup]

Delphi-Quellcode:

DisplayImage.Align := alClient;

Sollte in diesem Fall sogar noch besser funktionieren.

Allerdings stellt sich die Frage, warum in diesem Fall überhaupt noch eine Paintbox?
Das Formular hat einen Canvas und ein OnPaint-Ereignis.
Zusätzlich kann man sogar die Hintergrundfarbe einstellen.