Hi,
ich habe eine Funktion in einer Unit mit folgendem Aussehen:

markieren

Code:

procedure T3DSpace.PaintBitmapOnComponent(b: TBitmap; c: TGraphicControl; left,
  top, right, bottom: integer);
var
  h: HDC;
begin
  h:= c.Canvas.Handle;  // hier wird der Fehler ausgelöst
  SetStretchBltMode(h,COLORONCOLOR);
  StretchBlt(h,left, top, right, bottom, b.Canvas.handle, 0,0,b.width,b.height,srccopy);
end;

Leider bekomme ich beim Versuch, diese anzuwenden folgende Fehlermeldung:

[Fehler] Delphi3D.pas(530): Undefinierter Bezeichner: 'Canvas'

Ich habe die Funktion geschrieben, um auf z.B. TImage oder TPaintBox-Komponenten unkompliziert ein Bitmap zu zeichnen. TImage ist direkter Nachfahre von TGraphicControl, warum also kann ich nicht auf c.Canvas zugfreifen?
Verstehe das nicht. Vielen Dank für Tipps,

Matze

Canvas ist als protected definiert. Das heißt es kann nur von der Klasse bzw. deren Nachfahren darauf zugegriffen werden.