TGraphicControl.Canvas...

[mathias l.]

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

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

[neolithos]

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