界面库

添加splitter

designer/tslvcldesigner.tsf

@@ -2356,6 +2356,40 @@ type TGraphicLabelWindow = class(TDVirutalWindow)
         return true;
     end 
 end 
+type TGraphicsplitterWindow = class(TDVirutalWindow)
+{**
+    @explan(说明) label 控件替代窗口 %%
+**}
+    
+    function paint();override;
+    begin
+        //canvas.Font := font;
+        //al := BindComp.TextAlign;
+        //BindComp.CanvasDrawAlignText(self.canvas,self.ClientRect,self.caption,al);
+    end 
+    function SetPublish(n,v);override;
+    begin
+        r := inherited;
+        //if n="color" then color := v;
+        //if n="bkbitmap" then bkbitmap := v;
+        //if (n="textalign" or n="caption" or n="font" or n="bkbitmap") then InvalidateRect(nil,true);
+        return r;
+    end 
+    function Create(AOwner);override;
+    begin
+        inherited;
+        BindComp := new tsplitter(self);
+        width := BindComp.width;
+        height := BindComp.Height;
+        color := BindComp.color;
+        WindowFileds := array("left","top","width","height","color","visible","enabled","align");
+    end 
+    
+    function DesigningSizer();override;
+    begin
+        return true;
+    end 
+end 
 
 type TDLabel = class(TDComponent)
 {**
@@ -2392,6 +2426,40 @@ type TDLabel = class(TDComponent)
         inherited;
     end 
 end 
+type tdsplitter = class(TDComponent)
+{**
+    @explan(说明) label控件 %%
+**}
+    function HitTip();override;
+    begin
+        return inherited;
+    end 
+    function IsContainer();override;
+    begin
+        return false;
+    end 
+    function ComponentClass();override;
+    begin
+        return class(tsplitter);
+    end 
+    function dclassname();override;
+    begin
+        return "tsplitter";
+    end 
+
+    function WndClass();override;
+    begin
+        return Class(TGraphicsplitterWindow);
+    end 
+    function bitmapinfo();override;
+    begin
+        return  getsplitterbitmapinfo();
+    end 
+    function Create(AOwner);override;
+    begin
+        inherited;
+    end 
+end 
 //****************timmer****************************
 type TTimerWindow = class(TDVirutalWindow)
 {**
@@ -9422,6 +9490,7 @@ begin
                 class(TDmessagebox),
                 class(TDBtn),
                 class(TDLabel),
+                class(tdsplitter),
                 class(TDEdit),
                 class(TDpassword),
                 class(TDmemo),

designer/utslvcldesignerresource.tsf

@@ -33,6 +33,7 @@ function getrunbmpinfo();
 function getwrapprojectbmpinfo();
 function getcreateprojectbmpinfo();
 function geteditcodebitmapinfo();
+function getsplitterbitmapinfo();
 //编辑器图片
 function getdbugerrunbmpinfo(); 
 function getopenfilebmpinfo();
@@ -1215,6 +1216,19 @@ CF7F527EA1C3DA7875C10207E7AA366E2C20907118F56AE3DA023E0ECE2A78100
 4FA02DDADA8831B0B9AD8BCB2A0297CA9A0F59F7E7B0FE20F1D79BA1B7D429BC4
 0000000049454E44AE42608200";
 end 
+function getsplitterbitmapinfo();
+begin
+    return "0502000000060400000074797065000203000000696D670006040000006461746
+100021301000089504E470D0A1A0A0000000D4948445200000018000000180806
+000000E0773DF8000000017352474200AECE1CE90000000467414D410000B18F0
+BFC6105000000097048597300000EC300000EC301C76FA864000000A849444154
+484B63F84F6330422C3874E020062616106DC1FDFBB7E1B8BC7C12548630185C1
+6800C1E3A3E78F6F63B9485DF026475D800560B5EBCFBFE3FB8E13894873F88FC
+6B8FFD7FF2FA1B948709302C80196E91B30F2A82DF072075F82C41B100D970523
+12E4B502CC89C700EAB666231483F3AA0AF0F4080A6710003344D453040D37C80
+0EF0594008906401B620220406970F686A01C850644C2C20CA024A008D2DF8FF1
+F0006015AA04B38837B0000000049454E44AE42608200";
+end     
 { GetSaveFileBitmapInfo
 //保存文件
 "0502000000060400000074797065000203000000696D670006040000006461746