Merged revision(s) 54173 #1e8c8bdc1a from trunk:

fpvectorial: Fix memory leak due to document styles not being destroyed (issue #0031356).
........

git-svn-id: branches/fixes_1_6@54177 -
This commit is contained in:
maxim 2017-02-16 22:20:53 +00:00
parent 626fcbf5b1
commit 9b01a76cf8

View File

@ -9969,6 +9969,14 @@ var
i: integer;
p: TvPage;
begin
for i:=0 to FStyles.Count-1 do
TvStyle(FStyles[i]).Free;
FStyles.Clear;
for i:=0 to FListStyles.Count-1 do
TvListStyle(FListStyles[i]).Free;
FListStyles.Clear;
for i:=FPages.Count-1 downto 0 do
begin
p := TvPage(FPages[i]);