Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Martin K,
28. Apr 2006
Ja, super!!!
:thumb: Danke, das hat geklappt:
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);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Martin K,
28. Apr 2006
Hi,
ich habe folgendes Problem:
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;