开发工具

添加许可协议

designer/tslediter.tsl.about

@@ -1,3 +1,31 @@
-"tsl语言本地编辑器about
+tsl语言本地编辑器
 版本:1.0.0
-日期:2022-07-19"
+日期:2022-07-19
+使用前请阅读<TSL语言许可权利和限制>
+许可权利和限制
+深圳市天软科技开发有限公司（以下简称天软）授予您使用程序的非排他性、不可转让、有限的许可，但必须遵守本协议和计划文档中规定的限制，仅限于在如下用途使用：
+(I)	个人自用
+(II)	开发用途
+(III)	天软许可的产品中使用
+(IV)	获得天软的独立商用许可后在商业用途中使用
+被允许或禁止的行为
+您可以在合理必要的范围内复制程序，以行使本协议中授予的许可权。
+您不得有如下行为：
+(I)	删除或修改任何程序标记或包含有天软的专有权利的任何信息；
+(II)	以任何方式将程序提供给任何第三方，除非该第三方是代表您行事的承包商；
+(III)	转让本协议或将程序或其中的权益分发、赠送或转让给任何第三方，除非该第三方为代表您行事的承包商仅在为您开发的范畴内使用；
+(IV)	对程序进行反向工程、反汇编或反编译，除非是法律明确许可的范围。
+(V)	程序可能包含源代码，除非在本协议中明确许可用于其他目的(例如，在开放源码许可下许可)，否则根据本协议的条款提供的源代码仅供参考，不得修改。
+权利说明
+(I)	天软保留本协议中未明确授予的所有权利。如果您要将程序用于本协议明确允许之外的任何目的，均必须从天软或天软的经销商处获得有效的程序许可证。
+(II)	天软或其许可方保留程序的所有所有权和知识产权。
+(III)	所使用到的第三方技术或程序可能具有独立的条款，您需要在使用第三方技术或程序时遵守第三方技术的单独条款，第三方技术的权利不受本协议的任何限制。
+(IV)	随软件可能附带有一些源代码，您需要遵守本协议以及源代码的相关的权利约束，这些源代码如果是第三方的，您还需要遵守第三方的源代码权利许可约束。
+信息收集
+程序的安装或自动更新过程可能会向天软或其服务提供商传输有关这些过程的数据，以帮助天软了解和优化这些过程。天软不会将这些数据与个人身份信息相关联。
+免责声明
+这些程序按原样提供，不提供任何形式的担保，且天软拒绝所有明示和默示的保证，包括但不限于对适销性、特定用途的适用性或不侵权的任何默示担保。
+在任何情况下，除非适用法律要求，否则天软不对您承担任何损害责任，包括因使用或无法使用程序而造成的任何一般、特殊、附带或后果性损害(包括但不限于数据丢失或数据变得不准确、您或第三方遭受的损失或程序无法与任何其他程序一起运行)，即使该持有者或其他方已被告知此类损害的可能性。
+出口管制
+中国的出口法律法规和任何其他相关的当地出口法律法规适用于这些项目。您同意此类出口管制法律管辖您对本协议下提供的程序(包括技术数据)和任何可交付服务的使用，并且您同意遵守所有此类出口法律和法规(包括“视为出口”和“视为再出口”规定)。您同意，程序或服务(或其直接产品)产生的任何数据、信息、程序和/或材料将不会直接或间接地违反这些法律而出口，也不会被用于这些法律禁止的任何目的。
+

designer/tslvcldesigner.tsf

