|
@@ -3,7 +3,7 @@
|
|
|
-------------------------------------------------------------------------
|
|
|
Window displaying progress for file source operations and queues.
|
|
|
|
|
|
- Copyright (C) 2008-2018 Alexander Koblov ([email protected])
|
|
|
+ Copyright (C) 2008-2021 Alexander Koblov ([email protected])
|
|
|
Copyright (C) 2012 Przemysław Nagay ([email protected])
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
@@ -137,6 +137,9 @@ type
|
|
|
|
|
|
property ProgressBarStyle: TProgressBarStyle read GetProgressBarStyle write SetProgressBarStyle;
|
|
|
|
|
|
+protected
|
|
|
+ procedure DoAutoSize; override;
|
|
|
+
|
|
|
public
|
|
|
constructor Create(OperationHandle: TOperationHandle); reintroduce;
|
|
|
constructor Create(QueueIdentifier: TOperationsManagerQueueIdentifier); reintroduce;
|
|
@@ -583,6 +586,14 @@ begin
|
|
|
AWindow.Show;
|
|
|
end;
|
|
|
|
|
|
+procedure TfrmFileOp.DoAutoSize;
|
|
|
+begin
|
|
|
+ inherited DoAutoSize;
|
|
|
+{$IF DEFINED(LCLQT5)}
|
|
|
+ InvalidateBoundsRealized;
|
|
|
+{$ENDIF}
|
|
|
+end;
|
|
|
+
|
|
|
procedure TfrmFileOp.StopOperationOrQueue;
|
|
|
var
|
|
|
OpManItem: TOperationsManagerItem;
|