FillRect funktioniert nicht

[Nonsense]

Hallo,
ich möchte gerne auf die Canvas vom Formular zeichnen, klappt aber nicht. Ich kriege keinen Fehler, er zeichnet einfach nicht. Wenn ich mit dem gleichen Code auf eine PaintBox male, klappt es. Weiß jemand warum? Es liegt 100% am FillRect, ich weiß nicht, was ich dort an Werten übergeben soll.

Delphi-Quellcode:

procedure DrawScreen;
begin
 with Background.Canvas do
 begin
  Brush.Color := RGB(0, 0, 0);
  FillRect(Game.ClientRect);
 end;

 Game.Canvas.Draw(0, 0, Background);
end;

Danke!

[Niko]

Wenn Background ein TBitmap ist, überprüfe mal ob du ihm vor dem Aufruf von FillRect eine Größe zugewiesen hast.

[Nonsense]

Ja, natürlich!

Delphi-Quellcode:

procedure TGame.FormCreate(Sender: TObject);
begin
 Background := TBitmap.Create;

 Background.Height := Game.ClientHeight;
 Background.Width  := Game.ClientWidth;

 DrawScreen;
end;

[Nonsense]

Habe es auch mit

Delphi-Quellcode:

  FillRect(Rect(0, 0, Game.ClientHeight, Game.ClientWidth));

probiert, klappt aber immer noch nicht.

[himitsu]

Ist auch der richtige Pinsel zugewiesen?

Delphi-Quellcode:

Background.Canvas.Brush.Style := bsSolid;

Ansonsten ist hier noch was zum versuchen:

Delphi-Quellcode:

Background.Canvas.Brush.Style := bsSolid;
Background.Canvas.Brush.Color := RGB(0, 0, 0);
Background.Canvas.FillRect(Game.ClientRect);

{ oder }

{Background.Canvas.Brush.Style := bsSolid;}
Background.Canvas.Pen.Color := RGB(0, 0, 0);
Background.Canvas.Brush.Color := Canvas.Pen.Color;
Background.Canvas.Rectangle(0, 0, Game.Width, Game.Height);

[Nonsense]

Danke @himitsu, es klappt aber beides nicht. Mein Formular bleibt leer :(

[himitsu]

wird DrawScreen nur in OnCreate aufgerufen?

[Nonsense]

Mhh, der Gedanke kam mir auch gerade. Eigentlich müsste es ja in's OnPaint... :wall:

Danke trotzdem nochmal!

(ich zieh jetzt lieber den Kopf ein und renne weg... :zwinker: )

[himitsu]

Genau.

Delphi-Quellcode:

{Game / OnCreate}
Procedure TGame.FormCreate(Sender: TObject);
  Begin
    Background := TBitmap.Create;
    Background.Height := Game.ClientHeight;
    Background.Width  := Game.ClientWidth;
  End;

{Game / OnPaint}
Procedure TForm1.FormPaint(Sender: TObject);
  Begin
    DrawScreen;
  End;

{Game / OnDestroy}
Procedure TGame.FormDestroy(Sender: TObject);
  Begin
    Background.Free;
  End;