Ich habe eine Canvas Klasse von TFPImageCanvas aus dem Ordner fclimage abgeleitet. TFPImageCanvas stammt von TFPPixelCanvas ab. Dort werden TFPCustomPen, TFPCustomBrush und TFPCustomFont erzeugt.
Dennoch erhalte ich in meinem Projekt, das meine von TFPImageCanvas abgeleitete Canvas Klasse nutzt, eine SIGSEGV Exception und der Debugger zeigt mir diese Stelle:
Code: Alles auswählen
function TFPCustomCanvas.GetPen : TFPCustomPen;
begin
if assigned (FPen) then /// #### HIer hält der Debugger !!! ####
result := FPen
else
result := FDefaultPen;
end;
Was muss ich also tun, damit Brush und Pen gültig sind und meine zuküftige Fontklasse auch funktioniert, ich also dort diesen Fehler von vornherein vermeide?