paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 13:36:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed loading rawimage from savestream

Browse Source 
git-svn-id: trunk@22265 -
This commit is contained in:
marc 2009-10-22 20:32:30 +00:00
parent a457e55753
commit e7f7fe8eb9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/custombitmap.inc
View File

@ -215,7 +215,7 @@ begin
OldChangeEvent := OnChange; OldChangeEvent := OnChange;
try try
OnChange := nil; OnChange := nil;
LoadFromStream(FSharedImage.FSaveStream); ReadStream(FSharedImage.FSaveStream, FSharedImage.FSaveStream.Size);
FPixelFormatNeedsUpdate := True; FPixelFormatNeedsUpdate := True;
finally finally
OnChange := OldChangeEvent; OnChange := OldChangeEvent;