Einzelnen Beitrag anzeigen

Benutzerbild von Deep-Sea
Deep-Sea

Registriert seit: 17. Jan 2007
907 Beiträge
 
Delphi XE2 Professional
 
#3

AW: Eigene Ampel schaltung komponet

  Alt 17. Dez 2010, 08:55
Außerdem solltest du dir ansehen, wie man zeichnet. Denn eine Komponente (TShape) zu verwenden, nur um einen farbigen Kreis zu malen ist wohl etwas übertrieben.
Zum üben bietet sich da TPaintBox an. In dessen Ereignis OnPaint kannst du dann mit Hilfe des Canvas zeichen, z.B. so:
Delphi-Quellcode:
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  With PaintBox1.Canvas do
  begin
    Brush.Color := clRed; // Setze als Füllfarbe "rot"
    Ellipse(0, 0, 25, 25); // Zeichne einen Kreis
  end;
end;
Chris
Die Erfahrung ist ein strenger Schulmeister: Sie prüft uns, bevor sie uns lehrt.
  Mit Zitat antworten Zitat