pascal code in graphischen Text

[thorstenf01]

Hallo,
wer kann mir dabei helfen den folgenden Pascal Code in Delphi
zu implementieren. Hierbei handelt es sich um eine graphische
Beschriftung von Linien.

Code:

procedure Grafik_Tageslinien;
var   Zaehler1                     :integer;
      text                         :string[6];    
begin
      Farbe1:=red;  SetColor(Farbe1);
      
      for Zaehler1:=1 to 13 do begin
      case Zaehler1 of
      1: begin Tag:=  5; text:=' 5.Jan';end;
      2: begin Tag:= 35; text:=' 4.Feb';end;
      3: begin Tag:= 65; text:=' 6.M"r';end;
      4: begin Tag:= 95; text:=' 5.apr';end;
      5: begin Tag:=125; text:=' 5.Mai';end;
      6: begin Tag:=155; text:=' 4.Jun';end;
      7: begin Tag:=172; text:='21.Jun';end;
      8: begin Tag:=202; text:='21.Jul';end;
      9: begin Tag:=232; text:='20.Aug';end;
      10:begin Tag:=262; text:='19.Sep';end;
      11:begin Tag:=292; text:='19.Okt';end;
      12:begin Tag:=322; text:='18.Nov';end;
      13:begin Tag:=351; text:='21.Dez';end;  end;
      if Tag > 181 Then begin Farbe1:=green; SetColor(Farbe1);end;
      Sonnenstand(Tag);
      AU_der_Sonne(Tag);
      ZZ:=ZZA;
      repeat
        Sonnenhoeheazi(Tag,ZZ);
        if HoWi < 0 then HoWi:=0;
        Radius(HoWi,FlAz);
        putpixel(Bmittex+x1,Bmittey+y1,farbe1);
        ZZ:=ZZ+0.02;
      until ZZ >=ZZU;
      end;
end;

Danke schon eimal im voraus
Gruß
Thorsten

[MSCH]

eigentlich brauchst du nur ein Canvas. Schau dir dazu mal die Funktionen an:

Canvas.Font
Canvas.moveTo
Canvas.LineTo

(Fast) jedes Objekt hat einen Canvas und der stellt die Zeichenfläche dar.

grez
msch