paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:37:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: renamed param.

Browse Source
This commit is contained in:
zeljan1 2025-01-09 09:41:38 +01:00
parent 6d55565da2
commit 2f94ecea69
11 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/intfbaselcl.inc
View File

@ -644,7 +644,7 @@ end;
//Currently cocoa, qt5, qt6 and gtk3 are known to support this. Without proper scale ratio
//setup, bitmap text rendering is blurred.See iphtml.pas, procedure TIpHtml.Render() how
//we use it.Param DC is device context with selected bitmap/image into.
procedure TWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
procedure TWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
begin
end;

4
lcl/include/lclintf.inc
View File

@ -423,9 +423,9 @@ procedure SendCachedLCLMessages;
begin
end;
procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
begin
WidgetSet.SetCanvasScaleFactor(DC, AScaleRatio);
WidgetSet.SetCanvasScaleFactor(DC, AScaleFactor);
end;
function SetCaretRespondToFocus(Handle: hWnd; ShowHideOnFocus: boolean):Boolean;

2
lcl/include/lclintfh.inc
View File

@ -109,7 +109,7 @@ procedure RemovePipeEventHandler(var AHandler: PPipeEventHandler); {$IFDEF IF_BA
function RequestInput(const InputCaption, InputPrompt : String; MaskInput : Boolean; var Value : String) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
procedure SendCachedLCLMessages; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetCaretRespondToFocus(handle: HWND; ShowHideOnFocus: boolean): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}

4
lcl/interfaces/cocoa/cocoalclintf.inc
View File

@ -740,13 +740,13 @@ begin
Result := True;
end;
procedure TCocoaWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
procedure TCocoaWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
var
ctx: TCocoaContext;
begin
ctx := CheckDC(DC);
if Assigned(ctx) and (ctx is TCocoaBitmapContext) then
CGContextScaleCTM(ctx.CGContext, AScaleRatio, AScaleRatio);
CGContextScaleCTM(ctx.CGContext, AScaleFactor, AScaleFactor);
end;
{------------------------------------------------------------------------------

2
lcl/interfaces/cocoa/cocoalclintfh.inc
View File

@ -50,5 +50,5 @@ function RawImage_FromDevice(out ARawImage: TRawImage; ADC: HDC; const ARect: TR
{function ReleaseDesignerDC(Window: HWND; DC: HDC): Integer; override;}
procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); override;
procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); override;

4
lcl/interfaces/gtk3/gtk3lclintf.inc
View File

@ -1186,12 +1186,12 @@ begin
end;
end;
procedure TGtk3WidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
procedure TGtk3WidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
var
Gtk3DC: TGtk3DeviceContext absolute DC;
begin
if (Gtk3DC <> nil) then
gtk3DC.CanvasScaleFactor := AScaleRatio;
gtk3DC.CanvasScaleFactor := AScaleFactor;
end;
//##apiwiz##eps## // Do not remove, no wizard declaration after this line

2
lcl/interfaces/gtk3/gtk3lclintfh.inc
View File

@ -61,7 +61,7 @@ procedure RemoveEventHandler(var AHandler: PEventHandler); override;
procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); override;
procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); override;
procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); override;
procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;

4
lcl/interfaces/qt5/qtlclintf.inc
View File

@ -868,14 +868,14 @@ begin
// todo
end;
procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
var
QtDc: TQtDeviceContext absolute DC;
begin
if IsValidDC(DC) and (QtDC.vImage <> nil) and (QtDC.vImage.Handle <> nil) then
begin
QPainter_end(QtDC.Widget);
QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleRatio);
QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleFactor);
QPainter_begin(QtDC.Widget, QtDC.vImage.Handle);
end;
end;

2
lcl/interfaces/qt5/qtlclintfh.inc
View File

@ -73,7 +73,7 @@ procedure RemovePipeEventHandler(var AHandler: PPipeEventHandler); override;
procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); override;
procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); override;
procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); override;
function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;

4
lcl/interfaces/qt6/qtlclintf.inc
View File

@ -887,14 +887,14 @@ begin
// todo
end;
procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double);
procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
var
QtDc: TQtDeviceContext absolute DC;
begin
if IsValidDC(DC) and (QtDC.vImage <> nil) and (QtDC.vImage.Handle <> nil) then
begin
QPainter_end(QtDC.Widget);
QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleRatio);
QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleFactor);
QPainter_begin(QtDC.Widget, QtDC.vImage.Handle);
end;
end;

2
lcl/interfaces/qt6/qtlclintfh.inc
View File

@ -73,7 +73,7 @@ procedure RemovePipeEventHandler(var AHandler: PPipeEventHandler); override;
procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); override;
procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); override;
procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double); override;
function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;