paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 01:57:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

PoChecker:

Browse Source 
- GUI updates, functional and cosmetic.
- regenerate language files.

git-svn-id: trunk@46538 -
This commit is contained in:
bart 2014-10-12 12:29:55 +00:00
parent f528310d7e
commit 52c0403596
14 changed files with 151 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/pochecker/languages/pocheckerconsts.cs.po
View File

@ -354,6 +354,10 @@ msgstr ""
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr ""
@ -409,7 +413,7 @@ msgid "&Unselect All"
msgstr ""
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
msgid "Unselect all files"
msgstr ""
#: pocheckerconsts.suntranslated

8
components/pochecker/languages/pocheckerconsts.de.po
View File

@ -357,6 +357,10 @@ msgstr "Verzeichnis durchsuchen"
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr "&Alle auswählen"
@ -417,7 +421,9 @@ msgid "&Unselect All"
msgstr "Alle abwählen"
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
#, fuzzy
#| msgid "Unselect"
msgid "Unselect all files"
msgstr "Abwählen"
#: pocheckerconsts.suntranslated

6
components/pochecker/languages/pocheckerconsts.es.po
View File

@ -345,6 +345,10 @@ msgstr ""
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr ""
@ -398,7 +402,7 @@ msgid "&Unselect All"
msgstr ""
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
msgid "Unselect all files"
msgstr ""
#: pocheckerconsts.suntranslated

6
components/pochecker/languages/pocheckerconsts.hu.po
View File

@ -351,6 +351,10 @@ msgstr ""
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr "Összes kijelölése"
@ -405,7 +409,7 @@ msgid "&Unselect All"
msgstr "Kijelölések törlése"
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
msgid "Unselect all files"
msgstr ""
#: pocheckerconsts.suntranslated

6
components/pochecker/languages/pocheckerconsts.it.po
View File

@ -347,6 +347,10 @@ msgstr ""
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr "Seleziona &Tutto"
@ -406,7 +410,7 @@ msgid "&Unselect All"
msgstr "&Deseleziona tutto"
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
msgid "Unselect all files"
msgstr ""
#: pocheckerconsts.suntranslated

6
components/pochecker/languages/pocheckerconsts.ja.po
View File

@ -351,6 +351,10 @@ msgstr ""
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr ""
@ -406,7 +410,7 @@ msgid "&Unselect All"
msgstr ""
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
msgid "Unselect all files"
msgstr ""
#: pocheckerconsts.suntranslated

6
components/pochecker/languages/pocheckerconsts.lt.po
View File

@ -347,6 +347,10 @@ msgstr ""
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr ""
@ -398,7 +402,7 @@ msgid "&Unselect All"
msgstr ""
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
msgid "Unselect all files"
msgstr ""
#: pocheckerconsts.suntranslated

6
components/pochecker/languages/pocheckerconsts.po
View File

@ -324,6 +324,10 @@ msgstr ""
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr ""
@ -373,7 +377,7 @@ msgid "&Unselect All"
msgstr ""
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
msgid "Unselect all files"
msgstr ""
#: pocheckerconsts.suntranslated

6
components/pochecker/languages/pocheckerconsts.pt_BR.po
View File

@ -345,6 +345,10 @@ msgstr ""
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr ""
@ -398,7 +402,7 @@ msgid "&Unselect All"
msgstr ""
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
msgid "Unselect all files"
msgstr ""
#: pocheckerconsts.suntranslated

8
components/pochecker/languages/pocheckerconsts.ru.po
View File

@ -360,6 +360,10 @@ msgstr "Искать в каталоге"
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
#| msgid "Select &All Tests"
msgid "Select &All"
@ -422,7 +426,9 @@ msgid "&Unselect All"
msgstr "&Снять выбор"
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
#, fuzzy
#| msgid "Unselect"
msgid "Unselect all files"
msgstr "Снять выбор"
#: pocheckerconsts.suntranslated

6
components/pochecker/languages/pocheckerconsts.uk.po
View File

