micdtmfboximpl1.pas

Fontes e exemplos CALLER ID DELPHI

begin
  Result := FDelphiControl.VisibleDockClientCount;
end;

function TmicDTMFBoxX.Initiate: WordBool;
begin
  Result := FDelphiControl.Initiate;
end;

function TmicDTMFBoxX.IsRightToLeft: WordBool;
begin
  Result := FDelphiControl.IsRightToLeft;
end;

function TmicDTMFBoxX.micDTMFactive: WordBool;
begin
  Result := FDelphiControl.micDTMFactive;
end;

function TmicDTMFBoxX.Stop: WordBool;
begin
  Result := FDelphiControl.Stop;
end;

function TmicDTMFBoxX.UseRightToLeftReading: WordBool;
begin
  Result := FDelphiControl.UseRightToLeftReading;
end;

function TmicDTMFBoxX.UseRightToLeftScrollBar: WordBool;
begin
  Result := FDelphiControl.UseRightToLeftScrollBar;
end;

procedure TmicDTMFBoxX._Set_Font(var Value: IFontDisp);
begin
  SetOleFont(FDelphiControl.Font, Value);
end;

procedure TmicDTMFBoxX.a1DetectAllEvent(Sender: TObject;
  AllDigits: String);
begin
  if FEvents <> nil then FEvents.a1DetectAll(WideString(AllDigits));
end;

procedure TmicDTMFBoxX.a2DetectDigitEvent(Sender: TObject;
  LastDigit: String);
begin
  if FEvents <> nil then FEvents.a2DetectDigit(WideString(LastDigit));
end;

procedure TmicDTMFBoxX.a3FormatPhoneEvent(Sender: TObject; Tipo, DDD, Fone,
  IndexPhone: String);
begin
  if FEvents <> nil then FEvents.a3FormatPhone(WideString(Tipo), WideString(DDD), WideString(Fone), WideString(IndexPhone));
end;

procedure TmicDTMFBoxX.a4LevelSignalEvent(Sender: TObject;
  Signal: Integer);
begin
  if FEvents <> nil then FEvents.a4LevelSignal(Signal);
end;

procedure TmicDTMFBoxX.a5HandShakeEvent(Sender: TObject;
  HandShake: Boolean);
begin
  if FEvents <> nil then FEvents.a5HandShake(WordBool(HandShake));
end;

procedure TmicDTMFBoxX.a6SilenDetectEvent(Sender: TObject;
  Secounds: Integer);
begin
  if FEvents <> nil then FEvents.a6SilenDetect(Secounds);
end;

procedure TmicDTMFBoxX.a7IndexFoneEvent(Sender: TObject;
  IndexFone: String);
begin
  if FEvents <> nil then FEvents.a7IndexFone(WideString(IndexFone));
end;

procedure TmicDTMFBoxX.a8MicAPIConectEvent(Sender: TObject;
  PlugInHandle: Integer);
begin
  if FEvents <> nil then FEvents.a8MicAPIConect(PlugInHandle);
end;

procedure TmicDTMFBoxX.ChangeEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnChange;
end;

procedure TmicDTMFBoxX.Clear;
begin
  FDelphiControl.Clear;
end;

procedure TmicDTMFBoxX.ClearAll;
begin
  FDelphiControl.ClearAll;
end;

procedure TmicDTMFBoxX.ClearSelection;
begin
  FDelphiControl.ClearSelection;
end;

procedure TmicDTMFBoxX.ClickEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnClick;
end;

procedure TmicDTMFBoxX.CloseUpEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnCloseUp;
end;

procedure TmicDTMFBoxX.DblClickEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnDblClick;
end;

procedure TmicDTMFBoxX.DeleteSelected;
begin
  FDelphiControl.DeleteSelected;
end;

procedure TmicDTMFBoxX.DropDownEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnDropDown;
end;

procedure TmicDTMFBoxX.HideDlg;
begin
  FDelphiControl.HideDlg;
end;

procedure TmicDTMFBoxX.InitiateAction;
begin
  FDelphiControl.InitiateAction;
end;

procedure TmicDTMFBoxX.KeyPressEvent(Sender: TObject; var Key: Char);
var
  TempKey: Smallint;
begin
  TempKey := Smallint(Key);
  if FEvents <> nil then FEvents.OnKeyPress(TempKey);
  Key := Char(TempKey);
end;

procedure TmicDTMFBoxX.SelectAll;
begin
  FDelphiControl.SelectAll;
end;

procedure TmicDTMFBoxX.SelectEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnSelect;
end;

procedure TmicDTMFBoxX.Set_a1Active(Value: WordBool);
begin
  FDelphiControl.a1Active := Value;
end;

procedure TmicDTMFBoxX.Set_a2DDDLocal(const Value: WideString);
begin
  FDelphiControl.a2DDDLocal := String(Value);
end;

procedure TmicDTMFBoxX.Set_a3RootPlugIn(const Value: WideString);
begin
  FDelphiControl.a3RootPlugIn := String(Value);
end;

procedure TmicDTMFBoxX.Set_a4PlugInRegistry(const Value: WideString);
begin
  FDelphiControl.a4PlugInRegistry := String(Value);
end;

procedure TmicDTMFBoxX.Set_a5ClearAllDigits(const Value: WideString);
begin
  FDelphiControl.a5ClearAllDigits := String(Value);
end;

procedure TmicDTMFBoxX.Set_a6ModoOperac(Value: TxModOper);
begin
  FDelphiControl.a6ModoOperac := TModOper(Value);
end;

procedure TmicDTMFBoxX.Set_a7ScreenRestore(Value: WordBool);
begin
  FDelphiControl.a7ScreenRestore := Value;
end;

