Also ich habe mich inzwischen schon selber schlau gemacht, aber leider bekomme ich eine
AV
Delphi-Quellcode:
function TForm1.loadFromRes(name : PAnsiChar) : TBitMap;
var
ResStream : TResourceStream;
begin
ResStream := TResourceStream.Create(HINSTANCE, name, 'BMP');
try
Result.LoadFromStream(ResStream); // <!--- In dieser Zeile
Result.Canvas.StretchDraw(Rect(0,0,24,24),Result);
Result.Transparent := true;
finally
ResStream.Free;
end;
end;
Ich habe die Ressource aber anständig in der
Unit eingebunden...
[edit=Admin]Renderingfehler behoben. Mfg, Daniel[/edit]