paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 06:29:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* E^.DataLen=-1 sets OK to false in TResourceFile.ReadSourceEntryToStream

Browse Source
This commit is contained in:
pierre 1999-09-07 09:26:26 +00:00
parent 9bbc06ee1b
commit 7f92eb79f5
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/text/wresourc.pas
View File

@ -575,7 +575,10 @@ begin
S^.Seek(BaseOfs+E^.DataOfs);
OK:=(S^.Status=stOK);
CurOfs:=0;
{ this results sometimes in endless loops
when the resource are changed PM }
if E^.DataLen<0 then
OK:=false;
while OK and (CurOfs<E^.DataLen) do
begin
CurFrag:=Min(E^.DataLen-CurOfs,TempBufSize);
@ -780,7 +783,10 @@ end;
END.
{
$Log$
Revision 1.6 1999-08-03 20:22:44 peter
Revision 1.7 1999-09-07 09:26:26 pierre
* E^.DataLen=-1 sets OK to false in TResourceFile.ReadSourceEntryToStream
Revision 1.6 1999/08/03 20:22:44 peter
+ TTab acts now on Ctrl+Tab and Ctrl+Shift+Tab...
+ Desktop saving should work now
- History saved
@ -825,4 +831,3 @@ END.
+ first things for resource files
}