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

PoChecker: removed unused TPoCheckerForm.AddToMasterPoList(Fn: String) method

Browse Source 
git-svn-id: trunk@60656 -
This commit is contained in:
maxim 2019-03-11 22:34:42 +00:00
parent 967a52e177
commit 4d87dcf835
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/pochecker/pocheckermain.pp
View File

@ -79,7 +79,6 @@ type
procedure ClearStatusBar;
procedure UpdateGUI(HasSelection: Boolean);
function GetSelectedMasterFiles: TStringList;
procedure AddToMasterPoList(Fn: String);
procedure AddToMasterPoList(S: TStrings);
procedure SetSelectedMasterFiles(S: TStrings);
procedure ApplyConfig;
@ -603,18 +602,6 @@ begin
end;
end;
procedure TPoCheckerForm.AddToMasterPoList(Fn: String);
var
Idx: Integer;
begin
if not FileExistsUtf8(Fn) then Exit;
Idx := MasterPoListBox.Items.IndexOf(Fn);
if (Idx = -1) then
begin
MasterPoListBox.Items.Add(Fn);
end;
end;
procedure TPoCheckerForm.AddToMasterPoList(S: TStrings);
var
i, Idx: Integer;