|
@@ -132,7 +132,6 @@ Type
|
|
|
FLastOperation : TFileOperation;
|
|
FLastOperation : TFileOperation;
|
|
|
fLastFlags : TFileOperationFlags;
|
|
fLastFlags : TFileOperationFlags;
|
|
|
fCanUndo : Boolean;
|
|
fCanUndo : Boolean;
|
|
|
- FOwner : TComponent;
|
|
|
|
|
Procedure SetOperation( Value :TFileOperation );
|
|
Procedure SetOperation( Value :TFileOperation );
|
|
|
Function GetOperation :TFileOperation;
|
|
Function GetOperation :TFileOperation;
|
|
|
Function GetWantMappingHandle :Boolean;
|
|
Function GetWantMappingHandle :Boolean;
|
|
@@ -293,7 +292,6 @@ end;
|
|
|
Constructor TFileOperator.Create(aOwner :TComponent);
|
|
Constructor TFileOperator.Create(aOwner :TComponent);
|
|
|
begin
|
|
begin
|
|
|
inherited Create(aOwner);
|
|
inherited Create(aOwner);
|
|
|
- FOwner := aOwner;
|
|
|
|
|
fFrom := TStringList.Create;
|
|
fFrom := TStringList.Create;
|
|
|
fTo := TStringList.Create;
|
|
fTo := TStringList.Create;
|
|
|
fLastFrom := TStringList.Create;
|
|
fLastFrom := TStringList.Create;
|
|
@@ -329,8 +327,8 @@ begin {Execute}
|
|
|
STo := ConvertOperand(FTo);
|
|
STo := ConvertOperand(FTo);
|
|
|
FData.pFrom := PChar( SFrom );
|
|
FData.pFrom := PChar( SFrom );
|
|
|
FData.pTo := PChar( STo );
|
|
FData.pTo := PChar( STo );
|
|
|
- IF (FOwner is TWinControl) And TWinControl(FOwner).HandleAllocated Then
|
|
|
|
|
- FData.Wnd := GetParentForm(TWinControl(FOwner)).Handle
|
|
|
|
|
|
|
+ IF (Owner is TWinControl) And TWinControl(Owner).HandleAllocated Then
|
|
|
|
|
+ FData.Wnd := GetParentForm(TWinControl(Owner)).Handle
|
|
|
Else
|
|
Else
|
|
|
FData.Wnd := Application.Handle;
|
|
FData.Wnd := Application.Handle;
|
|
|
|
|
|
Martin Prikryl