@ -344,6 +344,10 @@ msgstr ""
msgid "Scanning in progress, please wait ..."
msgstr ""
#: pocheckerconsts.sselectalllistbox
msgid "Select all files"
msgstr ""
#: pocheckerconsts.sselectalltests
msgid "Select &All"
msgstr ""
@ -395,7 +399,7 @@ msgid "&Unselect All"
msgstr ""
#: pocheckerconsts.sunselectlistbox
msgid "Unselect"
msgid "Unselect all files"
msgstr ""
#: pocheckerconsts.suntranslated

3
components/pochecker/pocheckerconsts.pas
View File

@ -18,7 +18,8 @@ resourcestring
sScanDir = 'Scan a folder';
sRunSelectedTests = '&Run Selected Tests';
sClearListBox = 'Clear';
sUnselectListBox = 'Unselect';
sUnselectListBox = 'Unselect all files';
sSelectAllListBox = 'Select all files';
sAllLanguages = 'All Languages';
sCannotFindMaster = 'Cannot find master po file:' + LineEnding + '%s' + LineEnding + 'for selected file' + LineEnding + '%s';
//sNotAProperFileName = 'Selected filename' + LineEnding + '%s' + LineEnding + 'does not seem to be a proper name for a po-file';

72
components/pochecker/pocheckermain.lfm
View File

@ -133,51 +133,54 @@ object PoCheckerForm: TPoCheckerForm
ParentColor = False
ParentFont = False
end
object SelectBasicBtn: TButton
object SelectBasicTestsBtn: TButton
AnchorSideLeft.Control = TestListBox
AnchorSideTop.Control = TestListBox
AnchorSideTop.Side = asrBottom
Left = 201
Height = 25
Top = 153
Width = 115
Width = 117
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Select Basic Tests'
Enabled = False
OnClick = SelectBasicBtnClick
OnClick = SelectBasicTestsBtnClick
TabOrder = 3
end
object SelectAllBtn: TButton
AnchorSideLeft.Control = SelectBasicBtn
object SelectAllTestsBtn: TButton
AnchorSideLeft.Control = SelectBasicTestsBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SelectBasicBtn
Left = 320
AnchorSideTop.Control = SelectBasicTestsBtn
Left = 322
Height = 25
Top = 153
Width = 115
Width = 104
AutoSize = True
BorderSpacing.Left = 4
Caption = 'Select All Tests'
Enabled = False
OnClick = SelectAllBtnClick
OnClick = SelectAllTestsBtnClick
TabOrder = 4
end
object UnselectAllBtn: TButton
AnchorSideLeft.Control = SelectAllBtn
object UnselectAllTestsBtn: TButton
AnchorSideLeft.Control = SelectAllTestsBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SelectAllBtn
Left = 439
AnchorSideTop.Control = SelectAllTestsBtn
Left = 430
Height = 25
Top = 153
Width = 115
Width = 118
AutoSize = True
BorderSpacing.Left = 4
Caption = 'Unselect All Tests'
Enabled = False
OnClick = UnselectAllBtnClick
OnClick = UnselectAllTestsBtnClick
TabOrder = 5
end
object IgnoreFuzzyCheckBox: TCheckBox
AnchorSideLeft.Control = TestListBox
AnchorSideTop.Control = SelectBasicBtn
AnchorSideTop.Control = SelectBasicTestsBtn
AnchorSideTop.Side = asrBottom
Left = 201
Height = 19
@ -313,7 +316,7 @@ object PoCheckerForm: TPoCheckerForm
TabOrder = 10
Text = 'All languages'
end
object ClearMasterBtn: TButton
object ClearMasterFilesBtn: TButton
AnchorSideLeft.Control = MasterPoListBox
AnchorSideTop.Control = MasterPoListBox
AnchorSideTop.Side = asrBottom
@ -321,28 +324,45 @@ object PoCheckerForm: TPoCheckerForm
Left = 8
Height = 25
Top = 426
Width = 75
Width = 53
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Top = 10
Caption = 'Clear'
OnClick = ClearMasterBtnClick
OnClick = ClearMasterFilesBtnClick
TabOrder = 11
end
object UnselectMasterBtn: TButton
AnchorSideLeft.Control = ClearMasterBtn
object UnselectAllMasterFilesBtn: TButton
AnchorSideLeft.Control = SelectAllMasterFilesBtn
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = NoErrLabel
Left = 93
Left = 167
Height = 25
Top = 426
Width = 75
Width = 110
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 10
Caption = 'Unselect'
AutoSize = True
BorderSpacing.Left = 5
Caption = 'Unselect all files'
Enabled = False
OnClick = UnselectMasterBtnClick
OnClick = UnselectAllMasterFilesBtnClick
TabOrder = 12
end
object SelectAllMasterFilesBtn: TButton
AnchorSideLeft.Control = ClearMasterFilesBtn
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = NoErrLabel
Left = 66
Height = 25
Top = 426
Width = 96
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 5
Caption = 'Select all files'
OnClick = SelectAllMasterFilesBtnClick
TabOrder = 13
end
object OpenDialog: TOpenDialog
Filter = 'po-files (*.po)|*.po|all files|*'
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]

