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.000 |
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 | end; end {TVCSInfoWizard.Destroy}; procedure TVCSInfoWizard.actBranchUpdate(Sender: TObject); var actBranch: TAction; Repo: TRepoInfo; | | > > > | < > > | | | 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; |
︙ | ︙ |