Präsentations-Software "ShowAct"

[Der_Unwissende]

Hi,
dein Fehler liegt in dem Konstruktor deiner TFolie. Da setzt du die Eigenschaften von self.Pen und self.Brush, allerdings werden die nie angelegt. Da diese Klasse einen eigenen Canvas hat (den der übergebenen Folie) solltest du evtl (kenn die Idee hinter deinem Programm nicht) einfach die Eigenschaften des Pen des Canvas setzen

Delphi-Quellcode:

self.Canvas.Pen.Color := VFarbe;
...

oder einfach den Pen und Brush auch im Konstruktor erzeugen.

Gruß Der Unwissende

Und natürlich nen guten Rutsch