@@ -499,6 +499,7 @@ type TVclDesigner = class(tvcform)
             ("type":"menu","caption":"编辑器颜色","checked":0,"onclick":thisfunction(showhltcolor))
             )),
         ("type":"menu","caption":"帮助","items":(
+            ("type":"menu","caption":"关于","onclick":thisfunction(openabout)),
             ("type":"menu","caption":"使用手册","onclick":thisfunction(OpenHelp),
             "bitmap":getmanubmpinfo()),
             ("type":"menu","caption":"控件详情","onclick":thisfunction(OpenHelp),
@@ -554,6 +555,25 @@ type TVclDesigner = class(tvcform)
         end 
         return r;
     end 
+    function openabout(o,e);
+    begin
+        return messageboxa(static editerinfo(),"关于",0,self.Handle);
+        
+    end 
+    function editerinfo();
+    begin        
+        s :=  "tsl语言界面设计器\r\n版本:1.0.0\r\n日期:2023-01-19";
+        f := tslfilename()+".about";
+        if fileexists("",f) then 
+        begin
+            size := filesize("",f);
+            if readFile(rwraw(),"",f,0,size,data) then 
+            begin
+                return data;
+            end 
+        end         
+        return s;
+    end 
     function OpenHelp(o,e); //打开帮助
     begin
         if not FChmHelper then 

designer/utslvcldebuger.tsf

@@ -869,8 +869,13 @@ type TTslDebuga=class(TCustomControl)
         if not Fdebugedwhandle then 
             Fdebugedwhandle := GetWindowHandleByPID(_wapi.GetProcessId(fdebugproc.Handle),_wapi);
         if Fdebugedwhandle then 
-        begin
+        begin        
+            //echo "\r\nSetForegroundWindow===>",Fdebugedwhandle;
+            //_wapi.ShowWindow(Fdebugedwhandle,SW_SHOW);
             _wapi.SetForegroundWindow(Fdebugedwhandle);
+            //_wapi.PostMessageA(Fdebugedwhandle,WM_ACTIVATEAPP,1,systhreadid());
+            //_wapi.SetActiveWindow(Fdebugedwhandle);
+            //_wapi.SendMessageA(Fdebugedwhandle,WM_ACTIVATEAPP,true,systhreadid());
         end 
         {$endif}       
     end 

designer/vcldesigner.tsl.about

@@ -0,0 +1,31 @@
+tsl语言本界面开发工具
+版本:1.0.0
+日期:2023-01-19
+使用前请阅读<TSL语言许可权利和限制>
+许可权利和限制
+深圳市天软科技开发有限公司（以下简称天软）授予您使用程序的非排他性、不可转让、有限的许可，但必须遵守本协议和计划文档中规定的限制，仅限于在如下用途使用：
+(I)	个人自用
+(II)	开发用途
+(III)	天软许可的产品中使用
+(IV)	获得天软的独立商用许可后在商业用途中使用
+被允许或禁止的行为
+您可以在合理必要的范围内复制程序，以行使本协议中授予的许可权。
+您不得有如下行为：
+(I)	删除或修改任何程序标记或包含有天软的专有权利的任何信息；
+(II)	以任何方式将程序提供给任何第三方，除非该第三方是代表您行事的承包商；
+(III)	转让本协议或将程序或其中的权益分发、赠送或转让给任何第三方，除非该第三方为代表您行事的承包商仅在为您开发的范畴内使用；
+(IV)	对程序进行反向工程、反汇编或反编译，除非是法律明确许可的范围。
+(V)	程序可能包含源代码，除非在本协议中明确许可用于其他目的(例如，在开放源码许可下许可)，否则根据本协议的条款提供的源代码仅供参考，不得修改。
+权利说明
+(I)	天软保留本协议中未明确授予的所有权利。如果您要将程序用于本协议明确允许之外的任何目的，均必须从天软或天软的经销商处获得有效的程序许可证。
+(II)	天软或其许可方保留程序的所有所有权和知识产权。
+(III)	所使用到的第三方技术或程序可能具有独立的条款，您需要在使用第三方技术或程序时遵守第三方技术的单独条款，第三方技术的权利不受本协议的任何限制。
+(IV)	随软件可能附带有一些源代码，您需要遵守本协议以及源代码的相关的权利约束，这些源代码如果是第三方的，您还需要遵守第三方的源代码权利许可约束。
+信息收集
+程序的安装或自动更新过程可能会向天软或其服务提供商传输有关这些过程的数据，以帮助天软了解和优化这些过程。天软不会将这些数据与个人身份信息相关联。
+免责声明
+这些程序按原样提供，不提供任何形式的担保，且天软拒绝所有明示和默示的保证，包括但不限于对适销性、特定用途的适用性或不侵权的任何默示担保。
+在任何情况下，除非适用法律要求，否则天软不对您承担任何损害责任，包括因使用或无法使用程序而造成的任何一般、特殊、附带或后果性损害(包括但不限于数据丢失或数据变得不准确、您或第三方遭受的损失或程序无法与任何其他程序一起运行)，即使该持有者或其他方已被告知此类损害的可能性。
+出口管制
+中国的出口法律法规和任何其他相关的当地出口法律法规适用于这些项目。您同意此类出口管制法律管辖您对本协议下提供的程序(包括技术数据)和任何可交付服务的使用，并且您同意遵守所有此类出口法律和法规(包括“视为出口”和“视为再出口”规定)。您同意，程序或服务(或其直接产品)产生的任何数据、信息、程序和/或材料将不会直接或间接地违反这些法律而出口，也不会被用于这些法律禁止的任何目的。
+