界面库

修正

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);

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 

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;

funcext/tvclib/tgdiplusflat.tsf

@@ -1,4 +1,4 @@
-type TGdiplusflat=class
+type TGdiplusflat=class()
 {**
 			@explan(说明)gdi+ 的c接口函数 %%
 		**}

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