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

POChecker: do not silently remove nonexistent .pot files when populating master file list on form show, let user be notified about them when scanning directory or running tests

Browse Source 
git-svn-id: trunk@62004 -
This commit is contained in:
maxim 2019-10-06 21:03:03 +00:00
parent d3daac07ac
commit 71fc709658
1 changed files with 2 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/pochecker/pocheckermain.pp
View File

@ -539,33 +539,19 @@ var
i, Idx: Integer; i, Idx: Integer;
Str: String; Str: String;
begin begin
{
Idx := MasterPoListBox.ItemIndex;
if (Idx <> -1) then
PrevItem := MasterPoListBox.Items[Idx]
else
PrevItem := '';
}
MasterPoListBox.Items.BeginUpdate; MasterPoListBox.Items.BeginUpdate;
try try
for i := 0 to S.Count - 1 do for i := 0 to S.Count - 1 do
begin begin
Str := S[i]; Str := S[i];
//skip files that do not exist (anymore) //skip ignored files
if (FileExistsUtf8(Str)) and (not FileExistsUTF8(ExtractFilePath(Str) + '.pocheckerignore')) then if not FileExistsUTF8(ExtractFilePath(Str) + '.pocheckerignore') then
begin begin
Idx := MasterPoListBox.Items.IndexOf(Str); Idx := MasterPoListBox.Items.IndexOf(Str);
if (Idx = -1) then if (Idx = -1) then
MasterPoListBox.Items.Add(Str); MasterPoListBox.Items.Add(Str);
end end
end; end;
{
if (PrevItem <> '') then
begin
Idx := MasterPoListBox.Items.IndexOf(PrevItem);
MasterPoListBox.ItemIndex := Idx;
end;
}
finally finally
MasterPoListBox.Items.EndUpdate; MasterPoListBox.Items.EndUpdate;
end; end;