paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 16:37:54 +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 //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 //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. //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 begin
end; end;

4
lcl/include/lclintf.inc
View File

@ -423,9 +423,9 @@ procedure SendCachedLCLMessages;
begin begin
end; end;
procedure SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); procedure SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
begin begin
WidgetSet.SetCanvasScaleFactor(DC, AScaleRatio); WidgetSet.SetCanvasScaleFactor(DC, AScaleFactor);
end; end;
function SetCaretRespondToFocus(Handle: hWnd; ShowHideOnFocus: boolean):Boolean; 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} 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 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 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} 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} 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; Result := True;
end; end;
procedure TCocoaWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); procedure TCocoaWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
var var
ctx: TCocoaContext; ctx: TCocoaContext;
begin begin
ctx := CheckDC(DC); ctx := CheckDC(DC);
if Assigned(ctx) and (ctx is TCocoaBitmapContext) then if Assigned(ctx) and (ctx is TCocoaBitmapContext) then
CGContextScaleCTM(ctx.CGContext, AScaleRatio, AScaleRatio); CGContextScaleCTM(ctx.CGContext, AScaleFactor, AScaleFactor);
end; 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;} {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;
end; end;
procedure TGtk3WidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); procedure TGtk3WidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
var var
Gtk3DC: TGtk3DeviceContext absolute DC; Gtk3DC: TGtk3DeviceContext absolute DC;
begin begin
if (Gtk3DC <> nil) then if (Gtk3DC <> nil) then
gtk3DC.CanvasScaleFactor := AScaleRatio; gtk3DC.CanvasScaleFactor := AScaleFactor;
end; end;
//##apiwiz##eps## // Do not remove, no wizard declaration after this line //##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; procedure RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; 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 SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); override;
procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override; procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;

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

@ -868,14 +868,14 @@ begin
// todo // todo
end; end;
procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
var var
QtDc: TQtDeviceContext absolute DC; QtDc: TQtDeviceContext absolute DC;
begin begin
if IsValidDC(DC) and (QtDC.vImage <> nil) and (QtDC.vImage.Handle <> nil) then if IsValidDC(DC) and (QtDC.vImage <> nil) and (QtDC.vImage.Handle <> nil) then
begin begin
QPainter_end(QtDC.Widget); QPainter_end(QtDC.Widget);
QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleRatio); QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleFactor);
QPainter_begin(QtDC.Widget, QtDC.vImage.Handle); QPainter_begin(QtDC.Widget, QtDC.vImage.Handle);
end; end;
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 RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); 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; function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override; procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;

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

@ -887,14 +887,14 @@ begin
// todo // todo
end; end;
procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleRatio: double); procedure TQtWidgetSet.SetCanvasScaleFactor(DC: HDC; const AScaleFactor: double);
var var
QtDc: TQtDeviceContext absolute DC; QtDc: TQtDeviceContext absolute DC;
begin begin
if IsValidDC(DC) and (QtDC.vImage <> nil) and (QtDC.vImage.Handle <> nil) then if IsValidDC(DC) and (QtDC.vImage <> nil) and (QtDC.vImage.Handle <> nil) then
begin begin
QPainter_end(QtDC.Widget); QPainter_end(QtDC.Widget);
QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleRatio); QImage_setDevicePixelRatio(QtDC.vImage.Handle, AScaleFactor);
QPainter_begin(QtDC.Widget, QtDC.vImage.Handle); QPainter_begin(QtDC.Widget, QtDC.vImage.Handle);
end; end;
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 RemoveProcessEventHandler(var AHandler: PProcessEventHandler); override;
procedure SetEventHandlerFlags(AHandler: PEventHandler; NewFlags: dword); 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; function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override; procedure SetRubberBandRect(const ARubberBand: HWND; const ARect: TRect); override;