liujianjun/tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

bjq

Browse Source 
编译-加入缓存记录
This commit is contained in:
liujianjun
2024-04-01 14:38:54 +08:00
parent e7b3faeb18
commit 1098e9d6aa
2 changed files with 62 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
funcext/tvclib/utslvclcefinterface.tsf
+47 -3
View File
@@ -3033,7 +3033,38 @@ type cef_life_span_handler_t=class(cef_handler_base)
end
end
type cef_render_process_handler_t=class(cef_contain_base) //render
private
function structdescribe();override;
begin
return array(
("base","user",getbasestruct()),
("on_web_kit_initialized","intptr",0),
("on_browser_created","intptr",0),
("on_browser_destroyed","intptr",0),
("get_load_handler","intptr",0),
("on_context_created","intptr",0),
("on_context_released","intptr",0),
("on_uncaught_exception","intptr",0),
("on_focused_node_changed","intptr",0),
("on_process_message_received","intptr",0)
);
end
public
function create(ptr)
begin
inherited;
end
property on_web_kit_initialized index "on_web_kit_initialized" read getcallpropertybyindex write setcallpropertybyindex;
function on_web_kit_initialized_i(sf:pointer;browser:pointer;mode:integer;title:pointer;default_file_path:pointer;accept_filters:pointer;callback:pointer):integer;stdcall;
begin
c := getcallback(functionname());
if c then
begin
return call(c,self(true));
end
end
end
type cef_dialog_handler_t=class(cef_contain_base)
private
function structdescribe();override;
@@ -3754,7 +3785,15 @@ type cef_app_t=class(cef_contain_base) //cef_app_capi.h
// property on_register_custom_schemes index "on_register_custom_schemes" read _getvalue_ write _setvalue_;
// property get_resource_bundle_handler index "get_resource_bundle_handler" read _getvalue_ write _setvalue_;
// property get_browser_process_handler index "get_browser_process_handler" read _getvalue_ write _setvalue_;
// property get_render_process_handler index "get_render_process_handler" read _getvalue_ write _setvalue_;
property get_render_process_handler index "get_render_process_handler" read getcallpropertybyindex write setcallpropertybyindex;
procedure get_render_process_handler_i(sf:pointer);stdcall;
begin
c := getcallback(functionname());
if c then
begin
return call(c,self(true));
end
end
end
type cef_bounds_t = class(t_cef_stc_base)
@@ -4260,7 +4299,12 @@ type cef_client_t=class(cef_contain_base) //cef_client_capi.h
if o then return o._getptr_();
end
//property get_print_handler index "get_print_handler" read _getvalue_ write _setvalue_;
//property get_render_handler index "get_render_handler" read _getvalue_ write _setvalue_;
property render_handler index "get_render_handler" read clientgethandler write clientsethandler;
function get_render_handler(s:pointer):pointer;stdcall;
begin
o := clientgethandler(functionname());
if o then return o._getptr_();
end
property request_handler index "get_request_handler" read clientgethandler write clientsethandler;
function get_request_handler(s:pointer):pointer;stdcall;
begin