pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:RxToolbar - fix loading old config files

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6780 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2019-01-05 21:22:47 +00:00
parent c0008d94c7
commit ae0b11dfa8
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/trunk/rxcontrols/rxtoolbar.pas
View File

@ -985,6 +985,7 @@ var
begin begin
ACount:=FPropertyStorageLink.Storage.ReadInteger(ASection+sCount, -1); ACount:=FPropertyStorageLink.Storage.ReadInteger(ASection+sCount, -1);
if ACount < 0 then Exit(false); if ACount < 0 then Exit(false);
FVisibleItems.Clear;
Result:=true; Result:=true;
S:=ASection+sItem; S:=ASection+sItem;
St:=TStringList.Create; St:=TStringList.Create;
@ -1043,6 +1044,7 @@ begin
S:=ASection; S:=ASection;
FCnt:=FPropertyStorageLink.Storage.ReadInteger(S+sVersion2, FVersion); FCnt:=FPropertyStorageLink.Storage.ReadInteger(S+sVersion2, FVersion);
if FCnt < FVersion then Exit; if FCnt < FVersion then Exit;
FVisibleItems.Clear;
for P in Items do P.Visible:=false; for P in Items do P.Visible:=false;
St:=TStringList.Create; St:=TStringList.Create;
FCnt:=FPropertyStorageLink.Storage.ReadInteger(S+sCount, 0); FCnt:=FPropertyStorageLink.Storage.ReadInteger(S+sCount, 0);
@ -1105,7 +1107,6 @@ var
begin begin
S:=Owner.Name+'.'+Name; S:=Owner.Name+'.'+Name;
ACount:=FPropertyStorageLink.Storage.ReadInteger(S+sVersion2, -9999); //Check cfg version ACount:=FPropertyStorageLink.Storage.ReadInteger(S+sVersion2, -9999); //Check cfg version
FVisibleItems.Clear;
Items.BeginUpdate; Items.BeginUpdate;
if ACount = -9999 then if ACount = -9999 then