Problem: Canvas zeichnet nicht!

[Martin K]

Hi,
ich habe folgendes Problem:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Font.Color := clRed;
  Label1.Canvas.Pen.Color := clGreen;
  Label1.Canvas.MoveTo(0, 0);
  Label1.Canvas.LineTo(20, 10);
end;

Wenn ich auf den Button klicke, wird nur die Schriftfarbe rot.
Erst beim zweiten Klick auf den Button wird die grüne Linie gezeichnet.

Woran liegt das?
Wie kann ich das ändern?????

[mkinzler]

Label1.Update; ?

[Martin K]

Ja, super!!!

Danke, das hat geklappt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Label1.Font.Color := clRed; 
  Label1.Update; //  <--- hier eingefügt
  Label1.Canvas.Pen.Color := clGreen; 
  Label1.Canvas.MoveTo(0, 0); 
  Label1.Canvas.LineTo(20, 10); 
end;

Verstanden habe ich es aber trotzdem nicht...

[R2D2]

Das Label1.update bewirkt, dass Delphi das Label aktualisiert.

Desshalb wird der neue Canvas dann aufs Label geschrieben.

[Hawkeye219]

Zitat von Martin K:

Ja, super!!!

...und beim nächsten Aktualisieren des Labels ist deine schöne Zeichnung wieder weg, weil dann die Paint-Routine des Labels wieder aufgerufen wird

Sorry, aber ein Label ist nicht für das Zeichnen von außen geeignet. Dazu gibt es TImage (direktes Zeichnen möglich) oder TPaintBox (Zeichnen innerhalb der OnPaint-Behandlung). Eine weitere Alternative wäre das Ableiten einer eigenen Komponente von TGraphicControl oder TCustomControl.

Gruß Hawkeye