界面库

listbox getcurrentselection 优化
2022-10-26 14:44:27 +08:00
parent 80977eb23d
commit 174e8f077c
1 changed files with 24 additions and 4 deletions
@@ -3257,10 +3257,30 @@ type TcustomListBox=class(TCustomListBoxbase)
        {**
        @explan(说明)获取当前选中项的索引，仅用于单选的列表框%%
        **}
-        if FMultisel=0 then
-        begin
-            return FSelBegin;
-        end
+        case FMultisel of 
+            0:      //单选
+            begin
+                return  FSelBegin;
+            end 
+            1:  //连续选择
+            begin
+                return array(FSelBegin,FSelEnd);    
+            end 
+            2:   //间断选择
+            begin
+                r := array();
+                rl := 0;
+                for i,v in FMultisel3Data do 
+                begin
+                    if v then 
+                    begin
+                        r[rl] := i;
+                        rl++;
+                    end 
+                end 
+                return r;
+            end         
+        end 
        return -1;
    end
    function setCurrentSelection(n);virtual;