浏览代码

FIX: Copy window size wrong on Linux (fixes #261)

Alexander Koblov 3 年之前
父节点
当前提交
d1b749b2a7
共有 1 个文件被更改,包括 12 次插入1 次删除
  1. 12 1
      src/fFileOpDlg.pas

+ 12 - 1
src/fFileOpDlg.pas

@@ -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;