paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-09 15:20:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: Save tree select on close, not on test run. Issue #27887, patch from Graeme Geldenhuys.

Browse Source 
git-svn-id: trunk@48797 -
This commit is contained in:
juha 2015-04-21 17:29:52 +00:00
parent 9e447df484
commit 0a2e216da7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpcunit/guitestrunner.pas
View File

@ -387,6 +387,7 @@ begin
FConfStore.WriteInteger('WindowState', 'Top', Top);
FConfStore.WriteInteger('WindowState', 'Width', Width);
FConfStore.WriteInteger('WindowState', 'Height', Height);
SaveTree;
FConfStore.Free;
end;
@ -854,7 +855,6 @@ var
m: TMemoryStream;
begin
SaveTree;
barcolor := clGreen;
ResetNodeColors;
failureCounter := 0;