ExamAppProj1_TLB.pas
上传用户:psxgmh
上传日期:2013-04-08
资源大小:15112k
文件大小:16k
源码类别:

Delphi/CppBuilder

开发平台:

Delphi

  1. unit ExamAppProj1_TLB;
  2. // ************************************************************************ //
  3. // WARNING                                                                    
  4. // -------                                                                    
  5. // The types declared in this file were generated from data read from a       
  6. // Type Library. If this type library is explicitly or indirectly (via        
  7. // another type library referring to this type library) re-imported, or the   
  8. // 'Refresh' command of the Type Library Editor activated while editing the   
  9. // Type Library, the contents of this file will be regenerated and all        
  10. // manual modifications will be lost.                                         
  11. // ************************************************************************ //
  12. // PASTLWTR : $Revision:   1.130  $
  13. // File generated on 2002-2-26 22:26:42 from Type Library described below.
  14. // ************************************************************************  //
  15. // Type Lib: E:论文第七章 三层应用程序创建code7-2ExamAppProj1.tlb (1)
  16. // LIBID: {C4110FE4-6158-438F-86E5-164FA8A624EF}
  17. // LCID: 0
  18. // Helpfile: 
  19. // DepndLst: 
  20. //   (1) v2.0 stdole, (D:WINNTSystem32stdole2.tlb)
  21. //   (2) v4.0 StdVCL, (D:WINNTSystem32stdvcl40.dll)
  22. // ************************************************************************ //
  23. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
  24. {$WARN SYMBOL_PLATFORM OFF}
  25. {$WRITEABLECONST ON}
  26. interface
  27. uses ActiveX, Classes, Graphics, OleCtrls, StdVCL, Variants, Windows;
  28.   
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  31. //   Type Libraries     : LIBID_xxxx                                      
  32. //   CoClasses          : CLASS_xxxx                                      
  33. //   DISPInterfaces     : DIID_xxxx                                       
  34. //   Non-DISP interfaces: IID_xxxx                                        
  35. // *********************************************************************//
  36. const
  37.   // TypeLibrary Major and minor versions
  38.   ExamAppProj1MajorVersion = 1;
  39.   ExamAppProj1MinorVersion = 0;
  40.   LIBID_ExamAppProj1: TGUID = '{C4110FE4-6158-438F-86E5-164FA8A624EF}';
  41.   IID_IExamApp: TGUID = '{0EC933A8-A372-43F3-B2D9-F40215EB76E3}';
  42.   DIID_IExamAppEvents: TGUID = '{D3A41F76-763C-40BC-8291-31963AA2BDE4}';
  43.   CLASS_ExamApp: TGUID = '{63952C9B-A8BA-4AD0-A870-9F419FE76AED}';
  44. // *********************************************************************//
  45. // Declaration of Enumerations defined in Type Library                    
  46. // *********************************************************************//
  47. // Constants for enum TxActiveFormBorderStyle
  48. type
  49.   TxActiveFormBorderStyle = TOleEnum;
  50. const
  51.   afbNone = $00000000;
  52.   afbSingle = $00000001;
  53.   afbSunken = $00000002;
  54.   afbRaised = $00000003;
  55. // Constants for enum TxPrintScale
  56. type
  57.   TxPrintScale = TOleEnum;
  58. const
  59.   poNone = $00000000;
  60.   poProportional = $00000001;
  61.   poPrintToFit = $00000002;
  62. // Constants for enum TxMouseButton
  63. type
  64.   TxMouseButton = TOleEnum;
  65. const
  66.   mbLeft = $00000000;
  67.   mbRight = $00000001;
  68.   mbMiddle = $00000002;
  69. // Constants for enum TxHelpType
  70. type
  71.   TxHelpType = TOleEnum;
  72. const
  73.   htKeyword = $00000000;
  74.   htContext = $00000001;
  75. type
  76. // *********************************************************************//
  77. // Forward declaration of types defined in TypeLibrary                    
  78. // *********************************************************************//
  79.   IExamApp = interface;
  80.   IExamAppDisp = dispinterface;
  81.   IExamAppEvents = dispinterface;
  82. // *********************************************************************//
  83. // Declaration of CoClasses defined in Type Library                       
  84. // (NOTE: Here we map each CoClass to its Default Interface)              
  85. // *********************************************************************//
  86.   ExamApp = IExamApp;
  87. // *********************************************************************//
  88. // Declaration of structures, unions and aliases.                         
  89. // *********************************************************************//
  90.   PPUserType1 = ^IFontDisp; {*}
  91. // *********************************************************************//
  92. // Interface: IExamApp
  93. // Flags:     (4416) Dual OleAutomation Dispatchable
  94. // GUID:      {0EC933A8-A372-43F3-B2D9-F40215EB76E3}
  95. // *********************************************************************//
  96.   IExamApp = interface(IDispatch)
  97.     ['{0EC933A8-A372-43F3-B2D9-F40215EB76E3}']
  98.     function  Get_Visible: WordBool; safecall;
  99.     procedure Set_Visible(Value: WordBool); safecall;
  100.     function  Get_AutoScroll: WordBool; safecall;
  101.     procedure Set_AutoScroll(Value: WordBool); safecall;
  102.     function  Get_AutoSize: WordBool; safecall;
  103.     procedure Set_AutoSize(Value: WordBool); safecall;
  104.     function  Get_AxBorderStyle: TxActiveFormBorderStyle; safecall;
  105.     procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall;
  106.     function  Get_Caption: WideString; safecall;
  107.     procedure Set_Caption(const Value: WideString); safecall;
  108.     function  Get_Color: OLE_COLOR; safecall;
  109.     procedure Set_Color(Value: OLE_COLOR); safecall;
  110.     function  Get_Font: IFontDisp; safecall;
  111.     procedure Set_Font(const Value: IFontDisp); safecall;
  112.     procedure _Set_Font(var Value: IFontDisp); safecall;
  113.     function  Get_KeyPreview: WordBool; safecall;
  114.     procedure Set_KeyPreview(Value: WordBool); safecall;
  115.     function  Get_PixelsPerInch: Integer; safecall;
  116.     procedure Set_PixelsPerInch(Value: Integer); safecall;
  117.     function  Get_PrintScale: TxPrintScale; safecall;
  118.     procedure Set_PrintScale(Value: TxPrintScale); safecall;
  119.     function  Get_Scaled: WordBool; safecall;
  120.     procedure Set_Scaled(Value: WordBool); safecall;
  121.     function  Get_Active: WordBool; safecall;
  122.     function  Get_DropTarget: WordBool; safecall;
  123.     procedure Set_DropTarget(Value: WordBool); safecall;
  124.     function  Get_HelpFile: WideString; safecall;
  125.     procedure Set_HelpFile(const Value: WideString); safecall;
  126.     function  Get_DoubleBuffered: WordBool; safecall;
  127.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  128.     function  Get_AlignDisabled: WordBool; safecall;
  129.     function  Get_VisibleDockClientCount: Integer; safecall;
  130.     function  Get_Enabled: WordBool; safecall;
  131.     procedure Set_Enabled(Value: WordBool); safecall;
  132.     function  Get_Cursor: Smallint; safecall;
  133.     procedure Set_Cursor(Value: Smallint); safecall;
  134.     function  Get_HelpType: TxHelpType; safecall;
  135.     procedure Set_HelpType(Value: TxHelpType); safecall;
  136.     function  Get_HelpKeyword: WideString; safecall;
  137.     procedure Set_HelpKeyword(const Value: WideString); safecall;
  138.     procedure AboutBox; safecall;
  139.     property Visible: WordBool read Get_Visible write Set_Visible;
  140.     property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
  141.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  142.     property AxBorderStyle: TxActiveFormBorderStyle read Get_AxBorderStyle write Set_AxBorderStyle;
  143.     property Caption: WideString read Get_Caption write Set_Caption;
  144.     property Color: OLE_COLOR read Get_Color write Set_Color;
  145.     property Font: IFontDisp read Get_Font write Set_Font;
  146.     property KeyPreview: WordBool read Get_KeyPreview write Set_KeyPreview;
  147.     property PixelsPerInch: Integer read Get_PixelsPerInch write Set_PixelsPerInch;
  148.     property PrintScale: TxPrintScale read Get_PrintScale write Set_PrintScale;
  149.     property Scaled: WordBool read Get_Scaled write Set_Scaled;
  150.     property Active: WordBool read Get_Active;
  151.     property DropTarget: WordBool read Get_DropTarget write Set_DropTarget;
  152.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  153.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  154.     property AlignDisabled: WordBool read Get_AlignDisabled;
  155.     property VisibleDockClientCount: Integer read Get_VisibleDockClientCount;
  156.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  157.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  158.     property HelpType: TxHelpType read Get_HelpType write Set_HelpType;
  159.     property HelpKeyword: WideString read Get_HelpKeyword write Set_HelpKeyword;
  160.   end;
  161. // *********************************************************************//
  162. // DispIntf:  IExamAppDisp
  163. // Flags:     (4416) Dual OleAutomation Dispatchable
  164. // GUID:      {0EC933A8-A372-43F3-B2D9-F40215EB76E3}
  165. // *********************************************************************//
  166.   IExamAppDisp = dispinterface
  167.     ['{0EC933A8-A372-43F3-B2D9-F40215EB76E3}']
  168.     property Visible: WordBool dispid 1;
  169.     property AutoScroll: WordBool dispid 2;
  170.     property AutoSize: WordBool dispid 3;
  171.     property AxBorderStyle: TxActiveFormBorderStyle dispid 4;
  172.     property Caption: WideString dispid -518;
  173.     property Color: OLE_COLOR dispid -501;
  174.     property Font: IFontDisp dispid -512;
  175.     property KeyPreview: WordBool dispid 5;
  176.     property PixelsPerInch: Integer dispid 6;
  177.     property PrintScale: TxPrintScale dispid 7;
  178.     property Scaled: WordBool dispid 8;
  179.     property Active: WordBool readonly dispid 9;
  180.     property DropTarget: WordBool dispid 10;
  181.     property HelpFile: WideString dispid 11;
  182.     property DoubleBuffered: WordBool dispid 12;
  183.     property AlignDisabled: WordBool readonly dispid 13;
  184.     property VisibleDockClientCount: Integer readonly dispid 14;
  185.     property Enabled: WordBool dispid -514;
  186.     property Cursor: Smallint dispid 15;
  187.     property HelpType: TxHelpType dispid 16;
  188.     property HelpKeyword: WideString dispid 17;
  189.     procedure AboutBox; dispid -552;
  190.   end;
  191. // *********************************************************************//
  192. // DispIntf:  IExamAppEvents
  193. // Flags:     (4096) Dispatchable
  194. // GUID:      {D3A41F76-763C-40BC-8291-31963AA2BDE4}
  195. // *********************************************************************//
  196.   IExamAppEvents = dispinterface
  197.     ['{D3A41F76-763C-40BC-8291-31963AA2BDE4}']
  198.     procedure OnActivate; dispid 1;
  199.     procedure OnClick; dispid 2;
  200.     procedure OnCreate; dispid 3;
  201.     procedure OnDblClick; dispid 5;
  202.     procedure OnDestroy; dispid 6;
  203.     procedure OnDeactivate; dispid 7;
  204.     procedure OnKeyPress(var Key: Smallint); dispid 11;
  205.     procedure OnPaint; dispid 16;
  206.   end;
  207. // *********************************************************************//
  208. // OLE Control Proxy class declaration
  209. // Control Name     : TExamApp
  210. // Help String      : ExamApp Control
  211. // Default Interface: IExamApp
  212. // Def. Intf. DISP? : No
  213. // Event   Interface: IExamAppEvents
  214. // TypeFlags        : (34) CanCreate Control
  215. // *********************************************************************//
  216.   TExamAppOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  217.   TExamApp = class(TOleControl)
  218.   private
  219.     FOnActivate: TNotifyEvent;
  220.     FOnClick: TNotifyEvent;
  221.     FOnCreate: TNotifyEvent;
  222.     FOnDblClick: TNotifyEvent;
  223.     FOnDestroy: TNotifyEvent;
  224.     FOnDeactivate: TNotifyEvent;
  225.     FOnKeyPress: TExamAppOnKeyPress;
  226.     FOnPaint: TNotifyEvent;
  227.     FIntf: IExamApp;
  228.     function  GetControlInterface: IExamApp;
  229.   protected
  230.     procedure CreateControl;
  231.     procedure InitControlData; override;
  232.   public
  233.     procedure AboutBox;
  234.     property  ControlInterface: IExamApp read GetControlInterface;
  235.     property  DefaultInterface: IExamApp read GetControlInterface;
  236.     property Visible: WordBool index 1 read GetWordBoolProp write SetWordBoolProp;
  237.     property Active: WordBool index 9 read GetWordBoolProp;
  238.     property DropTarget: WordBool index 10 read GetWordBoolProp write SetWordBoolProp;
  239.     property HelpFile: WideString index 11 read GetWideStringProp write SetWideStringProp;
  240.     property DoubleBuffered: WordBool index 12 read GetWordBoolProp write SetWordBoolProp;
  241.     property AlignDisabled: WordBool index 13 read GetWordBoolProp;
  242.     property VisibleDockClientCount: Integer index 14 read GetIntegerProp;
  243.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp;
  244.   published
  245.     property  ParentColor;
  246.     property  ParentFont;
  247.     property  Align;
  248.     property  DragCursor;
  249.     property  DragMode;
  250.     property  ParentShowHint;
  251.     property  PopupMenu;
  252.     property  ShowHint;
  253.     property  TabOrder;
  254.     property  OnDragDrop;
  255.     property  OnDragOver;
  256.     property  OnEndDrag;
  257.     property  OnEnter;
  258.     property  OnExit;
  259.     property  OnStartDrag;
  260.     property AutoScroll: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  261.     property AutoSize: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  262.     property AxBorderStyle: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  263.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  264.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  265.     property Font: TFont index -512 read GetTFontProp write _SetTFontProp stored False;
  266.     property KeyPreview: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  267.     property PixelsPerInch: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  268.     property PrintScale: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  269.     property Scaled: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  270.     property Cursor: Smallint index 15 read GetSmallintProp write SetSmallintProp stored False;
  271.     property HelpType: TOleEnum index 16 read GetTOleEnumProp write SetTOleEnumProp stored False;
  272.     property HelpKeyword: WideString index 17 read GetWideStringProp write SetWideStringProp stored False;
  273.     property OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
  274.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  275.     property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
  276.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  277.     property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
  278.     property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate;
  279.     property OnKeyPress: TExamAppOnKeyPress read FOnKeyPress write FOnKeyPress;
  280.     property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
  281.   end;
  282. procedure Register;
  283. resourcestring
  284.   dtlServerPage = 'Servers';
  285. implementation
  286. uses ComObj;
  287. procedure TExamApp.InitControlData;
  288. const
  289.   CEventDispIDs: array [0..7] of DWORD = (
  290.     $00000001, $00000002, $00000003, $00000005, $00000006, $00000007,
  291.     $0000000B, $00000010);
  292.   CTFontIDs: array [0..0] of DWORD = (
  293.     $FFFFFE00);
  294.   CControlData: TControlData2 = (
  295.     ClassID: '{63952C9B-A8BA-4AD0-A870-9F419FE76AED}';
  296.     EventIID: '{D3A41F76-763C-40BC-8291-31963AA2BDE4}';
  297.     EventCount: 8;
  298.     EventDispIDs: @CEventDispIDs;
  299.     LicenseKey: nil (*HR:$00000000*);
  300.     Flags: $0000001D;
  301.     Version: 401;
  302.     FontCount: 1;
  303.     FontIDs: @CTFontIDs);
  304. begin
  305.   ControlData := @CControlData;
  306.   TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnActivate) - Cardinal(Self);
  307. end;
  308. procedure TExamApp.CreateControl;
  309.   procedure DoCreate;
  310.   begin
  311.     FIntf := IUnknown(OleObject) as IExamApp;
  312.   end;
  313. begin
  314.   if FIntf = nil then DoCreate;
  315. end;
  316. function TExamApp.GetControlInterface: IExamApp;
  317. begin
  318.   CreateControl;
  319.   Result := FIntf;
  320. end;
  321. procedure TExamApp.AboutBox;
  322. begin
  323.   DefaultInterface.AboutBox;
  324. end;
  325. procedure Register;
  326. begin
  327.   RegisterComponents('ActiveX',[TExamApp]);
  328. end;
  329. end.