www.pudn.com > telephonefordelphi.rar > UnitCvtProgress.pas

unit UnitCvtProgress; 
 
{$IFDEF WIN32} 
{$H+} 
{$ENDIF} 
 
interface 
 
uses 
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
  Forms, Dialogs, StdCtrls, ExtCtrls, MMWaveIO, MMObj, MMGauge; 
 
type 
  TFormCvtProgress = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    LblFrom: TLabel; 
    LblTo: TLabel; 
    Button1: TButton; 
    Gauge1: TMMGauge; 
    procedure FormShow(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
  private 
  public 
    Cancel: Boolean; 
  end; 
             
var 
  FormCvtProgress: TFormCvtProgress; 
 
implementation 
 
{$R *.DFM} 
uses UnitFmtDialog, UnitMain; 
 
{-- TCvtProgress ---------------------------------------------------------} 
procedure TFormCvtProgress.FormShow(Sender: TObject); 
var 
   FormatTag, Format: String;  
 
begin 
   Cancel := False; 
 
   with FormMain do 
   begin 
      if not MMACM1.ACMPresent then 
      begin 
         wioGetFormatName(MMWaveFile1.Wave.PWaveFormat, FormatTag); 
         wioGetFormat(MMWaveFile1.Wave.PWaveFormat, Format); 
      end 
      else MMACM1.GetFormatDescription(MMWaveFile1.Wave.PWaveFormat, FormatTag, Format); 
 
      LblFrom.Caption := FormatTag +' '+ Format; 
 
      if not MMACM1.ACMPresent then 
      begin 
         wioGetFormatName(FmtDialog.PWaveFormat, FormatTag); 
         wioGetFormat(FmtDialog.PWaveFormat, Format); 
      end 
      else MMACM1.GetFormatDescription(MMACM1.PWaveFormat, FormatTag, Format); 
 
      LblTo.Caption := FormatTag +' '+ Format; 
   end; 
end; 
 
{-- TCvtProgress ---------------------------------------------------------} 
procedure TFormCvtProgress.Button1Click(Sender: TObject); 
begin 
   Cancel := True; 
end; 
 
{-- TCvtProgress ---------------------------------------------------------} 
procedure TFormCvtProgress.FormClose(Sender: TObject; 
                                 var Action: TCloseAction); 
begin 
   Cancel := True; 
end; 
 
end.