Check-in [9b77047e22]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Show the repository's root path as hint for the branch button.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9b77047e22b914feda8fbd17e87216ad3cff2d1a
User & Date: tinus 2015-11-29 13:08:26
Context
2015-11-29
13:18
Show a console icon for the console menu item. check-in: 4646c6ea91 user: tinus tags: trunk
13:08
Show the repository's root path as hint for the branch button. check-in: 9b77047e22 user: tinus tags: trunk
2015-11-26
13:56
Perform different command depending on the status. If files have changed, show the changes (and the possibility to commit), if not, show the repository. check-in: 22aaec8852 user: tinus tags: trunk
Changes

Changes to src/VCSInfoMenuWzrd.pas.

645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660

661
662

663
664
665
666
667
668
669

670
671
672
673
674


675
676
677
678
679
680
681
682
683
684
685
  end;
end {TVCSInfoWizard.Destroy};

procedure TVCSInfoWizard.actBranchUpdate(Sender: TObject);
var
  actBranch: TAction;
  Repo: TRepoInfo;
  NewCaption: string;
  NewEnabled: boolean;
begin
  try
    actBranch := Sender as TAction;

    Repo := GetActiveFileRepo;
    NewEnabled := Repo.IsRepo;
    if Repo.IsRepo then begin

      NewCaption := Repo.Branch;
    end else begin

      if Repo.Root = '' then begin
        NewCaption := 'No active project';
      end else begin
        NewCaption := 'No repository';
      end;
    end;


    if (actBranch.Caption <> NewCaption)
        or (actBranch.Enabled <> NewEnabled) then
    begin
      actBranch.Enabled := NewEnabled;
      actBranch.Caption := NewCaption;



      FToolbar.Invalidate;
      LogMessage('actBranchUpdate: IsRepo=%d, In=%d, Out=%d; Caption="%s"',
                  [Ord(Repo.IsRepo), Repo.Incoming, Repo.Outgoing, NewCaption]);
    end;
  except
    on E: Exception do begin
      LogMessage('actBranchUpdate raised ' + E.ClassName + sLineBreak + E.ToString);
    end;
  end;
end;







|








>


>







>
|


<

>
>


|
|







645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675

676
677
678
679
680
681
682
683
684
685
686
687
688
689
  end;
end {TVCSInfoWizard.Destroy};

procedure TVCSInfoWizard.actBranchUpdate(Sender: TObject);
var
  actBranch: TAction;
  Repo: TRepoInfo;
  NewHint, NewCaption: string;
  NewEnabled: boolean;
begin
  try
    actBranch := Sender as TAction;

    Repo := GetActiveFileRepo;
    NewEnabled := Repo.IsRepo;
    if Repo.IsRepo then begin
      NewHint := ExcludeTrailingPathDelimiter(Repo.Root);
      NewCaption := Repo.Branch;
    end else begin
      NewHint := '';
      if Repo.Root = '' then begin
        NewCaption := 'No active project';
      end else begin
        NewCaption := 'No repository';
      end;
    end;

    if (actBranch.Hint <> NewHint)
        or (actBranch.Caption <> NewCaption)
        or (actBranch.Enabled <> NewEnabled) then
    begin

      actBranch.Caption := NewCaption;
      actBranch.Hint := NewHint;
      actBranch.Enabled := NewEnabled;

      FToolbar.Invalidate;
      LogMessage('actBranchUpdate: IsRepo=%d, In=%d, Out=%d; Caption="%s"; Hint="%s"',
                  [Ord(Repo.IsRepo), Repo.Incoming, Repo.Outgoing, NewCaption, NewHint]);
    end;
  except
    on E: Exception do begin
      LogMessage('actBranchUpdate raised ' + E.ClassName + sLineBreak + E.ToString);
    end;
  end;
end;