paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

PoChecker: fix updating GUI in TPoCheckerForm.SetSelectedMasterFiles.

Browse Source 
git-svn-id: trunk@46482 -
This commit is contained in:
bart 2014-10-08 21:51:59 +00:00
parent 9538b7bb59
commit 226016dbd0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/pochecker/pocheckermain.pp
View File

@ -665,6 +665,7 @@ var
HasSelection: Boolean;
begin
MasterPoListBox.ClearSelection;
HasSelection := False;
for i := 0 to S.Count - 1 do
begin
Fn := S.Strings[i];
@ -675,7 +676,7 @@ begin
HasSelection := True;
end;
end;
//debugln('TPoCheckerForm.SetSelectedMasterFiles: MasterPoListBox.SelCount = ',DbgS(MasterPoListBox.SelCount));
//debugln('TPoCheckerForm.SetSelectedMasterFiles: S.Count = ',DbgS(S.Count),' HasSelection = ',DbgS(HasSelection));
UpdateGUI(HasSelection);
end;