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