www.pudn.com > FaxConvert.zip > mess.pas

unit mess; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, ExtCtrls, ComCtrls; 
 
type 
  Tf_mess = class(TForm) 
    Panel: TPanel; 
    ShowMess: TLabel; 
    compper: TProgressBar; 
    procedure FormShow(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  f_mess: Tf_mess; 
 
implementation 
 
uses Faxconv; 
 
 
 
{$R *.DFM} 
 
procedure Tf_mess.FormShow(Sender: TObject); 
begin 
 // ShowMess.Left:=trunc((Panel.Width-ShowMess.Width)/2); 
  //f_mess.Left:=FaxConversionForm.Left+trunc((FaxConversionForm.Width-f_mess.Width)/2); 
 // f_mess.Top:=FaxConversionForm.Top+trunc((FaxConversionForm.Height-f_mess.Height)/2); 
end; 
 
end.