Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Show a console icon for the console menu item. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4646c6ea91673774b99bb20d64d68e6a |
| User & Date: | tinus 2015-11-29 13:18:36.000 |
Context
|
2015-12-08
| ||
| 08:00 | Updated todo. check-in: a39f256989 user: tinus tags: trunk | |
|
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 | |
Changes
Changes to src/VCSInfoMenuWzrd.pas.
| ︙ | ︙ | |||
29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
FButtonSync: TToolButton;
FButtonStatus: TToolButton;
FButtonBranch: TToolButton;
FMenuBranches: TPopupMenu;
FImgIcon: Integer;
FImgMercurial: Integer;
FImgFossil: Integer;
FImgUnknown: integer;
FImgSyncNone: integer;
FImgSyncPull: integer;
FImgSyncPush: integer;
FImgSyncBoth: integer;
| > | 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
FButtonSync: TToolButton;
FButtonStatus: TToolButton;
FButtonBranch: TToolButton;
FMenuBranches: TPopupMenu;
FImgIcon: Integer;
FImgConsole: Integer;
FImgMercurial: Integer;
FImgFossil: Integer;
FImgUnknown: integer;
FImgSyncNone: integer;
FImgSyncPull: integer;
FImgSyncPush: integer;
FImgSyncBoth: integer;
|
| ︙ | ︙ | |||
514 515 516 517 518 519 520 521 522 523 524 525 526 527 |
end;
end;
LogMessage('Creating images...');
FImgIcon := Services.ImageList.AddIcon(Application.Icon);
FImgMercurial := AddExeIcon('hg.exe');
FImgFossil := AddExeIcon('fossil.exe');
FImgUnknown := AddButtonImage(clBtnShadow);
FImgSyncNone := AddButtonImage(clGreen);
FImgSyncPull := AddButtonImage(clRed);
FImgSyncPush := AddButtonImage(clYellow);
FImgSyncBoth := AddButtonImage(clWebOrange);
FImgClean := AddButtonImage(clLime);
FImgPending := AddButtonImage(clBlue);
| > | 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 |
end;
end;
LogMessage('Creating images...');
FImgIcon := Services.ImageList.AddIcon(Application.Icon);
FImgMercurial := AddExeIcon('hg.exe');
FImgFossil := AddExeIcon('fossil.exe');
FImgConsole := AddExeIcon('cmd.exe');
FImgUnknown := AddButtonImage(clBtnShadow);
FImgSyncNone := AddButtonImage(clGreen);
FImgSyncPull := AddButtonImage(clRed);
FImgSyncPush := AddButtonImage(clYellow);
FImgSyncBoth := AddButtonImage(clWebOrange);
FImgClean := AddButtonImage(clLime);
FImgPending := AddButtonImage(clBlue);
|
| ︙ | ︙ | |||
705 706 707 708 709 710 711 |
if Menu.Owner is TToolButton then begin
Item := Menu.Items.Items[Menu.Items.Count - 1];
Button := TToolButton(Menu.Owner);
Item.ImageIndex := Button.ImageIndex;
case Button.Action.Tag of
0: begin // hg
ExecuteCmd('thg version', Output);
| | > > | > > | 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 |
if Menu.Owner is TToolButton then begin
Item := Menu.Items.Items[Menu.Items.Count - 1];
Button := TToolButton(Menu.Owner);
Item.ImageIndex := Button.ImageIndex;
case Button.Action.Tag of
0: begin // hg
ExecuteCmd('thg version', Output);
if Output <> '' then begin
Item.Caption := Output.Split([#13#10, #10, #13], 1, TStringSplitOptions.ExcludeEmpty)[0];
Item.ImageIndex := FImgConsole;
end;
end;
1: begin // fossil
ExecuteCmd('fossil version', Output);
if Output <> '' then begin
Item.Caption := Output.Replace('This is f', 'F').TrimRight;
Item.ImageIndex := FImgConsole;
end;
end;
else begin
Item.Caption := GetCurrentVersion;
end;
end;
end;
except
|
| ︙ | ︙ |