界面库

优化一些接口

designer/utslvcldcomponents.tsf

@@ -928,6 +928,7 @@ type TDVirutalWindow = class(TCustomControl) //
         width := 30;
         height := 30;
         FWindowFileds := array("left","top","height","width"); 
+        ParentFont := true;
     end 
     function paint();override;
     begin
@@ -3639,6 +3640,25 @@ type TDTabSheet = class(TDComponent)
         inherited;
     end 
 end 
+type tdtabctl = class(TDComponent)
+    function HitTip();override;
+    begin
+        return inherited;
+    end 
+    function bitmapinfo();override;
+    begin
+        return gettabctlbitmapinfo();
+
+    end 
+    function WndClass();override;
+    begin
+        return Class(ttabctl);
+    end 
+    function Create(AOwner);override;
+    begin
+        inherited;
+    end 
+end 
 type TDPage = class(TDComponent)
     function HitTip();override;
     begin
@@ -3705,7 +3725,7 @@ begin
         class(TDForm),class(TDPanelForm),
         class(TDPanel),class(TDGroupBox),
         class(TDPairSplitter),class(TDPairSplitterSide),
-        class(TDPage),class(TDTabSheet),
+        class(tdtabctl),class(TDPage),class(TDTabSheet),
         class(TDTimer),
         class(tdworkerctl),
         class(TDImageList),

designer/utslvcldesignerresource.tsf

@@ -72,6 +72,7 @@ function gettoolbarbitmapinfo();
 function getlabelbitmapinfo();
 function getlistviewbitmapinfo();
 function getgridctlbitmapinfo();
+function gettabctlbitmapinfo();
 implementation
 function getexamplesbmpinfo();
 begin
@@ -1476,5 +1477,21 @@ BFC6105000000097048597300000EC300000EC301C76FA864000000A849444154
 12E4B502CC89C700EAB666231483F3AA0AF0F4080A6710003344D453040D37C80
 0EF0594008906401B620220406970F686A01C850644C2C20CA024A008D2DF8FF1
 F0006015AA04B38837B0000000049454E44AE42608200";
-end     
+end
+function gettabctlbitmapinfo();
+begin
+    return "0502000000060400000074797065000203000000696D670006040000006461746
+100025F01000089504E470D0A1A0A0000000D4948445200000014000000140806
+0000008D891D0D000000017352474200AECE1CE90000000467414D410000B18F0
+BFC6105000000097048597300000EC300000EC301C76FA864000000F449444154
+384FD595A10E84301044EF93F9051CC18244D460B120B128122C966FC0F6F236E
+CD123A55072E626D96C774A67A785949731C62649E28D711C6D2C5E2CCCB2CCB6
+6D2BD1759D64152DCBF276B04E04191CC1033EC1B346CA07057D3C3B60EE088EE
+7A782F33C5F0BEA1C811001E7E3790F4141757237B4D1A9602CD4FD9F0852B8A0
+41DFF736CF733B4D938CAF1074B8AEAB08354DB3313BE09765D9AA1D41878026C
+3306CD50E78BEB923820E415555B210376CB9AE6BE18BA290466417970ED33495
+8C20DBD45A33E7EB22E810017875E73A24E3FC781C970E631174F8045F82EE05F
+B343E9743E817101BC618FB068D943D91A4D430F90000000049454E44AE426082
+00";
+end      
 end.

designer/utslvcldpropertytypes.tsf

@@ -2537,6 +2537,26 @@ type tGridCellAlignPos3BoxEdit=class(TOneSelectCell ,TPropertyAlign3)
         return SelRange;
     end 
 end
+type tGridCelllistseltypeEdit=class(TOneSelectCell ,TPropertylistseltype)
+    function CellDrawLabel(dc,rect,d);override;
+    begin
+        if ifarray(d)    then 
+        begin 
+            dc.drawtext(FormatTMF(d["value"]),rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
+        end     
+    end 
+    function create(AOwner);override; 
+    begin
+        inherited;    
+        class(TPropertylistseltype).Create();
+    end 
+    private 
+    function SelPalRange();virtual;
+    begin
+        return SelRange;
+    end 
+end
+
 type tGridCellDayOfWeekBoxEdit=class(TOneSelectCell,TPropertyDayOfWeek)
     function CellDrawLabel(dc,rect,d);override;
     begin
@@ -4506,6 +4526,7 @@ begin
         
         class(tGridCellDayOfWeekBoxEdit),
         class(TGridCellPairIntEdit),
+        class(tGridCelllistseltypeEdit),
         class(TGridCellPairSpliterTypeEdit),
         class(tGridCellAlignPosBoxEdit),
         class(TGridCellTreeViewDataEdit),