pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions Releases Activity

Update to CEF 3.3578.1863.gbf8cff2

Browse Source 
- Removed obsolete "Result" parameter in all OSR demos.
- Added more code comments to ResponseFilterBrowser.
- Now ResponseFilterBrowser modifies the HTTP request to receive uncompressed resources.
- Updated compiler properties in Delphinus.Install.json
This commit is contained in:
Salvador Díaz Fau
2019-01-13 12:17:52 +01:00
parent fe702f2a2f
commit a8c44bd87b
11 changed files with 269 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
demos/PopupBrowser/uChildForm.pas
View File

@ -79,7 +79,7 @@ type
procedure Chromium1Paint(Sender: TObject; const browser: ICefBrowser; kind: TCefPaintElementType; dirtyRectsCount: NativeUInt; const dirtyRects: PCefRectArray; const buffer: Pointer; width, height: Integer);
procedure Chromium1CursorChange(Sender: TObject; const browser: ICefBrowser; cursor: HICON; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo);
procedure Chromium1GetViewRect(Sender: TObject; const browser: ICefBrowser; var rect: TCefRect; out Result: Boolean);
procedure Chromium1GetViewRect(Sender: TObject; const browser: ICefBrowser; var rect: TCefRect);
procedure Chromium1GetScreenPoint(Sender: TObject; const browser: ICefBrowser; viewX, viewY: Integer; var screenX, screenY: Integer; out Result: Boolean);
procedure Chromium1GetScreenInfo(Sender: TObject; const browser: ICefBrowser; var screenInfo: TCefScreenInfo; out Result: Boolean);
procedure Chromium1PopupShow(Sender: TObject; const browser: ICefBrowser; show: Boolean);
@ -421,8 +421,7 @@ end;
procedure TChildForm.Chromium1GetViewRect(Sender : TObject;
const browser : ICefBrowser;
var rect : TCefRect;
out Result : Boolean);
var rect : TCefRect);
begin
if (GlobalCEFApp <> nil) then
begin
@ -430,10 +429,7 @@ begin
rect.y := 0;
rect.width := DeviceToLogical(Panel1.Width, GlobalCEFApp.DeviceScaleFactor);
rect.height := DeviceToLogical(Panel1.Height, GlobalCEFApp.DeviceScaleFactor);
Result := True;
end
else
Result := False;
end;
end;
procedure TChildForm.Chromium1Paint(Sender : TObject;