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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > TAPI编程 > 查看源码
EdDial.pas
资源名称：利用 TAPI 拨号程序的拨号构件.zip　[点击查看]
上传用户：rftzhifu
上传日期：2007-07-05
资源大小：18k
文件大小：24k
源码类别：

TAPI编程

开发平台：

Delphi

EdDial.pas：源码内容
  1. {*******************************************************}
  2. { EdDial V 1.00 - 04 Jun 1996 (freeware)                }
  3. { Dial a phone number using the win'95 dialer           }
  4. {                                                       }
  5. { Olivier DEVUE                                         }
  6. { olidev@msn.com                                        }
  7. {                                                       }
  8. {*******************************************************}
  10. unit EdDial;
  12. interface
  14. uses
  15.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  16.   StdCtrls, Buttons, Menus;
  18.   function tapiRequestMakeCall(lpszDestAddress, lpszAppName, lpszCalledParty, lpszComment: LPCSTR): DWORD; stdcall;
  19.   
  20.   { =========================== TCustomEditAndBtn ============================}
  21. type
  22.   TCustomEditAndBtn = class(TWinControl)
  23.   private
  24.     { D閏larations private }
  25.     FButtonEnabled : boolean;
  26.     FButtonHint: string;
  27.     FSpeedButton: TSpeedButton;
  28.     FEdit: TEdit;
  30.     FOnButtonClick: TNotifyEvent;
  31.     FOnButtonMouseDown: TMouseEvent;
  32.     FOnButtonMouseMove: TMouseMoveEvent;
  33.     FOnButtonMouseUp: TMouseEvent;
  34.     FOnEnter: TNotifyEvent;
  35.     FOnChange: TNotifyEvent;
  36.     FOnExit: TNotifyEvent;
  37.     FOnClick: TNotifyEvent;
  38.     FOnDblClick: TNotifyEvent;
  39.     FOnDragDrop: TDragDropEvent;
  40.     FOnDragOver: TDragOverEvent;
  41.     FOnEndDrag: TEndDragEvent;
  42.     FOnKeyDown: TKeyEvent;
  43.     FOnKeyPress: TKeyPressEvent;
  44.     FOnKeyUp: TKeyEvent;
  45.     FOnMouseDown: TMouseEvent;
  46.     FOnMouseMove: TMouseMoveEvent;
  47.     FOnMouseUp: TMouseEvent;
  48.     FOnStartDrag: TStartDragEvent;
  50.     FButtonShortCut: TShortCut;
  52.     function GetAutoSelect : boolean;
  53.     procedure SetAutoSelect(b: boolean);
  55.     function GetButtonCaption : String;
  56.     procedure SetButtonCaption(s: String);
  58.     procedure SetButtonEnabled(b: boolean);
  60.     function GetGlyph: TBitmap;
  61.     procedure SetGlyph(b: TBitmap);
  63.     function GetButtonHint : String;
  64.     procedure SetButtonHint(s: String);
  66.     function GetNumGlyphs: TNumGlyphs;
  67.     procedure SetNumGlyphs(n: TNumGlyphs);
  69.     function GetButtonVisible : boolean;
  70.     procedure SetButtonVisible(b : boolean);
  72.     function GetCharCase: TEditCharCase;
  73.     procedure SetCharCase(c: TEditCharCase);
  75.     function GetColor: TColor;
  76.     procedure SetColor(c: TColor);
  78.     function GetCtl3d: boolean;
  79.     procedure SetCtl3d(b: boolean);
  81.     function GetDragCursor: TCursor;
  82.     procedure SetDragCursor(c: TCursor);
  84.     function GetDragMode: TDragMode;
  85.     procedure SetDragMode(d: TDragMode);
  87.     function GetFont: TFont;
  88.     procedure SetFont(f: TFont);
  90.     function GetHideSelection: boolean;
  91.     procedure SetHideSelection(b: boolean);
  93.     function GetMaxLength: integer;
  94.     procedure SetMaxLength(i: integer);
  96.     function GetOEMConvert: boolean;
  97.     procedure SetOEMConvert(b: boolean);
  99.     function GetParentColor: boolean;
  100.     procedure SetParentColor(b: boolean);
  102.     function GetParentCtl3D: boolean;
  103.     procedure SetParentCtl3D(b: boolean);
  105.     function GetParentFont: boolean;
  106.     procedure SetParentFont(b: boolean);
  108.     function GetParentShowHint: boolean;
  109.     procedure SetParentShowHint(b: boolean);
  111.     function GetPasswordChar: char;
  112.     procedure SetPasswordChar(c: char);
  114.     function GetReadOnly: boolean;
  115.     procedure SetReadOnly(b: boolean);
  117.     function GetShowHint: boolean;
  118.     procedure SetShowHint(b: boolean);
  120.     function GetTabStop: boolean;
  121.     procedure SetTabStop(b: boolean);
  123.     function GetText : String;
  124.     procedure SetText(s: String);
  126.   protected
  127.     { D閏larations protected }
  128.     property AutoSelect: boolean read GetAutoSelect write SetAutoSelect;
  129.     property ButtonCaption: string read GetButtonCaption write SetButtonCaption;
  130.     property ButtonEnabled: boolean read FButtonEnabled write SetButtonEnabled;
  131.     property ButtonGlyph: TBitmap read GetGlyph write SetGlyph;
  132.     property ButtonHint: string read GetButtonHint write SetButtonHint;
  133.     property ButtonNumGlyphs: TNumGlyphs read GetNumGlyphs write SetNumGlyphs;
  134.     property ButtonShortCut: TShortCut read FButtonShortCut write FButtonShortCut;
  135.     property ButtonVisible: boolean read GetButtonVisible write SetButtonVisible;
  136.     property CharCase: TEditCharCase read GetCharCase write SetCharCase;
  137.     property Color: TColor read GetColor write SetColor;
  138.     property Ctl3d: boolean read GetCtl3d write SetCtl3d;
  139.     property DragCursor: TCursor read GetDragCursor write SetDragCursor;
  140.     property DragMode: TDragMode read GetDragMode write SetDragMode;
  141.     property Enabled;
  142.     property Font: TFont read GetFont write SetFont;
  143.     property HideSelection: boolean read GetHideSelection write SetHideSelection;
  144.     property MaxLength: integer read GetMaxLength write SetMaxLength;
  145.     property OEMConvert: boolean read GetOEMConvert write SetOEMConvert;
  146.     property ParentColor: boolean read GetParentColor write SetParentColor;
  147.     property ParentCtl3D: boolean read GetParentCtl3D write SetParentCtl3D;
  148.     property ParentFont: boolean read GetParentFont write SetParentFont;
  149.     property ParentShowHint: boolean read GetParentShowHint write SetParentShowHint;
  150.     property PasswordChar: char read GetPasswordChar write SetPasswordChar;
  151.     property PopupMenu;
  152.     property ReadOnly: boolean read GetReadOnly write SetReadOnly;
  153.     property ShowHint: boolean read GetShowHint write SetShowHint;
  154.     property TabOrder;
  155.     property TabStop: boolean read GetTabStop write SetTabStop;
  156.     property Text: string read GetText write SetText;
  157.     property Visible;
  159.     procedure ButtonClick(Sender : TObject); virtual;
  160.     procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
  161.     procedure ButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); virtual;
  162.     procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
  163.     procedure Change(Sender : TObject); virtual;
  164.     procedure Click(Sender : TObject); virtual;
  165.     procedure DblClick(Sender : TObject); virtual;
  166.     procedure DragDrop(Sender, Source: TObject; X, Y: Integer); virtual;
  167.     procedure DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); virtual;
  168.     procedure EndDrag(Sender, Target: TObject; X, Y: Integer); virtual;
  169.     procedure Enter(Sender : TObject); virtual;
  170.     procedure Exit(Sender : TObject); virtual;
  171.     procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
  172.     procedure KeyPress(Sender: TObject; var Key: Char); virtual;
  173.     procedure KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
  174.     procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
  175.     procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); virtual;
  176.     procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
  177.     procedure StartDrag(Sender: TObject; var DragObject: TDragObject); virtual;
  179.     property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;
  180.     property OnButtonMouseDown: TMouseEvent read FOnButtonMouseDown write FOnButtonMouseDown;
  181.     property OnButtonMouseMove: TMouseMoveEvent read FOnButtonMouseMove write FOnButtonMouseMove;
  182.     property OnButtonMouseUp: TMouseEvent read FOnButtonMouseUp write FOnButtonMouseUp;
  183.     property OnChange: TNotifyEvent read FOnChange write FOnChange;
  184.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  185.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  186.     property OnDragDrop: TDragDropEvent read FOnDragDrop write FOnDragDrop;
  187.     property OnDragOver: TDragOverEvent read FOnDragOver write FOnDragOver;
  188.     property OnEndDrag: TEndDragEvent read FOnEndDrag write FOnEndDrag;
  189.     property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;
  190.     property OnExit: TNotifyEvent read FOnExit write FOnExit;
  191.     property OnKeyDown: TKeyEvent read FOnKeyDown write FOnKeyDown;
  192.     property OnKeyPress: TKeyPressEvent read FOnKeyPress write FOnKeyPress;
  193.     property OnKeyUp: TKeyEvent read FOnKeyUp write FOnKeyUp;
  194.     property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;
  195.     property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
  196.     property OnMouseUp: TMouseEvent read FOnMouseUp write FOnMouseUp;
  197.     property OnStartDrag: TStartDragEvent read FOnStartDrag write FOnStartDrag;
  199.     procedure WMSize( var Message: TWMSize ); message WM_SIZE;
  200.   public
  201.     { D閏larations public }
  202.     constructor Create( AOwner: TComponent ); override;
  203.     destructor Destroy; override;
  204.     procedure SetName(const NewName: TComponentName); override;
  205.   end;
  207.   { ============================== TEditAndBtn ===============================}
  209.   TEditAndBtn = class(TCustomEditAndBtn)
  210.   published
  211.     { D閏larations published }
  212.     property AutoSelect;
  213.     property ButtonCaption;
  214.     property ButtonEnabled;
  215.     property ButtonGlyph;
  216.     property ButtonHint;
  217.     property ButtonNumGlyphs;
  218.     property ButtonShortCut;
  219.     property ButtonVisible;
  220.     property CharCase;
  221.     property Color;
  222.     property Ctl3d;
  223.     property DragCursor;
  224.     property DragMode;
  225.     property Enabled;
  226.     property Font;
  227.     property HideSelection;
  228.     property MaxLength;
  229.     property OEMConvert;
  230.     property ParentColor;
  231.     property ParentCtl3D;
  232.     property ParentFont;
  233.     property ParentShowHint;
  234.     property PasswordChar;
  235.     property PopupMenu;
  236.     property ReadOnly;
  237.     property ShowHint;
  238.     property TabOrder;
  239.     property TabStop;
  240.     property Text;
  241.     property Visible;
  243.     property OnButtonClick;
  244.     property OnButtonMouseDown;
  245.     property OnButtonMouseMove;
  246.     property OnButtonMouseUp;
  247.     property OnChange;
  248.     property OnClick;
  249.     property OnDblClick;
  250.     property OnDragDrop;
  251.     property OnDragOver;
  252.     property OnEndDrag;
  253.     property OnEnter;
  254.     property OnExit;
  255.     property OnKeyDown;
  256.     property OnKeyPress;
  257.     property OnKeyUp;
  258.     property OnMouseDown;
  259.     property OnMouseMove;
  260.     property OnMouseUp;
  261.     property OnStartDrag;
  262.   end;
  264.   TEditAndDialBtnKind = (dkCustom, dkStandard);
  265.   TBeforeDialEvent = procedure (Sender : TObject; var CalledParty: string) of object;
  267.   { ============================= TEditAndDial ===============================}
  269.   TEditAndDial = class(TCustomEditAndBtn)
  270.   private
  271.     { D閏larations private }
  272.     FButtonKind: TEditAndDialBtnKind;
  273.     FBeforeDial: TBeforeDialEvent;
  274.     FCalledParty: array [0..255] of char;    
  276.     function GetKind: TEditAndDialBtnKind;
  277.     procedure SetKind(Value: TEditAndDialBtnKind);
  279.     function GetGlyph: TBitmap;
  280.     procedure SetGlyph(b: TBitmap);
  281.   published
  282.     { D閏larations published }
  283.     property AutoSelect;
  284.     property ButtonEnabled;
  285.     property ButtonGlyphDial: TBitmap read GetGlyph write SetGlyph;
  286.     property ButtonKind: TEditAndDialBtnKind read GetKind write SetKind;
  287.     property ButtonHint;
  288.     property ButtonNumGlyphs;
  289.     property ButtonShortCut;
  290.     property ButtonVisible;
  291.     property CharCase;
  292.     property Color;
  293.     property Ctl3d;
  294.     property DragCursor;
  295.     property DragMode;
  296.     property Enabled;
  297.     property Font;
  298.     property HideSelection;
  299.     property MaxLength;
  300.     property OEMConvert;
  301.     property ParentColor;
  302.     property ParentCtl3D;
  303.     property ParentFont;
  304.     property ParentShowHint;
  305.     property PopupMenu;
  306.     property ReadOnly;
  307.     property ShowHint;
  308.     property TabOrder;
  309.     property TabStop;
  310.     property Text;
  311.     property Visible;
  313.     property BeforeDial: TBeforeDialEvent read FBeforeDial write FBeforeDial;
  314.     property OnButtonMouseDown;
  315.     property OnButtonMouseMove;
  316.     property OnButtonMouseUp;
  317.     property OnChange;
  318.     property OnClick;
  319.     property OnDblClick;
  320.     property OnDragDrop;
  321.     property OnDragOver;
  322.     property OnEndDrag;
  323.     property OnEnter;
  324.     property OnExit;
  325.     property OnKeyDown;
  326.     property OnKeyPress;
  327.     property OnKeyUp;
  328.     property OnMouseDown;
  329.     property OnMouseMove;
  330.     property OnMouseUp;
  331.     property OnStartDrag;
  332.   protected
  333.     { D閏larations protected }
  334.     procedure LoadDialBitmap; virtual;
  335.     procedure EvBeforeDial(Sender : TObject; var CalledParty: string); virtual;
  336.   public
  337.     { D閏larations public }
  338.     constructor Create( AOwner: TComponent ); override;
  339.     destructor Destroy; override;
  340.     procedure ButtonClick(Sender : TObject); override;
  341.   end;
  343. procedure Register;
  345. implementation
  347. {$R EDDIAL}
  349. function tapiRequestMakeCall; external 'TAPI32.DLL' name 'tapiRequestMakeCall';
  351. constructor TCustomEditAndBtn.Create( AOwner: TComponent );
  352. begin
  353.   inherited Create(AOwner);
  355.   Width:=121;
  357.   FEdit := TEdit.Create(self);
  358.   FEdit.Visible := true;
  359.   FEdit.Parent := Self;
  360.   FEdit.Text:=Self.name;
  361.   FEdit.Refresh;
  363.   FEdit.OnChange:=Change;
  364.   FEdit.OnClick:=Click;
  365.   FEdit.OnDblClick:=DblClick;
  366.   FEdit.OnDragDrop:=DragDrop;
  367.   FEdit.OnDragOver:=DragOver;
  368.   FEdit.OnEndDrag:=EndDrag;
  369.   FEdit.OnEnter:=Enter;
  370.   FEdit.OnExit:=Exit;
  371.   FEdit.OnKeyDown:=KeyDown;
  372.   FEdit.OnKeyPress:=KeyPress;
  373.   FEdit.OnKeyUp:=KeyUp;
  374.   FEdit.OnMouseDown:=MouseDown;
  375.   FEdit.OnMouseMove:=MouseMove;
  376.   FEdit.OnMouseUp:=MouseUp;
  377.   FEdit.OnStartDrag:=StartDrag;
  379.   FSpeedButton := TSpeedButton.Create(self);
  380.   FSpeedButton.Visible := true;
  381.   FSpeedButton.Parent := self;
  383.   FSpeedButton.Refresh;
  384.   FSpeedButton.OnClick:=ButtonClick;
  385.   FSpeedButton.OnMouseDown:=ButtonMouseDown;
  386.   FSpeedButton.OnMouseMove:=ButtonMouseMove;
  387.   FSpeedButton.OnMouseUp:=ButtonMouseUp;
  388.   FButtonEnabled:=true;
  389. end;
  391. procedure TCustomEditAndBtn.Change(Sender : TObject);
  392. begin
  393.   if Assigned(FOnChange) then
  394.     FOnChange(self);
  395. end;
  397. procedure TCustomEditAndBtn.Click(Sender : TObject);
  398. begin
  399.   if Assigned(FOnClick) then
  400.     FOnClick(self);
  401. end;
  403. procedure TCustomEditAndBtn.DblClick(Sender : TObject);
  404. begin
  405.   if Assigned(FOnDblClick) then
  406.     FOnDblClick(self);
  407. end;
  409. procedure TCustomEditAndBtn.DragDrop(Sender, Source: TObject; X, Y: Integer);
  410. begin
  411.   if Assigned(FOnDragDrop) then
  412.     FOnDragDrop(self,Source,X,Y);
  413. end;
  415. procedure TCustomEditAndBtn.DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
  416. begin
  417.   if Assigned(FOnDragOver) then
  418.     FOnDragOver(self,Source,X,Y,State,Accept);
  419. end;
  421. procedure TCustomEditAndBtn.EndDrag(Sender, Target: TObject; X, Y: Integer);
  422. begin
  423.   if Assigned(FOnEndDrag) then
  424.     FOnEndDrag(self,Target,X,Y);
  425. end;
  427. procedure TCustomEditAndBtn.Enter(Sender : TObject);
  428. begin
  429.   if Assigned(FOnEnter) then
  430.     FOnEnter(self);
  431. end;
  433. procedure TCustomEditAndBtn.Exit(Sender : TObject);
  434. begin
  435.   if Assigned(FOnExit) then
  436.     FOnExit(self);
  437. end;
  439. procedure TCustomEditAndBtn.KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  440. var
  441.   skShift: TShiftState;
  442.   skKey: Word;
  443. begin
  444.   ShortCutToKey(FButtonShortCut,skKey,skShift);
  446.   if (Key=skKey) and (Shift=skShift) then
  447.   begin
  448.     { Shorcut}
  449.     ButtonClick(Sender);
  450.   end;
  452.   if Assigned(FOnKeyDown) then
  453.     FOnKeyDown(self,Key,Shift);
  454. end;
  456. procedure TCustomEditAndBtn.KeyPress(Sender: TObject; var Key: Char);
  457. begin
  458.   if Assigned(FOnKeyPress) then
  459.     FOnKeyPress(self,Key);
  460. end;
  462. procedure TCustomEditAndBtn.KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  463. begin
  464.   if Assigned(FOnKeyUp) then
  465.     FOnKeyUp(self,Key,Shift);
  466. end;
  468. procedure TCustomEditAndBtn.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  469. begin
  470.   if Assigned(FOnMouseDown) then
  471.     FOnMouseDown(self,Button,Shift,X,Y);
  472. end;
  474. procedure TCustomEditAndBtn.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  475. begin
  476.   if Assigned(FOnMouseMove) then
  477.     FOnMouseMove(self,Shift,X,Y);
  478. end;
  480. procedure TCustomEditAndBtn.MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  481. begin
  482.   if Assigned(FOnMouseUp) then
  483.     FOnMouseUp(self,Button,Shift,X,Y);
  484. end;
  486. procedure TCustomEditAndBtn.StartDrag(Sender: TObject; var DragObject: TDragObject);
  487. begin
  488.   if Assigned(FOnStartDrag) then
  489.     FOnStartDrag(self,DragObject);
  490. end;
  492. procedure TCustomEditAndBtn.ButtonClick(Sender : TObject);
  493. begin
  494.   if Assigned(FOnButtonClick) then
  495.     FOnButtonClick(self);
  496. end;
  498. procedure TCustomEditAndBtn.ButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  499. begin
  500.   if Assigned(FOnButtonMouseDown) then
  501.     FOnButtonMouseDown(self,Button,Shift,X,Y);
  502. end;
  504. procedure TCustomEditAndBtn.ButtonMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  505. begin
  506.   if Assigned(FOnButtonMouseMove) then
  507.     FOnButtonMouseMove(self,Shift,X,Y);
  508. end;
  510. procedure TCustomEditAndBtn.ButtonMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  511. begin
  512.   if Assigned(FOnButtonMouseUp) then
  513.     FOnButtonMouseUp(self,Button,Shift,X,Y);
  514. end;
  516. destructor TCustomEditAndBtn.Destroy;
  517. begin
  518.   FEdit:=nil;
  519.   FSpeedButton:=nil;
  521.   inherited Destroy;
  522. end;
  524. procedure TCustomEditAndBtn.WMSize( var Message: TWMSize );
  525. begin
  526.   if Height<24 then Height:=24;
  527.   FEdit.Top:=0;
  528.   FEdit.Height:=Height;
  529.   FEdit.Width:=Width-30;
  530.   FEdit.Left:=0;
  531.   FEdit.Refresh;
  533.   FSpeedButton.Top:=0;
  534.   FSpeedButton.Height:=Height;
  535.   FSpeedButton.Width:=24;
  536.   FSpeedButton.Left:=Width-24;
  538.   FSpeedButton.Refresh;
  539. end;
  542. { =================================== Property ===============================}
  544. function TCustomEditAndBtn.GetButtonCaption: String;
  545. begin
  546.   result:=FSpeedButton.Caption;
  547. end;
  549. procedure TCustomEditAndBtn.SetButtonCaption(s: String);
  550. begin
  551.   FSpeedButton.Caption:=s;
  552. end;
  554. function TCustomEditAndBtn.GetButtonHint: String;
  555. begin
  556.   result:=FSpeedButton.Hint;
  557. end;
  559. procedure TCustomEditAndBtn.SetButtonHint(s: String);
  560. begin
  561.   FSpeedButton.Hint:=s;
  562. end;
  564. function TCustomEditAndBtn.GetTabStop: boolean;
  565. begin
  566.   result:=FEdit.TabStop;
  567. end;
  569. procedure TCustomEditAndBtn.SetTabStop(b: boolean);
  570. begin
  571.   FEdit.TabStop:=b;
  572. end;
  574. function TCustomEditAndBtn.GetText: String;
  575. begin
  576.   result:=FEdit.text;
  577. end;
  579. procedure TCustomEditAndBtn.SetText(s : String);
  580. begin
  581.   FEdit.text:=s;
  582. end;
  584. function TCustomEditAndBtn.GetAutoSelect : boolean;
  585. begin
  586.   result:=FEdit.AutoSelect;
  587. end;
  589. procedure TCustomEditAndBtn.SetAutoSelect(b : boolean);
  590. begin
  591.   FEdit.AutoSelect:=b;
  592. end;
  594. function TCustomEditAndBtn.GetDragCursor: TCursor;
  595. begin
  596.   result:=FEdit.DragCursor;
  597. end;
  599. procedure TCustomEditAndBtn.SetDragCursor(c: TCursor);
  600. begin
  601.   FEdit.DragCursor:=c;
  602. end;
  604. function TCustomEditAndBtn.GetDragMode: TDragMode;
  605. begin
  606.   result:=FEdit.DragMode;
  607. end;
  609. procedure TCustomEditAndBtn.SetDragMode(d: TDragMode);
  610. begin
  611.   FEdit.DragMode:=d;
  612. end;
  614. function TCustomEditAndBtn.GetCtl3d : boolean;
  615. begin
  616.   result:=FEdit.Ctl3d;
  617. end;
  619. procedure TCustomEditAndBtn.SetCtl3d(b : boolean);
  620. begin
  621.   FEdit.Ctl3d:=b;
  622. end;
  624. function TCustomEditAndBtn.GetGlyph: TBitmap;
  625. begin
  626.   result:=FSpeedButton.Glyph;
  627. end;
  629. procedure TCustomEditAndBtn.SetGlyph(b: TBitmap);
  630. begin
  631.   FSpeedButton.Glyph:=b;
  632. end;
  634. function TCustomEditAndBtn.GetNumGlyphs: TNumGlyphs;
  635. begin
  636.   result:=FSpeedButton.NumGlyphs;
  637. end;
  639. procedure TCustomEditAndBtn.SetNumGlyphs(n: TNumGlyphs);
  640. begin
  641.   FSpeedButton.NumGlyphs:=n;
  642. end;
  644. function TCustomEditAndBtn.GetHideSelection : boolean;
  645. begin
  646.   result:=FEdit.HideSelection;
  647. end;
  649. procedure TCustomEditAndBtn.SetHideSelection(b : boolean);
  650. begin
  651.   FEdit.HideSelection:=b;
  652. end;
  654. procedure TCustomEditAndBtn.SetMaxLength(i: integer);
  655. begin
  656.   FEdit.MaxLength:=i;
  657. end;
  659. function TCustomEditAndBtn.GetMaxLength : integer;
  660. begin
  661.   result:=FEdit.MaxLength;
  662. end;
  664. function TCustomEditAndBtn.GetOEMConvert: boolean;
  665. begin
  666.   result:=FEdit.OEMConvert;
  667. end;
  669. procedure TCustomEditAndBtn.SetOEMConvert(b: boolean);
  670. begin
  671.   FEdit.OEMConvert:=b;
  672. end;
  674. function TCustomEditAndBtn.GetParentColor: boolean;
  675. begin
  676.   result:=FEdit.ParentColor;
  677. end;
  679. procedure TCustomEditAndBtn.SetParentColor(b: boolean);
  680. begin
  681.   FEdit.ParentColor:=b;
  682. end;
  684. function TCustomEditAndBtn.GetParentCtl3D: boolean;
  685. begin
  686.   result:=FEdit.ParentCtl3D;
  687. end;
  689. procedure TCustomEditAndBtn.SetParentCtl3D(b: boolean);
  690. begin
  691.   FEdit.ParentCtl3D:=b;
  692. end;
  694. function TCustomEditAndBtn.GetParentFont: boolean;
  695. begin
  696.   result:=FEdit.ParentFont;
  697. end;
  699. procedure TCustomEditAndBtn.SetParentFont(b: boolean);
  700. begin
  701.   FEdit.ParentFont:=b;
  702.   FSpeedButton.ParentFont:=b;
  703. end;
  705. function TCustomEditAndBtn.GetParentShowHint: boolean;
  706. begin
  707.   result:=FEdit.ParentShowHint;
  708. end;
  710. procedure TCustomEditAndBtn.SetParentShowHint(b: boolean);
  711. begin
  712.   FEdit.ParentShowHint:=b;
  713.   FSpeedButton.ParentShowHint:=b;
  714. end;
  716. function TCustomEditAndBtn.GetPasswordChar: char;
  717. begin
  718.   result:=FEdit.PasswordChar;
  719. end;
  721. procedure TCustomEditAndBtn.SetPasswordChar(c: char);
  722. begin
  723.   FEdit.PasswordChar:=c;
  724. end;
  726. function TCustomEditAndBtn.GetReadOnly: boolean;
  727. begin
  728.   result:=FEdit.ReadOnly;
  729. end;
  731. procedure TCustomEditAndBtn.SetReadOnly(b: boolean);
  732. begin
  733.   FEdit.ReadOnly:=b;
  734. end;
  736. function TCustomEditAndBtn.GetShowHint : boolean;
  737. begin
  738.   result:=FEdit.ShowHint;
  739. end;
  741. procedure TCustomEditAndBtn.SetShowHint(b : boolean);
  742. begin
  743.   FSpeedButton.ShowHint:=b;
  744.   FEdit.ShowHint:=b;
  745. end;
  747. function TCustomEditAndBtn.GetCharCase: TEditCharCase;
  748. begin
  749.   result:=FEdit.CharCase;
  750. end;
  752. procedure TCustomEditAndBtn.SetCharCase(c: TEditCharCase);
  753. begin
  754.   FEdit.CharCase:=c;
  755. end;
  757. function TCustomEditAndBtn.GetColor : TColor;
  758. begin
  759.   result:=FEdit.Color;
  760. end;
  762. procedure TCustomEditAndBtn.SetColor(c : TColor);
  763. begin
  764.   FEdit.Color:=c;
  765. end;
  767. procedure TCustomEditAndBtn.SetButtonEnabled(b : boolean);
  768. begin
  769.   FButtonEnabled:=b;
  770.   FSpeedButton.Enabled:=b;
  771. end;
  773. function TCustomEditAndBtn.GetFont : TFont;
  774. begin
  775.   result:=FEdit.Font;
  776. end;
  778. procedure TCustomEditAndBtn.SetFont(f : TFont);
  779. begin
  780.   FEdit.Font:=f;
  781. end;
  783. function TCustomEditAndBtn.GetButtonVisible : boolean;
  784. begin
  785.   result:=FSpeedButton.Visible;
  786. end;
  788. procedure TCustomEditAndBtn.SetButtonVisible(b : boolean);
  789. begin
  790.   FSpeedButton.Visible:=b;
  791. end;
  793. procedure TCustomEditAndBtn.SetName(const NewName: TComponentName);
  794. begin
  795.   inherited SetName(NewName);
  797.   if FEdit.Text='' then
  798.   begin
  799.     FEdit.Text:=NewName;
  800.     FEdit.Refresh;
  801.   end;
  802. end;
  804. {================================ TEditAndDial ===============================}
  806. constructor TEditAndDial.Create( AOwner: TComponent );
  807. begin
  808.   inherited Create(AOwner);
  810.   LoadDialBitmap;
  811.   FButtonKind:=dkStandard;
  812.   StrPCopy(FCalledParty,'');
  813. end;
  815. destructor TEditAndDial.Destroy;
  816. begin
  818.   inherited Destroy;
  819. end;
  821. procedure TEditAndDial.EvBeforeDial(Sender: TObject; var CalledParty: string);
  822. begin
  823.   CalledParty:='';
  824.   if Assigned(FBeforeDial) then
  825.     FBeforeDial(self, CalledParty);
  826. end;
  828. procedure TEditAndDial.LoadDialBitmap;
  829. begin
  830.   ButtonGlyph.Handle:=LoadBitmap(hInstance,'DIAL');
  831.   ButtonNumGlyphs:=2;
  832. end;
  834. function TEditAndDial.GetKind: TEditAndDialBtnKind;
  835. begin
  836.   result:=FButtonKind;
  837. end;
  839. procedure TEditAndDial.SetKind(Value: TEditAndDialBtnKind);
  840. begin
  841.   if Value=dkStandard then
  842.     LoadDialBitmap;
  844.   FButtonKind:=Value;
  845. end;
  847. procedure TEditAndDial.ButtonClick(Sender : TObject);
  848. var
  849.   lResult: longint;
  850.   PhoneNumber: array [0..255] of char;
  851.   Called: array [0..255] of char;
  852.   CalledParty: string;
  853. begin
  854.   inherited ButtonClick(Sender);
  856.   evBeforeDial(Self,CalledParty);
  857.   StrPCopy(PhoneNumber,Text);
  858.   StrPCopy(Called,CalledParty);
  859.   lResult:=tapiRequestMakeCall(PhoneNumber,'',Called,'');
  861.   if Assigned(FOnButtonClick) then
  862.     FOnButtonClick(self);
  863. end;
  865. function TEditAndDial.GetGlyph: TBitmap;
  866. begin
  867.   result:=ButtonGlyph;
  868. end;
  870. procedure TEditAndDial.SetGlyph(b: TBitmap);
  871. begin
  872.   ButtonGlyph:=b;
  873.   SetKind(dkCustom);
  874. end;
  876. procedure Register;
  877. begin
  878.   RegisterComponents('Supplement', [TEditAndBtn, TEditAndDial]);
  879. end;
  881. end.