procedure TdsWaitDialogEx.SetMessage2Font(const Value: TFont);
    begin
      FMessage2Font.Assign(Value);
      if assigned(FDlgForm) then
      begin
        FDlgForm.Label2.Font.Assign(Value);
        FDlgForm.Update ;
      end;
    end;

    procedure TdsWaitDialogEx.setCaption(const value:string);
    begin
      if value=FCaption then exit ;
      FCaption:=value;
      if not (showCaption in FOptions) then
      begin
        FCaption:='''''''';
        exit;
      end;
      if assigned(FDlgForm) then
      begin
        FDlgForm.Caption := value;
        FDlgForm.update;
      end;
    end;

    procedure TdsWaitDialogEx.setMessage1(const value:string);
    var i:integer;
    begin
      if value=FMessage1 then exit ;
      FMessage1:=value;
      if assigned(FDlgForm) then
      begin
        if not (showMessage1 in FOptions) then exit;
        FDlgForm.Label1.Caption := value;
        i:=setLableHeight(FMessage1)+13;
        if i<>FDlgForm.Label1.Height then DrawForm;
        FDlgForm.update;
      end;
    end;

    procedure TdsWaitDialogEx.setMessage2(const value:string);
    var i:integer;
    begin
      if value=FMessage2 then exit ;
      FMessage2:=value;
      if assigned(FDlgForm) then
      begin
        if not (showMessage2 in FOptions) then exit;
        FDlgForm.Label2.Caption := value;
        i:=setLableHeight(FMessage2)+13;
        if i<>FDlgForm.Label2.Height then DrawForm;
        FDlgForm.update;
      end;
    end;

    procedure TdsWaitDialogEx.setOptions(const value:TDlgOptions);
    var doDrawForm:boolean;
    begin
      if FOptions=value then exit;
      doDrawForm:=false;
      if not((showAVI in value)and(showAVI in FOptions)) then doDrawForm:=true;
      if not doDrawForm then
      if not((showProgress in value)and(showProgress in FOptions)) then doDrawForm:=true;
      if not doDrawForm then
      if not((showMessage1 in value)and(showMessage1 in FOptions)) then doDrawForm:=true;
      if not doDrawForm then
      if not((showMessage2 in value)and(showMessage2 in FOptions)) then doDrawForm:=true;
      FOptions:=value;

        if not (showCaption in FOptions) then FCaption:='''''''';
        if showAVI in FOptions then FshowAVI:=true else FshowAVI:=false;
        if showMessage1 in FOptions then FShowMessage1:=true else FShowMessage1:=false;
        if showMessage2 in FOptions then FShowMessage2:=true else FShowMessage2:=false;
        if showProgress in FOptions then FShowProgress:=true else FShowProgress:=false;
        if ShowProgressText in FOptions then FShowProgressText:=true else FShowProgressText:=false;

      if assigned(FDlgForm) then
      begin
        if doDrawForm then  DrawForm;
        if showCaption in FOptions then FDlgForm.Caption:=FCaption else FDlgForm.Caption:='''''''';
        if ShowProgressText in FOptions then FDlgForm.Gauge1.ShowText:=true else FDlgForm.Gauge1.ShowText:=false;
        FDlgForm.update;
      end;
    end;

    procedure TdsWaitDialogEx.setAVIPosition(const Value: TAVIPosition);
    begin
      if FaviPosition=value then exit;
      FaviPosition:=value;
      if assigned(FDlgForm) then
      begin
        DrawForm;
        FDlgForm.Update ;
      end;
    end;

    procedure TdsWaitDialogEx.FormHide;
    begin
      if not assigned(FDlgForm) then exit;
      FDlgForm.close;
      FDlgForm.Position := poDesktopCenter;
    end;

    constructor TdsWaitDialogEx.Create(AOwner: TComponent);
    begin
      inherited create(AOwner);
      //Form
        FCaption:= ''''正在处理中... ...'''';
        FMessage1 :=''''处理信息1'''' ;
        FMessage2 :=''''处理信息2'''' ;
        FDislogStyle:= dlgStayOnTop;
        FwordWrap:=true;
        FShowMessage1:=true;FShowMessage2:=true;
        FOptions:=[showAVI,showCaption,showMessage1,showMessage2,showProgress,ShowProgressText];
        FMessage1Font := TFont.Create;
        with FMessage1Font do
        begin
          FMessage1Font.Charset := GB2312_CHARSET ;
          Name := ''''宋体'''';
          Size := 9;
        end;
        FMessage2Font := TFont.Create;
        with FMessage2Font do
        begin
          FMessage2Font.Charset := GB2312_CHARSET ;
          Name := ''''宋体'''';
          Size := 9;
        end;
      //Progress
        FShowProgress:=True;
        FShowProgressText:=True;
        FProgressMax:=100;
        FProgressMin:=0;
        FProgressPos:=0;
        FProgressStep:=10;
      //AVI
        FAviActive:=True;
        FshowAVI:=true;
        FaviPosition:=aviTop;
        FAVISource := TdsAVISource.Create;
        FAVISource.FCommonAVI :=aviCopyFile ;
        FAVISource.FfileName:='''''''';
    end;

    destructor TdsWaitDialogEx.Destroy;
    begin
      try
        FMessage1Font.Free;
        FMessage2Font.Free;
        FAVISource.Free;
        if assigned(FDlgForm) then
        begin
          FDlgForm.close;
          freeandnil(FDlgForm);
        end;
      except
      end;
      inherited Destroy;
    end;

    procedure TdsWaitDialogEx.FormShow;
 &nbs

上一页  [1] [2] [3] [4] [5] [6]  下一页