界面库

更新帮助

funcext/tvclib/utslvclconstant.tsf

@@ -44,6 +44,15 @@ type TAlign=class(tenumeration)
     {**
     @explan(说明) 自动对齐类型常量 %%
     **}
+    {**
+        @param(alNone)() 不对齐  %%
+        @param(alTop)() 上  %%
+        @param(alBottom)() 下  %%
+        @param(alLeft)() 左对齐  %%
+        @param(alRight)() 右对齐  %%
+        @param(alClient)() 占满  %%
+    **}
+
     static alNone;
     static alTop;
     static alBottom;
@@ -53,7 +62,15 @@ type TAlign=class(tenumeration)
     static alCustom;
 end
 type TAnchorKind=class(tenumeration)
-    //akTop, akLeft, akRight, akBottom
+    {**
+    @explan(说明) 锚定类型常量 %%
+    **}
+    {**
+        @param(akTop)() 上  %%
+        @param(akLeft)() 左  %%
+        @param(akRight)() 右  %%
+        @param(akBottom)()下  %%
+    **}
     static akTop;
     static akLeft;
     static akRight;
@@ -84,14 +101,7 @@ type TComponentStyle=class(tenumeration)
     static csCheckPropAvail;
     static csSubComponent;
     static csTransient;
-end
+end 	
-
-type TOperation=class(tenumeration)
-    static opInsert;
-    static opRemove;
-    static opRecycling;
-end
- 	
 type TWinControlFlag=class(tenumeration)
     static wcfClientRectNeedsUpdate;
     static wcfColorChanged;
@@ -109,9 +119,6 @@ type TWinControlFlag=class(tenumeration)
     static wcfAdjustedLogicalClientRectValid;
     static wcfKillIntfSetBounds;
 end
-
-
-
  
 type TControlStyleType=class(tenumeration)
     static csAcceptsControls; // can have children in the designer;
@@ -148,6 +155,12 @@ type TControlStyleType=class(tenumeration)
     static csRequiresKeyboardInput; // If the device has no physical keyboard then show the virtual keyboard when this control gets focus (therefore available only to TWinControl descendents);
 end
 type TMouseButton=class(tenumeration)
+{**
+    @exlan(说明) 鼠标按键情况 %%
+    @param(mbLeft)(integer) 左键 %%
+    @param(mbRight)(integer) 右键 %%
+    @param(mbMiddle)(integer) 中间按键 %%
+**}
     static mbLeft;
     static mbRight;
     static mbMiddle;
@@ -155,6 +168,13 @@ type TMouseButton=class(tenumeration)
     static mbExtra2;
 end
 type TShiftStateEnum=class(tenumeration)
+{**
+    @exlan(说明) 功能键常量 %%
+    @param(ssShift)(integer) shift %%
+    @param(ssAlt)(integer) alt %%
+    @param(ssCtrl)(integer) ctl %%
+    @param(ssDouble)(integer) 双击 %%
+**}
     static ssShift;
     static ssAlt;
     static ssCtrl;
@@ -280,7 +300,10 @@ type TFormBorderStyle=class(tenumeration)
 end
 type TAlignStyle9=class(tenumeration)
     {**
-    @explan(说明) 九宫格对齐常量 %%
+    @explan(说明) 九宫格对齐常量,al9_ 开头 %%
+    @param(AL9_DEFAULT)(integer) 默认 %%
+    @param(AL9_TOPLEFT)(integer) 顶部 %%
+    @param(AL9_CENTER)(integer) 居 %%
     **}
     static AL9_DEFAULT; //0
     static AL9_TOPLEFT; //1
@@ -297,11 +320,18 @@ type TAlignStyleH3=class(tenumeration)
     {**
     @explan(说明) 水平对齐常量 %%
     **}
+    (**
+        @param(AL3_LEFT)() 左  %%
+        @param(AL3_RIGHT)() 右  %%
+        @param(AL3_CENTER)() 居中  %%
+    **)
+
     static AL3_LEFT; //0
     static AL3_RIGHT; //1
     static AL3_CENTER; //2	
 end
 type TSysCursor=class(tenumeration)
