TPaintBox Problem

[glunzl]

Hallo Leutz!

Ich doktor jetzt sein ein ppar Std an einer Paintbox rum, auf die ich mit MovoTo und LineTo etwas zeichnen möchte.
Dazu nutze ich folg. Code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
PaintBox1.Color := clblack;
PaintBox1.Width := Form1.ClientWidth ;
PaintBox1.Height := Form1.ClientHeight ;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with PaintBox1 do
begin
  canvas.MoveTo(0,0);
  canvas.LineTo(PaintBox1.ClientHeight, PaintBox1.ClientWidth);
end ;

1. Mit der Prozdeur TForm1.FormCreate sollte die PaintBox auf Form Größe kommen. Oder?

2. Ich bekomme aber nur einen Strich von oben links (ist ok) bis ca. zur Mitte, ganz unten. Wieso?

3. Warum wird durch PaintBox1.Color := clBlack der PaintBox-Hintergrund nicht schwarz???

Ich find den Fehler nicht. Hilft mir mal bitte jemand auf die Sprünge?

Danke!

[alcaeus]

Hi glunzl,

zu 1: Ja, sollte die Paintbox eigentlich. Du könntest aber auch Align auf alClient setzen (zur Entwicklungszeit)

zu 2: bei LineTo wird zuerst x, dann y angegeben. Der richtige Aufruf wäre deshalb:
canvas.LineTo(PaintBox1.ClientWidth, PaintBox1.ClientHeight); zu 3: du musst PaintBox1.Canvas.Brush.Color auf clBlack setzen, und anschließend mit FillRect ein gefülltes Rechteck zeichnen. Die DP-Suche sollte genug Ergebnisse finden.

Greetz
alcaeus

[glunzl]

Moin alcaeus!

Danke für Deinen Tipp ... Manchmal hat man einfach Tomaten auf den Augen...

Gruss
MG

[Muetze1]

Moin!

Vielleicht klappt es in der FormCreate so:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PaintBox1.Canvas.Brush.Color := clblack;
  PaintBox1.Width := ClientWidth ;
  PaintBox1.Height := ClientHeight ;
end;

Weil die Form1 Instanzenvariable innerhalb der Klasse zu verwenden ist gefährlich und kein einzigen Sinn/Nutzen...

MfG
Muetze1