界面库

整理

designer/tslvcldesigner.tsf

@@ -6814,6 +6814,7 @@ type TPropGrid = class(TTSLDataGrid)
     end 
     function clickediter(o,e);
     begin
+        return FDesigner.openclassfile();//
         if FComponent then 
             FDesigner.AddAndOPenEvent(FComponent.TreeNode);//DBLClickComponent();    
     end 

designer/utslcodeeditor.tsf

@@ -1693,7 +1693,6 @@ type TEditer=class(TCustomcontrol) //
                 end
             end
             DeletePageItem(it);
-            ECHO "==222=>>>";
         end;
         FFindWnd := new TFindWnd(self); //查找
         FGotoLineWnd := new TGoToLineWnd(self); //共同

designer/utslvcldebuger.tsf

@@ -387,7 +387,7 @@ type TTslDebuga=class(TCustomControl)
     begin
         if not FValewnd then
         begin
-            FValewnd := new TTSLDataGrid(self);
+            FValewnd := new tdbgvalueshowgrid(self);
             FValewnd.Visible := false;
             FValewnd.Caption := "Value";
             FValewnd.left := owner.left+100;
@@ -2004,7 +2004,7 @@ end
         end
     end
 end
-type TTSLDataGrid=class(TDrawGrid)
+type tdbgvalueshowgrid=class(TDrawGrid)
     {**
     @explan(说明)TSL数组和对象展示 %%
     **}
@@ -2235,7 +2235,7 @@ type TTSLDataGrid=class(TDrawGrid)
                 return v;
             end
         end
-        o := new TTSlDataGrid(initializeapplication());
+        o := new tdbgvalueshowgrid(initializeapplication());
         o.ControlIndexs(idexs);
         o.height := 500;
         o.width := 500;