Das hatte ich ja auch schon probiert (oben im Source-Code vermerk). Auch wenn ich RT_BITMAP verwende, funktioniert es nicht.
Also sowohl FindResource nicht, als auch TResourceStream.create nicht.
In der
VCL-Graphics it LoadFromResourceName wie folgt implementiert:
Code:
procedure TBitmap.LoadFromResourceName(Instance: THandle; const ResName: string);
var
Stream: TCustomMemoryStream;
begin
FreeContext;
Stream := TResourceStream.Create(Instance, ResName, RT_BITMAP);
try
ReadDIB(Stream, Stream.Size);
finally
Stream.Free;
end;
end;
"Stream := TResourceStream.Create(Instance, ResName, RT_BITMAP);"
entspricht ja meinem Ansatz (interessanterweise ist RT_Bitmap eine Stringvariable und enthält beim Aufruf nur einen leeren String)