micdtmfbocx_tlb.pas

Fontes e exemplos CALLER ID DELPHI

    function Get_Items: IStrings; safecall;
    procedure Set_Items(const Value: IStrings); safecall;
    function Get_SelText: WideString; safecall;
    procedure Set_SelText(const Value: WideString); safecall;
    procedure Clear; safecall;
    procedure ClearSelection; safecall;
    procedure DeleteSelected; safecall;
    procedure SelectAll; safecall;
    function Get_DroppedDown: WordBool; safecall;
    procedure Set_DroppedDown(Value: WordBool); safecall;
    function Get_SelLength: Integer; safecall;
    procedure Set_SelLength(Value: Integer); safecall;
    function Get_SelStart: Integer; safecall;
    procedure Set_SelStart(Value: Integer); safecall;
    function Get_DoubleBuffered: WordBool; safecall;
    procedure Set_DoubleBuffered(Value: WordBool); safecall;
    function Get_AlignDisabled: WordBool; safecall;
    function Get_VisibleDockClientCount: Integer; safecall;
    function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
    procedure InitiateAction; safecall;
    function IsRightToLeft: WordBool; safecall;
    function UseRightToLeftReading: WordBool; safecall;
    function UseRightToLeftScrollBar: WordBool; safecall;
    procedure SetSubComponent(IsSubComponent: WordBool); safecall;
    property a1Active: WordBool read Get_a1Active write Set_a1Active;
    property a2DDDLocal: WideString read Get_a2DDDLocal write Set_a2DDDLocal;
    property a3RootPlugIn: WideString read Get_a3RootPlugIn write Set_a3RootPlugIn;
    property a4PlugInRegistry: WideString read Get_a4PlugInRegistry write Set_a4PlugInRegistry;
    property a5ClearAllDigits: WideString read Get_a5ClearAllDigits write Set_a5ClearAllDigits;
    property a6ModoOperac: TxModOper read Get_a6ModoOperac write Set_a6ModoOperac;
    property a7ScreenRestore: WordBool read Get_a7ScreenRestore write Set_a7ScreenRestore;
    property a8Sensibility: Integer read Get_a8Sensibility write Set_a8Sensibility;
    property a9NotDetectTipo: WordBool read Get_a9NotDetectTipo write Set_a9NotDetectTipo;
    property AutoComplete: WordBool read Get_AutoComplete write Set_AutoComplete;
    property AutoDropDown: WordBool read Get_AutoDropDown write Set_AutoDropDown;
    property AutoCloseUp: WordBool read Get_AutoCloseUp write Set_AutoCloseUp;
    property BevelInner: TxBevelCut read Get_BevelInner write Set_BevelInner;
    property BevelKind: TxBevelKind read Get_BevelKind write Set_BevelKind;
    property BevelOuter: TxBevelCut read Get_BevelOuter write Set_BevelOuter;
    property Style: TxComboBoxStyle read Get_Style write Set_Style;
    property CharCase: TxEditCharCase read Get_CharCase write Set_CharCase;
    property Color: OLE_COLOR read Get_Color write Set_Color;
    property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
    property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
    property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
    property DropDownCount: Integer read Get_DropDownCount write Set_DropDownCount;
    property Enabled: WordBool read Get_Enabled write Set_Enabled;
    property Font: IFontDisp read Get_Font write Set_Font;
    property ImeMode: TxImeMode read Get_ImeMode write Set_ImeMode;
    property ImeName: WideString read Get_ImeName write Set_ImeName;
    property ItemHeight: Integer read Get_ItemHeight write Set_ItemHeight;
    property ItemIndex: Integer read Get_ItemIndex write Set_ItemIndex;
    property MaxLength: Integer read Get_MaxLength write Set_MaxLength;
    property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
    property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
    property Sorted: WordBool read Get_Sorted write Set_Sorted;
    property Text: WideString read Get_Text write Set_Text;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Items: IStrings read Get_Items write Set_Items;
    property SelText: WideString read Get_SelText write Set_SelText;
    property DroppedDown: WordBool read Get_DroppedDown write Set_DroppedDown;
    property SelLength: Integer read Get_SelLength write Set_SelLength;
    property SelStart: Integer read Get_SelStart write Set_SelStart;
    property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
    property AlignDisabled: WordBool read Get_AlignDisabled;
    property VisibleDockClientCount: Integer read Get_VisibleDockClientCount;
  end;

