unitswitcher/Source/ProjSwObjects.pas

unit ProjSwObjects;

interface
uses
  ToolsAPI,

  BaseSwObjects;


type
  TProjSwProject = class(TBaseSwItem)
  private
    FIsActive:        Boolean;
    FProject:         IOTAProject;
    FName:            String;
  protected
    function GetName: String; override;
  public
    constructor Create(AProject: IOTAProject; AIsActive: Boolean);

    procedure Activate(const AClearSelection: Boolean);

    property IsActive:  Boolean read FIsActive;
  end;


implementation
uses
  SysUtils, Dialogs;


{ TProjSwProject }
constructor TProjSwProject.Create(AProject: IOTAProject; AIsActive: Boolean);
begin
  inherited Create;

  FProject  := AProject;
  FName     := ExtractFileName(FProject.ProjectOptions.TargetName);
  FIsActive := AIsActive;
end;


procedure TProjSwProject.Activate(const AClearSelection: Boolean);
var
  moduleServices: IOTAModuleServices;
  projectGroup:   IOTAProjectGroup;

begin
  moduleServices  := (BorlandIDEServices as IOTAModuleServices);
  projectGroup    := moduleServices.MainProjectGroup;

  if Assigned(projectGroup) then
    projectGroup.ActiveProject  := FProject;
end;


function TProjSwProject.GetName: String;
begin
  Result  := FName;
end;

end.