longmycn
11972
2005/1/20 16:26:31
装组件,改代码,我改了好多,界面也改了, 有进销存兴趣的朋友,来讨论吧! QQ:52631212 info@SoftYes.com http://www.SoftYes.com
longmycn
11932
2005/1/19 19:10:06
我也在改,想改成库存管理用,可是库存盘点却不知如何读出库存数量,交流下: QQ:52631212 twcard@163.com
mrghappy
11883
2005/1/18 16:07:08
呵呵~我修正了很多错误,http://galife.jz365.com/loading8.exe,本来想发源码的,只是本人程序太烂了,有需要请联系 mrghapp@qq.com 程序增加了通过 ctrl+鼠标键 拖动窗体上的控件,也可自己在数据库直接更改所有的界面标识,自己打开数据库看吧 :)
mrghappy
11882
2005/1/18 16:03:51
呵呵~我修正了很多错误,http://galife.jz365.com/loading8.exe,本来想发源码的,只是本人程序太烂了,有需要请联系 mrghapp@qq.com
mrghappy
10941
2004/12/26 18:42:36
怎么零售POS出现“列表索引越界(69) 是因为 Result := Components[i].Name; 改为 Result := Components[i-1].Name; pos 单里还有很多错误!!
fzy
10423
2004/12/11 19:03:26
不错的,用的控件也满通用的!我试试!!
mrghappy
10380
2004/12/10 12:34:00
我已经改得差不多了,有些控制有问题,还有进销存,特别是库存有很大的问题,有谁还在改这套源码吗? 一起共同进步,我的QQ:2669007
chen9900
8575
2004/9/20 22:12:24
好不容易啊,花了1天的时间才能编译成功。
baoenbao
8494
2004/9/17 14:26:23
怎么零售POS出现“列表索引越界(69),怎么解决呀,大侠吗?
founder
8284
2004/9/9 9:47:21
来点简单的,长了。
jwbabc
8031
2004/8/25 13:44:03
这个还行,用到了一点技术,开发这个的人有点水平了! 个人拙见!:)
lbg11
7863
2004/8/17 12:32:49
请问:我在编译时错误提示‘Field frmmainwindow.dxbarbotton144 does not have a corresponding component.remove the declaration?'会有若干个。请问是哪个控件有问题?多谢了!!!!
liuyajune
7234
2004/7/28 13:46:31
系统运行速度实在是太慢了。哪位兄弟能告知解决方法吗?不胜感激!!!!
nb2008
7212
2004/7/27 21:44:10
晕。楼主发的贴子也太长了吧
lt66
7112
2004/7/24 14:43:02
//这是助手单元 unit AgentObjects_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 : $Revision: 1.5 $ // File generated on 08/10/2000 21:50:53 from Type Library described below. // ************************************************************************ // // Type Lib: F:\WINDOWS\MSAGENT\AGENTCTL.DLL (1) // IID\LCID: {F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}\0 // Helpfile: // DepndLst: // (1) v2.0 stdole, (F:\WINDOWS\SYSTEM\stdole2.tlb) // (2) v4.0 StdVCL, (F:\WINDOWS\SYSTEM\STDVCL40.DLL) // Errors: // Hint: Parameter 'On' of IAgentCtlCharacterEx.AutoPopupMenu changed to 'On_' // Hint: Parameter 'On' of IAgentCtlCharacterEx.AutoPopupMenu changed to 'On_' // Hint: Parameter 'On' of IAgentCtlCharacterEx.HelpModeOn changed to 'On_' // Hint: Parameter 'On' of IAgentCtlCharacterEx.HelpModeOn changed to 'On_' // Hint: Parameter 'File' of IAgentCtlCharacterEx.HelpFile changed to 'File_' // Hint: Parameter 'File' of IAgentCtlCharacterEx.HelpFile changed to 'File_' // Hint: Parameter 'On' of IAgentCtlCharacter.IdleOn changed to 'On_' // Hint: Parameter 'On' of IAgentCtlCharacter.IdleOn changed to 'On_' // Hint: Parameter 'Type' of IAgentCtlCharacter.Get changed to 'Type_' // Hint: Parameter 'On' of IAgentCtlCharacter.SoundEffectsOn changed to 'On_' // Hint: Parameter 'On' of IAgentCtlCharacter.SoundEffectsOn changed to 'On_' // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. interface uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; // *********************************************************************// // 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 AgentObjectsMajorVersion = 2; AgentObjectsMinorVersion = 0; LIBID_AgentObjects: TGUID = '{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlCharacters: TGUID = '{F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlCharacter: TGUID = '{F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlCharacterEx: TGUID = '{DE8EF600-2F82-11D1-ACAC-00C04FD97575}'; IID_IAgentCtlBalloon: TGUID = '{F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlBalloonEx: TGUID = '{822DB1C0-8879-11D1-9EC6-00C04FD7081F}'; IID_IAgentCtlCommands: TGUID = '{F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlCommandsEx: TGUID = '{6BA90C01-3910-11D1-ACB3-00C04FD97575}'; IID_IAgentCtlCommand: TGUID = '{F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlCommandEx: TGUID = '{B0913410-3B44-11D1-ACBA-00C04FD97575}'; IID_IAgentCtlRequest: TGUID = '{1DAB85C3-803A-11D0-AC63-00C04FD97575}'; IID_IAgentCtlAnimationNames: TGUID = '{8B77181C-D3EF-11D1-8500-00C04FA34A14}'; IID_IAgentCtlAudioObject: TGUID = '{F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlAudioObjectEx: TGUID = '{F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlSpeechInput: TGUID = '{F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlPropertySheet: TGUID = '{F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlUserInput: TGUID = '{C4ABF875-8100-11D0-AC63-00C04FD97575}'; IID_IAgentCtlCommandsWindow: TGUID = '{6D0ECB27-9968-11D0-AC6E-00C04FD97575}'; IID_IAgentCtl: TGUID = '{F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5}'; IID_IAgentCtlEx: TGUID = '{8563FF20-8ECC-11D1-B9B4-00C04FD97575}'; DIID__AgentEvents: TGUID = '{F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5}'; CLASS_Agent: TGUID = '{D45FD31B-5C6E-11D1-9EC1-00C04FD7081F}'; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// IAgentCtlCharacters = interface; IAgentCtlCharactersDisp = dispinterface; IAgentCtlCharacter = interface; IAgentCtlCharacterDisp = dispinterface; IAgentCtlCharacterEx = interface; IAgentCtlCharacterExDisp = dispinterface; IAgentCtlBalloon = interface; IAgentCtlBalloonDisp = dispinterface; IAgentCtlBalloonEx = interface; IAgentCtlBalloonExDisp = dispinterface; IAgentCtlCommands = interface; IAgentCtlCommandsDisp = dispinterface; IAgentCtlCommandsEx = interface; IAgentCtlCommandsExDisp = dispinterface; IAgentCtlCommand = interface; IAgentCtlCommandDisp = dispinterface; IAgentCtlCommandEx = interface; IAgentCtlCommandExDisp = dispinterface; IAgentCtlRequest = interface; IAgentCtlRequestDisp = dispinterface; IAgentCtlAnimationNames = interface; IAgentCtlAnimationNamesDisp = dispinterface; IAgentCtlAudioObject = interface; IAgentCtlAudioObjectDisp = dispinterface; IAgentCtlAudioObjectEx = interface; IAgentCtlAudioObjectExDisp = dispinterface; IAgentCtlSpeechInput = interface; IAgentCtlSpeechInputDisp = dispinterface; IAgentCtlPropertySheet = interface; IAgentCtlPropertySheetDisp = dispinterface; IAgentCtlUserInput = interface; IAgentCtlUserInputDisp = dispinterface; IAgentCtlCommandsWindow = interface; IAgentCtlCommandsWindowDisp = dispinterface; IAgentCtl = interface; IAgentCtlDisp = dispinterface; IAgentCtlEx = interface; IAgentCtlExDisp = dispinterface; _AgentEvents = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// Agent = IAgentCtlEx; // *********************************************************************// // Interface: IAgentCtlCharacters // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlCharacters = interface(IDispatch) ['{F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Item(const CharacterID: WideString): IAgentCtlCharacterEx; safecall; function Character(const CharacterID: WideString): IAgentCtlCharacterEx; safecall; function Get_Enum: IUnknown; safecall; procedure Unload(const CharacterID: WideString); safecall; function Load(const CharacterID: WideString; LoadKey: OleVariant): IAgentCtlRequest; safecall; property Item[const CharacterID: WideString]: IAgentCtlCharacterEx read Get_Item; default; property Enum: IUnknown read Get_Enum; end; // *********************************************************************// // DispIntf: IAgentCtlCharactersDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlCharactersDisp = dispinterface ['{F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}'] property Item[const CharacterID: WideString]: IAgentCtlCharacterEx readonly dispid 0; default; function Character(const CharacterID: WideString): IAgentCtlCharacterEx; dispid 3; property Enum: IUnknown readonly dispid -4; procedure Unload(const CharacterID: WideString); dispid 2; function Load(const CharacterID: WideString; LoadKey: OleVariant): IAgentCtlRequest; dispid 1; end; // *********************************************************************// // Interface: IAgentCtlCharacter // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlCharacter = interface(IDispatch) ['{F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Balloon: IAgentCtlBalloonEx; safecall; function Get_Commands: IAgentCtlCommandsEx; safecall; function Get_Name: WideString; safecall; function Get_Description: WideString; safecall; function Get_Visible: WordBool; safecall; procedure Set_Left(Left: Smallint); safecall; function Get_Left: Smallint; safecall; procedure Set_Top(Top: Smallint); safecall; function Get_Top: Smallint; safecall; procedure Set_Height(Height: Smallint); safecall; function Get_Height: Smallint; safecall; procedure Set_Width(Width: Smallint); safecall; function Get_Width: Smallint; safecall; function Get_Speed: Integer; safecall; function Get_Pitch: Integer; safecall; procedure Set_IdleOn(On_: WordBool); safecall; function Get_IdleOn: WordBool; safecall; function Activate(State: OleVariant): WordBool; safecall; function Play(const Animation: WideString): IAgentCtlRequest; safecall; function Get(const Type_: WideString; const Name: WideString; Queue: OleVariant): IAgentCtlRequest; safecall; procedure Stop(Request: OleVariant); safecall; function Wait(const WaitForRequest: IDispatch): IAgentCtlRequest; safecall; function Interrupt(const InterruptRequest: IDispatch): IAgentCtlRequest; safecall; function Speak(Text: OleVariant; Url: OleVariant): IAgentCtlRequest; safecall; function GestureAt(x: Smallint; y: Smallint): IAgentCtlRequest; safecall; function MoveTo(x: Smallint; y: Smallint; Speed: OleVariant): IAgentCtlRequest; safecall; function Hide(Fast: OleVariant): IAgentCtlRequest; safecall; function Show(Fast: OleVariant): IAgentCtlRequest; safecall; procedure StopAll(Types: OleVariant); safecall; function Get_MoveCause: Smallint; safecall; function Get_VisibilityCause: Smallint; safecall; function Get_HasOtherClients: WordBool; safecall; procedure Set_SoundEffectsOn(On_: WordBool); safecall; function Get_SoundEffectsOn: WordBool; safecall; procedure Set_Name(const Name: WideString); safecall; procedure Set_Description(const Description: WideString); safecall; function Get_ExtraData: WideString; safecall; property Balloon: IAgentCtlBalloonEx read Get_Balloon; property Commands: IAgentCtlCommandsEx read Get_Commands; property Name: WideString read Get_Name write Set_Name; property Description: WideString read Get_Description write Set_Description; property Visible: WordBool read Get_Visible; property Left: Smallint read Get_Left write Set_Left; property Top: Smallint read Get_Top write Set_Top; property Height: Smallint read Get_Height write Set_Height; property Width: Smallint read Get_Width write Set_Width; property Speed: Integer read Get_Speed; property Pitch: Integer read Get_Pitch; property IdleOn: WordBool read Get_IdleOn write Set_IdleOn; property MoveCause: Smallint read Get_MoveCause; property VisibilityCause: Smallint read Get_VisibilityCause; property HasOtherClients: WordBool read Get_HasOtherClients; property SoundEffectsOn: WordBool read Get_SoundEffectsOn write Set_SoundEffectsOn; property ExtraData: WideString read Get_ExtraData; end; // *********************************************************************// // DispIntf: IAgentCtlCharacterDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlCharacterDisp = dispinterface ['{F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}'] property Balloon: IAgentCtlBalloonEx readonly dispid 23; property Commands: IAgentCtlCommandsEx readonly dispid 25; property Name: WideString dispid 24; property Description: WideString dispid 28; property Visible: WordBool readonly dispid 2; property Left: Smallint dispid 3; property Top: Smallint dispid 4; property Height: Smallint dispid 5; property Width: Smallint dispid 6; property Speed: Integer readonly dispid 10; property Pitch: Integer readonly dispid 11; property IdleOn: WordBool dispid 29; function Activate(State: OleVariant): WordBool; dispid 26; function Play(const Animation: WideString): IAgentCtlRequest; dispid 13; function Get(const Type_: WideString; const Name: WideString; Queue: OleVariant): IAgentCtlRequest; dispid 27; procedure Stop(Request: OleVariant); dispid 14; function Wait(const WaitForRequest: IDispatch): IAgentCtlRequest; dispid 22; function Interrupt(const InterruptRequest: IDispatch): IAgentCtlRequest; dispid 21; function Speak(Text: OleVariant; Url: OleVariant): IAgentCtlRequest; dispid 15; function GestureAt(x: Smallint; y: Smallint): IAgentCtlRequest; dispid 17; function MoveTo(x: Smallint; y: Smallint; Speed: OleVariant): IAgentCtlRequest; dispid 18; function Hide(Fast: OleVariant): IAgentCtlRequest; dispid 19; function Show(Fast: OleVariant): IAgentCtlRequest; dispid 20; procedure StopAll(Types: OleVariant); dispid 31; property MoveCause: Smallint readonly dispid 32; property VisibilityCause: Smallint readonly dispid 33; property HasOtherClients: WordBool readonly dispid 34; property SoundEffectsOn: WordBool dispid 35; property ExtraData: WideString readonly dispid 36; end; // *********************************************************************// // Interface: IAgentCtlCharacterEx // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {DE8EF600-2F82-11D1-ACAC-00C04FD97575} // *********************************************************************// IAgentCtlCharacterEx = interface(IAgentCtlCharacter) ['{DE8EF600-2F82-11D1-ACAC-00C04FD97575}'] function ShowPopupMenu(x: Smallint; y: Smallint): WordBool; safecall; procedure Set_AutoPopupMenu(On_: WordBool); safecall; function Get_AutoPopupMenu: WordBool; safecall; procedure Set_HelpModeOn(On_: WordBool); safecall; function Get_HelpModeOn: WordBool; safecall; procedure Set_HelpContextID(ID: Integer); safecall; function Get_HelpContextID: Integer; safecall; function Get_Active: Smallint; safecall; function Listen(Listen: WordBool): WordBool; safecall; procedure Set_LanguageID(LanguageID: Integer); safecall; function Get_LanguageID: Integer; safecall; function Get_SRModeID: WideString; safecall; procedure Set_SRModeID(const EngineModeId: WideString); safecall; function Get_TTSModeID: WideString; safecall; procedure Set_TTSModeID(const EngineModeId: WideString); safecall; function Get_HelpFile: WideString; safecall; procedure Set_HelpFile(const File_: WideString); safecall; function Get_GUID: WideString; safecall; function Get_OriginalHeight: Smallint; safecall; function Get_OriginalWidth: Smallint; safecall; function Think(const Text: WideString): IAgentCtlRequest; safecall; function Get_Version: WideString; safecall; function Get_AnimationNames: IAgentCtlAnimationNames; safecall; function Get_SRStatus: Integer; safecall; property AutoPopupMenu: WordBool read Get_AutoPopupMenu write Set_AutoPopupMenu; property HelpModeOn: WordBool read Get_HelpModeOn write Set_HelpModeOn; property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID; property Active: Smallint read Get_Active; property LanguageID: Integer read Get_LanguageID write Set_LanguageID; property SRModeID: WideString read Get_SRModeID write Set_SRModeID; property TTSModeID: WideString read Get_TTSModeID write Set_TTSModeID; property HelpFile: WideString read Get_HelpFile write Set_HelpFile; property GUID: WideString read Get_GUID; property OriginalHeight: Smallint read Get_OriginalHeight; property OriginalWidth: Smallint read Get_OriginalWidth; property Version: WideString read Get_Version; property AnimationNames: IAgentCtlAnimationNames read Get_AnimationNames; property SRStatus: Integer read Get_SRStatus; end; // *********************************************************************// // DispIntf: IAgentCtlCharacterExDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {DE8EF600-2F82-11D1-ACAC-00C04FD97575} // *********************************************************************// IAgentCtlCharacterExDisp = dispinterface ['{DE8EF600-2F82-11D1-ACAC-00C04FD97575}'] function ShowPopupMenu(x: Smallint; y: Smallint): WordBool; dispid 37; property AutoPopupMenu: WordBool dispid 38; property HelpModeOn: WordBool dispid 39; property HelpContextID: Integer dispid 40; property Active: Smallint readonly dispid 41; function Listen(Listen: WordBool): WordBool; dispid 42; property LanguageID: Integer dispid 43; property SRModeID: WideString dispid 46; property TTSModeID: WideString dispid 47; property HelpFile: WideString dispid 48; property GUID: WideString readonly dispid 49; property OriginalHeight: Smallint readonly dispid 50; property OriginalWidth: Smallint readonly dispid 51; function Think(const Text: WideString): IAgentCtlRequest; dispid 52; property Version: WideString readonly dispid 53; property AnimationNames: IAgentCtlAnimationNames readonly dispid 54; property SRStatus: Integer readonly dispid 55; property Balloon: IAgentCtlBalloonEx readonly dispid 23; property Commands: IAgentCtlCommandsEx readonly dispid 25; property Name: WideString dispid 24; property Description: WideString dispid 28; property Visible: WordBool readonly dispid 2; property Left: Smallint dispid 3; property Top: Smallint dispid 4; property Height: Smallint dispid 5; property Width: Smallint dispid 6; property Speed: Integer readonly dispid 10; property Pitch: Integer readonly dispid 11; property IdleOn: WordBool dispid 29; function Activate(State: OleVariant): WordBool; dispid 26; function Play(const Animation: WideString): IAgentCtlRequest; dispid 13; function Get(const Type_: WideString; const Name: WideString; Queue: OleVariant): IAgentCtlRequest; dispid 27; procedure Stop(Request: OleVariant); dispid 14; function Wait(const WaitForRequest: IDispatch): IAgentCtlRequest; dispid 22; function Interrupt(const InterruptRequest: IDispatch): IAgentCtlRequest; dispid 21; function Speak(Text: OleVariant; Url: OleVariant): IAgentCtlRequest; dispid 15; function GestureAt(x: Smallint; y: Smallint): IAgentCtlRequest; dispid 17; function MoveTo(x: Smallint; y: Smallint; Speed: OleVariant): IAgentCtlRequest; dispid 18; function Hide(Fast: OleVariant): IAgentCtlRequest; dispid 19; function Show(Fast: OleVariant): IAgentCtlRequest; dispid 20; procedure StopAll(Types: OleVariant); dispid 31; property MoveCause: Smallint readonly dispid 32; property VisibilityCause: Smallint readonly dispid 33; property HasOtherClients: WordBool readonly dispid 34; property SoundEffectsOn: WordBool dispid 35; property ExtraData: WideString readonly dispid 36; end; // *********************************************************************// // Interface: IAgentCtlBalloon // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlBalloon = interface(IDispatch) ['{F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Enabled: WordBool; safecall; function Get_NumberOfLines: Integer; safecall; function Get_CharsPerLine: Integer; safecall; function Get_FontName: WideString; safecall; function Get_FontSize: Integer; safecall; function Get_FontBold: WordBool; safecall; function Get_FontItalic: WordBool; safecall; function Get_FontStrikethru: WordBool; safecall; function Get_FontUnderline: WordBool; safecall; function Get_ForeColor: Integer; safecall; function Get_BackColor: Integer; safecall; function Get_BorderColor: Integer; safecall; procedure Set_Visible(Visible: WordBool); safecall; function Get_Visible: WordBool; safecall; procedure Set_FontName(const FontName: WideString); safecall; procedure Set_FontSize(FontSize: Integer); safecall; procedure Set_FontCharSet(FontCharSet: Smallint); safecall; function Get_FontCharSet: Smallint; safecall; property Enabled: WordBool read Get_Enabled; property NumberOfLines: Integer read Get_NumberOfLines; property CharsPerLine: Integer read Get_CharsPerLine; property FontName: WideString read Get_FontName write Set_FontName; property FontSize: Integer read Get_FontSize write Set_FontSize; property FontBold: WordBool read Get_FontBold; property FontItalic: WordBool read Get_FontItalic; property FontStrikethru: WordBool read Get_FontStrikethru; property FontUnderline: WordBool read Get_FontUnderline; property ForeColor: Integer read Get_ForeColor; property BackColor: Integer read Get_BackColor; property BorderColor: Integer read Get_BorderColor; property Visible: WordBool read Get_Visible write Set_Visible; property FontCharSet: Smallint read Get_FontCharSet write Set_FontCharSet; end; // *********************************************************************// // DispIntf: IAgentCtlBalloonDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlBalloonDisp = dispinterface ['{F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5}'] property Enabled: WordBool readonly dispid 1; property NumberOfLines: Integer readonly dispid 2; property CharsPerLine: Integer readonly dispid 3; property FontName: WideString dispid 4; property FontSize: Integer dispid 5; property FontBold: WordBool readonly dispid 10; property FontItalic: WordBool readonly dispid 11; property FontStrikethru: WordBool readonly dispid 12; property FontUnderline: WordBool readonly dispid 13; property ForeColor: Integer readonly dispid 7; property BackColor: Integer readonly dispid 8; property BorderColor: Integer readonly dispid 9; property Visible: WordBool dispid 14; property FontCharSet: Smallint dispid 15; end; // *********************************************************************// // Interface: IAgentCtlBalloonEx // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {822DB1C0-8879-11D1-9EC6-00C04FD7081F} // *********************************************************************// IAgentCtlBalloonEx = interface(IAgentCtlBalloon) ['{822DB1C0-8879-11D1-9EC6-00C04FD7081F}'] procedure Set_Style(Style: Integer); safecall; function Get_Style: Integer; safecall; property Style: Integer read Get_Style write Set_Style; end; // *********************************************************************// // DispIntf: IAgentCtlBalloonExDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {822DB1C0-8879-11D1-9EC6-00C04FD7081F} // *********************************************************************// IAgentCtlBalloonExDisp = dispinterface ['{822DB1C0-8879-11D1-9EC6-00C04FD7081F}'] property Style: Integer dispid 16; property Enabled: WordBool readonly dispid 1; property NumberOfLines: Integer readonly dispid 2; property CharsPerLine: Integer readonly dispid 3; property FontName: WideString dispid 4; property FontSize: Integer dispid 5; property FontBold: WordBool readonly dispid 10; property FontItalic: WordBool readonly dispid 11; property FontStrikethru: WordBool readonly dispid 12; property FontUnderline: WordBool readonly dispid 13; property ForeColor: Integer readonly dispid 7; property BackColor: Integer readonly dispid 8; property BorderColor: Integer readonly dispid 9; property Visible: WordBool dispid 14; property FontCharSet: Smallint dispid 15; end; // *********************************************************************// // Interface: IAgentCtlCommands // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlCommands = interface(IDispatch) ['{F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Item(const Name: WideString): IAgentCtlCommandEx; safecall; function Command(const Name: WideString): IAgentCtlCommandEx; safecall; function Get_Count: Integer; safecall; function Get_Caption: WideString; safecall; procedure Set_Caption(const Caption: WideString); safecall; function Get_Voice: WideString; safecall; procedure Set_Voice(const Voice: WideString); safecall; function Get_Visible: WordBool; safecall; procedure Set_Visible(Visible: WordBool); safecall; function Get_Enum: IUnknown; safecall; function Add(const Name: WideString; Caption: OleVariant; Voice: OleVariant; Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommand; safecall; function Insert(const Name: WideString; const RefName: WideString; Before: OleVariant; Caption: OleVariant; Voice: OleVariant; Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommand; safecall; procedure Remove(const Name: WideString); safecall; procedure RemoveAll; safecall; property Item[const Name: WideString]: IAgentCtlCommandEx read Get_Item; default; property Count: Integer read Get_Count; property Caption: WideString read Get_Caption write Set_Caption; property Voice: WideString read Get_Voice write Set_Voice; property Visible: WordBool read Get_Visible write Set_Visible; property Enum: IUnknown read Get_Enum; end; // *********************************************************************// // DispIntf: IAgentCtlCommandsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlCommandsDisp = dispinterface ['{F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5}'] property Item[const Name: WideString]: IAgentCtlCommandEx readonly dispid 0; default; function Command(const Name: WideString): IAgentCtlCommandEx; dispid 15; property Count: Integer readonly dispid 2; property Caption: WideString dispid 3; property Voice: WideString dispid 4; property Visible: WordBool dispid 5; property Enum: IUnknown readonly dispid -4; function Add(const Name: WideString; Caption: OleVariant; Voice: OleVariant; Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommand; dispid 10; function Insert(const Name: WideString; const RefName: WideString; Before: OleVariant; Caption: OleVariant; Voice: OleVariant; Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommand; dispid 11; procedure Remove(const Name: WideString); dispid 13; procedure RemoveAll; dispid 14; end; // *********************************************************************// // Interface: IAgentCtlCommandsEx // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {6BA90C01-3910-11D1-ACB3-00C04FD97575} // *********************************************************************// IAgentCtlCommandsEx = interface(IAgentCtlCommands) ['{6BA90C01-3910-11D1-ACB3-00C04FD97575}'] procedure Set_DefaultCommand(const Name: WideString); safecall; function Get_DefaultCommand: WideString; safecall; procedure Set_HelpContextID(ID: Integer); safecall; function Get_HelpContextID: Integer; safecall; procedure Set_FontName(const FontName: WideString); safecall; function Get_FontName: WideString; safecall; function Get_FontSize: Integer; safecall; procedure Set_FontSize(FontSize: Integer); safecall; procedure Set_VoiceCaption(const VoiceCaption: WideString); safecall; function Get_VoiceCaption: WideString; safecall; procedure Set_GlobalVoiceCommandsEnabled(Enable: WordBool); safecall; function Get_GlobalVoiceCommandsEnabled: WordBool; safecall; property DefaultCommand: WideString read Get_DefaultCommand write Set_DefaultCommand; property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID; property FontName: WideString read Get_FontName write Set_FontName; property FontSize: Integer read Get_FontSize write Set_FontSize; property VoiceCaption: WideString read Get_VoiceCaption write Set_VoiceCaption; property GlobalVoiceCommandsEnabled: WordBool read Get_GlobalVoiceCommandsEnabled write Set_GlobalVoiceCommandsEnabled; end; // *********************************************************************// // DispIntf: IAgentCtlCommandsExDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {6BA90C01-3910-11D1-ACB3-00C04FD97575} // *********************************************************************// IAgentCtlCommandsExDisp = dispinterface ['{6BA90C01-3910-11D1-ACB3-00C04FD97575}'] property DefaultCommand: WideString dispid 16; property HelpContextID: Integer dispid 17; property FontName: WideString dispid 21; property FontSize: Integer dispid 23; property VoiceCaption: WideString dispid 22; property GlobalVoiceCommandsEnabled: WordBool dispid 24; property Item[const Name: WideString]: IAgentCtlCommandEx readonly dispid 0; default; function Command(const Name: WideString): IAgentCtlCommandEx; dispid 15; property Count: Integer readonly dispid 2; property Caption: WideString dispid 3; property Voice: WideString dispid 4; property Visible: WordBool dispid 5; property Enum: IUnknown readonly dispid -4; function Add(const Name: WideString; Caption: OleVariant; Voice: OleVariant; Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommand; dispid 10; function Insert(const Name: WideString; const RefName: WideString; Before: OleVariant; Caption: OleVariant; Voice: OleVariant; Enabled: OleVariant; Visible: OleVariant): IAgentCtlCommand; dispid 11; procedure Remove(const Name: WideString); dispid 13; procedure RemoveAll; dispid 14; end; // *********************************************************************// // Interface: IAgentCtlCommand // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlCommand = interface(IDispatch) ['{F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Voice: WideString; safecall; procedure Set_Voice(const Voice: WideString); safecall; function Get_Caption: WideString; safecall; procedure Set_Caption(const Caption: WideString); safecall; function Get_Enabled: WordBool; safecall; procedure Set_Enabled(Enabled: WordBool); safecall; function Get_Visible: WordBool; safecall; procedure Set_Visible(Visible: WordBool); safecall; function Get_Confidence: Integer; safecall; procedure Set_Confidence(Confidence: Integer); safecall; function Get_ConfidenceText: WideString; safecall; procedure Set_ConfidenceText(const Text: WideString); safecall; property Voice: WideString read Get_Voice write Set_Voice; property Caption: WideString read Get_Caption write Set_Caption; property Enabled: WordBool read Get_Enabled write Set_Enabled; property Visible: WordBool read Get_Visible write Set_Visible; property Confidence: Integer read Get_Confidence write Set_Confidence; property ConfidenceText: WideString read Get_ConfidenceText write Set_ConfidenceText; end; // *********************************************************************// // DispIntf: IAgentCtlCommandDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlCommandDisp = dispinterface ['{F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5}'] property Voice: WideString dispid 1; property Caption: WideString dispid 2; property Enabled: WordBool dispid 5; property Visible: WordBool dispid 6; property Confidence: Integer dispid 3; property ConfidenceText: WideString dispid 4; end; // *********************************************************************// // Interface: IAgentCtlCommandEx // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {B0913410-3B44-11D1-ACBA-00C04FD97575} // *********************************************************************// IAgentCtlCommandEx = interface(IAgentCtlCommand) ['{B0913410-3B44-11D1-ACBA-00C04FD97575}'] procedure Set_HelpContextID(ID: Integer); safecall; function Get_HelpContextID: Integer; safecall; procedure Set_VoiceCaption(const VoiceCaption: WideString); safecall; function Get_VoiceCaption: WideString; safecall; property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID; property VoiceCaption: WideString read Get_VoiceCaption write Set_VoiceCaption; end; // *********************************************************************// // DispIntf: IAgentCtlCommandExDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {B0913410-3B44-11D1-ACBA-00C04FD97575} // *********************************************************************// IAgentCtlCommandExDisp = dispinterface ['{B0913410-3B44-11D1-ACBA-00C04FD97575}'] property HelpContextID: Integer dispid 7; property VoiceCaption: WideString dispid 8; property Voice: WideString dispid 1; property Caption: WideString dispid 2; property Enabled: WordBool dispid 5; property Visible: WordBool dispid 6; property Confidence: Integer dispid 3; property ConfidenceText: WideString dispid 4; end; // *********************************************************************// // Interface: IAgentCtlRequest // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {1DAB85C3-803A-11D0-AC63-00C04FD97575} // *********************************************************************// IAgentCtlRequest = interface(IDispatch) ['{1DAB85C3-803A-11D0-AC63-00C04FD97575}'] function Get_ID: Integer; safecall; function Get_Status: Integer; safecall; function Get_Description: WideString; safecall; function Get_Number: Integer; safecall; property ID: Integer read Get_ID; property Status: Integer read Get_Status; property Description: WideString read Get_Description; property Number: Integer read Get_Number; end; // *********************************************************************// // DispIntf: IAgentCtlRequestDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {1DAB85C3-803A-11D0-AC63-00C04FD97575} // *********************************************************************// IAgentCtlRequestDisp = dispinterface ['{1DAB85C3-803A-11D0-AC63-00C04FD97575}'] property ID: Integer readonly dispid 0; property Status: Integer readonly dispid 1; property Description: WideString readonly dispid 2; property Number: Integer readonly dispid 3; end; // *********************************************************************// // Interface: IAgentCtlAnimationNames // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {8B77181C-D3EF-11D1-8500-00C04FA34A14} // *********************************************************************// IAgentCtlAnimationNames = interface(IDispatch) ['{8B77181C-D3EF-11D1-8500-00C04FA34A14}'] function Get_Enum: IUnknown; safecall; property Enum: IUnknown read Get_Enum; end; // *********************************************************************// // DispIntf: IAgentCtlAnimationNamesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {8B77181C-D3EF-11D1-8500-00C04FA34A14} // *********************************************************************// IAgentCtlAnimationNamesDisp = dispinterface ['{8B77181C-D3EF-11D1-8500-00C04FA34A14}'] property Enum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: IAgentCtlAudioObject // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlAudioObject = interface(IDispatch) ['{F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Enabled: WordBool; safecall; function Get_SoundEffects: WordBool; safecall; property Enabled: WordBool read Get_Enabled; property SoundEffects: WordBool read Get_SoundEffects; end; // *********************************************************************// // DispIntf: IAgentCtlAudioObjectDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlAudioObjectDisp = dispinterface ['{F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5}'] property Enabled: WordBool readonly dispid 1; property SoundEffects: WordBool readonly dispid 2; end; // *********************************************************************// // Interface: IAgentCtlAudioObjectEx // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlAudioObjectEx = interface(IAgentCtlAudioObject) ['{F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Status: Smallint; safecall; property Status: Smallint read Get_Status; end; // *********************************************************************// // DispIntf: IAgentCtlAudioObjectExDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlAudioObjectExDisp = dispinterface ['{F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5}'] property Status: Smallint readonly dispid 3; property Enabled: WordBool readonly dispid 1; property SoundEffects: WordBool readonly dispid 2; end; // *********************************************************************// // Interface: IAgentCtlSpeechInput // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlSpeechInput = interface(IDispatch) ['{F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Enabled: WordBool; safecall; function Get_Language: WideString; safecall; function Get_HotKey: WideString; safecall; function Get_Installed: WordBool; safecall; function Get_Engine: WideString; safecall; procedure Set_Engine(const Engine: WideString); safecall; function Get_ListeningTip: WordBool; safecall; property Enabled: WordBool read Get_Enabled; property Language: WideString read Get_Language; property HotKey: WideString read Get_HotKey; property Installed: WordBool read Get_Installed; property Engine: WideString read Get_Engine write Set_Engine; property ListeningTip: WordBool read Get_ListeningTip; end; // *********************************************************************// // DispIntf: IAgentCtlSpeechInputDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlSpeechInputDisp = dispinterface ['{F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5}'] property Enabled: WordBool readonly dispid 1; property Language: WideString readonly dispid 2; property HotKey: WideString readonly dispid 3; property Installed: WordBool readonly dispid 4; property Engine: WideString dispid 5; property ListeningTip: WordBool readonly dispid 6; end; // *********************************************************************// // Interface: IAgentCtlPropertySheet // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlPropertySheet = interface(IDispatch) ['{F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Left: Smallint; safecall; function Get_Top: Smallint; safecall; function Get_Height: Smallint; safecall; function Get_Width: Smallint; safecall; procedure Set_Visible(Visible: WordBool); safecall; function Get_Visible: WordBool; safecall; procedure Set_Page(const Page: WideString); safecall; function Get_Page: WideString; safecall; property Left: Smallint read Get_Left; property Top: Smallint read Get_Top; property Height: Smallint read Get_Height; property Width: Smallint read Get_Width; property Visible: WordBool read Get_Visible write Set_Visible; property Page: WideString read Get_Page write Set_Page; end; // *********************************************************************// // DispIntf: IAgentCtlPropertySheetDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlPropertySheetDisp = dispinterface ['{F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5}'] property Left: Smallint readonly dispid 1; property Top: Smallint readonly dispid 2; property Height: Smallint readonly dispid 3; property Width: Smallint readonly dispid 4; property Visible: WordBool dispid 6; property Page: WideString dispid 5; end; // *********************************************************************// // Interface: IAgentCtlUserInput // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {C4ABF875-8100-11D0-AC63-00C04FD97575} // *********************************************************************// IAgentCtlUserInput = interface(IDispatch) ['{C4ABF875-8100-11D0-AC63-00C04FD97575}'] function Get_Count: Smallint; safecall; function Get_Name: WideString; safecall; function Get_CharacterID: WideString; safecall; function Get_Confidence: Integer; safecall; function Get_Voice: WideString; safecall; function Get_Alt1Name: WideString; safecall; function Get_Alt1Confidence: Integer; safecall; function Get_Alt1Voice: WideString; safecall; function Get_Alt2Name: WideString; safecall; function Get_Alt2Confidence: Integer; safecall; function Get_Alt2Voice: WideString; safecall; property Count: Smallint read Get_Count; property Name: WideString read Get_Name; property CharacterID: WideString read Get_CharacterID; property Confidence: Integer read Get_Confidence; property Voice: WideString read Get_Voice; property Alt1Name: WideString read Get_Alt1Name; property Alt1Confidence: Integer read Get_Alt1Confidence; property Alt1Voice: WideString read Get_Alt1Voice; property Alt2Name: WideString read Get_Alt2Name; property Alt2Confidence: Integer read Get_Alt2Confidence; property Alt2Voice: WideString read Get_Alt2Voice; end; // *********************************************************************// // DispIntf: IAgentCtlUserInputDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {C4ABF875-8100-11D0-AC63-00C04FD97575} // *********************************************************************// IAgentCtlUserInputDisp = dispinterface ['{C4ABF875-8100-11D0-AC63-00C04FD97575}'] property Count: Smallint readonly dispid 1610743808; property Name: WideString readonly dispid 1610743809; property CharacterID: WideString readonly dispid 1610743810; property Confidence: Integer readonly dispid 1610743811; property Voice: WideString readonly dispid 1610743812; property Alt1Name: WideString readonly dispid 1610743813; property Alt1Confidence: Integer readonly dispid 1610743814; property Alt1Voice: WideString readonly dispid 1610743815; property Alt2Name: WideString readonly dispid 1610743816; property Alt2Confidence: Integer readonly dispid 1610743817; property Alt2Voice: WideString readonly dispid 1610743818; end; // *********************************************************************// // Interface: IAgentCtlCommandsWindow // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {6D0ECB27-9968-11D0-AC6E-00C04FD97575} // *********************************************************************// IAgentCtlCommandsWindow = interface(IDispatch) ['{6D0ECB27-9968-11D0-AC6E-00C04FD97575}'] function Get_Visible: WordBool; safecall; procedure Set_Visible(Visible: WordBool); safecall; function Get_Left: Smallint; safecall; function Get_Top: Smallint; safecall; function Get_Height: Smallint; safecall; function Get_Width: Smallint; safecall; property Visible: WordBool read Get_Visible write Set_Visible; property Left: Smallint read Get_Left; property Top: Smallint read Get_Top; property Height: Smallint read Get_Height; property Width: Smallint read Get_Width; end; // *********************************************************************// // DispIntf: IAgentCtlCommandsWindowDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {6D0ECB27-9968-11D0-AC6E-00C04FD97575} // *********************************************************************// IAgentCtlCommandsWindowDisp = dispinterface ['{6D0ECB27-9968-11D0-AC6E-00C04FD97575}'] property Visible: WordBool dispid 5; property Left: Smallint readonly dispid 6; property Top: Smallint readonly dispid 7; property Height: Smallint readonly dispid 8; property Width: Smallint readonly dispid 9; end; // *********************************************************************// // Interface: IAgentCtl // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtl = interface(IDispatch) ['{F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5}'] function Get_Characters: IAgentCtlCharacters; safecall; function Get_AudioOutput: IAgentCtlAudioObjectEx; safecall; function Get_SpeechInput: IAgentCtlSpeechInput; safecall; function Get_PropertySheet: IAgentCtlPropertySheet; safecall; function Get_CommandsWindow: IAgentCtlCommandsWindow; safecall; function Get_Connected: WordBool; safecall; procedure Set_Connected(Connected: WordBool); safecall; function Get_Suspended: WordBool; safecall; property Characters: IAgentCtlCharacters read Get_Characters; property AudioOutput: IAgentCtlAudioObjectEx read Get_AudioOutput; property SpeechInput: IAgentCtlSpeechInput read Get_SpeechInput; property PropertySheet: IAgentCtlPropertySheet read Get_PropertySheet; property CommandsWindow: IAgentCtlCommandsWindow read Get_CommandsWindow; property Connected: WordBool read Get_Connected write Set_Connected; property Suspended: WordBool read Get_Suspended; end; // *********************************************************************// // DispIntf: IAgentCtlDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// IAgentCtlDisp = dispinterface ['{F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5}'] property Characters: IAgentCtlCharacters readonly dispid 3; property AudioOutput: IAgentCtlAudioObjectEx readonly dispid 4; property SpeechInput: IAgentCtlSpeechInput readonly dispid 5; property PropertySheet: IAgentCtlPropertySheet readonly dispid 8; property CommandsWindow: IAgentCtlCommandsWindow readonly dispid 12; property Connected: WordBool dispid 9; property Suspended: WordBool readonly dispid 14; end; // *********************************************************************// // Interface: IAgentCtlEx // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {8563FF20-8ECC-11D1-B9B4-00C04FD97575} // *********************************************************************// IAgentCtlEx = interface(IAgentCtl) ['{8563FF20-8ECC-11D1-B9B4-00C04FD97575}'] procedure ShowDefaultCharacterProperties(x: OleVariant; y: OleVariant); safecall; function Get_RaiseRequestErrors: WordBool; safecall; procedure Set_RaiseRequestErrors(RaiseErrors: WordBool); safecall; property RaiseRequestErrors: WordBool read Get_RaiseRequestErrors write Set_RaiseRequestErrors; end; // *********************************************************************// // DispIntf: IAgentCtlExDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {8563FF20-8ECC-11D1-B9B4-00C04FD97575} // *********************************************************************// IAgentCtlExDisp = dispinterface ['{8563FF20-8ECC-11D1-B9B4-00C04FD97575}'] procedure ShowDefaultCharacterProperties(x: OleVariant; y: OleVariant); dispid 20; property RaiseRequestErrors: WordBool dispid 21; property Characters: IAgentCtlCharacters readonly dispid 3; property AudioOutput: IAgentCtlAudioObjectEx readonly dispid 4; property SpeechInput: IAgentCtlSpeechInput readonly dispid 5; property PropertySheet: IAgentCtlPropertySheet readonly dispid 8; property CommandsWindow: IAgentCtlCommandsWindow readonly dispid 12; property Connected: WordBool dispid 9; property Suspended: WordBool readonly dispid 14; end; // *********************************************************************// // DispIntf: _AgentEvents // Flags: (4096) Dispatchable // GUID: {F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5} // *********************************************************************// _AgentEvents = dispinterface ['{F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5}'] procedure ActivateInput(const CharacterID: WideString); dispid 1; procedure DeactivateInput(const CharacterID: WideString); dispid 3; procedure Click(const CharacterID: WideString; Button: Smallint; Shift: Smallint; x: Smallint; y: Smallint); dispid 2; procedure DblClick(const CharacterID: WideString; Button: Smallint; Shift: Smallint; x: Smallint; y: Smallint); dispid 4; procedure DragStart(const CharacterID: WideString; Button: Smallint; Shift: Smallint; x: Smallint; y: Smallint); dispid 5; procedure DragComplete(const CharacterID: WideString; Button: Smallint; Shift: Smallint; x: Smallint; y: Smallint); dispid 6; procedure Show(const CharacterID: WideString; Cause: Smallint); dispid 15; procedure Hide(const CharacterID: WideString; Cause: Smallint); dispid 7; procedure RequestStart(const Request: IDispatch); dispid 9; procedure RequestComplete(const Request: IDispatch); dispid 11; procedure Restart; dispid 21; procedure Shutdown; dispid 12; procedure Bookmark(BookmarkID: Integer); dispid 16; procedure Command(const UserInput: IDispatch); dispid 17; procedure IdleStart(const CharacterID: WideString); dispid 19; procedure IdleComplete(const CharacterID: WideString); dispid 20; procedure Move(const CharacterID: WideString; x: Smallint; y: Smallint; Cause: Smallint); dispid 22; procedure Size(const CharacterID: WideString; Width: Smallint; Height: Smallint); dispid 23; procedure BalloonShow(const CharacterID: WideString); dispid 24; procedure BalloonHide(const CharacterID: WideString); dispid 25; procedure HelpComplete(const CharacterID: WideString; const Name: WideString; Cause: Smallint); dispid 26; procedure ListenStart(const CharacterID: WideString); dispid 27; procedure ListenComplete(const CharacterID: WideString; Cause: Smallint); dispid 28; procedure DefaultCharacterChange(const GUID: WideString); dispid 30; procedure AgentPropertyChange; dispid 31; procedure ActiveClientChange(const CharacterID: WideString; Active: WordBool); dispid 32; end; // *********************************************************************// // OLE Control Proxy class declaration // Control Name : TAgent // Help String : Microsoft Agent Control 2.0 // Default Interface: IAgentCtlEx // Def. Intf. DISP? : No // Event Interface: _AgentEvents // TypeFlags : (2) CanCreate // *********************************************************************// TAgentActivateInput = procedure(Sender: TObject; const CharacterID: WideString) of object; TAgentDeactivateInput = procedure(Sender: TObject; const CharacterID: WideString) of object; TAgentClick = procedure(Sender: TObject; const CharacterID: WideString; Button: Smallint; Shift: Smallint; x: Smallint; y: Smallint) of object; TAgentDblClick = procedure(Sender: TObject; const CharacterID: WideString; Button: Smallint; Shift: Smallint; x: Smallint; y: Smallint) of object; TAgentDragStart = procedure(Sender: TObject; const CharacterID: WideString; Button: Smallint; Shift: Smallint; x: Smallint; y: Smallint) of object; TAgentDragComplete = procedure(Sender: TObject; const CharacterID: WideString; Button: Smallint; Shift: Smallint; x: Smallint; y: Smallint) of object; TAgentShow = procedure(Sender: TObject; const CharacterID: WideString; Cause: Smallint) of object; TAgentHide = procedure(Sender: TObject; const CharacterID: WideString; Cause: Smallint) of object; TAgentRequestStart = procedure(Sender: TObject; const Request: IDispatch) of object; TAgentRequestComplete = procedure(Sender: TObject; const Request: IDispatch) of object; TAgentBookmark = procedure(Sender: TObject; BookmarkID: Integer) of object; TAgentCommand = procedure(Sender: TObject; const UserInput: IDispatch) of object; TAgentIdleStart = procedure(Sender: TObject; const CharacterID: WideString) of object; TAgentIdleComplete = procedure(Sender: TObject; const CharacterID: WideString) of object; TAgentMove = procedure(Sender: TObject; const CharacterID: WideString; x: Smallint; y: Smallint; Cause: Smallint) of object; TAgentSize = procedure(Sender: TObject; const CharacterID: WideString; Width: Smallint; Height: Smallint) of object; TAgentBalloonShow = procedure(Sender: TObject; const CharacterID: WideString) of object; TAgentBalloonHide = procedure(Sender: TObject; const CharacterID: WideString) of object; TAgentHelpComplete = procedure(Sender: TObject; const CharacterID: WideString; const Name: WideString; Cause: Smallint) of object; TAgentListenStart = procedure(Sender: TObject; const CharacterID: WideString) of object; TAgentListenComplete = procedure(Sender: TObject; const CharacterID: WideString; Cause: Smallint) of object; TAgentDefaultCharacterChange = procedure(Sender: TObject; const GUID: WideString) of object; TAgentActiveClientChange = procedure(Sender: TObject; const CharacterID: WideString; Active: WordBool) of object; TAgent = class(TOleControl) private FOnActivateInput: TAgentActivateInput; FOnDeactivateInput: TAgentDeactivateInput; FOnClick: TAgentClick; FOnDblClick: TAgentDblClick; FOnDragStart: TAgentDragStart; FOnDragComplete: TAgentDragComplete; FOnShow: TAgentShow; FOnHide: TAgentHide; FOnRequestStart: TAgentRequestStart; FOnRequestComplete: TAgentRequestComplete; FOnRestart: TNotifyEvent; FOnShutdown: TNotifyEvent; FOnBookmark: TAgentBookmark; FOnCommand: TAgentCommand; FOnIdleStart: TAgentIdleStart; FOnIdleComplete: TAgentIdleComplete; FOnMove: TAgentMove; FOnSize: TAgentSize; FOnBalloonShow: TAgentBalloonShow; FOnBalloonHide: TAgentBalloonHide; FOnHelpComplete: TAgentHelpComplete; FOnListenStart: TAgentListenStart; FOnListenComplete: TAgentListenComplete; FOnDefaultCharacterChange: TAgentDefaultCharacterChange; FOnAgentPropertyChange: TNotifyEvent; FOnActiveClientChange: TAgentActiveClientChange; FIntf: IAgentCtlEx; function GetControlInterface: IAgentCtlEx; protected procedure CreateControl; procedure InitControlData; override; function Get_Characters: IAgentCtlCharacters; function Get_AudioOutput: IAgentCtlAudioObjectEx; function Get_SpeechInput: IAgentCtlSpeechInput; function Get_PropertySheet: IAgentCtlPropertySheet; function Get_CommandsWindow: IAgentCtlCommandsWindow; public procedure ShowDefaultCharacterProperties; overload; procedure ShowDefaultCharacterProperties(x: OleVariant); overload; procedure ShowDefaultCharacterProperties(x: OleVariant; y: OleVariant); overload; property ControlInterface: IAgentCtlEx read GetControlInterface; property DefaultInterface: IAgentCtlEx read GetControlInterface; property Characters: IAgentCtlCharacters read Get_Characters; property AudioOutput: IAgentCtlAudioObjectEx read Get_AudioOutput; property SpeechInput: IAgentCtlSpeechInput read Get_SpeechInput; property PropertySheet: IAgentCtlPropertySheet read Get_PropertySheet; property CommandsWindow: IAgentCtlCommandsWindow read Get_CommandsWindow; property Suspended: WordBool index 14 read GetWordBoolProp; published property Connected: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False; property RaiseRequestErrors: WordBool index 21 read GetWordBoolProp write SetWordBoolProp stored False; property OnActivateInput: TAgentActivateInput read FOnActivateInput write FOnActivateInput; property OnDeactivateInput: TAgentDeactivateInput read FOnDeactivateInput write FOnDeactivateInput; property OnClick: TAgentClick read FOnClick write FOnClick; property OnDblClick: TAgentDblClick read FOnDblClick write FOnDblClick; property OnDragStart: TAgentDragStart read FOnDragStart write FOnDragStart; property OnDragComplete: TAgentDragComplete read FOnDragComplete write FOnDragComplete; property OnShow: TAgentShow read FOnShow write FOnShow; property OnHide: TAgentHide read FOnHide write FOnHide; property OnRequestStart: TAgentRequestStart read FOnRequestStart write FOnRequestStart; property OnRequestComplete: TAgentRequestComplete read FOnRequestComplete write FOnRequestComplete; property OnRestart: TNotifyEvent read FOnRestart write FOnRestart; property OnShutdown: TNotifyEvent read FOnShutdown write FOnShutdown; property OnBookmark: TAgentBookmark read FOnBookmark write FOnBookmark; property OnCommand: TAgentCommand read FOnCommand write FOnCommand; property OnIdleStart: TAgentIdleStart read FOnIdleStart write FOnIdleStart; property OnIdleComplete: TAgentIdleComplete read FOnIdleComplete write FOnIdleComplete; property OnMove: TAgentMove read FOnMove write FOnMove; property OnSize: TAgentSize read FOnSize write FOnSize; property OnBalloonShow: TAgentBalloonShow read FOnBalloonShow write FOnBalloonShow; property OnBalloonHide: TAgentBalloonHide read FOnBalloonHide write FOnBalloonHide; property OnHelpComplete: TAgentHelpComplete read FOnHelpComplete write FOnHelpComplete; property OnListenStart: TAgentListenStart read FOnListenStart write FOnListenStart; property OnListenComplete: TAgentListenComplete read FOnListenComplete write FOnListenComplete; property OnDefaultCharacterChange: TAgentDefaultCharacterChange read FOnDefaultCharacterChange write FOnDefaultCharacterChange; property OnAgentPropertyChange: TNotifyEvent read FOnAgentPropertyChange write FOnAgentPropertyChange; property OnActiveClientChange: TAgentActiveClientChange read FOnActiveClientChange write FOnActiveClientChange; end; procedure Register; implementation uses ComObj; procedure TAgent.InitControlData; const CEventDispIDs: array [0..25] of DWORD = ( $00000001, $00000003, $00000002, $00000004, $00000005, $00000006, $0000000F, $00000007, $00000009, $0000000B, $00000015, $0000000C, $00000010, $00000011, $00000013, $00000014, $00000016, $00000017, $00000018, $00000019, $0000001A, $0000001B, $0000001C, $0000001E, $0000001F, $00000020); CControlData: TControlData2 = ( ClassID: '{D45FD31B-5C6E-11D1-9EC1-00C04FD7081F}'; EventIID: '{F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5}'; EventCount: 26; EventDispIDs: @CEventDispIDs; LicenseKey: nil (*HR:$80040154*); Flags: $00000000; Version: 401); begin ControlData := @CControlData; TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnActivateInput) - Cardinal(Self); end; procedure TAgent.CreateControl; procedure DoCreate; begin FIntf := IUnknown(OleObject) as IAgentCtlEx; end; begin if FIntf = nil then DoCreate; end; function TAgent.GetControlInterface: IAgentCtlEx; begin CreateControl; Result := FIntf; end; function TAgent.Get_Characters: IAgentCtlCharacters; begin Result := DefaultInterface.Get_Characters; end; function TAgent.Get_AudioOutput: IAgentCtlAudioObjectEx; begin Result := DefaultInterface.Get_AudioOutput; end; function TAgent.Get_SpeechInput: IAgentCtlSpeechInput; begin Result := DefaultInterface.Get_SpeechInput; end; function TAgent.Get_PropertySheet: IAgentCtlPropertySheet; begin Result := DefaultInterface.Get_PropertySheet; end; function TAgent.Get_CommandsWindow: IAgentCtlCommandsWindow; begin Result := DefaultInterface.Get_CommandsWindow; end; procedure TAgent.ShowDefaultCharacterProperties; begin DefaultInterface.ShowDefaultCharacterProperties(EmptyParam, EmptyParam); end; procedure TAgent.ShowDefaultCharacterProperties(x: OleVariant); begin DefaultInterface.ShowDefaultCharacterProperties(x, EmptyParam); end; procedure TAgent.ShowDefaultCharacterProperties(x: OleVariant; y: OleVariant); begin DefaultInterface.ShowDefaultCharacterProperties(x, y); end; procedure Register; begin RegisterComponents('ActiveX',[TAgent]); end; end.
lt66
7108
2004/7/24 11:01:37
安装完控件后,一定在library 中加上路径,完全可以编译通过, 一些哥们出错是因为对控件安装不熟。
raylau0
7104
2004/7/24 10:30:16
为什么安装运行的时候,会有这个错误的 [Error] dxBar.pas(1173): Undeclared identifier: 'IsShortCutKey' ???
wjg123
6806
2004/7/15 11:55:30
求助: 为何缺少wwriched.dcu??
yschen301
6733
2004/7/12 22:51:09
TdxEditStyleController类和TdxDBGrid 不存在, 是何控件
syto
6410
2004/6/25 14:19:20
感谢热心人。 不过没能掌握。