unit TradeIdeasGenericConnector2Proj1_TLB; // ************************************************************************ // // WARNING // ------- // The types declared in this file were generated from data read from a // Type Library. If this type library is explicitly or indirectly (via // another type library referring to this type library) re-imported, or the // 'Refresh' command of the Type Library Editor activated while editing the // Type Library, the contents of this file will be regenerated and all // manual modifications will be lost. // ************************************************************************ // // PASTLWTR : 1.2 // File generated on 10/6/2009 8:39:53 AM from Type Library described below. // ************************************************************************ // // Type Lib: C:\Program Files\Trade-Ideas\Trade-Ideas Alerts\TradeIdeasGenericConnector2Proj1.ocx (1) // LIBID: {0FDFF1E8-B172-456D-82F0-178C1C83175E} // LCID: 0 // Helpfile: // HelpString: TradeIdeasGenericConnector #2 Library // DepndLst: // (1) v2.0 stdole, (C:\WINDOWS\System32\stdole2.tlb) // Errors: // Error creating palette bitmap of (TTradeIdeasGenericConnector2X) : Error reading control bitmap // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. {$WARN SYMBOL_PLATFORM OFF} {$WRITEABLECONST ON} {$VARPROPSETTER ON} interface uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants; // *********************************************************************// // GUIDS declared in the TypeLibrary. Following prefixes are used: // Type Libraries : LIBID_xxxx // CoClasses : CLASS_xxxx // DISPInterfaces : DIID_xxxx // Non-DISP interfaces: IID_xxxx // *********************************************************************// const // TypeLibrary Major and minor versions TradeIdeasGenericConnector2Proj1MajorVersion = 1; TradeIdeasGenericConnector2Proj1MinorVersion = 6; LIBID_TradeIdeasGenericConnector2Proj1: TGUID = '{0FDFF1E8-B172-456D-82F0-178C1C83175E}'; IID_ITradeIdeasGenericConnector2X: TGUID = '{DE43F12A-013E-4924-92C2-FC4969B3C061}'; DIID_ITradeIdeasGenericConnector2XEvents: TGUID = '{1FAB04FA-1223-485E-AB94-E6AB69D729EA}'; CLASS_TradeIdeasGenericConnector2X: TGUID = '{618016C5-32B2-4ACB-9776-5522A1E71DA9}'; // *********************************************************************// // Declaration of Enumerations defined in Type Library // *********************************************************************// // Constants for enum TxActiveFormBorderStyle type TxActiveFormBorderStyle = TOleEnum; const afbNone = $00000000; afbSingle = $00000001; afbSunken = $00000002; afbRaised = $00000003; // Constants for enum TxPrintScale type TxPrintScale = TOleEnum; const poNone = $00000000; poProportional = $00000001; poPrintToFit = $00000002; // Constants for enum TxMouseButton type TxMouseButton = TOleEnum; const mbLeft = $00000000; mbRight = $00000001; mbMiddle = $00000002; // Constants for enum TxHelpType type TxHelpType = TOleEnum; const htKeyword = $00000000; htContext = $00000001; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// ITradeIdeasGenericConnector2X = interface; ITradeIdeasGenericConnector2XDisp = dispinterface; ITradeIdeasGenericConnector2XEvents = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// TradeIdeasGenericConnector2X = ITradeIdeasGenericConnector2X; // *********************************************************************// // Interface: ITradeIdeasGenericConnector2X // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {DE43F12A-013E-4924-92C2-FC4969B3C061} // *********************************************************************// ITradeIdeasGenericConnector2X = interface(IDispatch) ['{DE43F12A-013E-4924-92C2-FC4969B3C061}'] function Get_Visible: WordBool; safecall; procedure Set_Visible(Value: WordBool); safecall; function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall; procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall; function Get_Active: WordBool; safecall; function Get_HelpFile: WideString; safecall; procedure Set_HelpFile(const Value: WideString); safecall; function Get_Enabled: WordBool; safecall; procedure Set_Enabled(Value: WordBool); safecall; function Get_HelpType: TxHelpType; safecall; procedure Set_HelpType(Value: TxHelpType); safecall; function Get_HelpKeyword: WideString; safecall; procedure Set_HelpKeyword(const Value: WideString); safecall; function Get_Symbol: WideString; safecall; procedure Set_Symbol(const Value: WideString); safecall; function Get_WindowCount: Integer; safecall; procedure Send; safecall; function Get_AutoSave: WordBool; safecall; procedure Set_AutoSave(Value: WordBool); safecall; procedure ClearLinkedWindows; safecall; property Visible: WordBool read Get_Visible write Set_Visible; property AxBorderStyle: TxActiveFormBorderStyle read Get_AxBorderStyle write Set_AxBorderStyle; property Active: WordBool read Get_Active; property HelpFile: WideString read Get_HelpFile write Set_HelpFile; property Enabled: WordBool read Get_Enabled write Set_Enabled; property HelpType: TxHelpType read Get_HelpType write Set_HelpType; property HelpKeyword: WideString read Get_HelpKeyword write Set_HelpKeyword; property Symbol: WideString read Get_Symbol write Set_Symbol; property WindowCount: Integer read Get_WindowCount; property AutoSave: WordBool read Get_AutoSave write Set_AutoSave; end; // *********************************************************************// // DispIntf: ITradeIdeasGenericConnector2XDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {DE43F12A-013E-4924-92C2-FC4969B3C061} // *********************************************************************// ITradeIdeasGenericConnector2XDisp = dispinterface ['{DE43F12A-013E-4924-92C2-FC4969B3C061}'] property Visible: WordBool dispid 1; property AxBorderStyle: TxActiveFormBorderStyle dispid 4; property Active: WordBool readonly dispid 9; property HelpFile: WideString dispid 11; property Enabled: WordBool dispid -514; property HelpType: TxHelpType dispid 16; property HelpKeyword: WideString dispid 17; property Symbol: WideString dispid 18; property WindowCount: Integer readonly dispid 19; procedure Send; dispid 2; property AutoSave: WordBool dispid 3; procedure ClearLinkedWindows; dispid 5; end; // *********************************************************************// // DispIntf: ITradeIdeasGenericConnector2XEvents // Flags: (4096) Dispatchable // GUID: {1FAB04FA-1223-485E-AB94-E6AB69D729EA} // *********************************************************************// ITradeIdeasGenericConnector2XEvents = dispinterface ['{1FAB04FA-1223-485E-AB94-E6AB69D729EA}'] procedure OnActivate; dispid 1; procedure OnClick; dispid 2; procedure OnCreate; dispid 3; procedure OnDblClick; dispid 5; procedure OnDestroy; dispid 6; procedure OnDeactivate; dispid 7; procedure OnKeyPress(var Key: Smallint); dispid 11; procedure OnPaint; dispid 16; end; // *********************************************************************// // OLE Control Proxy class declaration // Control Name : TTradeIdeasGenericConnector2X // Help String : TradeIdeasGenericConnector2X Control // Default Interface: ITradeIdeasGenericConnector2X // Def. Intf. DISP? : No // Event Interface: ITradeIdeasGenericConnector2XEvents // TypeFlags : (34) CanCreate Control // *********************************************************************// TTradeIdeasGenericConnector2XOnKeyPress = procedure(ASender: TObject; var Key: Smallint) of object; TTradeIdeasGenericConnector2X = class(TOleControl) private FOnActivate: TNotifyEvent; FOnClick: TNotifyEvent; FOnCreate: TNotifyEvent; FOnDblClick: TNotifyEvent; FOnDestroy: TNotifyEvent; FOnDeactivate: TNotifyEvent; FOnKeyPress: TTradeIdeasGenericConnector2XOnKeyPress; FOnPaint: TNotifyEvent; FIntf: ITradeIdeasGenericConnector2X; function GetControlInterface: ITradeIdeasGenericConnector2X; protected procedure CreateControl; procedure InitControlData; override; public procedure Send; procedure ClearLinkedWindows; property ControlInterface: ITradeIdeasGenericConnector2X read GetControlInterface; property DefaultInterface: ITradeIdeasGenericConnector2X read GetControlInterface; property Visible: WordBool index 1 read GetWordBoolProp write SetWordBoolProp; property Active: WordBool index 9 read GetWordBoolProp; property HelpFile: WideString index 11 read GetWideStringProp write SetWideStringProp; property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp; property WindowCount: Integer index 19 read GetIntegerProp; published property Anchors; property Align; property DragCursor; property DragMode; property ParentShowHint; property PopupMenu; property ShowHint; property TabOrder; property OnDragDrop; property OnDragOver; property OnEndDrag; property OnEnter; property OnExit; property OnStartDrag; property AxBorderStyle: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False; property HelpType: TOleEnum index 16 read GetTOleEnumProp write SetTOleEnumProp stored False; property HelpKeyword: WideString index 17 read GetWideStringProp write SetWideStringProp stored False; property Symbol: WideString index 18 read GetWideStringProp write SetWideStringProp stored False; property AutoSave: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False; property OnActivate: TNotifyEvent read FOnActivate write FOnActivate; property OnClick: TNotifyEvent read FOnClick write FOnClick; property OnCreate: TNotifyEvent read FOnCreate write FOnCreate; property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick; property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy; property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate; property OnKeyPress: TTradeIdeasGenericConnector2XOnKeyPress read FOnKeyPress write FOnKeyPress; property OnPaint: TNotifyEvent read FOnPaint write FOnPaint; end; procedure Register; resourcestring dtlServerPage = 'ActiveX'; dtlOcxPage = 'ActiveX'; implementation uses ComObj; procedure TTradeIdeasGenericConnector2X.InitControlData; const CEventDispIDs: array [0..7] of DWORD = ( $00000001, $00000002, $00000003, $00000005, $00000006, $00000007, $0000000B, $00000010); CControlData: TControlData2 = ( ClassID: '{618016C5-32B2-4ACB-9776-5522A1E71DA9}'; EventIID: '{1FAB04FA-1223-485E-AB94-E6AB69D729EA}'; EventCount: 8; EventDispIDs: @CEventDispIDs; LicenseKey: nil (*HR:$00000000*); Flags: $00000008; Version: 401); begin ControlData := @CControlData; TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnActivate) - Cardinal(Self); end; procedure TTradeIdeasGenericConnector2X.CreateControl; procedure DoCreate; begin FIntf := IUnknown(OleObject) as ITradeIdeasGenericConnector2X; end; begin if FIntf = nil then DoCreate; end; function TTradeIdeasGenericConnector2X.GetControlInterface: ITradeIdeasGenericConnector2X; begin CreateControl; Result := FIntf; end; procedure TTradeIdeasGenericConnector2X.Send; begin DefaultInterface.Send; end; procedure TTradeIdeasGenericConnector2X.ClearLinkedWindows; begin DefaultInterface.ClearLinkedWindows; end; procedure Register; begin RegisterComponents(dtlOcxPage, [TTradeIdeasGenericConnector2X]); end; end.