Skip to content
Permalink
Browse files

Fix duplicated parentheses on host sub tabs, broken by previous commit.

Closes #739
  • Loading branch information...
ansgarbecker committed Aug 16, 2019
1 parent 10c450b commit 8f1fb1cfb02c5820e561cd66378ac8ec2a212cf8
Showing with 2 additions and 2 deletions.
  1. +2 −2 source/main.pas
@@ -10189,8 +10189,8 @@ procedure TMainForm.HostListBeforePaint(Sender: TBaseVirtualTree; TargetCanvas:
vt.EndUpdate;
vt.Tag := VTREE_LOADED;
// Display number of listed values on tab
CleanTabCaption := RegExprGetMatch('^(.+)(\s+\([^\)]*\))?$', Tab.Caption, 1);
Tab.Caption := CleanTabCaption + ' (' + IntToStr(vt.RootNodeCount) + ')';
CleanTabCaption := RegExprGetMatch('^([^\(]+)', Tab.Caption, 1);
Tab.Caption := CleanTabCaption.Trim + ' (' + IntToStr(vt.RootNodeCount) + ')';
// Restore selection
SetVTSelection(vt, SelectedCaptions, FocusedCaption);
end;

0 comments on commit 8f1fb1c

Please sign in to comment.
You can’t perform that action at this time.