mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
UPD: Wait for scheduled events before finishing operation; removed redundant queueing of notifications of events.
This commit is contained in:
cobines
parent
78b7f1e97d
commit
ff897e60ef
2 changed files with 964 additions and 923 deletions
|
|
@ -1,416 +1,416 @@
|
|||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Implementing of progress dialog for file operation
|
||||
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : radek.cervinka@centrum.cz
|
||||
|
||||
contributors:
|
||||
|
||||
Copyright (C) 2008-2009 Koblov Alexander (Alexx2000@mail.ru)
|
||||
}
|
||||
|
||||
unit fFileOpDlg;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls,
|
||||
uOperationsManager, uFileSourceOperation;
|
||||
|
||||
type
|
||||
|
||||
TFileOpDlgLook = set of (fodl_from_lbl, fodl_to_lbl, fodl_first_pb, fodl_second_pb);
|
||||
|
||||
|
||||
{ TfrmFileOp }
|
||||
|
||||
TfrmFileOp = class(TForm)
|
||||
btnPauseStart: TBitBtn;
|
||||
lblFrom: TLabel;
|
||||
lblTo: TLabel;
|
||||
lblFileNameTo: TLabel;
|
||||
pbSecond: TProgressBar;
|
||||
pbFirst: TProgressBar;
|
||||
lblFileNameFrom: TLabel;
|
||||
lblEstimated: TLabel;
|
||||
btnCancel: TBitBtn;
|
||||
procedure btnCancelClick(Sender: TObject);
|
||||
procedure btnPauseStartClick(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
private
|
||||
{ Private declarations }
|
||||
FOperationHandle: TOperationHandle;
|
||||
FUpdateTimer: TTimer; //<en Timer for updating statistics.
|
||||
|
||||
procedure OnUpdateTimer(Sender: TObject);
|
||||
|
||||
procedure InitializeControls(FileOpDlgLook: TFileOpDlgLook);
|
||||
procedure SetPauseGlyph;
|
||||
procedure SetPlayGlyph;
|
||||
procedure UpdatePauseStartButton(OperationState: TFileSourceOperationState);
|
||||
|
||||
procedure InitializeCopyOperation(Operation: TFileSourceOperation);
|
||||
procedure UpdateCopyOperation(Operation: TFileSourceOperation);
|
||||
|
||||
|
||||
public
|
||||
iProgress1Max: Integer;
|
||||
iProgress1Pos: Integer;
|
||||
iProgress2Max: Integer;
|
||||
iProgress2Pos: Integer;
|
||||
sEstimated: ShortString; // bugbug, must be short string
|
||||
sFileNameFrom,
|
||||
sFileNameTo: String;
|
||||
Thread: TThread;
|
||||
|
||||
constructor Create(OperationHandle: TOperationHandle); overload;
|
||||
procedure ToggleProgressBarStyle;
|
||||
procedure UpdateDlg;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
fMain, dmCommonData, uFileOpThread, LCLProc, uLng,
|
||||
uFileSourceOperationTypes,
|
||||
uFileSourceCopyOperation;
|
||||
|
||||
procedure TfrmFileOp.btnCancelClick(Sender: TObject);
|
||||
var
|
||||
Operation: TFileSourceOperation;
|
||||
begin
|
||||
Operation := OperationsManager.GetOperationByHandle(FOperationHandle);
|
||||
if Assigned(Operation) then
|
||||
begin
|
||||
Operation.Stop;
|
||||
end;
|
||||
{
|
||||
if Assigned(Thread) then
|
||||
begin
|
||||
Thread.Terminate;
|
||||
if Thread is TFileOpThread then
|
||||
with Thread as TFileOpThread do
|
||||
if Paused then Paused:= False;
|
||||
end;
|
||||
}
|
||||
ModalResult:= mrCancel;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.btnPauseStartClick(Sender: TObject);
|
||||
var
|
||||
Operation: TFileSourceOperation;
|
||||
begin
|
||||
Operation := OperationsManager.GetOperationByHandle(FOperationHandle);
|
||||
if Assigned(Operation) then
|
||||
begin
|
||||
if Operation.State in [fsosNotStarted, fsosPaused] then
|
||||
begin
|
||||
Operation.Start;
|
||||
SetPauseGlyph;
|
||||
end
|
||||
else if Operation.State = fsosRunning then
|
||||
begin
|
||||
Operation.Pause;
|
||||
SetPlayGlyph;
|
||||
end;
|
||||
end;
|
||||
{
|
||||
if Assigned(Thread) then
|
||||
begin
|
||||
if Thread is TFileOpThread then
|
||||
with Thread as TFileOpThread do
|
||||
begin
|
||||
Paused:= not Paused;
|
||||
dmComData.ImageList.GetBitmap(Integer(not Paused), btnPauseStart.Glyph);
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
begin
|
||||
CloseAction:= caFree;
|
||||
{
|
||||
frmMain.frameLeft.Reload;
|
||||
frmMain.frameRight.Reload;
|
||||
frmMain.ActiveFrame.SetFocus;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.FormCreate(Sender: TObject);
|
||||
var
|
||||
Operation: TFileSourceOperation;
|
||||
begin
|
||||
Thread:= nil;
|
||||
{
|
||||
pbFirst.Position:= 0;
|
||||
pbSecond.Position:= 0;
|
||||
pbFirst.Max:= 1;
|
||||
pbSecond.Max:= 1;
|
||||
iProgress1Max:= 0;
|
||||
iProgress2Max:= 0;
|
||||
iProgress1Pos:= 0;
|
||||
iProgress2Pos:= 0;
|
||||
}
|
||||
|
||||
pbFirst.DoubleBuffered:= True;
|
||||
pbSecond.DoubleBuffered:= True;
|
||||
Self.DoubleBuffered:= True;
|
||||
|
||||
Operation := OperationsManager.GetOperationByHandle(FOperationHandle);
|
||||
if Assigned(Operation) then
|
||||
begin
|
||||
case Operation.ID of
|
||||
|
||||
fsoCopyIn, fsoCopyOut:
|
||||
InitializeCopyOperation(Operation);
|
||||
|
||||
else
|
||||
begin
|
||||
Caption := 'Unknown operation';
|
||||
InitializeControls([fodl_first_pb]);
|
||||
end;
|
||||
end;
|
||||
|
||||
UpdatePauseStartButton(Operation.State);
|
||||
end
|
||||
else
|
||||
begin
|
||||
Caption := 'Invalid operation';
|
||||
end;
|
||||
|
||||
FUpdateTimer := TTimer.Create(Self);
|
||||
FUpdateTimer.Interval := 100;
|
||||
FUpdateTimer.OnTimer := @OnUpdateTimer;
|
||||
FUpdateTimer.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.FormShow(Sender: TObject);
|
||||
begin
|
||||
sEstimated:= '';
|
||||
sFileNameFrom:= '';
|
||||
sFileNameTo:= '';
|
||||
end;
|
||||
|
||||
constructor TfrmFileOp.Create(OperationHandle: TOperationHandle);
|
||||
begin
|
||||
FOperationHandle := OperationHandle;
|
||||
inherited Create(Application);
|
||||
|
||||
AutoSize := True;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.OnUpdateTimer(Sender: TObject);
|
||||
var
|
||||
Operation: TFileSourceOperation;
|
||||
NewCaption: String;
|
||||
begin
|
||||
Operation := OperationsManager.GetOperationByHandle(FOperationHandle);
|
||||
if Assigned(Operation) then
|
||||
begin
|
||||
case Operation.ID of
|
||||
|
||||
fsoCopyOut:
|
||||
UpdateCopyOperation(Operation);
|
||||
|
||||
else
|
||||
// Operation not currently supported for display.
|
||||
// Only show general progress.
|
||||
pbFirst.Position := Operation.Progress;
|
||||
end;
|
||||
|
||||
NewCaption := IntToStr(Operation.Progress) + '% ' + Hint;
|
||||
if Operation.State <> fsosRunning then
|
||||
NewCaption := NewCaption + ' [' + FileSourceOperationStateText[Operation.State] + ']';
|
||||
Caption := NewCaption;
|
||||
{
|
||||
// Estimate remaining time somehow (by progress or individual statistics).
|
||||
if sEstimated <> lblEstimated.Caption then
|
||||
begin
|
||||
lblEstimated.Caption:= sEstimated;
|
||||
lblEstimated.Invalidate;
|
||||
end;
|
||||
}
|
||||
end
|
||||
else
|
||||
begin
|
||||
// Operation has finished.
|
||||
// if CloseOnFinish then
|
||||
Close;
|
||||
// if BeepOnFinish then Beep;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.InitializeControls(FileOpDlgLook: TFileOpDlgLook);
|
||||
begin
|
||||
lblFrom.Visible := fodl_from_lbl in FileOpDlgLook;
|
||||
lblFileNameFrom.Visible := fodl_from_lbl in FileOpDlgLook;
|
||||
lblTo.Visible := fodl_to_lbl in FileOpDlgLook;
|
||||
lblFileNameTo.Visible := fodl_to_lbl in FileOpDlgLook;
|
||||
pbFirst.Visible := fodl_first_pb in FileOpDlgLook;
|
||||
pbSecond.Visible := fodl_second_pb in FileOpDlgLook;
|
||||
|
||||
lblFileNameFrom.Caption := '';
|
||||
lblFileNameTo.Caption := '';
|
||||
lblEstimated.Caption := '';
|
||||
|
||||
Hint := Caption;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.SetPauseGlyph;
|
||||
begin
|
||||
dmComData.ImageList.GetBitmap(1, btnPauseStart.Glyph);
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.SetPlayGlyph;
|
||||
begin
|
||||
dmComData.ImageList.GetBitmap(0, btnPauseStart.Glyph);
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.UpdatePauseStartButton(OperationState: TFileSourceOperationState);
|
||||
begin
|
||||
case OperationState of
|
||||
fsosNotStarted, fsosStopped, fsosPaused:
|
||||
begin
|
||||
btnPauseStart.Enabled := True;
|
||||
SetPlayGlyph;
|
||||
end;
|
||||
|
||||
fsosStarting, fsosStopping, fsosPausing, fsosWaitingForFeedback:
|
||||
begin
|
||||
btnPauseStart.Enabled := False;
|
||||
end;
|
||||
|
||||
fsosRunning:
|
||||
begin
|
||||
btnPauseStart.Enabled := True;
|
||||
SetPauseGlyph;
|
||||
end;
|
||||
|
||||
else
|
||||
btnPauseStart.Enabled := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.InitializeCopyOperation(Operation: TFileSourceOperation);
|
||||
var
|
||||
CopyOperation: TFileSourceCopyOperation;
|
||||
begin
|
||||
//CopyOperation := Operation as TFileSourceCopyOperation;
|
||||
Caption := rsDlgCp;
|
||||
InitializeControls([fodl_from_lbl, fodl_to_lbl, fodl_first_pb, fodl_second_pb]);
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.UpdateCopyOperation(Operation: TFileSourceOperation);
|
||||
var
|
||||
CopyOperation: TFileSourceCopyOperation;
|
||||
CopyStatistics: TFileSourceCopyOperationStatistics;
|
||||
begin
|
||||
CopyOperation := Operation as TFileSourceCopyOperation;
|
||||
CopyStatistics := CopyOperation.RetrieveStatistics;
|
||||
|
||||
with CopyStatistics do
|
||||
begin
|
||||
lblFileNameFrom.Caption := CurrentFileFrom;
|
||||
lblFileNameTo.Caption := CurrentFileTo;
|
||||
|
||||
if CurrentFileTotalBytes <> 0 then
|
||||
pbFirst.Position := (CurrentFileDoneBytes * 100) div CurrentFileTotalBytes
|
||||
else
|
||||
pbFirst.Position := pbFirst.Max;
|
||||
|
||||
if TotalBytes <> 0 then
|
||||
pbSecond.Position := (DoneBytes * 100) div TotalBytes
|
||||
else
|
||||
pbSecond.Position := pbSecond.Max;
|
||||
end;
|
||||
|
||||
UpdatePauseStartButton(Operation.State);
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.ToggleProgressBarStyle;
|
||||
begin
|
||||
if (pbFirst.Style = pbstMarquee) and (pbSecond.Style = pbstMarquee) then
|
||||
begin
|
||||
pbFirst.Style:= pbstNormal;
|
||||
pbSecond.Style:= pbstNormal;
|
||||
end
|
||||
else
|
||||
begin
|
||||
pbFirst.Style:= pbstMarquee;
|
||||
pbSecond.Style:= pbstMarquee;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.UpdateDlg;
|
||||
var
|
||||
bP1, bP2: Boolean; // repaint if needed
|
||||
begin
|
||||
// in processor intensive task we force repaint immedially
|
||||
bP1:= False;
|
||||
bP2:= False;
|
||||
|
||||
if pbFirst.Max<> iProgress1Max then
|
||||
begin
|
||||
if iProgress1Max > 0 then
|
||||
pbFirst.Max:= iProgress1Max;
|
||||
bP1:= True;
|
||||
end;
|
||||
if pbFirst.Position <> iProgress1Pos then
|
||||
begin
|
||||
if iProgress1Pos >= 0 then
|
||||
pbFirst.Position:= iProgress1Pos;
|
||||
bP1:= True;
|
||||
end;
|
||||
|
||||
if pbSecond.Max <> iProgress2Max then
|
||||
begin
|
||||
if iProgress2Max > 0 then
|
||||
pbSecond.Max:= iProgress2Max;
|
||||
bP2:= True;
|
||||
end;
|
||||
if pbSecond.Position <> iProgress2Pos then
|
||||
begin
|
||||
if iProgress2Pos > 0 then
|
||||
pbSecond.Position:= iProgress2Pos;
|
||||
bP2:= True;
|
||||
end;
|
||||
|
||||
if bp1 then
|
||||
pbFirst.Invalidate;
|
||||
if bp2 then
|
||||
pbSecond.Invalidate;
|
||||
|
||||
if bp2 then
|
||||
Caption:= IntToStr(iProgress2Pos) + '% ' + Hint;
|
||||
|
||||
if sEstimated <> lblEstimated.Caption then
|
||||
begin
|
||||
lblEstimated.Caption:= sEstimated;
|
||||
lblEstimated.Invalidate;
|
||||
end;
|
||||
if sFileNameFrom <> lblFileNameFrom.Caption then
|
||||
begin
|
||||
lblFileNameFrom.Caption:= sFileNameFrom;
|
||||
lblFileNameFrom.Invalidate;
|
||||
end;
|
||||
if sFileNameTo <> lblFileNameTo.Caption then
|
||||
begin
|
||||
lblFileNameTo.Caption:= sFileNameTo;
|
||||
lblFileNameTo.Invalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fFileOpDlg.lrs}
|
||||
|
||||
end.
|
||||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Implementing of progress dialog for file operation
|
||||
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : radek.cervinka@centrum.cz
|
||||
|
||||
contributors:
|
||||
|
||||
Copyright (C) 2008-2009 Koblov Alexander (Alexx2000@mail.ru)
|
||||
}
|
||||
|
||||
unit fFileOpDlg;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls,
|
||||
uOperationsManager, uFileSourceOperation;
|
||||
|
||||
type
|
||||
|
||||
TFileOpDlgLook = set of (fodl_from_lbl, fodl_to_lbl, fodl_first_pb, fodl_second_pb);
|
||||
|
||||
|
||||
{ TfrmFileOp }
|
||||
|
||||
TfrmFileOp = class(TForm)
|
||||
btnPauseStart: TBitBtn;
|
||||
lblFrom: TLabel;
|
||||
lblTo: TLabel;
|
||||
lblFileNameTo: TLabel;
|
||||
pbSecond: TProgressBar;
|
||||
pbFirst: TProgressBar;
|
||||
lblFileNameFrom: TLabel;
|
||||
lblEstimated: TLabel;
|
||||
btnCancel: TBitBtn;
|
||||
procedure btnCancelClick(Sender: TObject);
|
||||
procedure btnPauseStartClick(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
private
|
||||
{ Private declarations }
|
||||
FOperationHandle: TOperationHandle;
|
||||
FUpdateTimer: TTimer; //<en Timer for updating statistics.
|
||||
|
||||
procedure OnUpdateTimer(Sender: TObject);
|
||||
|
||||
procedure InitializeControls(FileOpDlgLook: TFileOpDlgLook);
|
||||
procedure SetPauseGlyph;
|
||||
procedure SetPlayGlyph;
|
||||
procedure UpdatePauseStartButton(OperationState: TFileSourceOperationState);
|
||||
|
||||
procedure InitializeCopyOperation(Operation: TFileSourceOperation);
|
||||
procedure UpdateCopyOperation(Operation: TFileSourceOperation);
|
||||
|
||||
|
||||
public
|
||||
iProgress1Max: Integer;
|
||||
iProgress1Pos: Integer;
|
||||
iProgress2Max: Integer;
|
||||
iProgress2Pos: Integer;
|
||||
sEstimated: ShortString; // bugbug, must be short string
|
||||
sFileNameFrom,
|
||||
sFileNameTo: String;
|
||||
Thread: TThread;
|
||||
|
||||
constructor Create(OperationHandle: TOperationHandle); overload;
|
||||
procedure ToggleProgressBarStyle;
|
||||
procedure UpdateDlg;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
fMain, dmCommonData, uFileOpThread, LCLProc, uLng,
|
||||
uFileSourceOperationTypes,
|
||||
uFileSourceCopyOperation;
|
||||
|
||||
procedure TfrmFileOp.btnCancelClick(Sender: TObject);
|
||||
var
|
||||
Operation: TFileSourceOperation;
|
||||
begin
|
||||
Operation := OperationsManager.GetOperationByHandle(FOperationHandle);
|
||||
if Assigned(Operation) then
|
||||
begin
|
||||
Operation.Stop;
|
||||
end;
|
||||
{
|
||||
if Assigned(Thread) then
|
||||
begin
|
||||
Thread.Terminate;
|
||||
if Thread is TFileOpThread then
|
||||
with Thread as TFileOpThread do
|
||||
if Paused then Paused:= False;
|
||||
end;
|
||||
}
|
||||
ModalResult:= mrCancel;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.btnPauseStartClick(Sender: TObject);
|
||||
var
|
||||
Operation: TFileSourceOperation;
|
||||
begin
|
||||
Operation := OperationsManager.GetOperationByHandle(FOperationHandle);
|
||||
if Assigned(Operation) then
|
||||
begin
|
||||
if Operation.State in [fsosNotStarted, fsosPaused] then
|
||||
begin
|
||||
Operation.Start;
|
||||
SetPauseGlyph;
|
||||
end
|
||||
else if Operation.State = fsosRunning then
|
||||
begin
|
||||
Operation.Pause;
|
||||
SetPlayGlyph;
|
||||
end;
|
||||
end;
|
||||
{
|
||||
if Assigned(Thread) then
|
||||
begin
|
||||
if Thread is TFileOpThread then
|
||||
with Thread as TFileOpThread do
|
||||
begin
|
||||
Paused:= not Paused;
|
||||
dmComData.ImageList.GetBitmap(Integer(not Paused), btnPauseStart.Glyph);
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
begin
|
||||
CloseAction:= caFree;
|
||||
{
|
||||
frmMain.frameLeft.Reload;
|
||||
frmMain.frameRight.Reload;
|
||||
frmMain.ActiveFrame.SetFocus;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.FormCreate(Sender: TObject);
|
||||
var
|
||||
Operation: TFileSourceOperation;
|
||||
begin
|
||||
Thread:= nil;
|
||||
{
|
||||
pbFirst.Position:= 0;
|
||||
pbSecond.Position:= 0;
|
||||
pbFirst.Max:= 1;
|
||||
pbSecond.Max:= 1;
|
||||
iProgress1Max:= 0;
|
||||
iProgress2Max:= 0;
|
||||
iProgress1Pos:= 0;
|
||||
iProgress2Pos:= 0;
|
||||
}
|
||||
|
||||
pbFirst.DoubleBuffered:= True;
|
||||
pbSecond.DoubleBuffered:= True;
|
||||
Self.DoubleBuffered:= True;
|
||||
|
||||
Operation := OperationsManager.GetOperationByHandle(FOperationHandle);
|
||||
if Assigned(Operation) then
|
||||
begin
|
||||
case Operation.ID of
|
||||
|
||||
fsoCopyIn, fsoCopyOut:
|
||||
InitializeCopyOperation(Operation);
|
||||
|
||||
else
|
||||
begin
|
||||
Caption := 'Unknown operation';
|
||||
InitializeControls([fodl_first_pb]);
|
||||
end;
|
||||
end;
|
||||
|
||||
UpdatePauseStartButton(Operation.State);
|
||||
end
|
||||
else
|
||||
begin
|
||||
Caption := 'Invalid operation';
|
||||
end;
|
||||
|
||||
FUpdateTimer := TTimer.Create(Self);
|
||||
FUpdateTimer.Interval := 100;
|
||||
FUpdateTimer.OnTimer := @OnUpdateTimer;
|
||||
FUpdateTimer.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.FormShow(Sender: TObject);
|
||||
begin
|
||||
sEstimated:= '';
|
||||
sFileNameFrom:= '';
|
||||
sFileNameTo:= '';
|
||||
end;
|
||||
|
||||
constructor TfrmFileOp.Create(OperationHandle: TOperationHandle);
|
||||
begin
|
||||
FOperationHandle := OperationHandle;
|
||||
inherited Create(Application);
|
||||
|
||||
AutoSize := True;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.OnUpdateTimer(Sender: TObject);
|
||||
var
|
||||
Operation: TFileSourceOperation;
|
||||
NewCaption: String;
|
||||
begin
|
||||
Operation := OperationsManager.GetOperationByHandle(FOperationHandle);
|
||||
if Assigned(Operation) and (Operation.State <> fsosStopped) then
|
||||
begin
|
||||
case Operation.ID of
|
||||
|
||||
fsoCopyOut:
|
||||
UpdateCopyOperation(Operation);
|
||||
|
||||
else
|
||||
// Operation not currently supported for display.
|
||||
// Only show general progress.
|
||||
pbFirst.Position := Operation.Progress;
|
||||
end;
|
||||
|
||||
NewCaption := IntToStr(Operation.Progress) + '% ' + Hint;
|
||||
if Operation.State <> fsosRunning then
|
||||
NewCaption := NewCaption + ' [' + FileSourceOperationStateText[Operation.State] + ']';
|
||||
Caption := NewCaption;
|
||||
{
|
||||
// Estimate remaining time somehow (by progress or individual statistics).
|
||||
if sEstimated <> lblEstimated.Caption then
|
||||
begin
|
||||
lblEstimated.Caption:= sEstimated;
|
||||
lblEstimated.Invalidate;
|
||||
end;
|
||||
}
|
||||
end
|
||||
else
|
||||
begin
|
||||
// Operation has finished.
|
||||
// if CloseOnFinish then
|
||||
Close;
|
||||
// if BeepOnFinish then Beep;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.InitializeControls(FileOpDlgLook: TFileOpDlgLook);
|
||||
begin
|
||||
lblFrom.Visible := fodl_from_lbl in FileOpDlgLook;
|
||||
lblFileNameFrom.Visible := fodl_from_lbl in FileOpDlgLook;
|
||||
lblTo.Visible := fodl_to_lbl in FileOpDlgLook;
|
||||
lblFileNameTo.Visible := fodl_to_lbl in FileOpDlgLook;
|
||||
pbFirst.Visible := fodl_first_pb in FileOpDlgLook;
|
||||
pbSecond.Visible := fodl_second_pb in FileOpDlgLook;
|
||||
|
||||
lblFileNameFrom.Caption := '';
|
||||
lblFileNameTo.Caption := '';
|
||||
lblEstimated.Caption := '';
|
||||
|
||||
Hint := Caption;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.SetPauseGlyph;
|
||||
begin
|
||||
dmComData.ImageList.GetBitmap(1, btnPauseStart.Glyph);
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.SetPlayGlyph;
|
||||
begin
|
||||
dmComData.ImageList.GetBitmap(0, btnPauseStart.Glyph);
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.UpdatePauseStartButton(OperationState: TFileSourceOperationState);
|
||||
begin
|
||||
case OperationState of
|
||||
fsosNotStarted, fsosStopped, fsosPaused:
|
||||
begin
|
||||
btnPauseStart.Enabled := True;
|
||||
SetPlayGlyph;
|
||||
end;
|
||||
|
||||
fsosStarting, fsosStopping, fsosPausing, fsosWaitingForFeedback:
|
||||
begin
|
||||
btnPauseStart.Enabled := False;
|
||||
end;
|
||||
|
||||
fsosRunning:
|
||||
begin
|
||||
btnPauseStart.Enabled := True;
|
||||
SetPauseGlyph;
|
||||
end;
|
||||
|
||||
else
|
||||
btnPauseStart.Enabled := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.InitializeCopyOperation(Operation: TFileSourceOperation);
|
||||
var
|
||||
CopyOperation: TFileSourceCopyOperation;
|
||||
begin
|
||||
//CopyOperation := Operation as TFileSourceCopyOperation;
|
||||
Caption := rsDlgCp;
|
||||
InitializeControls([fodl_from_lbl, fodl_to_lbl, fodl_first_pb, fodl_second_pb]);
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.UpdateCopyOperation(Operation: TFileSourceOperation);
|
||||
var
|
||||
CopyOperation: TFileSourceCopyOperation;
|
||||
CopyStatistics: TFileSourceCopyOperationStatistics;
|
||||
begin
|
||||
CopyOperation := Operation as TFileSourceCopyOperation;
|
||||
CopyStatistics := CopyOperation.RetrieveStatistics;
|
||||
|
||||
with CopyStatistics do
|
||||
begin
|
||||
lblFileNameFrom.Caption := CurrentFileFrom;
|
||||
lblFileNameTo.Caption := CurrentFileTo;
|
||||
|
||||
if CurrentFileTotalBytes <> 0 then
|
||||
pbFirst.Position := (CurrentFileDoneBytes * 100) div CurrentFileTotalBytes
|
||||
else
|
||||
pbFirst.Position := pbFirst.Max;
|
||||
|
||||
if TotalBytes <> 0 then
|
||||
pbSecond.Position := (DoneBytes * 100) div TotalBytes
|
||||
else
|
||||
pbSecond.Position := pbSecond.Max;
|
||||
end;
|
||||
|
||||
UpdatePauseStartButton(Operation.State);
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.ToggleProgressBarStyle;
|
||||
begin
|
||||
if (pbFirst.Style = pbstMarquee) and (pbSecond.Style = pbstMarquee) then
|
||||
begin
|
||||
pbFirst.Style:= pbstNormal;
|
||||
pbSecond.Style:= pbstNormal;
|
||||
end
|
||||
else
|
||||
begin
|
||||
pbFirst.Style:= pbstMarquee;
|
||||
pbSecond.Style:= pbstMarquee;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileOp.UpdateDlg;
|
||||
var
|
||||
bP1, bP2: Boolean; // repaint if needed
|
||||
begin
|
||||
// in processor intensive task we force repaint immedially
|
||||
bP1:= False;
|
||||
bP2:= False;
|
||||
|
||||
if pbFirst.Max<> iProgress1Max then
|
||||
begin
|
||||
if iProgress1Max > 0 then
|
||||
pbFirst.Max:= iProgress1Max;
|
||||
bP1:= True;
|
||||
end;
|
||||
if pbFirst.Position <> iProgress1Pos then
|
||||
begin
|
||||
if iProgress1Pos >= 0 then
|
||||
pbFirst.Position:= iProgress1Pos;
|
||||
bP1:= True;
|
||||
end;
|
||||
|
||||
if pbSecond.Max <> iProgress2Max then
|
||||
begin
|
||||
if iProgress2Max > 0 then
|
||||
pbSecond.Max:= iProgress2Max;
|
||||
bP2:= True;
|
||||
end;
|
||||
if pbSecond.Position <> iProgress2Pos then
|
||||
begin
|
||||
if iProgress2Pos > 0 then
|
||||
pbSecond.Position:= iProgress2Pos;
|
||||
bP2:= True;
|
||||
end;
|
||||
|
||||
if bp1 then
|
||||
pbFirst.Invalidate;
|
||||
if bp2 then
|
||||
pbSecond.Invalidate;
|
||||
|
||||
if bp2 then
|
||||
Caption:= IntToStr(iProgress2Pos) + '% ' + Hint;
|
||||
|
||||
if sEstimated <> lblEstimated.Caption then
|
||||
begin
|
||||
lblEstimated.Caption:= sEstimated;
|
||||
lblEstimated.Invalidate;
|
||||
end;
|
||||
if sFileNameFrom <> lblFileNameFrom.Caption then
|
||||
begin
|
||||
lblFileNameFrom.Caption:= sFileNameFrom;
|
||||
lblFileNameFrom.Invalidate;
|
||||
end;
|
||||
if sFileNameTo <> lblFileNameTo.Caption then
|
||||
begin
|
||||
lblFileNameTo.Caption:= sFileNameTo;
|
||||
lblFileNameTo.Invalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fFileOpDlg.lrs}
|
||||
|
||||
end.
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
Loading…
Add table
Add a link
Reference in a new issue