界面库

升级
2023-10-20 17:19:01 +08:00
parent e47352f843
commit 667772a463
5 changed files with 28 additions and 18 deletions
@@ -25,6 +25,8 @@ type teditorform = class(TVCform) //
    function editerinfo();
    begin        
        s :=  "tsl语言本地编辑器\r\n版本:1.0.0\r\n日期:2022-07-19";
+        sc := get_resource_by_name("tsleditor.tsl.about");
+        if ifstring(sc) then return sc;
        f := tslfilename()+".about";
        if fileexists("",f) then 
        begin
@@ -573,6 +573,8 @@ type TVclDesigner = class(tvcform)
    function editerinfo();
    begin        
        s :=  "tsl语言界面设计器\r\n版本:1.0.0\r\n日期:2023-01-19";
+        sc := get_resource_by_name("vcldesigner.tsl.about");
+        if sc then return sc;
        f := tslfilename()+".about";
        if fileexists("",f) then 
        begin