Graeme Geldenhuys <graemeg.li...@gmail.com> hat am 15. März 2012 um 10:07
geschrieben:
>[...]
> TfpgCanvas
> |
> +-- TfpgX11Canvas
> |
> +-- TfpgCanvasBase
>
>
> TAgg2D
> |
> +-- TfpgCanvasBase
>[...]
> DefaultCanvasClass: TfpgCanvasBaseClass = nil;
> [...]
> function TfpgWindow.CreateCanvas: TfpgCanvasBase;
> begin
> writeln('>> TfpgWindow.CreateCanvas');
> writeln(' DefaultCanvasClass = ' + DefaultCanvasClass.ClassName);
> // result := TAgg2D.Create(self);
> // result := TfpgCanvas.Create(self);
> Result := DefaultCanvasClass.Create(self);
> writeln('<< TfpgWindow.CreateCanvas');
> end;
> [...]
> creating... TfpgX11Canvas
> creating... TfpgCanvasBase
>
> NOTE the missing TfpgCanvas. Needless to say my program crashes
instantly.
>[...]
> Can anybody see what I am doing wrong?
Is the constructor virtual?
> I've tested with FPC 2.6.0, 2.6.1 and 2.7.1 under 64-bit Linux. All
compilers give the same
> results.
>[...]
Mattias
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
