paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: remove DoAutoAdjustLayout from r56956 #b6077f9686, issue #32924

Browse Source 
git-svn-id: trunk@56959 -
This commit is contained in:
ondrej 2018-01-05 03:36:46 +00:00
parent 5a62be57d3
commit e384a1c48a
3 changed files with 0 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/frames/compiler_path_options.pas
View File

@ -58,8 +58,6 @@ type
procedure DoImport(Sender: TObject); procedure DoImport(Sender: TObject);
procedure DoExport(Sender: TObject); procedure DoExport(Sender: TObject);
protected protected
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, {%H-}AYProportion: Double); override;
procedure DoSaveSettings(AOptions: TAbstractIDEOptions); procedure DoSaveSettings(AOptions: TAbstractIDEOptions);
procedure UpdateTargetFileLabel; procedure UpdateTargetFileLabel;
public public
@ -327,18 +325,6 @@ begin
OnSaveIDEOptions(Self, FCompilerOpts); OnSaveIDEOptions(Self, FCompilerOpts);
end; 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); procedure TCompilerPathOptionsFrame.DoSaveSettings(AOptions: TAbstractIDEOptions);
begin begin
if Assigned(OnSaveIDEOptions) then if Assigned(OnSaveIDEOptions) then

11
packager/frames/package_integration_options.pas
View File

@ -35,9 +35,6 @@ type
procedure SetSelectedPkgType(PkgType: TLazPackageType); procedure SetSelectedPkgType(PkgType: TLazPackageType);
function ShowMsgPackageTypeMustBeDesign: boolean; function ShowMsgPackageTypeMustBeDesign: boolean;
function GetFPDocPkgNameEditValue: string; function GetFPDocPkgNameEditValue: string;
protected
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
public public
function Check: Boolean; override; function Check: Boolean; override;
function GetTitle: string; override; function GetTitle: string; override;
@ -137,14 +134,6 @@ begin
Result := lisPckOptsIDEIntegration; Result := lisPckOptsIDEIntegration;
end; 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); procedure TPackageIntegrationOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin begin
PkgTypeGroupBox.Caption := lisPckOptsPackageType; PkgTypeGroupBox.Caption := lisPckOptsPackageType;

14
packager/frames/package_usage_options.pas
View File

@ -37,9 +37,6 @@ type
LibraryPathButton: TPathEditorButton; LibraryPathButton: TPathEditorButton;
FLazPackage: TLazPackage; FLazPackage: TLazPackage;
function PathEditBtnExecuted({%H-}Context: String; var NewPath: String): Boolean; function PathEditBtnExecuted({%H-}Context: String; var NewPath: String): Boolean;
protected
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
public public
function GetTitle: string; override; function GetTitle: string; override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override; procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
@ -95,17 +92,6 @@ begin
Result := lisPckOptsUsage; Result := lisPckOptsUsage;
end; 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); procedure TPackageUsageOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin begin
AddPathsGroupBox.Caption := lisPckOptsAddPathsToDependentPackagesProjects; AddPathsGroupBox.Caption := lisPckOptsAddPathsToDependentPackagesProjects;