paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-24 01:59:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

- TBitmap.LoadFromLazarusResource has been switched to TLazarusResourceStream

Browse Source 
git-svn-id: trunk@11430 -
This commit is contained in:
paul 2007-07-06 02:55:30 +00:00
parent ce2a7a71a6
commit 666cd0c4a7
1 changed files with 33 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
lcl/include/bitmap.inc
View File

@ -414,20 +414,16 @@ end;
procedure TBitmap.LoadFromLazarusResource(const ResName: String);
var
ms:TMemoryStream;
res:TLResource;
Stream: TLazarusResourceStream;
begin
res:=LazarusResources.Find(ResName);
if (res=nil) or (res.Value='') or not LazarusResourceTypeValid(res.ValueType)
then exit;
ms:=TMemoryStream.Create;
Stream := nil;
try
ms.Write(res.Value[1],length(res.Value));
ms.Position:=0;
LoadFromStream(ms);
finally
ms.Free;
end;
Stream := TLazarusResourceStream.Create(ResName, nil);
if LazarusResourceTypeValid(Stream.Res.ValueType) then
LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
procedure TBitMap.LoadFromStream(Stream: TStream);
@ -436,12 +432,37 @@ begin
end;
procedure TBitMap.LoadFromResourceName(Instance: THandle; const ResName: String);
{var
Stream: TResourceStream;
}
begin
{
Code should look like:
Stream := nil;
try
Stream := TResourceStream.Create(Instance, ResName, RT_BITMAP);
LoadFromStream(Stream);
finally
Stream.Free;
end;
}
DebugLn('ToDo: TBitMap.LoadFromResourceName');
end;
procedure TBitMap.LoadFromResourceID(Instance: THandle; ResID: Integer);
begin
{
Code should look like:
Stream := nil;
try
Stream := TResourceStream.CreateFromID(Instance, ResID, RT_BITMAP);
LoadFromStream(Stream);
finally
Stream.Free;
end;
}
DebugLn('ToDo: TBitMap.LoadFromResourceID');
end;