+    
     class function basevalue();override;
     begin
         {
@@ -328,6 +358,11 @@ type TSysCursor=class(tenumeration)
         IDC_SIZE := 32540;
         IDC_NO := 32548;
     end
+    {**
+        @explan(说明)idc_ 开头的 光标样式 %%
+        @param(IDC_ARROW)() 类型  %%
+    **}
+
     static IDC_ARROW; //MAKEINTRESOURCE(32512)
     static IDC_IBEAM; //MAKEINTRESOURCE(32513)
     static IDC_WAIT; //MAKEINTRESOURCE(32514)
@@ -363,11 +398,21 @@ type TPairSplitterType=class(tenumeration)
     static pstVertical;
 end
 
-
 type TMBbtnstyle=class()
     {**
     @explan(说明) TMessageboxADlg 按钮样式常量%%
     **}
+    {**
+        @param(MB_OK)() 样式  %%
+        @param(MB_OKCANCEL)() 样式  %%
+        @param(MB_ABORTRETRYIGNORE)() 样式  %%
+        @param(MB_YESNOCANCEL)() 样式  %%
+        @param(MB_YESNO)() 样式  %%
+        @param(MB_RETRYCANCEL)() 样式  %%
+        @param(MB_CANCELTRYCONTINUE)() 样式  %%
+        @param(MB_HELP)() 样式  %%
+    **}
+
     static MB_OK;
     static MB_OKCANCEL;
     static MB_ABORTRETRYIGNORE;
@@ -381,15 +426,19 @@ type TMBiconstyle=class()
     {**
     @explan(说明)TMessageboxADlg 图标样式常量%%
     **}
+    (**
+        @param(MB_ICONWARNING)() 样式  %%
+        @param(MB_ICONASTERISK)() 样式  %%
+        @param(MB_ICONQUESTION)() 样式  %%
+        @param(MB_ICONSTOP)() 样式  %%
+    **)
+
     static MB_ICONWARNING;
     static MB_ICONASTERISK;
     static MB_ICONQUESTION;
     static MB_ICONSTOP;
 end
 type TDrawitemState=class
-    {**
-    @explan(说明) 系统控件子项绘制时的状态常量 %%
-    **}
     static ODS_SELECTED;
     static ODS_GRAYED;
     static ODS_DISABLED;
@@ -466,7 +515,13 @@ end
  
 type TSystemCursor=class
     {**
-    @explan(说明) 鼠标常量类,作为参考 %%
+    @explan(说明) 鼠标常量类,作为参考ocr_ 开头 %%
+    @param(OCR_WAIT)() 样式  %%
+    @param(OCR_CROSS)() 样式  %%
+    @param(OCR_UP)() 样式  %%
+    @param(OCR_SIZE)() 样式  %%
+    @param(OCR_NO)() 样式  %%
+    @param(OCR_HAND)() 样式  %%
     **}
     static OCR_WAIT; //150
     static OCR_CROSS; //30;
@@ -484,6 +539,9 @@ type TSystemCursor=class
     static OCR_IBEAM; //152
 end
 type tmacroconst=class(_commctrldef_,_tvclmsageid_,_shellapi_)
+{**
+    @explan(说明) 宏定义集合  %%
+**}
     class function sinit();virtual;
     begin
         if tmacroconstinit then return ;
@@ -495,7 +553,7 @@ type tmacroconst=class(_commctrldef_,_tvclmsageid_,_shellapi_)
     static tmacroconstinit;
 end
 type tconstant = class(talign,TAnchorKind,TFormStyle,TComponentState,
-							TComponentStyle,TOperation,TWinControlFlag,
+							TComponentStyle,TWinControlFlag,
 							TControlStyleType,TMouseButton,TShiftStateEnum,
 							TControlFlag,TDockOrientation,TDragKind,TDragMode,
 							TDragState,TDragMessage,TCanvasStates,TFPPenMode,
@@ -510,8 +568,14 @@ end
 type TSLUICONST=class(tmacroconst,tconstant)
     {**
     @explan(说明) 界面库常量类 %%
+    @param(opRemove)() 移除 %%
+    @param(opInsert)() 插入 %%
+    @param(opRecycling)() 销毁 %%    
     **}
     static WM_TRAY;
+    static opInsert;
+    static opRemove;
+    static opRecycling;
     class function sinit();override;
     begin
         if WM_TRAY>0 then return ;
@@ -2023,6 +2087,9 @@ type _gdi_h_=class()
     end
 end
 type _winuserdef_=class()
+{**
+    @explan(说明)一些常量 如按键相关的vk_开头,系统消息相关的常量wm_开头%%
+**}
     static WINUSERAPI;static WINABLEAPI;static WINVER;
     static MAKEINTRESOURCE;static DIFFERENCE;static RT_MANIFEST;
     static CREATEPROCESS_MANIFEST_RESOURCE_ID;static ISOLATIONAWARE_MANIFEST_RESOURCE_ID;static ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID;
@@ -5719,6 +5786,9 @@ type _commctrldef_=class(_socketdef_,_gdi_h_,_commdlg_)
     end
 end
 type _tvclmsageid_ = class()
+{**
+    @explan(说明)tslvcl库重新定义的消息等常量lm_开头 %
+**}
     static  LM_USER;static  WM_USER;static  LM_LCL;
     static  LM_ACTIVATEITEM;static  LM_CHANGED;static  LM_FOCUS;
     static  LM_CLICKED;static  LM_RELEASED;static  LM_ENTER;

funcext/tvclib/utslvclevent.tsf

@@ -321,6 +321,10 @@ type TMMouse=class(tuieventbase)
     property ypos:integer read hilparamsigned;
     function pos();
     begin
+    {**
+        @explan(说明) 获得位置信息 %%
+        @return(array) x,y 位置 %%
+    **}
         return array(xpos(),ypos());
     end
     property Dummy read Lparam;