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 3.3325.1755.g7c74b17

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-03-29 20:02:04 +02:00
parent 665957e132
commit 6fa50706a1
133 changed files with 7633 additions and 6008 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/uCEFAccessibilityHandler.pas
View File

@@ -82,15 +82,23 @@ uses
uCEFMiscFunctions, uCEFValue;
procedure cef_accessibility_handler_on_accessibility_tree_change(self: PCefAccessibilityHandler; value: PCefValue); stdcall;
var
TempObject : TObject;
begin
with TCEFAccessibilityHandlerOwn(CefGetObject(self)) do
OnAccessibilityTreeChange(TCefValueRef.UnWrap(value));
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCEFAccessibilityHandlerOwn) then
TCEFAccessibilityHandlerOwn(TempObject).OnAccessibilityTreeChange(TCefValueRef.UnWrap(value));
end;
procedure cef_accessibility_handler_on_accessibility_location_change(self: PCefAccessibilityHandler; value: PCefValue); stdcall;
var
TempObject : TObject;
begin
with TCEFAccessibilityHandlerOwn(CefGetObject(self)) do
OnAccessibilityLocationChange(TCefValueRef.UnWrap(value));
TempObject := CefGetObject(self);
if (TempObject <> nil) and (TempObject is TCEFAccessibilityHandlerOwn) then
TCEFAccessibilityHandlerOwn(TempObject).OnAccessibilityLocationChange(TCefValueRef.UnWrap(value));
end;
constructor TCEFAccessibilityHandlerOwn.Create;