// *********************************************************************//
// DispIntf:  ImicDTMFBoxXDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {234512C8-E247-4E92-9609-DE63AE43E7A0}
// *********************************************************************//
  ImicDTMFBoxXDisp = dispinterface
    ['{234512C8-E247-4E92-9609-DE63AE43E7A0}']
    function Stop: WordBool; dispid 201;
    procedure ShowDlg; dispid 202;
    procedure HideDlg; dispid 203;
    procedure ClearAll; dispid 204;
    procedure TestNotTipo(const Valor: WideString); dispid 205;
    function micDTMFactive: WordBool; dispid 206;
    function Initiate: WordBool; dispid 207;
    property a1Active: WordBool dispid 208;
    property a2DDDLocal: WideString dispid 209;
    property a3RootPlugIn: WideString dispid 210;
    property a4PlugInRegistry: WideString dispid 211;
    property a5ClearAllDigits: WideString dispid 212;
    property a6ModoOperac: TxModOper dispid 213;
    property a7ScreenRestore: WordBool dispid 214;
    property a8Sensibility: Integer dispid 215;
    property a9NotDetectTipo: WordBool dispid 216;
    property AutoComplete: WordBool dispid 217;
    property AutoDropDown: WordBool dispid 218;
    property AutoCloseUp: WordBool dispid 219;
    property BevelInner: TxBevelCut dispid 220;
    property BevelKind: TxBevelKind dispid 221;
    property BevelOuter: TxBevelCut dispid 222;
    property Style: TxComboBoxStyle dispid 223;
    property CharCase: TxEditCharCase dispid 224;
    property Color: OLE_COLOR dispid -501;
    property Ctl3D: WordBool dispid 225;
    property DragCursor: Smallint dispid 226;
    property DragMode: TxDragMode dispid 227;
    property DropDownCount: Integer dispid 228;
    property Enabled: WordBool dispid -514;
    property Font: IFontDisp dispid -512;
    property ImeMode: TxImeMode dispid 229;
    property ImeName: WideString dispid 230;
    property ItemHeight: Integer dispid 231;
    property ItemIndex: Integer dispid 232;
    property MaxLength: Integer dispid 233;
    property ParentColor: WordBool dispid 234;
    property ParentCtl3D: WordBool dispid 235;
    property Sorted: WordBool dispid 236;
    property Text: WideString dispid -517;
    property Visible: WordBool dispid 237;
    property Items: IStrings dispid 238;
    property SelText: WideString dispid 239;
    procedure Clear; dispid 240;
    procedure ClearSelection; dispid 241;
    procedure DeleteSelected; dispid 242;
    procedure SelectAll; dispid 243;
    property DroppedDown: WordBool dispid 244;
    property SelLength: Integer dispid 245;
    property SelStart: Integer dispid 246;
    property DoubleBuffered: WordBool dispid 247;
    property AlignDisabled: WordBool readonly dispid 248;
    property VisibleDockClientCount: Integer readonly dispid 249;
    function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 250;
    procedure InitiateAction; dispid 251;
    function IsRightToLeft: WordBool; dispid 252;
    function UseRightToLeftReading: WordBool; dispid 253;
    function UseRightToLeftScrollBar: WordBool; dispid 254;
    procedure SetSubComponent(IsSubComponent: WordBool); dispid 255;
  end;

// *********************************************************************//
// DispIntf:  ImicDTMFBoxXEvents
// Flags:     (4096) Dispatchable
// GUID:      {A852D885-B4EE-4AD4-A143-C09A048B62E5}
// *********************************************************************//
  ImicDTMFBoxXEvents = dispinterface
    ['{A852D885-B4EE-4AD4-A143-C09A048B62E5}']
    procedure a1DetectAll(const AllDigits: WideString); dispid 201;
    procedure a2DetectDigit(const LastDigit: WideString); dispid 202;
    procedure a3FormatPhone(const Tipo: WideString; const DDD: WideString; const Fone: WideString; 
                            const IndexPhone: WideString); dispid 203;
    procedure a4LevelSignal(Signal: Integer); dispid 204;
    procedure a5HandShake(HandShake: WordBool); dispid 205;
    procedure a6SilenDetect(Secounds: Integer); dispid 206;
    procedure a7IndexFone(const IndexFone: WideString); dispid 207;
    procedure a8MicAPIConect(PlugInHandle: Integer); dispid 208;
    procedure OnChange; dispid 209;
    procedure OnClick; dispid 210;
    procedure OnCloseUp; dispid 211;
    procedure OnDblClick; dispid 212;
    procedure OnDropDown; dispid 213;
    procedure OnKeyPress(var Key: Smallint); dispid 214;
    procedure OnSelect; dispid 215;
  end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TmicDTMFBoxX
