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

lcl: highDPI: rename AScaleFonts parameter to AScale0Fonts and change its behavior. Issue #31083

Browse Source 
git-svn-id: trunk@53594 -
This commit is contained in:
ondrej 2016-12-07 22:22:50 +00:00
parent 7d0f452c5b
commit e7b8a7cf27
12 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/comctrls.pp
View File

@ -159,7 +159,7 @@ type
procedure LMDrawItem(var Message: TLMDrawItems); message LM_DRAWITEM;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean); override;
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean); override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
@ -1484,7 +1484,7 @@ type
procedure DoItemChecked(AItem: TListItem);
procedure DoSelectItem(AItem: TListItem; ASelected: Boolean); virtual;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean); override;
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean); override;
procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
procedure DoEndEdit(AItem: TListItem; const AValue: String); virtual;
@ -2239,7 +2239,7 @@ type
Simulate: boolean): Boolean;
procedure CNDropDownClosed(var Message: TLMessage); message CN_DROPDOWNCLOSED;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean); override;
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean); override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;

6
lcl/controls.pp
View File

@ -1416,7 +1416,7 @@ type
function ColorIsStored: boolean; virtual;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double;
const AScaleFonts: Boolean); virtual;
const AScale0Fonts: Boolean); virtual;
protected
// actions
function GetActionLinkClass: TControlActionLinkClass; virtual;
@ -1534,7 +1534,7 @@ type
procedure WriteLayoutDebugReport(const Prefix: string); virtual;
procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
const AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth: Integer;
const AScaleFonts: Boolean); virtual;
const AScale0Fonts: Boolean); virtual;
procedure ShouldAutoAdjust(var AWidth, AHeight: Boolean); virtual;
public
constructor Create(TheOwner: TComponent);override;
@ -2207,7 +2207,7 @@ type
procedure WriteLayoutDebugReport(const Prefix: string); override;
procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy; const AFromDPI,
AToDPI, AOldFormWidth, ANewFormWidth: Integer;
const AScaleFonts: Boolean); override;
const AScale0Fonts: Boolean); override;
public
constructor Create(TheOwner: TComponent);override;
constructor CreateParented(AParentWindow: HWND);

2
lcl/forms.pp
View File

@ -259,7 +259,7 @@ type
procedure SetDesignTimePPI(const ADesignTimePPI: Integer);
protected
procedure AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy; const AFromDPI,
AToDPI, AOldFormWidth, ANewFormWidth: Integer; const AScaleFonts: Boolean); override;
AToDPI, AOldFormWidth, ANewFormWidth: Integer; const AScale0Fonts: Boolean); override;
public
constructor Create(TheOwner: TComponent); override;
public

6
lcl/grids.pas
View File

@ -953,7 +953,7 @@ type
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean); override;
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean); override;
procedure DoOnChangeBounds; override;
procedure DoOPDeleteColRow(IsColumn: Boolean; index: Integer);
procedure DoOPExchangeColRow(IsColumn: Boolean; index, WithIndex: Integer);
@ -6720,12 +6720,12 @@ begin
end;
procedure TCustomGrid.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean);
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean);
var
i: Integer;
C: TGridColumn;
begin
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScaleFonts);
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScale0Fonts);
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin

8
lcl/include/control.inc
View File

@ -2945,13 +2945,13 @@ begin
end;
procedure TControl.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean);
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean);
var
AAWidth, AAHeight: Boolean;
NewLeft, NewTop, NewWidth, NewHeight, OldWidth, OldHeight: Integer;
NewRight, NewBottom: Int64;
begin
if AScaleFonts and not ParentFont then
if (AScale0Fonts or (Font.Height<>0)) and not ParentFont then
Font.Height := Round(GetFontData(Font.Reference.Handle).Height*AYProportion);
// Apply the changes
@ -3962,7 +3962,7 @@ end;
procedure TControl.AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
const AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth: Integer;
const AScaleFonts: Boolean);
const AScale0Fonts: Boolean);
var
lXProportion, lYProportion: Double;
lMode: TLayoutAdjustmentPolicy;
@ -3986,7 +3986,7 @@ begin
if AFromDPI > 0 then lYProportion := AToDPI / AFromDPI
else lYProportion := 1.0;
DoAutoAdjustLayout(lMode, lXProportion, lYProportion, AScaleFonts);
DoAutoAdjustLayout(lMode, lXProportion, lYProportion, AScale0Fonts);
end;
// Auto-adjust the layout of controls.

4
lcl/include/customdesigncontrol.inc
View File

@ -21,10 +21,10 @@ end;
procedure TCustomDesignControl.AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
const AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth: Integer;
const AScaleFonts: Boolean);
const AScale0Fonts: Boolean);
begin
inherited AutoAdjustLayout(AMode, AFromDPI, AToDPI, AOldFormWidth,
ANewFormWidth, AScaleFonts);
ANewFormWidth, AScale0Fonts);
FPixelsPerInch := AToDPI;
end;

4
lcl/include/customlistbox.inc
View File

@ -469,9 +469,9 @@ begin
end;
procedure TCustomListBox.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean);
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean);
begin
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScaleFonts);
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScale0Fonts);
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin

4
lcl/include/customlistview.inc
View File

@ -612,12 +612,12 @@ begin
end;
procedure TCustomListView.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean);
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean);
var
i: Integer;
C: TListColumn;
begin
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScaleFonts);
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScale0Fonts);
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin

4
lcl/include/statusbar.inc
View File

@ -148,11 +148,11 @@ begin
end;
procedure TStatusBar.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean);
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean);
var
I: Integer;
begin
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScaleFonts);
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScale0Fonts);
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin

4
lcl/include/toolbar.inc
View File

@ -342,9 +342,9 @@ begin
end;
procedure TToolBar.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean);
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean);
begin
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScaleFonts);
inherited DoAutoAdjustLayout(AMode, AXProportion, AYProportion, AScale0Fonts);
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin

6
lcl/include/wincontrol.inc
View File

@ -3837,14 +3837,14 @@ end;
procedure TWinControl.AutoAdjustLayout(AMode: TLayoutAdjustmentPolicy;
const AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth: Integer;
const AScaleFonts: Boolean);
const AScale0Fonts: Boolean);
var
i: Integer;
begin
for i:=0 to ControlCount-1 do
Controls[i].AutoAdjustLayout(AMode, AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth, AScaleFonts);
Controls[i].AutoAdjustLayout(AMode, AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth, AScale0Fonts);
inherited AutoAdjustLayout(AMode, AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth, AScaleFonts);
inherited AutoAdjustLayout(AMode, AFromDPI, AToDPI, AOldFormWidth, ANewFormWidth, AScale0Fonts);
end;
{------------------------------------------------------------------------------

2
lcl/stdctrls.pp
View File

@ -545,7 +545,7 @@ type
procedure SetStyle(Val: TListBoxStyle); virtual;
procedure DrawItem(Index: Integer; ARect: TRect; State: TOwnerDrawState); virtual;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double; const AScaleFonts: Boolean);
const AXProportion, AYProportion: Double; const AScale0Fonts: Boolean);
override;
procedure DoSelectionChange(User: Boolean); virtual;
procedure SendItemIndex;