paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 10:18:05 +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;
Str: String;
begin
{
Idx := MasterPoListBox.ItemIndex;
if (Idx <> -1) then
PrevItem := MasterPoListBox.Items[Idx]
else
PrevItem := '';
}
MasterPoListBox.Items.BeginUpdate;
try
for i := 0 to S.Count - 1 do
begin
Str := S[i];
//skip files that do not exist (anymore)
if (FileExistsUtf8(Str)) and (not FileExistsUTF8(ExtractFilePath(Str) + '.pocheckerignore')) then
//skip ignored files
if not FileExistsUTF8(ExtractFilePath(Str) + '.pocheckerignore') then
begin
Idx := MasterPoListBox.Items.IndexOf(Str);
if (Idx = -1) then
MasterPoListBox.Items.Add(Str);
end
end;
{
if (PrevItem <> '') then
begin
Idx := MasterPoListBox.Items.IndexOf(PrevItem);
MasterPoListBox.ItemIndex := Idx;
end;
}
finally
MasterPoListBox.Items.EndUpdate;
end;