acmconvertorreg.pas

语音acm控件

{Do you have seen  droopyeyes's ACM Component.This is have some like it!

                            EMail: [e-mail]
                            Http:  pcauto.3322.net
}
unit ACMConvertorReg;
 
interface
uses
  Classes, Messages, Windows, Forms, SysUtils, Controls, MSACM, MMSystem, Dialogs,
  ACMConvertor, DsgnIntf;

type
  TACMConvertorEditor = class(TComponentEditor)
  private

  protected
  public
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  published
  end;


procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('ACM IO',[TACMConvertor]);
  RegisterComponentEditor(TACMConvertor, TACMConvertorEditor);
end;

{ TACMConvertorEditor }

procedure TACMConvertorEditor.ExecuteVerb(Index: Integer);
begin
  inherited;
  with TACMConvertor(Component) do
  case Index of
    0 : ChooseFormatIn(True);
    1 : ChooseFormatOut(True);
  end;
  Designer.Modified;
end;

function TACMConvertorEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0 : Result := 'Select Input Format...';
    1 : Result := 'Select Output Format...';
  end;
end;

function TACMConvertorEditor.GetVerbCount: Integer;
begin
  Result := 2;
end;

end.