编辑器

优化

designer/tslvcldesigner.tsf

@@ -1433,7 +1433,7 @@ type TVclDesigner = class(tvcform)
         ic.Readvcon(HexFormatStrToTsl(GetTsIconBitmapInfo()));
         self.FormICon := ic;        
         //文件打窗口        
-        FProjectFileOpener := new  TOpenFileADlg(self);
+        FProjectFileOpener := new  TSavefileADlg(self);
         FProjectFileOpener.filter := array("tvcl工程":"*.tpj");
         FProjectFileOpener.parent := self;
         FProjectManager.FTslEditer.setdbugruncall(thisfunction(debugproject)); //设置调试回调

designer/utslvcldcomponents.tsf

@@ -318,6 +318,7 @@ type TDComponent = class()
                 dm := MessageBoxA("即将剪切:"+nd.Caption,"删除",(0x1 .| 0x30),nd.owner);//
             end else dm := MessageBoxA("即将删除:"+nd.Caption,"删除",(0x1 .| 0x30),nd.owner);//
             if dm<>1 then exit;
+            if not nd.owner then exit;
             d := nd.owner.Designer;
             if f then 
                 d.cutnode(nd); 

designer/utslvcldpropertytypes.tsf

@@ -1502,6 +1502,8 @@ type TGridCellNaturalEdit = class(TGridPropertyRender,TPropertyNatural)
     function Ched(o,e);
     begin
         v := textonumber(o.TEXT);
+        if flastvalue = v then return ;
+        flastvalue := v;
         FGrid.CellChanged(FRow,FCol,"value",v);
         //o.parent.CallChanged(o.parent,nil);
     end 
@@ -1562,10 +1564,12 @@ type TGridCellNaturalEdit = class(TGridPropertyRender,TPropertyNatural)
         @explan(说明) 离开编辑格子 %%
     **}
         if not(FEdit is class(TPopEditCtrl)) then exit;
-        FEdit.text := "";
+        //FEdit.text := "";
         FEdit.visible := false;
         inherited;
     end;
+    private 
+    flastvalue;
     
 end 
 type TGridCellIntegerEdit = class(TGridCellNaturalEdit)
@@ -2478,7 +2482,7 @@ type UniCheckList = class(TTreeView) //
         if nit >=0 then
         begin
             inherited;
-            if CurrentNode<>nit then 
+            if CurrentNode and CurrentNode<>nit then 
             begin 
                 DoOnSelChang(CurrentNode._tag);
             end