TBitmap ist intern ein Zeiger auf das Objekt. Durch deinen PBitmap Typ hast du dann einen Zeiger auf den Zeiger auf das Objekt.
Aber wie gesagt (wenn du den Thread gelesen hättest), wird auf Seite 2 schon erklärt, dass Instanzen intern Zeiger sind und du somit keinen solchen Zeigertyp brauchst. Eine Variable vom Typ TBitmap ist ein Zeiger.
Beispiel:
ShowMessage(IntToStr(SizeOf(TBitmap)) + ' bytes gross');
Schmeiss alles mit deinem PBitmap raus und nutze statt dessen einfach nur TBitmap.
Dein Code wie es reichen würde:
Delphi-Quellcode:
var
Bitmap: TBitmap;
{...}
Bitmap := image1.picture.bitmap;
Bitmap.Canvas.Brush.Color := clred;
Bitmap.Canvas.Rectangle(0,0,10,10); // Hier krachts!
Dein Code korrigiert:
Delphi-Quellcode:
type
PBitmap = ^TBitmap;
var
Bitmap: PBitmap;
{...}
new(PBitmap);
Bitmap^ := image1.picture.bitmap;
Bitmap^.Canvas.Brush.Color := clred;
Bitmap^.Canvas.Rectangle(0,0,10,10); // Hier krachts!
Dein Problem im Code ist folgender: Du reservierst Speicher für den Typen PBitmap. Danach zeigt PBitmap auf den reservierten Speicherbereich. Danach setzt du den Zeiger aber um und lässt ihn auf die Property von TPicture zeigen. Somit nutzt den alloziierten Speicher nicht und zum anderen zeigst du auf eine Property und kein richtiges Objekt. Bei der Dereferenzierung versucht er dann die Property als TBitmap zu benutzen. Dadurch wird der Getter der Property nicht ausgelöst und es gibt an der Stelle kein TBitmap ->
AV