From 147a737e1201f1ec88cab2b0e493c3140824a6b4 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Wed, 26 Apr 2023 17:08:10 +0800
Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

淇
---
 designer/tediterform.tsf         | 15 +++++++++++++++
 designer/tslvcldesigner.tsf      |  2 +-
 funcext/tvclib/tcontrol.tsf      |  1 +
 funcext/tvclib/tgdiplusflat.tsf  |  2 +-
 funcext/tvclib/ugtkinterface.tsf |  2 +-
 5 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/designer/tediterform.tsf b/designer/tediterform.tsf
index 771d2f7..14e45c4 100644
--- a/designer/tediterform.tsf
+++ b/designer/tediterform.tsf
@@ -1644,6 +1644,21 @@ type tdirviewer = class(tcustomcontrol)
         end 
         FTree.PopupMenu := mus;
         FTree.OnSelChanged := thisfunction(treenodeselchanged);
+        ftree.OnDblClick := function(o,e)
+        begin
+            //echo "dblcock\r\n";
+            nd := ftree.CurrentNode;
+            if not nd then return ;
+            ins := Fnodeinfos[nd.handle];
+            if ins.isfile then 
+            begin
+                fn := ins.fullname();
+                if 1= parseregexpr("\\.(?:tsl|tsf|txt|js|py|css|xml|html|htm|c|cpp|cc|cmd|tfm|bat|h)$",fn,"i",m,mp,ml) then 
+                begin
+                    editnode();    
+                end 
+            end 
+        end 
         selnowork();
     end    
     function treenodeselchanged(o,e);
diff --git a/designer/tslvcldesigner.tsf b/designer/tslvcldesigner.tsf
index 14b5a7b..f815cc3 100644
--- a/designer/tslvcldesigner.tsf
+++ b/designer/tslvcldesigner.tsf
@@ -1943,7 +1943,7 @@ begin
         o := class(TDComponent);
         o.RegestorClassItems(its);
         its := array();
-        o.class(TPropGrid);
+        o := class(TPropGrid);
         for i,v in ini.ReadSectionValues("properties") do  //属性
         begin
             if v then 
diff --git a/funcext/tvclib/tcontrol.tsf b/funcext/tvclib/tcontrol.tsf
index 04584cf..454a97d 100644
--- a/funcext/tvclib/tcontrol.tsf
+++ b/funcext/tvclib/tcontrol.tsf
@@ -573,6 +573,7 @@ type tcontrol = class(tcomponent)
         d := new tvclwindowpos_class(0);
         if SizeChanged then
         begin
+            if AWidth=-3200 or AHeight = -3200 then exit ;
             d.cx := AWidth;
             d.cy := AHeight;
             D.flags := SWP_NOMOVE;
diff --git a/funcext/tvclib/tgdiplusflat.tsf b/funcext/tvclib/tgdiplusflat.tsf
index 04cdccb..39175a1 100644
--- a/funcext/tvclib/tgdiplusflat.tsf
+++ b/funcext/tvclib/tgdiplusflat.tsf
@@ -1,4 +1,4 @@
-type TGdiplusflat=class
+type TGdiplusflat=class()
 {**
 			@explan(说明)gdi+ 的c接口函数 %%
 		**}
diff --git a/funcext/tvclib/ugtkinterface.tsf b/funcext/tvclib/ugtkinterface.tsf
index 7f106aa..ab587d3 100644
--- a/funcext/tvclib/ugtkinterface.tsf
+++ b/funcext/tvclib/ugtkinterface.tsf
@@ -8529,7 +8529,7 @@ begin
     end 
     unit(uvclthreadworker).RunThreadWorkerHost();
     GLobal G_GTK_MESSAGE_QUEUE_A;  
-    if r=0 then sleep(1);
+    if r=0 then sleep(30);
     //G_GTK_MESSAGE_QUEUE_A.idleworked := r;
     return true;
 end