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

fixes for reading inherited forms from Colin Western

Browse Source 
git-svn-id: trunk@6669 -
This commit is contained in:
mattias 2005-01-23 12:56:49 +00:00
parent 650a6ec0c5
commit 2031a67a6e
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/jitforms.pp
View File

@ -597,6 +597,10 @@ begin
// read classname length
NameLen:=0;
s.Read(NameLen,1);
if (NameLen and $f0) = $f0 then begin
{ Skip Flag Byte }
s.Read(NameLen,1);
end;
// read classname
if NameLen>0 then begin
SetLength(Result,NameLen);

2
lcl/lresources.pp
View File

@ -2372,7 +2372,7 @@ begin
Flags := TFilerFlags(longint(Prefix and $0f));
if ffChildPos in Flags then
begin
ValueType := NextValue;
ValueType := ReadValue;
case ValueType of
vaInt8:
AChildPos := ReadInt8;