Canvas: "erlaubt kein Zeichnen"

[VkPenguin]

@Medium: Tja, das würde ich ja gerne. Das Dumme ist nur, dass ich im Informatikunterricht gezwungen werde mit der mSuM-Unit zu Programmieren. Ich weiß, dass das für viele von euch ein rotes Tuch ist, aber was soll ich denn machen? Immerhin konnte ich erreichen, dass ich, da mein Programm schon sehr weit fortgeschritten ist, als einziger im Kurs auch andere Elemente wie Canvas verwenden kann. Die Bedingung ist aber, dass alle aus dem Infounterricht gelernten Elemente erhalten bleiben und ich von Zeit zu Zeit auch wieder welche verwende. Ich weiß nicht genau wozu das gut sein soll, aber immerhin habe ich diese Freiheiten gewonnen, das ist mehr als alle anderen haben.

Mein Problem ist, dass a) ich nich weiß, wie man mit mSuM Bilder richtig anzeigen lassen soll, b) es mein Infolehrer auch nicht weiß und c) es kaum Hilfe für mSuM im Internet gibt. Also versuche ich, mir auf eigene Faust ein bisschen "richtiges" Delphi beizubringen und fange dazu mit den Bildern an. Nur weiß ich ja nicht, auf welcher ebene und wie mSuM genau zeichnet, werde aber am Wochenende wenn ich Zeit hab mal in der Unit nachsehen, irgendwo muss es ja stehen.

Ein Kreis aus meinem Program sieht (auch wenn es euch wohl nicht allzu viel helfen wird) so aus:

Delphi-Quellcode:

...
VAR 
derStift:Buntstift;
derBildschirm:Bildschirm;
...
Begin
derBildschirm := Bildschirm.init;
derStift := Buntstift.init;
derStift.setzeFarbe(gruen);
derStift.bewegeBis(500,500);
derStift.zeichneKreis(50);
...
derBildschirm.gibFrei;
derStift.gibFrei;
End.

... und wieder, ich weiß, dass viele von Euch mich deswegen nicht mehr ernst nehmen, ich bitte euch aber, zu verstehen, dass mir das so beigebracht worden ist und ich formal dazu gezwungen bin, meine Programme so aussehen zu lassen. Dennoch möchte ich aber mehr dazu lernen und habe auch höhere Ansprüche an meine Programme, als sie mSuM liefern kann, auch wenn ich ein Anfänger bin. Ich wäre euch sehr Dankbar, wenn ihr mir dabei helft.