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

PoChecker: refactor.

Browse Source 
git-svn-id: trunk@46294 -
This commit is contained in:
bart 2014-09-22 19:29:32 +00:00
parent 85fa5c550a
commit 970b366107
1 changed files with 34 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
components/pochecker/pocheckermain.pp
View File

@ -55,6 +55,8 @@ type
procedure RunSelectedTests; procedure RunSelectedTests;
procedure ClearAndDisableStatusPanel; procedure ClearAndDisableStatusPanel;
procedure SetSelectedPoName(AFilename: String); procedure SetSelectedPoName(AFilename: String);
procedure LoadConfig;
procedure SaveConfig;
published published
IgnoreFuzzyCheckBox: TCheckBox; IgnoreFuzzyCheckBox: TCheckBox;
UnselectAllBtn: TButton; UnselectAllBtn: TButton;
@ -141,22 +143,7 @@ begin
SelectAllBtn.Caption := sSelectAllTests; SelectAllBtn.Caption := sSelectAllTests;
SelectBasicBtn.Caption := sSelectBasicTests; SelectBasicBtn.Caption := sSelectBasicTests;
UnselectAllBtn.Caption := sUnselectAllTests; UnselectAllBtn.Caption := sUnselectAllTests;
FPoCheckerSettings := TPoCheckerSettings.Create; LoadConfig;
FPoCheckerSettings.LoadConfig;
//DebugLn(' TestOptions after loading = ');
//DebugLn(' ',DbgS(FPoCheckerSettings.TestOptions));
//debugln(' TPoCheckerForm.FormCreate: TestTypes after loading = ');
//DebugLn(' ',DbgS(FPoCheckerSettings.TestTypes));
SetTestTypeCheckBoxes(FPoCheckerSettings.TestTypes);
SetTestOptionCheckBoxes(FPoCheckerSettings.TestOptions);
if (FPoCheckerSettings.LastSelectedFile <> '') then
begin
//debugln('Trying to load ',FPoCheckerSettings.LastSelectedFile);
if TryCreatePoFamily(FPoCheckerSettings.LastSelectedFile) then
SetSelectedPoName(FPoCheckerSettings.LastSelectedFile)
else
SetSelectedPoName('');
end;
end; end;
@ -164,15 +151,9 @@ procedure TPoCheckerForm.FormDestroy(Sender: TObject);
begin begin
if Assigned(PoFamily) then if Assigned(PoFamily) then
PoFamily.Free; PoFamily.Free;
SaveConfig;
if Assigned(FPoCheckerSettings) then if Assigned(FPoCheckerSettings) then
begin
FPoCheckerSettings.SaveSettingsOnExit := True; //ToDo: create a checkbox for this
FPoCheckerSettings.LastSelectedFile := FSelectedPoName;
FPoCheckerSettings.TestTypes := GetTestTypesFromListBox;
FPoCheckerSettings.TestOptions := GetTestOptions;
FPoCheckerSettings.SaveConfig;
FPoCheckerSettings.Free; FPoCheckerSettings.Free;
end;
end; end;
@ -470,6 +451,36 @@ begin
end; end;
end; end;
procedure TPoCheckerForm.LoadConfig;
begin
FPoCheckerSettings := TPoCheckerSettings.Create;
FPoCheckerSettings.LoadConfig;
//DebugLn(' TestOptions after loading = ');
//DebugLn(' ',DbgS(FPoCheckerSettings.TestOptions));
//debugln(' TPoCheckerForm.FormCreate: TestTypes after loading = ');
//DebugLn(' ',DbgS(FPoCheckerSettings.TestTypes));
SetTestTypeCheckBoxes(FPoCheckerSettings.TestTypes);
SetTestOptionCheckBoxes(FPoCheckerSettings.TestOptions);
if (FPoCheckerSettings.LastSelectedFile <> '') then
begin
//debugln('Trying to load ',FPoCheckerSettings.LastSelectedFile);
if TryCreatePoFamily(FPoCheckerSettings.LastSelectedFile) then
SetSelectedPoName(FPoCheckerSettings.LastSelectedFile)
else
SetSelectedPoName('');
end;
end;
procedure TPoCheckerForm.SaveConfig;
begin
FPoCheckerSettings.SaveSettingsOnExit := True; //ToDo: create a checkbox for this
FPoCheckerSettings.LastSelectedFile := FSelectedPoName;
FPoCheckerSettings.TestTypes := GetTestTypesFromListBox;
FPoCheckerSettings.TestOptions := GetTestOptions;
FPoCheckerSettings.SaveConfig;
FPoCheckerSettings.Free;
end;
function SameItem(Item1, Item2: TPoFileItem): boolean; function SameItem(Item1, Item2: TPoFileItem): boolean;
begin begin