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

PoChecker: correctly update the GUI when selecting a single file through the "Open a po-file" button.

Browse Source 
git-svn-id: trunk@46539 -
This commit is contained in:
bart 2014-10-12 14:11:12 +00:00
parent 52c0403596
commit 1a7d1eeebd
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/pochecker/pocheckermain.pp
View File

@ -194,19 +194,18 @@ end;
procedure TPoCheckerForm.OpenBtnClick(Sender: TObject); procedure TPoCheckerForm.OpenBtnClick(Sender: TObject);
var var
Fn: String; Fn: String;
Idx: Integer;
begin begin
if TrySelectFile(Fn) then if TrySelectFile(Fn) then
begin begin
if IsMasterPoName(Fn) then if IsMasterPoName(Fn) then
AddToMasterPoList(Fn) begin
else AddToMasterPoList(Fn);
//AddToChildPoList(Fn); Idx := MasterPoListBox.Items.IndexOf(Fn);
AddToMasterPoList(ExtractMasterNameFromChildName(Fn)); if (Idx <> -1) then
UpdateGUI(True); MasterPoListBox.Selected[Idx] := True;
end end;
else UpdateGUI(MasterPoListBox.SelCount > 0);
begin
UpdateGUI(False);
end; end;
end; end;