|
) then
begin
FDlgForm.Label1.Font.Assign(Value);
FDlgForm.Update;
end;
end;
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] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
