From f50b3f0ecd340a8dfce5b06701750a203bb71699 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Fri, 10 Oct 2014 21:28:59 +0000
Subject: [PATCH] PoChecker: save and restore LangFilter.ItemIndex. (Sorry for
 previous commit, it was by accident (pressing wrog key in console), which
 also explains the wrong commit-message.)

git-svn-id: trunk@46511 -
---
 components/pochecker/Proj/pochecker.lpi | 1 +
 components/pochecker/pocheckermain.pp   | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/components/pochecker/Proj/pochecker.lpi b/components/pochecker/Proj/pochecker.lpi
index d780c9a6db..75f6826b52 100644
--- a/components/pochecker/Proj/pochecker.lpi
+++ b/components/pochecker/Proj/pochecker.lpi
@@ -127,6 +127,7 @@
         <Filename Value="..\pocheckermemodlg.pp"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="MemoForm"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="pocheckermemodlg"/>
       </Unit9>
diff --git a/components/pochecker/pocheckermain.pp b/components/pochecker/pocheckermain.pp
index 5b6a2796d1..78235f9abd 100644
--- a/components/pochecker/pocheckermain.pp
+++ b/components/pochecker/pocheckermain.pp
@@ -250,6 +250,11 @@ end;
 
 procedure TPoCheckerForm.LangFilterChange(Sender: TObject);
 begin
+  //This looks silly, but it makes that ItemIndex has the right value
+  //in OnDestroy when you dropdown and change the filter, and then close
+  //the form and no call to ItemIndex was made after changing the filter....
+  //If someone figures out why, or has a better solution: please implement that
+  LangFilter.ItemIndex;
 end;
 
 
@@ -740,6 +745,7 @@ var
 begin
   FPoCheckerSettings.SelectDirectoryFilename := SelectDirectoryDialog.Filename;
   FPoCheckerSettings.OpenDialogFilename := OpenDialog.FileName;
+  FPoCheckerSettings.LangFilterIndex := LangFilter.ItemIndex;
   FPoCheckerSettings.TestTypes := GetTestTypesFromListBox;
   FPoCheckerSettings.TestOptions := GetTestOptions;
   FPoCheckerSettings.MainFormWindowState := WindowState;