开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
XClockLib_TLB.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：14k
源码类别：

Delphi控件源码

开发平台：

Delphi

XClockLib_TLB.pas：源码内容
  1. unit XClockLib_TLB;
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  14. // PASTLWTR : $Revision:   1.118  $
  15. // File generated on 4/29/2001 4:24:06 PM from Type Library described below.
  17. // ************************************************************************  //
  18. // Type Lib: C:md6code20XClockXClockLib.tlb (1)
  19. // LIBID: {5551EB31-0AC6-11D2-B9F1-004845400FAA}
  20. // LCID: 0
  21. // Helpfile: 
  22. // DepndLst: 
  23. //   (1) v2.0 stdole, (C:WINDOWSSystem32stdole2.tlb)
  24. //   (2) v4.0 StdVCL, (C:WINDOWSsystem32stdvcl40.dll)
  25. // ************************************************************************ //
  26. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
  27. {$WARN SYMBOL_PLATFORM OFF}
  28. {$WRITEABLECONST ON}
  30. interface
  32. uses ActiveX, Classes, Graphics, OleCtrls, StdVcl, Variants, Windows;
  33.   
  36. // *********************************************************************//
  37. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  38. //   Type Libraries     : LIBID_xxxx                                      
  39. //   CoClasses          : CLASS_xxxx                                      
  40. //   DISPInterfaces     : DIID_xxxx                                       
  41. //   Non-DISP interfaces: IID_xxxx                                        
  42. // *********************************************************************//
  43. const
  44.   // TypeLibrary Major and minor versions
  45.   XClockLibMajorVersion = 1;
  46.   XClockLibMinorVersion = 0;
  48.   LIBID_XClockLib: TGUID = '{5551EB31-0AC6-11D2-B9F1-004845400FAA}';
  50.   IID_IXClock: TGUID = '{5551EB32-0AC6-11D2-B9F1-004845400FAA}';
  51.   DIID_IXClockEvents: TGUID = '{5551EB34-0AC6-11D2-B9F1-004845400FAA}';
  52.   CLASS_XClock: TGUID = '{5551EB36-0AC6-11D2-B9F1-004845400FAA}';
  54. // *********************************************************************//
  55. // Declaration of Enumerations defined in Type Library                    
  56. // *********************************************************************//
  57. // Constants for enum TxActiveFormBorderStyle
  58. type
  59.   TxActiveFormBorderStyle = TOleEnum;
  60. const
  61.   afbNone = $00000000;
  62.   afbSingle = $00000001;
  63.   afbSunken = $00000002;
  64.   afbRaised = $00000003;
  66. // Constants for enum TxPrintScale
  67. type
  68.   TxPrintScale = TOleEnum;
  69. const
  70.   poNone = $00000000;
  71.   poProportional = $00000001;
  72.   poPrintToFit = $00000002;
  74. // Constants for enum TxMouseButton
  75. type
  76.   TxMouseButton = TOleEnum;
  77. const
  78.   mbLeft = $00000000;
  79.   mbRight = $00000001;
  80.   mbMiddle = $00000002;
  82. // Constants for enum TxBiDiMode
  83. type
  84.   TxBiDiMode = TOleEnum;
  85. const
  86.   bdLeftToRight = $00000000;
  87.   bdRightToLeft = $00000001;
  88.   bdRightToLeftNoAlign = $00000002;
  89.   bdRightToLeftReadingOnly = $00000003;
  91. type
  93. // *********************************************************************//
  94. // Forward declaration of types defined in TypeLibrary                    
  95. // *********************************************************************//
  96.   IXClock = interface;
  97.   IXClockDisp = dispinterface;
  98.   IXClockEvents = dispinterface;
  100. // *********************************************************************//
  101. // Declaration of CoClasses defined in Type Library                       
  102. // (NOTE: Here we map each CoClass to its Default Interface)              
  103. // *********************************************************************//
  104.   XClock = IXClock;
  107. // *********************************************************************//
  108. // Interface: IXClock
  109. // Flags:     (4416) Dual OleAutomation Dispatchable
  110. // GUID:      {5551EB32-0AC6-11D2-B9F1-004845400FAA}
  111. // *********************************************************************//
  112.   IXClock = interface(IDispatch)
  113.     ['{5551EB32-0AC6-11D2-B9F1-004845400FAA}']
  114.     function  Get_Visible: WordBool; safecall;
  115.     procedure Set_Visible(Value: WordBool); safecall;
  116.     function  Get_AutoScroll: WordBool; safecall;
  117.     procedure Set_AutoScroll(Value: WordBool); safecall;
  118.     function  Get_AutoSize: WordBool; safecall;
  119.     procedure Set_AutoSize(Value: WordBool); safecall;
  120.     function  Get_AxBorderStyle: TxActiveFormBorderStyle; safecall;
  121.     procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall;
  122.     function  Get_Caption: WideString; safecall;
  123.     procedure Set_Caption(const Value: WideString); safecall;
  124.     function  Get_Color: OLE_COLOR; safecall;
  125.     procedure Set_Color(Value: OLE_COLOR); safecall;
  126.     function  Get_Font: IFontDisp; safecall;
  127.     procedure Set_Font(const Value: IFontDisp); safecall;
  128.     procedure _Set_Font(const Value: IFontDisp); safecall;
  129.     function  Get_KeyPreview: WordBool; safecall;
  130.     procedure Set_KeyPreview(Value: WordBool); safecall;
  131.     function  Get_PixelsPerInch: Integer; safecall;
  132.     procedure Set_PixelsPerInch(Value: Integer); safecall;
  133.     function  Get_PrintScale: TxPrintScale; safecall;
  134.     procedure Set_PrintScale(Value: TxPrintScale); safecall;
  135.     function  Get_Scaled: WordBool; safecall;
  136.     procedure Set_Scaled(Value: WordBool); safecall;
  137.     function  Get_Active: WordBool; safecall;
  138.     function  Get_DropTarget: WordBool; safecall;
  139.     procedure Set_DropTarget(Value: WordBool); safecall;
  140.     function  Get_HelpFile: WideString; safecall;
  141.     procedure Set_HelpFile(const Value: WideString); safecall;
  142.     function  Get_DoubleBuffered: WordBool; safecall;
  143.     procedure Set_DoubleBuffered(Value: WordBool); safecall;
  144.     function  Get_Enabled: WordBool; safecall;
  145.     procedure Set_Enabled(Value: WordBool); safecall;
  146.     function  Get_BiDiMode: TxBiDiMode; safecall;
  147.     procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
  148.     function  Get_Cursor: Smallint; safecall;
  149.     procedure Set_Cursor(Value: Smallint); safecall;
  150.     property Visible: WordBool read Get_Visible write Set_Visible;
  151.     property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
  152.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  153.     property AxBorderStyle: TxActiveFormBorderStyle read Get_AxBorderStyle write Set_AxBorderStyle;
  154.     property Caption: WideString read Get_Caption write Set_Caption;
  155.     property Color: OLE_COLOR read Get_Color write Set_Color;
  156.     property Font: IFontDisp read Get_Font write Set_Font;
  157.     property KeyPreview: WordBool read Get_KeyPreview write Set_KeyPreview;
  158.     property PixelsPerInch: Integer read Get_PixelsPerInch write Set_PixelsPerInch;
  159.     property PrintScale: TxPrintScale read Get_PrintScale write Set_PrintScale;
  160.     property Scaled: WordBool read Get_Scaled write Set_Scaled;
  161.     property Active: WordBool read Get_Active;
  162.     property DropTarget: WordBool read Get_DropTarget write Set_DropTarget;
  163.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  164.     property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
  165.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  166.     property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
  167.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  168.   end;
  170. // *********************************************************************//
  171. // DispIntf:  IXClockDisp
  172. // Flags:     (4416) Dual OleAutomation Dispatchable
  173. // GUID:      {5551EB32-0AC6-11D2-B9F1-004845400FAA}
  174. // *********************************************************************//
  175.   IXClockDisp = dispinterface
  176.     ['{5551EB32-0AC6-11D2-B9F1-004845400FAA}']
  177.     property Visible: WordBool dispid 1;
  178.     property AutoScroll: WordBool dispid 2;
  179.     property AutoSize: WordBool dispid 3;
  180.     property AxBorderStyle: TxActiveFormBorderStyle dispid 4;
  181.     property Caption: WideString dispid -518;
  182.     property Color: OLE_COLOR dispid -501;
  183.     property Font: IFontDisp dispid -512;
  184.     property KeyPreview: WordBool dispid 5;
  185.     property PixelsPerInch: Integer dispid 6;
  186.     property PrintScale: TxPrintScale dispid 7;
  187.     property Scaled: WordBool dispid 8;
  188.     property Active: WordBool dispid 9;
  189.     property DropTarget: WordBool dispid 10;
  190.     property HelpFile: WideString dispid 11;
  191.     property DoubleBuffered: WordBool dispid 12;
  192.     property Enabled: WordBool dispid -514;
  193.     property BiDiMode: TxBiDiMode dispid 13;
  194.     property Cursor: Smallint dispid 14;
  195.   end;
  197. // *********************************************************************//
  198. // DispIntf:  IXClockEvents
  199. // Flags:     (4096) Dispatchable
  200. // GUID:      {5551EB34-0AC6-11D2-B9F1-004845400FAA}
  201. // *********************************************************************//
  202.   IXClockEvents = dispinterface
  203.     ['{5551EB34-0AC6-11D2-B9F1-004845400FAA}']
  204.     procedure OnActivate; dispid 1;
  205.     procedure OnClick; dispid 2;
  206.     procedure OnCreate; dispid 3;
  207.     procedure OnDblClick; dispid 4;
  208.     procedure OnDestroy; dispid 5;
  209.     procedure OnDeactivate; dispid 6;
  210.     procedure OnKeyPress(var Key: Smallint); dispid 10;
  211.     procedure OnPaint; dispid 15;
  212.   end;
  215. // *********************************************************************//
  216. // OLE Control Proxy class declaration
  217. // Control Name     : TXClock
  218. // Help String      : XClock Control
  219. // Default Interface: IXClock
  220. // Def. Intf. DISP? : No
  221. // Event   Interface: IXClockEvents
  222. // TypeFlags        : (34) CanCreate Control
  223. // *********************************************************************//
  224.   TXClockOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  226.   TXClock = class(TOleControl)
  227.   private
  228.     FOnActivate: TNotifyEvent;
  229.     FOnClick: TNotifyEvent;
  230.     FOnCreate: TNotifyEvent;
  231.     FOnDblClick: TNotifyEvent;
  232.     FOnDestroy: TNotifyEvent;
  233.     FOnDeactivate: TNotifyEvent;
  234.     FOnKeyPress: TXClockOnKeyPress;
  235.     FOnPaint: TNotifyEvent;
  236.     FIntf: IXClock;
  237.     function  GetControlInterface: IXClock;
  238.   protected
  239.     procedure CreateControl;
  240.     procedure InitControlData; override;
  241.   public
  242.     property  ControlInterface: IXClock read GetControlInterface;
  243.     property  DefaultInterface: IXClock read GetControlInterface;
  244.     property Visible: WordBool index 1 read GetWordBoolProp write SetWordBoolProp;
  245.     property Active: WordBool index 9 read GetWordBoolProp;
  246.     property DropTarget: WordBool index 10 read GetWordBoolProp write SetWordBoolProp;
  247.     property HelpFile: WideString index 11 read GetWideStringProp write SetWideStringProp;
  248.     property DoubleBuffered: WordBool index 12 read GetWordBoolProp write SetWordBoolProp;
  249.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp;
  250.     property BiDiMode: TOleEnum index 13 read GetTOleEnumProp write SetTOleEnumProp;
  251.   published
  252.     property  ParentColor;
  253.     property  ParentFont;
  254.     property  Align;
  255.     property  DragCursor;
  256.     property  DragMode;
  257.     property  ParentShowHint;
  258.     property  PopupMenu;
  259.     property  ShowHint;
  260.     property  TabOrder;
  261.     property  OnDragDrop;
  262.     property  OnDragOver;
  263.     property  OnEndDrag;
  264.     property  OnEnter;
  265.     property  OnExit;
  266.     property  OnStartDrag;
  267.     property AutoScroll: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  268.     property AutoSize: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
  269.     property AxBorderStyle: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
  270.     property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
  271.     property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
  272.     property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
  273.     property KeyPreview: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  274.     property PixelsPerInch: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  275.     property PrintScale: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  276.     property Scaled: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  277.     property Cursor: Smallint index 14 read GetSmallintProp write SetSmallintProp stored False;
  278.     property OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
  279.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  280.     property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
  281.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  282.     property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
  283.     property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate;
  284.     property OnKeyPress: TXClockOnKeyPress read FOnKeyPress write FOnKeyPress;
  285.     property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
  286.   end;
  288. procedure Register;
  290. resourcestring
  291.   dtlServerPage = 'Servers';
  293. implementation
  295. uses ComObj;
  297. procedure TXClock.InitControlData;
  298. const
  299.   CEventDispIDs: array [0..7] of DWORD = (
  300.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  301.     $0000000A, $0000000F);
  302.   CTFontIDs: array [0..0] of DWORD = (
  303.     $FFFFFE00);
  304.   CControlData: TControlData2 = (
  305.     ClassID: '{5551EB36-0AC6-11D2-B9F1-004845400FAA}';
  306.     EventIID: '{5551EB34-0AC6-11D2-B9F1-004845400FAA}';
  307.     EventCount: 8;
  308.     EventDispIDs: @CEventDispIDs;
  309.     LicenseKey: nil (*HR:$00000000*);
  310.     Flags: $0000001D;
  311.     Version: 401;
  312.     FontCount: 1;
  313.     FontIDs: @CTFontIDs);
  314. begin
  315.   ControlData := @CControlData;
  316.   TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnActivate) - Cardinal(Self);
  317. end;
  319. procedure TXClock.CreateControl;
  321.   procedure DoCreate;
  322.   begin
  323.     FIntf := IUnknown(OleObject) as IXClock;
  324.   end;
  326. begin
  327.   if FIntf = nil then DoCreate;
  328. end;
  330. function TXClock.GetControlInterface: IXClock;
  331. begin
  332.   CreateControl;
  333.   Result := FIntf;
  334. end;
  336. procedure Register;
  337. begin
  338.   RegisterComponents('ActiveX',[TXClock]);
  339. end;
  341. end.