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: |
9b77047e22b914feda8fbd17e87216ad |
| 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;
|