procedure TmicDTMFBoxX.Set_a8Sensibility(Value: Integer);
begin
  FDelphiControl.a8Sensibility := Value;
end;

procedure TmicDTMFBoxX.Set_a9NotDetectTipo(Value: WordBool);
begin
  FDelphiControl.a9NotDetectTipo := Value;
end;

procedure TmicDTMFBoxX.Set_AutoCloseUp(Value: WordBool);
begin
  FDelphiControl.AutoCloseUp := Value;
end;

procedure TmicDTMFBoxX.Set_AutoComplete(Value: WordBool);
begin
  FDelphiControl.AutoComplete := Value;
end;

procedure TmicDTMFBoxX.Set_AutoDropDown(Value: WordBool);
begin
  FDelphiControl.AutoDropDown := Value;
end;

procedure TmicDTMFBoxX.Set_BevelInner(Value: TxBevelCut);
begin
  FDelphiControl.BevelInner := TBevelCut(Value);
end;

procedure TmicDTMFBoxX.Set_BevelKind(Value: TxBevelKind);
begin
  FDelphiControl.BevelKind := TBevelKind(Value);
end;

procedure TmicDTMFBoxX.Set_BevelOuter(Value: TxBevelCut);
begin
  FDelphiControl.BevelOuter := TBevelCut(Value);
end;

procedure TmicDTMFBoxX.Set_CharCase(Value: TxEditCharCase);
begin
  FDelphiControl.CharCase := TEditCharCase(Value);
end;

procedure TmicDTMFBoxX.Set_Color(Value: OLE_COLOR);
begin
  FDelphiControl.Color := TColor(Value);
end;

procedure TmicDTMFBoxX.Set_Ctl3D(Value: WordBool);
begin
  FDelphiControl.Ctl3D := Value;
end;

procedure TmicDTMFBoxX.Set_DoubleBuffered(Value: WordBool);
begin
  FDelphiControl.DoubleBuffered := Value;
end;

procedure TmicDTMFBoxX.Set_DragCursor(Value: Smallint);
begin
  FDelphiControl.DragCursor := TCursor(Value);
end;

procedure TmicDTMFBoxX.Set_DragMode(Value: TxDragMode);
begin
  FDelphiControl.DragMode := TDragMode(Value);
end;

procedure TmicDTMFBoxX.Set_DropDownCount(Value: Integer);
begin
  FDelphiControl.DropDownCount := Value;
end;

procedure TmicDTMFBoxX.Set_DroppedDown(Value: WordBool);
begin
  FDelphiControl.DroppedDown := Value;
end;

procedure TmicDTMFBoxX.Set_Enabled(Value: WordBool);
begin
  FDelphiControl.Enabled := Value;
end;

procedure TmicDTMFBoxX.Set_Font(const Value: IFontDisp);
begin
  SetOleFont(FDelphiControl.Font, Value);
end;

procedure TmicDTMFBoxX.Set_ImeMode(Value: TxImeMode);
begin
  FDelphiControl.ImeMode := TImeMode(Value);
end;

procedure TmicDTMFBoxX.Set_ImeName(const Value: WideString);
begin
  FDelphiControl.ImeName := TImeName(Value);
end;

procedure TmicDTMFBoxX.Set_ItemHeight(Value: Integer);
begin
  FDelphiControl.ItemHeight := Value;
end;

procedure TmicDTMFBoxX.Set_ItemIndex(Value: Integer);
begin
  FDelphiControl.ItemIndex := Value;
end;

procedure TmicDTMFBoxX.Set_Items(const Value: IStrings);
begin
  SetOleStrings(FDelphiControl.Items, Value);
end;

procedure TmicDTMFBoxX.Set_MaxLength(Value: Integer);
begin
  FDelphiControl.MaxLength := Value;
end;

procedure TmicDTMFBoxX.Set_ParentColor(Value: WordBool);
begin
  FDelphiControl.ParentColor := Value;
end;

procedure TmicDTMFBoxX.Set_ParentCtl3D(Value: WordBool);
begin
  FDelphiControl.ParentCtl3D := Value;
end;

procedure TmicDTMFBoxX.Set_SelLength(Value: Integer);
begin
  FDelphiControl.SelLength := Value;
end;

procedure TmicDTMFBoxX.Set_SelStart(Value: Integer);
begin
  FDelphiControl.SelStart := Value;
end;

procedure TmicDTMFBoxX.Set_SelText(const Value: WideString);
begin
  FDelphiControl.SelText := String(Value);
end;

procedure TmicDTMFBoxX.Set_Sorted(Value: WordBool);
begin
  FDelphiControl.Sorted := Value;
end;

procedure TmicDTMFBoxX.Set_Style(Value: TxComboBoxStyle);
begin
  FDelphiControl.Style := TComboBoxStyle(Value);
end;

procedure TmicDTMFBoxX.Set_Text(const Value: WideString);
begin
  FDelphiControl.Text := TCaption(Value);
end;

procedure TmicDTMFBoxX.Set_Visible(Value: WordBool);
begin
  FDelphiControl.Visible := Value;
end;

procedure TmicDTMFBoxX.SetSubComponent(IsSubComponent: WordBool);
begin
  FDelphiControl.SetSubComponent(IsSubComponent);
end;

procedure TmicDTMFBoxX.ShowDlg;
begin
  FDelphiControl.ShowDlg;
end;

procedure TmicDTMFBoxX.TestNotTipo(const Valor: WideString);
begin
  FDelphiControl.TestNotTipo(Valor);
end;

initialization
  TActiveXControlFactory.Create(
    ComServer,
    TmicDTMFBoxX,
    TmicDTMFBox,
    Class_micDTMFBoxX,
    1,
    '',
    0,
    tmApartment);
end.