73
components/pochecker/pocheckermain.pp
View File

@ -40,23 +40,25 @@ type
{ TPoCheckerForm }
TPoCheckerForm = class(TForm)
SelectAllMasterFilesBtn: TButton;
SelectDirectoryDialog: TSelectDirectoryDialog;
UnselectMasterBtn: TButton;
ClearMasterBtn: TButton;
UnselectAllMasterFilesBtn: TButton;
ClearMasterFilesBtn: TButton;
LangFilter: TComboBox;
MasterPoListBox: TListBox;
ScanDirBtn: TBitBtn;
StatusBar: TStatusBar;
procedure MasterPoListBoxResize(Sender: TObject);
procedure ClearMasterBtnClick(Sender: TObject);
procedure ClearMasterFilesBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure LangFilterChange(Sender: TObject);
procedure MasterPoListBoxDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
procedure MasterPoListBoxSelectionChange(Sender: TObject; User: boolean);
procedure ScanDirBtnClick(Sender: TObject);
procedure SelectAllMasterFilesBtnClick(Sender: TObject);
procedure UnselectChildBtnClick(Sender: TObject);
procedure UnselectMasterBtnClick(Sender: TObject);
procedure UnselectAllMasterFilesBtnClick(Sender: TObject);
private
//PoFamily: TPoFamily;
PoFamilyList: TPoFamilyList;
@ -86,9 +88,9 @@ type
procedure PopulateLangFilter;
published
IgnoreFuzzyCheckBox: TCheckBox;
UnselectAllBtn: TButton;
SelectAllBtn: TButton;
SelectBasicBtn: TButton;
UnselectAllTestsBtn: TButton;
SelectAllTestsBtn: TButton;
SelectBasicTestsBtn: TButton;
NoErrLabel: TLabel;
RunBtn: TBitBtn;
OpenBtn: TBitBtn;
@ -100,9 +102,9 @@ type
procedure FormDestroy(Sender: TObject);
procedure OpenBtnClick(Sender: TObject);
procedure RunBtnClick(Sender: TObject);
procedure SelectAllBtnClick(Sender: TObject);
procedure SelectBasicBtnClick(Sender: TObject);
procedure UnselectAllBtnClick(Sender: TObject);
procedure SelectAllTestsBtnClick(Sender: TObject);
procedure SelectBasicTestsBtnClick(Sender: TObject);
procedure UnselectAllTestsBtnClick(Sender: TObject);
end;
var
@ -162,16 +164,17 @@ begin
OpenBtn.Caption := sOpenAPoFile;
ScanDirBtn.Caption := sScanDir;
RunBtn.Caption := sRunSelectedTests;
ClearMasterBtn.Caption := sClearListBox;
UnselectMasterBtn.Caption := sUnselectListBox;
ClearMasterFilesBtn.Caption := sClearListBox;
UnselectAllMasterFilesBtn.Caption := sUnselectListBox;
SelectAllMasterFilesBtn.Caption := sSelectAllListBox;
LangFilter.Items[0] := sAllLanguages;
NoErrLabel.Caption := sNoErrorsFound;
FillTestListBox;
ClearStatusBar;
NoErrLabel.Visible := False;
SelectAllBtn.Caption := sSelectAllTests;
SelectBasicBtn.Caption := sSelectBasicTests;
UnselectAllBtn.Caption := sUnselectAllTests;
SelectAllTestsBtn.Caption := sSelectAllTests;
SelectBasicTestsBtn.Caption := sSelectBasicTests;
UnselectAllTestsBtn.Caption := sUnselectAllTests;
PopulateLangFilter;
LoadConfig;
LangFilter.Invalidate; //Items[0] may have been changed
@ -229,13 +232,13 @@ begin
end;
end;
procedure TPoCheckerForm.SelectAllBtnClick(Sender: TObject);
procedure TPoCheckerForm.SelectAllTestsBtnClick(Sender: TObject);
begin
TestListBox.CheckAll(cbChecked, False, False);
end;
procedure TPoCheckerForm.SelectBasicBtnClick(Sender: TObject);
procedure TPoCheckerForm.SelectBasicTestsBtnClick(Sender: TObject);
var
i: integer;
begin
@ -244,7 +247,7 @@ begin
TestListBox.Checked[i] := True;
end;
procedure TPoCheckerForm.UnselectAllBtnClick(Sender: TObject);
procedure TPoCheckerForm.UnselectAllTestsBtnClick(Sender: TObject);
begin
TestListBox.CheckAll(cbUnchecked, False, False);
end;
@ -269,7 +272,7 @@ begin
end;
procedure TPoCheckerForm.ClearMasterBtnClick(Sender: TObject);
procedure TPoCheckerForm.ClearMasterFilesBtnClick(Sender: TObject);
begin
MasterPoListBox.Clear;
UpdateGUI(False);
@ -309,7 +312,8 @@ begin
begin
UpdateGUI(MasterPoListBox.SelCount > 0);
end;
UnselectMasterBtn.Enabled := (MasterPoListBox.SelCount <> 0);
UnselectAllMasterFilesBtn.Enabled := (MasterPoListBox.SelCount <> 0);
SelectAllMasterFilesBtn.Enabled := (MasterPoListBox.Items.Count > 0);
end;
procedure TPoCheckerForm.ScanDirBtnClick(Sender: TObject);
@ -320,11 +324,17 @@ begin
end;
end;
procedure TPoCheckerForm.SelectAllMasterFilesBtnClick(Sender: TObject);
begin
MasterPoListBox.SelectAll;
UpdateGUI(MasterPoListBox.SelCount > 0);
end;
procedure TPoCheckerForm.UnselectChildBtnClick(Sender: TObject);
begin
end;
procedure TPoCheckerForm.UnselectMasterBtnClick(Sender: TObject);
procedure TPoCheckerForm.UnselectAllMasterFilesBtnClick(Sender: TObject);
begin
MasterPoListBox.ClearSelection;
UpdateGUI(False);
@ -461,6 +471,7 @@ begin
ML.Add(S);
end;
if (ML.Count > 0) then AddToMasterPoList(ML);
UpdateGUI(MasterPoListBox.SelCount > 0);
finally
SL.Free;
ML.Free;
@ -611,20 +622,24 @@ begin
begin
RunBtn.Enabled := True;
TestListBox.Enabled := True;
SelectAllBtn.Enabled := True;
SelectBasicBtn.Enabled := True;
UnselectAllBtn.Enabled := True;
UnselectMasterBtn.Enabled := True;
SelectAllTestsBtn.Enabled := True;
SelectBasicTestsBtn.Enabled := True;
UnselectAllTestsBtn.Enabled := True;
UnselectAllMasterFilesBtn.Enabled := True;
IgnoreFuzzyCheckBox.Enabled := True;
end
else
begin
RunBtn.Enabled := False;
TestListBox.Enabled := False;
SelectAllBtn.Enabled := False;
SelectBasicBtn.Enabled := False;
UnselectAllBtn.Enabled := False;
UnselectMasterBtn.Enabled := False;
SelectAllTestsBtn.Enabled := False;
SelectBasicTestsBtn.Enabled := False;
UnselectAllTestsBtn.Enabled := False;
UnselectAllMasterFilesBtn.Enabled := False;
IgnoreFuzzyCheckBox.Enabled := False;
end;
ClearMasterFilesBtn.Enabled := (MasterPoListBox.Items.Count > 0);
SelectAllMasterFilesBtn.Enabled := (MasterPoListBox.Items.Count > 0);
end;
function TPoCheckerForm.GetSelectedMasterFiles: TStringList;