Mattias Gaertner wrote:
On Sat, 05 Nov 2005 11:33:47 +0000
Colin Western <[EMAIL PROTECTED]> wrote:
I attach a patch that provides some of the pieces needed to work with
inherited forms. With the patch applied an inherited form will load
without error, though the lfm file will be loaded as a text file, rather
than display as a form.
Applied. Thank you.
I think you are off by one in one of the changes you made - see attached
patch
Colin
diff -uNr lazarus/lcl/lresources.pp /dos/fpc/lazarus.w/lcl/lresources.pp
--- lazarus/lcl/lresources.pp 2005-11-05 16:57:48.000000000 +0000
+++ /dos/fpc/lazarus.w/lcl/lresources.pp 2005-11-05 17:12:16.000000000 +0000
@@ -1159,14 +1159,13 @@
- LFMClassName is the last word of the first line
- LFMType is the first word on the line
}
- LFMClassName := '';
// read first word => LFMType
p:=1;
while (p<=length(LFMSource))
and (LFMSource[p] in ['a'..'z','A'..'Z','0'..'9','_']) do
inc(p);
- LFMType:=copy(LFMSource,1,p);
+ LFMType:=copy(LFMSource,1,p-1);
// find end of line
while (p<=length(LFMSource)) and (not (LFMSource[p] in [#10,#13])) do inc(p);
