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

PoChecker: save and restore LangFilter.ItemIndex.

Browse Source 
(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 -
This commit is contained in:
bart 2014-10-10 21:28:59 +00:00
parent 09a85e4fc9
commit f50b3f0ecd
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/pochecker/Proj/pochecker.lpi
View File

@ -127,6 +127,7 @@
<Filename Value="..\pocheckermemodlg.pp"/> <Filename Value="..\pocheckermemodlg.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="MemoForm"/> <ComponentName Value="MemoForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="pocheckermemodlg"/> <UnitName Value="pocheckermemodlg"/>
</Unit9> </Unit9>

6
components/pochecker/pocheckermain.pp
View File

@ -250,6 +250,11 @@ end;
procedure TPoCheckerForm.LangFilterChange(Sender: TObject); procedure TPoCheckerForm.LangFilterChange(Sender: TObject);
begin 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; end;
@ -740,6 +745,7 @@ var
begin begin
FPoCheckerSettings.SelectDirectoryFilename := SelectDirectoryDialog.Filename; FPoCheckerSettings.SelectDirectoryFilename := SelectDirectoryDialog.Filename;
FPoCheckerSettings.OpenDialogFilename := OpenDialog.FileName; FPoCheckerSettings.OpenDialogFilename := OpenDialog.FileName;
FPoCheckerSettings.LangFilterIndex := LangFilter.ItemIndex;
FPoCheckerSettings.TestTypes := GetTestTypesFromListBox; FPoCheckerSettings.TestTypes := GetTestTypesFromListBox;
FPoCheckerSettings.TestOptions := GetTestOptions; FPoCheckerSettings.TestOptions := GetTestOptions;
FPoCheckerSettings.MainFormWindowState := WindowState; FPoCheckerSettings.MainFormWindowState := WindowState;