Issue storing font with TLMDStorXMLVault

TASC Systems Ltd · January 2022

I have installed the lastest (28 Dec '21) LMDTools in Delphi 11 and when using TLMDStorXMLVault to store a labels font settings I get an error at runtime...

Error reading TFont.Name:Invalid property value. Code for this is below.

PPanel.Background := XMLStorage.ReadColor('ButtonBackground', 'Colour', clSilver);

PPanel.PCaption[1].Text := XMLStorage.ReadString('LabelOne', 'Caption', 'TRCODE' );

PPanel.PCaption[1].Top := XMLStorage.ReadInteger('LabelOne', 'Top', 1);

PPanel.PCaption[1].Left := XMLStorage.ReadInteger('LabelOne', 'Left', 1);

PPanel.PCaption[1].Font := XMLStorage.ReadFont('LabelOne', 'Font', TFont.Create);

PPanel.PCaption[1].Align := XMLStorage.ReadInteger('LabelOne', 'Alignment', 1);

PPanel.PCaption[1].AutoSize := XMLStorage.ReadBool('LabelOne', 'AutoSize', True);

PPanel.PCaption[1].Visible := XMLStorage.ReadBool('LabelOne', 'Visible', True);

This worked OK with my earlier Delphi 10.4.2 and LMDtools ( not sure version but likely 2019 )

The XML file its trying to load is as below... full file attached

<Caption Type="String">BRNAME</Caption>

<Caption Type="string">TRCODE</Caption>

<Charset Type="Identifier">DEFAULT_CHARSET</Charset>

<Color Type="Identifier">clRed</Color>

<Name Type="String">Tahoma</Name>

<Style Type="Set">fsBold</Style>

</Font>

</LabelOne>

I changed the code to just store the file e.g. XMLStorage.WriteFont('LabelTwo', 'Font', PPanel.PCaption[2].Font);

to see whether there was a difference and the only change was ..

<Name Type="String">Tahoma</Name> - this is the old file that doesn't load

<Name Type="string">Tahoma</Name> - this is how it saved the file with D11,LMD 2021.7

so I edited the original text file to lowercase 's' and it loads without error.

However, ideally I would like the uppercase 'S' version to load OK so I dont have to change the files at my customer sites.

Phillip

Eugene Balabuev (LMD) · January 2022

Some time ago we deprecated our native XMl library in favor to standard Delphi XML. So, this is probably the reason. I'll look what can be done here.

TASC Systems Ltd · February 2022

Thanks for the information. I have now rewritten the routine that used the TLMDStorXMLVault, so I no longer use it in any of my code.

Eugene Balabuev (LMD) · February 2022

Fixed.

Howdy, Stranger!

Categories

In this Discussion

Issue storing font with TLMDStorXMLVault

Comments