</DeployFile>
                <DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\15.0\Bpl\VCSInfo.bpl" Configuration="Debug" Class="ProjectOutput">
                    <Platform Name="Win32">
                        <RemoteName>VCSInfo.bpl</RemoteName>
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
                <DeployClass Name="DependencyModule">
                    <Platform Name="Win32">
                        <Operation>0</Operation>
                        <Extensions>.dll;.bpl</Extensions>
                    </Platform>
                    <Platform Name="OSX32">
                        <Operation>1</Operation>
                        <Extensions>.dylib</Extensions>
                    </Platform>
                </DeployClass>
                <DeployClass Name="ProjectOSXResource">
                    <Platform Name="OSX32">
                        <RemoteDir>Contents\Resources</RemoteDir>
                        <Operation>1</Operation>
                    </Platform>
                </DeployClass>
                <DeployClass Name="AndroidClassesDexFile">

                </DeployClass>
                <DeployClass Name="Android_LauncherIcon36">
                    <Platform Name="Android">
                        <RemoteDir>res\drawable-ldpi</RemoteDir>
                        <Operation>1</Operation>
                    </Platform>
                </DeployClass>
                <DeployClass Name="ProjectiOSDeviceResourceRules"/>









                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>

unit VCSInfoMenuWzrd;

interface
uses
  System.Generics.Collections,
  ToolsAPI, Vcl.ComCtrls, Vcl.Controls;


type
  TRepoInfo = record
    Root: string;
    IsRepo: Boolean;
    Incoming: Cardinal;
    Outgoing: Cardinal;
    LastUpdated: TDateTime;
  end;

  // TODO: implement IOTAEditorNotifier and/or IOTAIDENotifier so we know which file is active
  TVCSInfoWizard = class(TNotifierObject, IOTAWizard, IOTAMenuWizard)
    private
      FRepos: TDictionary<string,TRepoInfo>;
      FToolbar: TToolBar;
      FButtonIn: TControl;

      function GetRepoInfo(const AFileName: string; const AForceUpdate: Boolean = False): TRepoInfo;
    public
      constructor Create;
      destructor Destroy; override;

      { IOTAWizard }
      function GetIDString: string;
      function GetName: string;
      function GetState: TWizardState;
      procedure Execute;

      { IOTAMenuWizard }
      function GetMenuText: string;

      procedure actIncomingExecute(Sender: TObject);
  end;

procedure Register;

implementation
uses
  System.SysUtils, System.UITypes, System.Classes,
  Vcl.Forms, Vcl.Dialogs,
  Winapi.Windows,
  u_FinalPathName, Vcl.ActnList, Vcl.Graphics;

const
  scMenuIDString = 'net.2of4.VCSInfoWizard';

{ ------------------------------------------------------------------------------------------------ }
procedure Register;
begin

    Result := False;
  end;
end {CreateProcess};

{ ================================================================================================ }
{ TVCSInfoWizard }

{ ------------------------------------------------------------------------------------------------ }
constructor TVCSInfoWizard.Create;
var
  Services: INTAServices;
  actIncoming: TAction;
  bmpCount: TBitmap;
begin
  Supports(BorlandIDEServices, INTAServices, Services);
  FToolbar := Services.NewToolbar('tlbVCSInfo', 'VCS Info');

  bmpCount := TBitmap.Create;
  bmpCount.SetSize(16, 16);
  bmpCount.Canvas.Brush.Color := clLime; // clBtnFace;
  bmpCount.Canvas.Brush.Style := bsSolid;
  bmpCount.Canvas.FillRect(Rect(0, 0, 16, 16));
  bmpCount.TransparentColor := clFuchsia;

  actIncoming := TAction.Create(FToolbar);
  actIncoming.Caption := '(0)';
  actIncoming.Enabled := True;
  actIncoming.ImageIndex := Services.AddMasked(bmpCount, bmpCount.TransparentColor, 'net.2of4.actIncoming');
  actIncoming.OnExecute := actIncomingExecute;

  FButtonIn := Services.AddToolButton(FToolbar.Name, 'btnIncoming', actIncoming);
  if FButtonIn is TToolButton then begin
    with TToolButton(FButtonIn) do begin
      Style := tbsTextButton;
    end;
  end;

  FToolbar.Visible := True;
  FToolbar.Invalidate;
end;
{ ------------------------------------------------------------------------------------------------ }
destructor TVCSInfoWizard.Destroy;
var
  Button: TToolButton;
begin
  FButtonIn.Action.Free;
  for Button in FToolbar do begin
    FToolbar.Perform(CM_CONTROLCHANGE, WPARAM(Button), 0);
  end;
  FToolbar.Free;
  FRepos.Free;
  inherited;
end;

{ ------------------------------------------------------------------------------------------------ }
procedure TVCSInfoWizard.actIncomingExecute(Sender: TObject);
begin
  Self.Execute;
end;

{ ------------------------------------------------------------------------------------------------ }
function TVCSInfoWizard.GetMenuText: string;
var
  Project: IOTAProject;
  Info: TRepoInfo;
begin

      ExecuteCmd('hg -y summary --remote', Msg, False, nil, ExtractFileDir(CodeFile));
      case TaskMessageDlg('Launch TortoiseHg?',
                          Info.Root + #13#10#13#10 +
                          Msg,
                          MsgType, [mbYes, mbNo], 0, mbYes) of
        mrYes: CreateProcess('thg log', ExtractFileDir(CodeFile));
      end;
    end else begin
      TaskMessageDlg('No repository', ExtractFileName(Project.FileName) + ' is not in a Mercurial repository.', mtError, [mbOK], 0);
    end;
  end else begin
    TaskMessageDlg('No project loaded', '', mtError, [mbOK], 0);
  end;
end {TVCSInfoWizard.Execute};

{ ------------------------------------------------------------------------------------------------ }
function TVCSInfoWizard.GetIDString: string;
begin
  Result := scMenuIDString;