pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Update to CEF 108.4.13

Browse Source
This commit is contained in:
salvadordf
2022-12-16 11:29:15 +01:00
parent a0b2a1a911
commit a20f854950
44 changed files with 1266 additions and 1252 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
source/uCEFDisplay.pas
View File

@@ -76,6 +76,8 @@ type
class function GetAlls(var aDisplayArray : TCefDisplayArray) : boolean;
class function ScreenPointToPixels(const aScreenPoint : TPoint) : TPoint;
class function ScreenPointFromPixels(const aPixelsPoint : TPoint) : TPoint;
class function ScreenRectToPixels(const aScreenRect : TRect) : TRect;
class function ScreenRectFromPixels(const aPixelsRect : TRect) : TRect;
end;
implementation
@@ -208,10 +210,7 @@ begin
Result.Y := TempPixelsPt.y;
end
else
begin
Result.X := aScreenPoint.X;
Result.X := aScreenPoint.Y;
end;
Result := aScreenPoint;
end;
class function TCefDisplayRef.ScreenPointFromPixels(const aPixelsPoint : TPoint) : TPoint;
@@ -227,10 +226,43 @@ begin
Result.Y := TempScreenPt.y;
end
else
Result := aPixelsPoint;
end;
class function TCefDisplayRef.ScreenRectToPixels(const aScreenRect : TRect) : TRect;
var
TempScreenRc, TempPixelsRc : TCefRect;
begin
if assigned(GlobalCEFApp) and GlobalCEFApp.LibLoaded then
begin
Result.X := aPixelsPoint.X;
Result.X := aPixelsPoint.Y;
end;
TempScreenRc.x := aScreenRect.Left;
TempScreenRc.y := aScreenRect.Top;
TempPixelsRc := cef_display_convert_screen_rect_to_pixels(@TempScreenRc);
Result.Left := TempPixelsRc.x;
Result.Top := TempPixelsRc.y;
Result.Right := TempPixelsRc.Width - 1;
Result.Bottom := TempPixelsRc.Height - 1;
end
else
Result := aScreenRect;
end;
class function TCefDisplayRef.ScreenRectFromPixels(const aPixelsRect : TRect) : TRect;
var
TempScreenRc, TempPixelsRc : TCefRect;
begin
if assigned(GlobalCEFApp) and GlobalCEFApp.LibLoaded then
begin
TempPixelsRc.x := aPixelsRect.Left;
TempPixelsRc.y := aPixelsRect.Top;
TempScreenRc := cef_display_convert_screen_rect_from_pixels(@TempPixelsRc);
Result.Left := TempScreenRc.x;
Result.Top := TempScreenRc.y;
Result.Right := TempScreenRc.Width - 1;
Result.Bottom := TempScreenRc.Height - 1;
end
else
Result := aPixelsRect;
end;
end.