mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-16 23:49:28 +02:00
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:
parent
626fcbf5b1
commit
9b01a76cf8
@ -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]);
|
||||
|
Loading…
Reference in New Issue
Block a user