界面库

优化细节
2022-08-11 11:46:59 +08:00 · 2022-08-11 11:46:59 +08:00 · 8ea9849190
parent 3d3a47f190
commit 8ea9849190
2 changed files with 66 additions and 11 deletions
--- a/designer/tslvcldesigner.tsf
+++ b/designer/tslvcldesigner.tsf
@ -98,7 +98,7 @@ type TDComponent = class()
    {**
        @explan(说明)工具栏提示 该函数必须override%%
    **}
-    
+        return dclassname();
        return "tcomponent";
    end 
    function classification();virtual;
@ -2281,6 +2281,7 @@ type TDImageList = class(TDRootComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "图像列表";
    end 
    function bitmapinfo();override;
@ -2361,6 +2362,7 @@ type TDLabel = class(TDComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "静态文本框";
    end 
    function IsContainer();override;
@ -2411,6 +2413,7 @@ type TDTimer = class(TDRootComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "定时器";
    end 

@ -2519,10 +2522,12 @@ type TDOpenFileADlg = class(TDRootComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "文件选择";
    end 
    function classification();override;
    begin
+        return inherited;
        return "对话框";
    end 
    function bitmapinfo();override;
@ -2606,6 +2611,7 @@ type TDInputQuerys = class(TDRootComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "数据输入对话框";
    end 
    function bitmapinfo();override;
@ -2828,6 +2834,7 @@ type TDToolBar = class(TDComponent)
    public
    function HitTip();override;
    begin
+        return inherited;
        return "工具栏";
    end 
    function DefaultAlign();override;
@ -2884,6 +2891,7 @@ type TDStatusBar = class(TDComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "状态栏";
    end 
    function dclassname();override;
@ -2938,6 +2946,7 @@ type TDTray = class(TDRootComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "托盘";
    end 
    function dclassname();override;
@ -3014,6 +3023,7 @@ type TDMainMenu = class(TDMenuBase)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "主菜单";
    end 
    function ComponentClass();override;
@ -3051,6 +3061,7 @@ type TDMenu = class(TDMenuBase)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "menu通过右键添加";
    end 
    function classification();override;
@ -3111,6 +3122,7 @@ type TDAction = class(TDComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "taction通过右键添加";
    end 
    function IsContainer();override;
@ -3280,6 +3292,7 @@ type TDPopUpMenu = class(TDMenuBase)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "右键菜单";
    end 
    function libs();override;
@ -3313,6 +3326,7 @@ end
 type TDClipBoard = class(TDRootComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "剪切板";
    end 
    function libs();override;
@ -3351,6 +3365,7 @@ end
 type TDQuotations = class(TDRootComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "行情订阅";
    end 
    function libs();override;
@ -3516,6 +3531,7 @@ type TDTreeView  = class (TDComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "树控件";
    end 
    function dclassname();override;
@ -3627,6 +3643,7 @@ type TDListView = class(TDComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "列表视图控件";
    end 
    function IsContainer();override;
@ -7976,6 +7993,7 @@ end
 type TDedit= class(TDComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "文本框控件";
    end 
    function bitmapinfo();override;
@ -8014,6 +8032,7 @@ end
 type TDmemo= class(TDComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "多行文本";
    end 
    function bitmapinfo();override;
@ -8082,6 +8101,7 @@ end
 type TDpassword= class(TDComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "密码框";
    end 
    function bitmapinfo();override;
@ -8158,6 +8178,7 @@ end
 type TDcomboBox= class(TDComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "下拉选择框";
    end 
    function bitmapinfo();override;
@ -8243,6 +8264,7 @@ type TDradiobtn  = class(TDComponent)

    function HitTip();override;
    begin
+        return inherited;
        return "单选框";
    end 
    function bitmapinfo();override;
@ -8292,6 +8314,7 @@ type TDipaddr= class(TDComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "ip地址控件";
    end 
    function bitmapinfo();override;
@ -8401,6 +8424,7 @@ type TDListBox=class(TDComponent)
    end
    function HitTip();override;
    begin
+        return inherited;
        return "列表框";
    end
    function dclassname();override;
@ -8468,6 +8492,7 @@ type TDCalendar=class(TDComponent)
    end
    function HitTip();override;
    begin
+        return inherited;
        return "日历";
    end
    function dclassname();override;begin
@ -8509,6 +8534,7 @@ type TDProgressBar=class(TDComponent)
        return 0;
    end
    function HitTip();override;begin
+        return inherited;
        return "进度条";
    end
    function dclassname();override;begin
@ -8550,6 +8576,7 @@ type TDCheckBtn=class(TDComponent)
        return 0;
    end
    function HitTip();override;begin
+        return inherited;
        return "复选框";
    end
    function dclassname();override;begin
@ -8606,6 +8633,7 @@ public
        return 0;
    end
    function HitTip();override;begin
+        return inherited;
        return "时间日期选择";
    end
    function dclassname();override;begin
@ -8637,6 +8665,7 @@ type TDTimePicker=class(TDComponent)
        return 0;
    end
    function HitTip();override;begin
+        return inherited;
        return "时间选择";
    end
    function dclassname();override;begin
@ -8774,6 +8803,7 @@ end
 type TDPanel = class(TDComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "容器控件";
    end 
 
@ -8822,6 +8852,7 @@ type TDGroupBox = class(TDComponent)
 **}
    function HitTip();override;
    begin
+        return inherited;
        return "分组框";
    end 
    function dclassname();override;
@ -8857,6 +8888,7 @@ end
 type TDBtn = class(TDComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "按钮";
    end 
    function IsContainer();override;
@ -8900,6 +8932,7 @@ end
 type TDPairSplitterSide = class(TDComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "PairSplitterSide\r\n在splitter控件中右键添加";
    end 
    function dclassname();override;
@ -8946,6 +8979,7 @@ end
 type TDPairSplitter = class(TDComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "成对分配器";
    end 
    function dclassname();override;
@ -9017,6 +9051,7 @@ type TDTabSheet = class(TDComponent)
    end 
    function HitTip();override;
    begin
+        return inherited;
        return "pagesheet\r\n在page控件中右键添加";
    end 
    function dclassname();override;
@ -9065,6 +9100,7 @@ end
 type TDPage = class(TDComponent)
    function HitTip();override;
    begin
+        return inherited;
        return "页面控件";
    end 
    function dclassname();override;
--- a/funcext/tvclib/tslvcl.tsf
+++ b/funcext/tvclib/tslvcl.tsf
@ -1554,7 +1554,7 @@ type tbtn = class(tcustombtn)
    function publishs();override;
    begin
        return  array("name","action","left","top","width","height",
-            "align","anchors","caption","font","enabled","visible","bkbitmap","color","tabstop","onclick","onmousemove");
+            "align","anchors","caption","font","enabled","visible","bkbitmap","color","tabstop","onclick","onmousemove","onsetfocus","onkillfocus");
    end 

 end 
@ -2994,7 +2994,7 @@ type TPairSplitterSide=class(TCustomControl)
        return array("name","border","caption","color","popupmenu","bkbitmap","wsdlgmodalframe","onsize");
    end
 end
-type TPairSplitter=class(TWinControl) //
+type TPairSplitter=class(tcustomcontrol) //
    {**
    @explan(ËµÃ÷)·Ö¸î¿Ø¼þ %%
    **}
@ -3031,7 +3031,7 @@ type TPairSplitter=class(TWinControl) //
    end
    Function SetSplitterType(v);
    begin
-        if v in array(pstHorizontal,pstVertical)and v <> FSplitterType then
+        if (v in array(pstHorizontal,pstVertical)) and v <> FSplitterType then
        begin
            FSplitterType := v;
            if FSplitterType=pstVertical then cursor := OCR_SIZENS else cursor := OCR_SIZEWE;
@ -3078,10 +3078,7 @@ type TPairSplitter=class(TWinControl) //
        FSplitterType := pstHorizontal;
        cursor := OCR_SIZEWE;
        FWill_Drag := true;
-    end
-    function CreateParams(p);override;
-    begin
-        inherited;
+        Color := _wapi.GetSysColor(COLOR_MENUBAR);
    end
    function AddSide(ASide);
    begin
@ -3110,12 +3107,32 @@ type TPairSplitter=class(TWinControl) //
            begin
                _wapi.ImageList_DragLeave(self.Handle);
                _wapi.ImageList_EndDrag();
+                r := ClientRect;
                if FSplitterType=pstHorizontal then
                begin
-                    FPosition := e.xpos;
+                    x := e.xpos ;
+                    if x<(r[0]+2) then 
+                    begin
+                        x := r[0]+5;
+                    end else
+                    if x>(r[2]-2) then 
+                    begin
+                        x := r[2]-5;
+                    end 
+                    FPosition := x;
                end else
                begin
-                    FPosition := e.ypos;
+                    x :=  e.ypos;
+                    if x<(r[1]+2) then 
+                    begin
+                        x := r[1]+5;
+                    end else
+                    if x>(r[3]-2) then 
+                    begin
+                        x := r[3]-5;
+                    end 
+                    
+                    FPosition :=x;
                end
                EnabledChild(true);
                FWill_Drag := true;
@ -3225,6 +3242,7 @@ type TPairSplitter=class(TWinControl) //
    end
    function WMERASEBKGND(o,e):WM_ERASEBKGND;override;
    begin
+        return inherited;
        dc := e.wparam;
        if dc then
        begin
@ -3265,12 +3283,13 @@ type TPairSplitter=class(TWinControl) //
            e.Result := 1;
        end
    end
+    
    property Position:integer read GetPosition write SetPosition;
    property SplitterType:SplitterType read FSplitterType write SetSplitterType;
    function publishs();override;
    begin
        return array("name","left","top","width","height",
-            "align","anchors","border","caption","enabled","visible","SplitterType","position",
+            "align","anchors","border","caption","enabled","visible","splittertype","position",
            "wsdlgmodalframe","wscaption","wspopup","wssizebox","wssysmenu");
    end
    {**