From e384a1c48a568fe6815a4e2d3cebed9ff69736db Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Fri, 5 Jan 2018 03:36:46 +0000
Subject: [PATCH] IDE: remove DoAutoAdjustLayout from r56956 #b6077f9686, issue
 #32924

git-svn-id: trunk@56959 -
---
 ide/frames/compiler_path_options.pas            | 14 --------------
 packager/frames/package_integration_options.pas | 11 -----------
 packager/frames/package_usage_options.pas       | 14 --------------
 3 files changed, 39 deletions(-)

diff --git a/ide/frames/compiler_path_options.pas b/ide/frames/compiler_path_options.pas
index 59e93e2884..ff8fc77e9f 100644
--- a/ide/frames/compiler_path_options.pas
+++ b/ide/frames/compiler_path_options.pas
@@ -58,8 +58,6 @@ type
     procedure DoImport(Sender: TObject);
     procedure DoExport(Sender: TObject);
   protected
-    procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
-      const AXProportion, {%H-}AYProportion: Double); override;
     procedure DoSaveSettings(AOptions: TAbstractIDEOptions);
     procedure UpdateTargetFileLabel;
   public
@@ -327,18 +325,6 @@ begin
     OnSaveIDEOptions(Self, FCompilerOpts);
 end;
 
-procedure TCompilerPathOptionsFrame.DoAutoAdjustLayout(
-  const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double);
-begin
-  if AMode = lapAutoAdjustForDPI then begin
-    OtherUnitsPathEditBtn.Width := round(OtherUnitsPathEditBtn.Height * AXProportion);
-    IncludeFilesPathEditBtn.Width := round(IncludeFilesPathEditBtn.Height * AXProportion);
-    OtherSourcesPathEditBtn.Width := round(OtherSourcesPathEditBtn.Height * AXProportion);
-    LibrariesPathEditBtn.Width := round(LibrariesPathEditBtn.Height * AXProportion);
-    DebugPathEditBtn.Width := round(DebugPathEditBtn.Height * AXProportion);
-  end;
-end;
-
 procedure TCompilerPathOptionsFrame.DoSaveSettings(AOptions: TAbstractIDEOptions);
 begin
   if Assigned(OnSaveIDEOptions) then
diff --git a/packager/frames/package_integration_options.pas b/packager/frames/package_integration_options.pas
index 21698d16b8..b7d2dee00e 100644
--- a/packager/frames/package_integration_options.pas
+++ b/packager/frames/package_integration_options.pas
@@ -35,9 +35,6 @@ type
     procedure SetSelectedPkgType(PkgType: TLazPackageType);
     function ShowMsgPackageTypeMustBeDesign: boolean;
     function GetFPDocPkgNameEditValue: string;
-  protected
-    procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
-      const AXProportion, AYProportion: Double); override;
   public
     function Check: Boolean; override;
     function GetTitle: string; override;
@@ -137,14 +134,6 @@ begin
   Result := lisPckOptsIDEIntegration;
 end;
 
-procedure TPackageIntegrationOptionsFrame.DoAutoAdjustLayout(
-  const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double);
-begin
-  if AMode = lapAutoAdjustForDPI then begin
-    FPDocPathButton.Width := round(FPDocPathButton.Height * AXProportion);
-  end;
-end;
-
 procedure TPackageIntegrationOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
 begin
   PkgTypeGroupBox.Caption := lisPckOptsPackageType;
diff --git a/packager/frames/package_usage_options.pas b/packager/frames/package_usage_options.pas
index 996517b31b..5eefc61863 100644
--- a/packager/frames/package_usage_options.pas
+++ b/packager/frames/package_usage_options.pas
@@ -37,9 +37,6 @@ type
     LibraryPathButton: TPathEditorButton;
     FLazPackage: TLazPackage;
     function PathEditBtnExecuted({%H-}Context: String; var NewPath: String): Boolean;
-  protected
-    procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
-      const AXProportion, AYProportion: Double); override;
   public
     function GetTitle: string; override;
     procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
@@ -95,17 +92,6 @@ begin
   Result := lisPckOptsUsage;
 end;
 
-procedure TPackageUsageOptionsFrame.DoAutoAdjustLayout(
-  const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double);
-begin
-  if AMode = lapAutoAdjustForDPI then begin
-    UnitPathButton.Width := round(UnitPathButton.Height * AXProportion);
-    IncludePathButton.Width := round(IncludePathButton.Height * AXProportion);
-    ObjectPathButton.Width := round(ObjectPathButton.Height * AXProportion);
-    LibraryPathButton.Width := round(LibraryPathButton.Height * AXProportion);
-  end;
-end;
-
 procedure TPackageUsageOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
 begin
   AddPathsGroupBox.Caption := lisPckOptsAddPathsToDependentPackagesProjects;