Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/INTEXPT.PAS

Pascal/Delphi Source File | 1997-01-16 | 2KB | 105 lines

unit intexpt;
interface

uses
 sharemem, SysUtils, VirtIntf, ExptIntf, ToolIntf,Windows,Dialogs;
procedure HandleException;

type
  TClasspert = class(TIExpert)
    function GetName: string; override;
    function GetStyle: TExpertStyle; override;
    function GetState: TExpertState; override;
    function GetIDString: string; override;
    function GetMenuText: string; override;
    function GetAuthor: string; override;
    function GetComment: string;override;
    function GetPage: string; override;
    function GetGlyph: HICON;override;
    procedure Execute; override;
  end;

implementation

uses Forms, Controls,clssdlph;


procedure HandleException;
{ Raise exception within the context of the IDE }
begin
  ToolServices.RaiseException(ReleaseException);
end;

function TClasspert.GetGlyph: HICON;
begin
  // needs to be overridden
end;

function TClasspert.GetPage: string;
begin
  // needs to be overridden
end;

function TClasspert.GetComment: string;
begin
  // needs to be overridden
end;

function TClasspert.GetAuthor: string;
begin
  // needs to be overridden
end;


function TClasspert.GetName: string;
{ Return name of expert }
begin
  Result := 'Classpert';
end;

function TClasspert.GetStyle: TExpertStyle;
{ Return the style of the expert.  This one is standard. }
begin
  Result := esStandard;
end;

function TClasspert.GetState: TExpertState;
{ This expert is always enabled on the menu }
begin
  Result := [esEnabled];
end;

function TClasspert.GetIDString: String;
{ Return the unique Vendor.Product name of expert }
begin
  Result := 'Borland.VCL Class Viewer';
end;

function TClasspert.GetMenuText: string;
{ Return text for Help menu }
begin
  Result := 'VCL Class Viewer';
end;

procedure TClasspert.Execute;
{ Called when expert name is selected from Help menu of IDE. }
{ This function invokes the expert }
begin
  try
    if not Assigned(MainDlg) then begin         // if not created...
      MainDlg := TMainDlg.Create(Application); // create it
      MainDlg.Show;                            // show it
    end
    else with MainDlg do begin                  // if created...
      if WindowState = wsMinimized then
        WindowState := wsNormal;                 // restore window
      SetFocus;                                  // show it
    end;
  except
    HandleException;
  end;
  end;
end.