界面库

优化

designer/utslcodeeditor.tsf

@@ -4122,7 +4122,7 @@ type TEditList=class(TComboBox)
     begin
         inherited;
         width := 280;
-        maxListItemShow := 30;
+        dropdowncount := 30;
         FMaxCoder := 20;
         ReadONly := false;
         Editer.OnKeyDown := function(o,e)

funcext/tvclib/tgraphiccontrol.tsf

@@ -114,6 +114,10 @@ type tgraphiccontrol = class(TControl)
     end
     function WMERASEBKGND(o,e):WM_ERASEBKGND;override;
     begin
+        if ftransparent then 
+        begin
+            return 1;
+        end 
         if e.wparam and e.lparam then
         begin
             if(BKBitmap is class(tcustombitmap))and BKBitmap.HandleAllocated()then
@@ -153,6 +157,7 @@ type tgraphiccontrol = class(TControl)
         FTop := 10;
         FWidth := 80;
         FHeight := 25;
+        ftransparent := false;
         includestate(FControlState,csCustomPaint);
     end
     function Recycling();override;
@@ -171,7 +176,18 @@ type tgraphiccontrol = class(TControl)
         end
     end
     property OnPaint:eventhandler read FOnPaint write FOnPaint;
+    property transparent:bool read ftransparent write settransparent;
     {**
     @param(OnPaint)(function[TGraphicControl]:bool) 绘制回调,返回true不执行默认绘制 %%
     **}
+    private
+    ftransparent;
+    function settransparent(v);
+    begin
+        nv := v?true:false;
+        if nv<>ftransparent then 
+        begin
+            ftransparent := nv;    
+        end 
+    end 
 end; 

funcext/tvclib/tslvcl.tsf

@@ -707,7 +707,7 @@ type TLabel = class(TGraphicControl)
     begin
         return array("name","action","align","anchors","caption","enabled","font",
             "popupmenu","visible",
-            "height","width","left","top","color","bkbitmap","parentcolor","parentfont",
+            "height","width","left","top","color","bkbitmap","parentcolor","parentfont","transparent",
             "onpopupmenu","onmousedown","onmouseup");
     end
     {**
@@ -2424,7 +2424,7 @@ type TComboBox = class(TcustomComboBox)
             "visible","anchors","align","enabled","parentcolor","parentfont",
             "height","width","left","top",
             "readonly","itemindex",
-            "items","oncloseup","ondropdown","onselchanged","oneditchanged");
+            "items","dropdowncount","oncloseup","ondropdown","onselchanged","oneditchanged");
     end
 end 
 

funcext/tvclib/utslvclstdctl.tsf

@@ -3689,9 +3689,10 @@ type TCustomComboBoxbase=class(TCustomControl)
     property ondropdown:eventhandler read Fondropdown write Fondropdown;
     property oncloseup:eventhandler read Foncloseup write Foncloseup;
     property BtnWidth read FBtnWidth write SetBtnWidth;
-    property maxListItemShow read FmaxListItemShow write SetmaxListItemShow;
+    property dropdowncount:integer read FmaxListItemShow write SetmaxListItemShow;
     {**
     @param(ItemIndex)(integer)设置当前项序号%%
+    @param(dropdowncount)(integer)下拉列表项数%%
     @param(ondropdown)(function[tcomboBox,tuieventbase])下拉框展开回调%%
     @param(oncloseup)(function[tcomboBox,tuieventbase])下拉框关闭回调%%
     @param(onselchanged)(function[tcomboBox,tuieventbase])当前选项改变回调%%