// Help String      : micDTMFBoxX Control
// Default Interface: ImicDTMFBoxX
// Def. Intf. DISP? : No
// Event   Interface: ImicDTMFBoxXEvents
// TypeFlags        : (34) CanCreate Control
// *********************************************************************//
  TmicDTMFBoxXa1DetectAll = procedure(ASender: TObject; const AllDigits: WideString) of object;
  TmicDTMFBoxXa2DetectDigit = procedure(ASender: TObject; const LastDigit: WideString) of object;
  TmicDTMFBoxXa3FormatPhone = procedure(ASender: TObject; const Tipo: WideString; 
                                                          const DDD: WideString; 
                                                          const Fone: WideString; 
                                                          const IndexPhone: WideString) of object;
  TmicDTMFBoxXa4LevelSignal = procedure(ASender: TObject; Signal: Integer) of object;
  TmicDTMFBoxXa5HandShake = procedure(ASender: TObject; HandShake: WordBool) of object;
  TmicDTMFBoxXa6SilenDetect = procedure(ASender: TObject; Secounds: Integer) of object;
  TmicDTMFBoxXa7IndexFone = procedure(ASender: TObject; const IndexFone: WideString) of object;
  TmicDTMFBoxXa8MicAPIConect = procedure(ASender: TObject; PlugInHandle: Integer) of object;
  TmicDTMFBoxXOnKeyPress = procedure(ASender: TObject; var Key: Smallint) of object;

  TmicDTMFBoxX = class(TOleControl)
  private
    FOna1DetectAll: TmicDTMFBoxXa1DetectAll;
    FOna2DetectDigit: TmicDTMFBoxXa2DetectDigit;
    FOna3FormatPhone: TmicDTMFBoxXa3FormatPhone;
    FOna4LevelSignal: TmicDTMFBoxXa4LevelSignal;
    FOna5HandShake: TmicDTMFBoxXa5HandShake;
    FOna6SilenDetect: TmicDTMFBoxXa6SilenDetect;
    FOna7IndexFone: TmicDTMFBoxXa7IndexFone;
    FOna8MicAPIConect: TmicDTMFBoxXa8MicAPIConect;
    FOnChange: TNotifyEvent;
    FOnClick: TNotifyEvent;
    FOnCloseUp: TNotifyEvent;
    FOnDblClick: TNotifyEvent;
    FOnDropDown: TNotifyEvent;
    FOnKeyPress: TmicDTMFBoxXOnKeyPress;
    FOnSelect: TNotifyEvent;
    FIntf: ImicDTMFBoxX;
    function  GetControlInterface: ImicDTMFBoxX;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    function Get_Items: IStrings;
    procedure Set_Items(const Value: IStrings);
  public
    function Stop: WordBool;
    procedure ShowDlg;
    procedure HideDlg;
    procedure ClearAll;
    procedure TestNotTipo(const Valor: WideString);
    function micDTMFactive: WordBool;
    function Initiate: WordBool;
    procedure Clear;
    procedure ClearSelection;
    procedure DeleteSelected;
    procedure SelectAll;
    function DrawTextBiDiModeFlagsReadingOnly: Integer;
    procedure InitiateAction;
    function IsRightToLeft: WordBool;
    function UseRightToLeftReading: WordBool;
    function UseRightToLeftScrollBar: WordBool;
    procedure SetSubComponent(IsSubComponent: WordBool);
    property  ControlInterface: ImicDTMFBoxX read GetControlInterface;
    property  DefaultInterface: ImicDTMFBoxX read GetControlInterface;