diff --git a/funcext/tvclib/parserch.tsf b/funcext/tvclib/parserch.tsf index adbd59a..838cf08 100644 --- a/funcext/tvclib/parserch.tsf +++ b/funcext/tvclib/parserch.tsf @@ -407,7 +407,7 @@ begin begin indx++; if tokens[indx,2]="//" or tokens[indx,2]="/*" then continue; - tkv := tokens[indx,0]; + tkv := tokens[indx,0]; if tkv="}" then begin return ret; diff --git a/funcext/tvclib/utslvclcefinterface.tsf b/funcext/tvclib/utslvclcefinterface.tsf index ac94e69..e569088 100644 --- a/funcext/tvclib/utslvclcefinterface.tsf +++ b/funcext/tvclib/utslvclcefinterface.tsf @@ -17,6 +17,8 @@ procedure cef_do_message_loop_work(); function cef_execute_process(arg:pointer;app:pointer;dow:pointer):integer; //function IsBadReadPtr(ptr:pointer;ucb:pointer):integer; //function IsBadWritePtr(ptr:pointer;ucb:pointer):integer; +function cef_command_line_get_global():pointer; +function cef_command_line_create():pointer; type cef_point_t = class(tslcstructureobj) private static SSTRUCT; @@ -3321,7 +3323,7 @@ type cef_post_data_t=class(cef_contain_base) //property remove_elements index "remove_elements" read _getvalue_ write _setvalue_; end -type cef_request_t=class(cef_contain_base) +type cef_request_t=class(cef_contain_base) //cef_request_capi.h private function structdescribe();override; begin @@ -3630,7 +3632,7 @@ type cef_command_line_t=class(cef_contain_base) return u.get_values(); end end -type cef_app_t=class(cef_contain_base) +type cef_app_t=class(cef_contain_base) //cef_app_capi.h private function structdescribe();override; begin @@ -3762,10 +3764,47 @@ type cef_window_info_t=class(cef_contain_base) property external_begin_frame_enabled index "external_begin_frame_enabled" read _getvalue_ write _setvalue_; property window index "window" read _getvalue_ write _setvalue_; end -type cef_settings_t=class(cef_contain_base) +type cef_settings_t=class(cef_contain_base) //cef_types.h private function structdescribe();override; begin + /////////////////120.1.8///////////////////// + return array( + ("size","intptr",0), + ("no_sandbox","int",1), + ("browser_subprocess_path","user",getcefstr16struct()), + ("framework_dir_path","user",getcefstr16struct()), + ("main_bundle_path","user",getcefstr16struct()), + ("chrome_runtime","int",0), + ("multi_threaded_message_loop","int",0), + ("external_message_pump","int",0), + ("windowless_rendering_enabled","int",0), + ("command_line_args_disabled","int",0), + ("cache_path","user",getcefstr16struct()), + ("root_cache_path","user",getcefstr16struct()), + ("persist_session_cookies","int",1), + ("persist_user_preferences","int",0), + ("user_agent","user",getcefstr16struct()), + ("user_agent_product","user",getcefstr16struct()), + ("locale","user",getcefstr16struct()), + ("log_file","user",getcefstr16struct()), + ("log_severity","int",3), + ("log_items","int",3), + ("javascript_flags","user",getcefstr16struct()), + ("resources_dir_path","user",getcefstr16struct()), + ("locales_dir_path","user",getcefstr16struct()), + ("pack_loading_disabled","int",0), + ("remote_debugging_port","int",0), + ("uncaught_exception_stack_size","int",0), + ("background_color","int",0), + ("accept_language_list","user",getcefstr16struct()), + ("cookieable_schemes_list","user",getcefstr16struct()), + ("cookieable_schemes_exclude_defaults","int",0), + ("chrome_policy_id","user",getcefstr16struct()), + ("chrome_app_icon_id","int",0) + + ); + /////////////////////105.3.39/ return array( ("size","intptr",0), ("no_sandbox","int",1), @@ -3841,10 +3880,42 @@ type cef_settings_t=class(cef_contain_base) property cookieable_schemes_list index "cookieable_schemes_list" read _getvalue_ write _setvalue_; property cookieable_schemes_exclude_defaults index "cookieable_schemes_exclude_defaults" read _getvalue_ write _setvalue_; end -type cef_browser_settings_t=class(cef_contain_base) +type cef_browser_settings_t=class(cef_contain_base) //cef_types.h private function structdescribe();override; begin + //////////////120.1.8///////////////////////////// + return array( + ("size","intptr",0), + ("windowless_frame_rate","int",30), //0 + ("standard_font_family","user",getcefstr16struct()), + ("fixed_font_family","user",getcefstr16struct()), + ("serif_font_family","user",getcefstr16struct()), + ("sans_serif_font_family","user",getcefstr16struct()), + ("cursive_font_family","user",getcefstr16struct()), + ("fantasy_font_family","user",getcefstr16struct()), + ("default_font_size","int",0), + ("default_fixed_font_size","int",0), + ("minimum_font_size","int",0), + ("minimum_logical_font_size","int",0), + ("default_encoding","user",getcefstr16struct()), + ("remote_fonts","int",0), + ("javascript","int",1),//0 + ("javascript_close_windows","int",0), + ("javascript_access_clipboard","int",0), + ("javascript_dom_paste","int",0), + ("image_loading","int",1),//0 + ("image_shrink_standalone_to_fit","int",0), + ("text_area_resize","int",0), + ("tab_to_links","int",0), + ("local_storage","int",0), + ("databases","int",0), + ("webgl","int",0), + ("background_color","int",0), + ("chrome_status_bubble","int",0), + ("chrome_zoom_bubble","int",0), + ); + /////////////////105.3.39/////////////////////////// return array( ("size","intptr",0), ("windowless_frame_rate","int",30), //0 @@ -3915,7 +3986,7 @@ type cef_browser_settings_t=class(cef_contain_base) property accept_language_list index "accept_language_list" read _getvalue_ write _setvalue_; property chrome_status_bubble index "chrome_status_bubble" read _getvalue_ write _setvalue_; end -type cef_client_t=class(cef_contain_base) +type cef_client_t=class(cef_contain_base) //cef_client_capi.h private fclienthanders ; function structdescribe();override; @@ -6195,6 +6266,16 @@ begin return cef_object_get(h,class( cef_browser_t)); end end +function cef_command_line_get_global():pointer; +begin + _f_ := static function():pointer;cdecl;external getceffunction(functionname()); + return ##_f_(); +end +function cef_command_line_create():pointer; +begin + _f_ := static function():pointer;cdecl;external getceffunction(functionname()); + return ##_f_(); +end procedure cef_run_message_loop(); begin _f_ := static procedure();cdecl;external getceffunction(functionname()); @@ -6210,6 +6291,21 @@ begin _f_ := static function(arg:pointer;app:pointer;dow:pointer):integer;cdecl;external getceffunction(functionname()); return ##_f_(arg,app,dow); end +// Returns CEF version information for the libcef library. The |entry| +// parameter describes which version component will be returned: +// 0 - CEF_VERSION_MAJOR +// 1 - CEF_VERSION_MINOR +// 2 - CEF_VERSION_PATCH +// 3 - CEF_COMMIT_NUMBER +// 4 - CHROME_VERSION_MAJOR +// 5 - CHROME_VERSION_MINOR +// 6 - CHROME_VERSION_BUILD +// 7 - CHROME_VERSION_PATCH +function cef_version_info(entry:integer):integer; +begin + _f_ := static function(entry:integer):integer;cdecl;external getceffunction(functionname()); + return ##_f_(entry); +end function getcefboundsstruct(); diff --git a/tsl语言本地编辑器.docx b/tsl语言本地编辑器.docx index 2f7b831..5ef8cdf 100644 Binary files a/tsl语言本地编辑器.docx and b/tsl语言本地编辑器.docx differ