home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / INTEXPT.PAS < prev    next >
Pascal/Delphi Source File  |  1997-02-14  |  3KB  |  113 lines
  1. //---------------------------------------------------------------------------
  2. // Borland C++Builder
  3. // Copyright (c) 1987, 1997 Borland International Inc.  All Rights Reserved.
  4. //---------------------------------------------------------------------------
  5. // Intexpt.pas
  6. //
  7. // VCL Class Browser
  8. //---------------------------------------------------------------------------
  9. unit intexpt;
  10. interface
  11.  
  12. uses
  13.  sharemem, SysUtils, VirtIntf, ExptIntf, ToolIntf,Windows,Dialogs;
  14. procedure HandleException;
  15.  
  16. type
  17.   TClasspert = class(TIExpert)
  18.     function GetName: string; override;
  19.     function GetStyle: TExpertStyle; override;
  20.     function GetState: TExpertState; override;
  21.     function GetIDString: string; override;
  22.     function GetMenuText: string; override;
  23.     function GetAuthor: string; override;
  24.     function GetComment: string;override;
  25.     function GetPage: string; override;
  26.     function GetGlyph: HICON;override;
  27.     procedure Execute; override;
  28.   end;
  29.  
  30. implementation
  31.  
  32. uses Forms, Controls,clssdlph;
  33.  
  34.  
  35. procedure HandleException;
  36. { Raise exception within the context of the IDE }
  37. begin
  38.   ToolServices.RaiseException(ReleaseException);
  39. end;
  40.  
  41. function TClasspert.GetGlyph: HICON;
  42. begin
  43.   // needs to be overridden
  44. end;
  45.  
  46. function TClasspert.GetPage: string;
  47. begin
  48.   // needs to be overridden
  49. end;
  50.  
  51. function TClasspert.GetComment: string;
  52. begin
  53.   // needs to be overridden
  54. end;
  55.  
  56. function TClasspert.GetAuthor: string;
  57. begin
  58.   // needs to be overridden
  59. end;
  60.  
  61.  
  62. function TClasspert.GetName: string;
  63. { Return name of expert }
  64. begin
  65.   Result := 'Classpert';
  66. end;
  67.  
  68. function TClasspert.GetStyle: TExpertStyle;
  69. { Return the style of the expert.  This one is standard. }
  70. begin
  71.   Result := esStandard;
  72. end;
  73.  
  74. function TClasspert.GetState: TExpertState;
  75. { This expert is always enabled on the menu }
  76. begin
  77.   Result := [esEnabled];
  78. end;
  79.  
  80. function TClasspert.GetIDString: String;
  81. { Return the unique Vendor.Product name of expert }
  82. begin
  83.   Result := 'Borland.VCL Class Viewer';
  84. end;
  85.  
  86. function TClasspert.GetMenuText: string;
  87. { Return text for Help menu }
  88. begin
  89.   Result := 'VCL Class Viewer';
  90. end;
  91.  
  92. procedure TClasspert.Execute;
  93. { Called when expert name is selected from Help menu of IDE. }
  94. { This function invokes the expert }
  95. begin
  96.   try
  97.     if not Assigned(MainDlg) then begin         // if not created...
  98.       MainDlg := TMainDlg.Create(Application); // create it
  99.       MainDlg.Show;                            // show it
  100.     end
  101.     else with MainDlg do begin                  // if created...
  102.       if WindowState = wsMinimized then
  103.         WindowState := wsNormal;                 // restore window
  104.       SetFocus;                                  // show it
  105.     end;
  106.   except
  107.     HandleException;
  108.   end;
  109.   end;
  110. end.
  111.  
  112.  
  113.