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

POChecker: some code simplifications

Browse Source 
git-svn-id: trunk@52510 -
This commit is contained in:
maxim 2016-06-15 21:43:30 +00:00
parent fdee048f85
commit efdc90aafb
1 changed files with 11 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/pochecker/pocheckermain.pp
View File

@ -418,14 +418,14 @@ begin
begin begin
S := ''; S := '';
if OL.Count > 0 then if OL.Count > 0 then
begin
S := Format(sTheFollowingOrphanedPoFileSFound, [IntToStr(OL.Count)]) + LineEnding + OL.Text; S := Format(sTheFollowingOrphanedPoFileSFound, [IntToStr(OL.Count)]) + LineEnding + OL.Text;
if MissingFiles.Count > 0 then
S := S + LineEnding;
end;
if MissingFiles.Count > 0 then if MissingFiles.Count > 0 then
begin
if S <> '' then
S := S + LineEnding;
S := S + Format(sTheFollowingMissingMasterPoFileSWereRemoved, [ S := S + Format(sTheFollowingMissingMasterPoFileSWereRemoved, [
IntToStr(MissingFiles.Count)]) + LineEnding + MissingFiles.Text; IntToStr(MissingFiles.Count)]) + LineEnding + MissingFiles.Text;
end;
MemoDlg(sTroublesomeFiles, S); MemoDlg(sTroublesomeFiles, S);
end; end;
UpdateGUI(MasterPoListBox.SelCount > 0); UpdateGUI(MasterPoListBox.SelCount > 0);
@ -593,26 +593,13 @@ end;
procedure TPoCheckerForm.UpdateGUI(HasSelection: Boolean); procedure TPoCheckerForm.UpdateGUI(HasSelection: Boolean);
begin begin
NoErrLabel.Visible := False; NoErrLabel.Visible := False;
if HasSelection then RunToolButton.Enabled := HasSelection;
begin TestListBox.Enabled := HasSelection;
RunToolButton.Enabled := True; SelectAllTestsBtn.Enabled := HasSelection;
TestListBox.Enabled := True; SelectBasicTestsBtn.Enabled := HasSelection;
SelectAllTestsBtn.Enabled := True; UnselectAllTestsBtn.Enabled := HasSelection;
SelectBasicTestsBtn.Enabled := True; UnselectAllMasterFilesBtn.Enabled := HasSelection;
UnselectAllTestsBtn.Enabled := True; IgnoreFuzzyCheckBox.Enabled := HasSelection;
UnselectAllMasterFilesBtn.Enabled := True;
IgnoreFuzzyCheckBox.Enabled := True;
end
else
begin
RunToolButton.Enabled := False;
TestListBox.Enabled := False;
SelectAllTestsBtn.Enabled := False;
SelectBasicTestsBtn.Enabled := False;
UnselectAllTestsBtn.Enabled := False;
UnselectAllMasterFilesBtn.Enabled := False;
IgnoreFuzzyCheckBox.Enabled := False;
end;
ClearMasterFilesBtn.Enabled := (MasterPoListBox.Items.Count > 0); ClearMasterFilesBtn.Enabled := (MasterPoListBox.Items.Count > 0);
SelectAllMasterFilesBtn.Enabled := (MasterPoListBox.Items.Count > 0); SelectAllMasterFilesBtn.Enabled := (MasterPoListBox.Items.Count > 0);
end; end;