界面库

优化细节

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;

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
+        Color := _wapi.GetSysColor(COLOR_MENUBAR);
-    function CreateParams(p);override;
-    begin
-        inherited;
     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
     {**