FIX: Poorly adjusted columns in Synchronize Directories (fixes #371)

(cherry picked from commit 8d57c7cc58)
This commit is contained in:
Alexander Koblov 2022-03-06 15:31:54 +03:00
commit 3b56004a06
2 changed files with 211 additions and 481 deletions

File diff suppressed because it is too large Load diff

View file

@ -193,6 +193,9 @@ type
private
property SortIndex: Integer read FSortIndex write SetSortIndex;
property Commands: TFormCommands read FCommands implements IFormCommands;
protected
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
public
{ public declarations }
constructor Create(AOwner: TComponent;
@ -1820,6 +1823,13 @@ begin
);
end;
procedure TfrmSyncDirsDlg.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double);
begin
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion);
RecalcHeaderCols;
end;
constructor TfrmSyncDirsDlg.Create(AOwner: TComponent; FileView1,
FileView2: TFileView);
var