TOwnedCollection.DefineProperties NOT working
Original Reporter info from Mantis: freeman35
-
Reporter name:
Original Reporter info from Mantis: freeman35
- Reporter name:
Description:
In delphi this class work properly, but in Lazarus no. Copied from delphi long time ago and not checked I think
{$MODE Delphi}
....
procedure TAnyCollection.DefineProperties(Filer: TFiler);
function DoWrite: Boolean;
begin
if Filer.Ancestor <> nil then begin
Result := True;
if Filer.Ancestor is TStrings then
Result := not FAnyClass.Equals(TStrings(Filer.Ancestor))
end else Result := Count > 0;
end;
begin
ShowMessage('wow !!! TAnyCollection.DefineProperties is triggered');
inherited;
Filer.DefineProperty('Classes', ReadData, WriteData, DoWrite);
end;
Mantis conversion info:
- Mantis ID: 25048
- OS: Kubuntu
- OS Build: 13.04
- Build: ALL
- Platform: x64
- Version: 1.0.12
- Fixed in version: 3.0.0
- Fixed in revision: 26720 (#ddda356e)
- Target version: 3.0.0