界面库

修正

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