gtk

优化gtk消息处理

designer/teditorform.tsf

@@ -1271,7 +1271,13 @@ type TBlockManager=class(TVCForm)
             FEditer.EndModal();
         end 
         FList.OnDblClick :=function(o,e)begin
-            FEditer.caption := "修改代码块...";
+            if FList.SelectedId>=0 then 
+            begin 
+                FEditer.caption := "修改代码块...";
+            end else 
+            begin
+                FEditer.caption := "添加代码块..."
+            end 
             FEditer.SetData(FList.SelectedValue);
             FEditer.showmodal();
         end 
@@ -1327,7 +1333,6 @@ type TBlockManager=class(TVCForm)
             if v[1] and v[2] and v[3] then r[ri++] := array("prefix":v[0],"caption":v[1],"value":v[2],"valueext":v[3]);
         end 
         r union2= array();
-        
         return r;
     end 
     function SetData(d);