Wie Controls disabled zeichnen

[Lannes]

Hallo,

der Code zeichnet Text und ein Bitmap "disabled" auf das Canvas der Form:

Delphi-Quellcode:

var s : String;
    bmp : TBitmap;
begin
  s := 'Hallo';
  DrawState(Canvas.Handle, Canvas.Brush.Handle, nil, Integer(s), 0,
            10,10,0,0,DST_TEXT or DSS_DISABLED);
  bmp := TBitmap.Create;
  try
  bmp.LoadFromFile('C:\Temp\Image.bmp');
  DrawState(Canvas.Handle, Canvas.Brush.Handle, nil, bmp.Handle, 0,
            50,10,0,0,DST_BITMAP or DSS_DISABLED);
  finally
    bmp.Free;
    end;