Hallo,
ich versuche seit kurzem mir die Programmiersprache Delphi beizubringen. Zur Hilfestellung stehen mir ein paar Computerbild-Artikel, die sich an Delphi-Anfänger richtet, also genau das Richtig für mich.
Nun hänge ich aber an folgendem Code:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TGrafikobjekt=class
x,y:integer;
fuellfarbe:tcolor;
randfarbe:tcolor;
procedure anzeigen;
virtual;
end;
TKreis=class(TGrafikobjekt)
radius:integer;
procedure anzeigen;
override;
end;
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TKreis.anzeigen;
begin
form1.Canvas.Ellipse(x,y,x+radius*2,y+radius*2);
end;
procedure TGrafikobjekt.anzeigen;
begin
form1.Canvas.Pen.Color:=randfarbe;
form1.Canvas.Brush.Color:=fuellfarbe;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Kreis:TKreis;
begin
Kreis:=TKreis.Create;
Kreis.x:=50;
Kreis.y:=60;
Kreis.radius:=100;
Kreis.randfarbe:=clGreen;
Kreis.fuellfarbe:=clYellow;
Kreis.anzeigen;
Kreis.Destroy;
end;
end.
Bei diesem Code wird nach einem Klick auf den Button Button1 ein Kreis auf das Formular gezeichnet. Dabei sollte der Rand des Kreises grün und die Innenfläche gelb angezeigt werden. Leider werden die übergebenen Farben aber nicht angenommen, sondern die Standartfarben angezeigt: Rand: schwarz, Innenfläche: durchsichtig
Kann mir bitte einer erklären, wo der Fehler liegt?
Mfg Alexander