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

bjq 

编译-加入缓存记录
This commit is contained in:
tslediter 2024-04-01 14:38:54 +08:00
parent e7b3faeb18
commit 1098e9d6aa
2 changed files with 62 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
designer/utslcodeeditor.tsf
View File

@ -2222,13 +2222,18 @@ type TEditer=class(TCustomcontrol) //
FEchoWnd.Exec("",s,h);
end
compile_config;
fpg_config_infos;
function buildpageitem(it);
begin
if not ifarray(fpg_config_infos) then fpg_config_infos := array();
if not it then return;
ShowEchoWnd();
if FEchoWnd.Exeing()then return FEchoWnd.Endexe();
r := array();
f := it.ScriptPath;
pginf := fpg_config_infos[f];
if not pginf then
begin
if 1=parseregexpr("\\.tsf$",f,"i",m,mp,ml) then
begin
r["build"] := "--buildlib";
@ -2262,7 +2267,12 @@ type TEditer=class(TCustomcontrol) //
r["libpath"] := ds;
if ot then r["output"] := ot;
r["dependsdir"] := replacetext(ds,";",",");
build_with_data(nil,r);
end else
begin
r := pginf;
end
nr := build_with_data(nil,r);
if nr then fpg_config_infos[f] := nr;
end
function get_local_pos(x,y);
begin
@ -5095,7 +5105,10 @@ type TEditerEchoWnd=class(TSynMemoNorm) //
if d["buildgui"] then r+= " -buildgui";
{$ifdef linux}
{$else}
r +=format(' --manifest="%s" ',d["buildfile"]+".manifest");
if fileexists("",(d["buildfile"]+".manifest")) then
begin
r +=format(' --manifest="%s" ',d["buildfile"]+".manifest");
end
{$endif}
return r;
end

50
funcext/tvclib/utslvclcefinterface.tsf
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