Hallo!
Warum funktioniert folgender Code nich und gibt mir unten stehende Fehlermeldungen? Ich hab
auch die
Unit Windows eingebunden...
Delphi-Quellcode:
procedure TTreemapChart.InitChartDraw;
var
Bmp : TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile('folder.bmp');
Bmp.Transparent := True;
Imagelist.GetBitmap(0, Bmp);
Canvas.Draw(0, 0 , Bmp);
finally
Bmp.Free;
end;
end;
Zum Create gibt er mir die erste Fehlermeldung und vielleicht dementsprechend
die zweite, wenn ich den Imagelist-Befehl ausführen will....
Delphi-Quellcode:
[Error] TreemapChart.pas(381): Object or class type required
[Error] TreemapChart.pas(386): Incompatible types: 'TGraphic' and 'tagBITMAP'
Dankeschön schonmal!