界面库

添加coolbar

designer/tslvcldesigner.tsf

@@ -2887,7 +2887,54 @@ type TDToolBar = class(TDComponent)
         //r.Cwnd.align := r.Cwnd.alnone;
         return r;
     end 
+end 
+type TDcoolBar = class(TDComponent)
+{**
+    @explan(说明) toolbar 设计器控件 %%
+**}
+    public
+    function HitTip();override;
+    begin
+        return inherited;
+    end 
+    function DefaultAlign();override;
+    begin
+        return true;
+    end 
+    function dclassname();override;
+    begin
+        return "tcoolbar";
+    end 
 
+    function menus();override;
+    begin
+        r := inherited;
+        return r;
+    end 
+    function CheckChild(CD);override;
+    begin
+        return true;
+        //return cd is class(TDToolButton);
+    end 
+
+    function bitmapinfo();override;
+    begin
+        return gettoolbarbitmapinfo();
+    end 
+    function WndClass();override;
+    begin
+        return Class(TcoolBar);
+    end 
+    function Create(AOwner);override;
+    begin
+        inherited;
+    end 
+    function ComponentCreater(tnode,owner);override;
+    begin
+        r := inherited;
+        //r.Cwnd.align := r.Cwnd.alnone;
+        return r;
+    end 
 end 
 type TDStatusBar = class(TDComponent)
 {**
@@ -5532,6 +5579,25 @@ type TGridCellLazyIntegerEdit = class(TGridCellIntegerEdit)
         inherited;
     end 
 end 
+type TGridCellLazystrEdit = class(TGridCellStringEdit) //后处理信息
+    function CreateEditer(AOwner);override;
+    begin
+        return new TGridCellLazystrEdit(AOwner);
+    end
+    function EditType();override;
+    begin
+        return "lazystr";
+    end
+    function LazyProperty();override;
+    begin
+        return true;
+    end 
+    function create(AOwner);override;
+    begin
+        inherited;
+    end 
+end 
+
 //*****************Ñ¡Ôñlist*******************************************
 type UniCheckList = class(TTreeView) //µ¥Ñ¡
     private
@@ -9319,7 +9385,7 @@ begin
                 class(TDMainMenu),class(TDPopUpMenu),class(TDMenu),
                 class(TDOpenFileADlg),class(TDSaveFileADlg),class(TDInputQuerys),
                 class(TDColorChoose),class(TDFontChoose),class(TDFolderChoose),
-                class(TDToolBar),class(TDStatusBar),class(TDToolButton),
+                class(TDcoolBar),class(TDToolBar),class(TDStatusBar),class(TDToolButton),
                 class(TDTray),
                 class(TDActionList),class(TDAction),
                 class(TDQuotations),class(TDtlogincontrol),
@@ -9355,6 +9421,7 @@ begin
             class(TGridCellNaturalEdit),
             class(TGridCellIntegerEdit),
             class(TGridCellLazyIntegerEdit),
+            class(TGridCellLazystrEdit),
             class(TGridCellStringEdit),
             class(TGridCellEventHandleEdit),
             class(TGridCellVariableEdit),