mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Cleanup.

Browse source
This commit is contained in:
cobines 2012-03-22 04:53:34 +00:00
commit 13804b5b29
1 changed files with 8 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

47
src/newdesign/uoperationsmanager.pas
View file

@ -150,12 +150,6 @@ type
procedure MoveToQueue(Item: TOperationsManagerItem; QueueIdentifier: TOperationsManagerQueueIdentifier);
procedure StartOperation(Item: TOperationsManagerItem);
procedure AddOperationListeners(Operation: TFileSourceOperation);
procedure RemoveOperationListeners(Operation: TFileSourceOperation);
procedure OperationStateChangedEvent(Operation: TFileSourceOperation;
State: TFileSourceOperationState);
{en
Notifies all listeners that an event has occurred (or multiple events).
}
@ -451,7 +445,6 @@ begin
for OperIndex := 0 to Queue.Count - 1 do
begin
Item := Queue.Items[OperIndex];
RemoveOperationListeners(Item.Operation);
end;
Queue.Free;
end;
@ -491,7 +484,6 @@ begin
Item.PauseRunning := False;
Operation.PreventStart;
AddOperationListeners(Operation);
Result := Item.Handle;
@ -551,12 +543,15 @@ var
QueueIndex: Integer;
Queue: TOperationsManagerQueue;
begin
for QueueIndex := 0 to QueuesCount - 1 do
if Handle <> InvalidOperationHandle then
begin
Queue := QueueByIndex[QueueIndex];
Result := Queue.ItemByHandle[Handle];
if Assigned(Result) then
Exit;
for QueueIndex := 0 to QueuesCount - 1 do
begin
Queue := QueueByIndex[QueueIndex];
Result := Queue.ItemByHandle[Handle];
if Assigned(Result) then
Exit;
end;
end;
Result := nil;
end;
@ -774,32 +769,6 @@ begin
end;
end;
procedure TOperationsManager.AddOperationListeners(Operation: TFileSourceOperation);
begin
Operation.AddStateChangedListener([fsosStarting], @OperationStateChangedEvent);
end;
procedure TOperationsManager.RemoveOperationListeners(Operation: TFileSourceOperation);
begin
Operation.RemoveStateChangedListener(fsosAllStates, @OperationStateChangedEvent);
end;
procedure TOperationsManager.OperationStateChangedEvent(Operation: TFileSourceOperation;
State: TFileSourceOperationState);
var
Item: TOperationsManagerItem;
begin
Item := GetItemByOperation(Operation);
if Assigned(Item) then
begin
if State = fsosStarting then
begin
// Listener is not needed anymore.
Operation.RemoveStateChangedListener(fsosAllStates, @OperationStateChangedEvent);
end;
end;
end;
procedure TOperationsManager.AddEventsListener(Events: TOperationManagerEvents;
FunctionToCall: TOperationManagerEventNotify);
var