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!