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

LCL: rename DPI parameters to PPI

Browse Source 
git-svn-id: trunk@54218 -
This commit is contained in:
ondrej 2017-02-21 10:56:42 +00:00
parent 4de009ab5e
commit eeff7db7c3
5 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/controls.pp
View File

@ -1540,7 +1540,7 @@ type
public
// LCL Scaling (High-DPI)
procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
const AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth: Integer); virtual;
const AFromPPI, AToPPI, AOldFormWidth, ANewFormWidth: Integer); virtual;
procedure ShouldAutoAdjust(var AWidth, AHeight: Boolean); virtual;
procedure FixDesignFontsPPI(const ADesignTimePPI: Integer); virtual;
procedure ScaleFontsPPI(const AProportion: Double); virtual;
@ -2214,8 +2214,8 @@ type
procedure ScrollBy_WS(DeltaX, DeltaY: Integer);
procedure ScrollBy(DeltaX, DeltaY: Integer); virtual;
procedure WriteLayoutDebugReport(const Prefix: string); override;
procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy; const AFromDPI,
AToDPI, AOldFormWidth, ANewFormWidth: Integer); override;
procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy; const AFromPPI,
AToPPI, AOldFormWidth, ANewFormWidth: Integer); override;
public
constructor Create(TheOwner: TComponent);override;
constructor CreateParented(AParentWindow: HWND);

4
lcl/forms.pp
View File

@ -265,8 +265,8 @@ type
protected
procedure SetScaled(const AScaled: Boolean); virtual;
procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy; const AFromDPI,
AToDPI, AOldFormWidth, ANewFormWidth: Integer); override;
procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy; const AFromPPI,
AToPPI, AOldFormWidth, ANewFormWidth: Integer); override;
procedure Loaded; override;
public
constructor Create(TheOwner: TComponent); override;

6
lcl/include/control.inc
View File

@ -4006,7 +4006,7 @@ begin
end;
procedure TControl.AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
const AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth: Integer);
const AFromPPI, AToPPI, AOldFormWidth, ANewFormWidth: Integer);
var
lXProportion, lYProportion: Double;
lMode: TLayoutAdjustmentPolicy;
@ -4023,11 +4023,11 @@ begin
end
else if lMode = lapAutoAdjustForDPI then
begin
if AFromDPI > 0 then lXProportion := AToDPI / AFromDPI;
if AFromPPI > 0 then lXProportion := AToPPI / AFromPPI;
end;
// y-axis adjustment proportion
if AFromDPI > 0 then lYProportion := AToDPI / AFromDPI
if AFromPPI > 0 then lYProportion := AToPPI / AFromPPI
else lYProportion := 1.0;
DoAutoAdjustLayout(lMode, lXProportion, lYProportion);

4
lcl/include/customdesigncontrol.inc
View File

@ -21,11 +21,11 @@ begin
end;
procedure TCustomDesignControl.AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
const AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth: Integer);
const AFromPPI, AToPPI, AOldFormWidth, ANewFormWidth: Integer);
begin
inherited;
FPixelsPerInch := AToDPI;
FPixelsPerInch := AToPPI;
end;
procedure TCustomDesignControl.Loaded;

4
lcl/include/wincontrol.inc
View File

@ -3836,12 +3836,12 @@ begin
end;
procedure TWinControl.AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
const AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth: Integer);
const AFromPPI, AToPPI, AOldFormWidth, ANewFormWidth: Integer);
var
i: Integer;
begin
for i:=0 to ControlCount-1 do
Controls[i].AutoAdjustLayout(AMode, AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth);
Controls[i].AutoAdjustLayout(AMode, AFromPPI, AToPPI, AOldFormWidth, ANewFormWidth);
inherited;
end;