[Lazarus] Codetools check lfm bug?
patspiper
patspiper at gmail.com
Fri Feb 22 17:07:05 CET 2013
Hi,
'Tools/Check LFM File in editor' gives the error 'identifier Strings is
not published in class TStringListDescendant'
where TStringListDescendant is just a descendant of TStringList. The
error does not happen with TStringList itself. Is this a bug?
----------------------------------
TStringListDescendant = class(TStringList)
end;
TDesignComponent = class(TComponent) // <- component registered in
the IDE
private
FStringsData: TStrings;
FStringListData: TStringList;
FStringListDescendantData: TStringListDescendant;
procedure SetStringsData(AValue: TStrings);
procedure SetStringListData(AValue: TStringList);
procedure SetStringListDescendantData(AValue: TStringListDescendant);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property StringsData: TStrings read FStringsData write SetStringsData;
property StringListData: TStringList read FStringListData write
SetStringListData ;
property StringListDescendantData: TStringListDescendant read
FStringListDescendantData write SetStringListDescendantData;
end;
lfm (relevant part):
object DesignComponent1: TDesignComponent
StringsData.Strings = (
'1'
)
StringListData.Strings = (
'2'
)
StringListDescendantData.Strings = (
'3'
)
left = 229
top = 48
end
----------------------------------
Stephano
More information about the Lazarus
mailing list