type tcustomscrollcontrol = class(TCustomControl)
{**
    @explan(说明)带滚动条的窗口类 %%
**}
    uses utslvclmemstruct;
    {**
    @explan(说明) 带滚动条的自绘制窗口 %%
    **}
    private 
    FLocalX;//水平基准
    FLocalXold;
    FLocalY;//垂直基准
    FLocalYold;
    FSI; //滚动条结构
    FAutoScroll; //自动滚动条
    FThumbTrack; //thunmtrack
    FWhileStep ;//滚动步长
    function SetAutoScroll(v);
    begin
        if(v in array(0,1,2,3))and v <> FAutoScroll then
        begin
            FAutoScroll := v;
            InitialScroll();
        end
    end

    function SetWhileStep(v);
    begin
        if not(v>=1) then return ;
        nv := integer(v);
        if FWhileStep=nv then return ;
        FWhileStep := nv;
    end
    protected
    function GetXScrollDelta();virtual; //x间隔
    begin
        {**
        @explan(说明) 获得x间隔 %%
        **}
        return 10;
    end
    function GetYScrollDelta();virtual; //y 间隔
    begin
        {**
        @explan(说明) 获得y间隔 %%
        **}
        return 10;
    end
    function GetClientXCapacity();virtual; //宽度容量
    begin
        {**
        @explan(说明) 客户区x容量 %%
        **}
        return 0;
    end
    function GetClientYCapacity();virtual; //高度容量
    begin
        {**
        @explan(说明) 客户区y容量 %%
        **}
        return 0; //integer((yClient) / FDeltaY);
    end
    function GetClientXCount();virtual; //宽度间隔
    begin
        {**
        @explan(说明) 客户区x数量 %%
        **}
        return 0;
    end
    function GetClientYCount();virtual; //高度项
    begin
        {**
        @explan(说明) 客户区y数量 %%
        **}
        return 0;
    end
    function PositionChanged();virtual; //基准点改变
    begin
        {**
        @explan(说明) 基准点改变回调 %%
        **}
    end
    function GetDeltaXpos();virtual; //水平变化
    begin
        r := FLocalX-FLocalXold;
        FLocalXold := FLocalX;
        return r;
    end
    function GetDeltaYpos();virtual; //垂直变化
    begin
        r := FLocalY-FLocalYold;
        FLocalYold := FLocalY;
        return r;
    end
    function GetXPos();virtual;
    begin
        return FLocalX;
    end
    function GetYPos();virtual;
    begin
        return FLocalY;
    end
    function SetXpos(x);virtual;
    begin
        nx := integer(x);
        if not HandleAllocated()then return FLocalX := nx;
        if nx <> FLocalX then
        begin
            hwnd := Handle;
            FSI.fMask := SIF_POS; //SIF_ALL;
            _wapi.GetScrollInfo(hwnd,SB_HORZ,FSI._getptr_);
            ypos := FSI.nPos;
            hwnd := Handle;
            FSI.fMask := SIF_POS;
            FSI.nPos := nx;
            _wapi.SetScrollInfo(hwnd,SB_HORZ,FSI._getptr_,TRUE);
            // 获得滚动条滑块的位置，由于窗口调整，它可能不是同一个值
            _wapi.GetScrollInfo(hwnd,SB_HORZ,FSI._getptr_);
            if FSI.nPos <> ypos then
            begin
                FLocalXold := FLocalX;
                FLocalX := FSI.nPos;
                PositionChanged();
            end
        end
    end
    function SetYpos(y);virtual;
    begin
        nx := integer(y);
        if not HandleAllocated()then return FLocalY := nx;
        if nx <> FLocalY then
        begin
            hwnd := Handle;
            FSI.fMask := SIF_POS; //SIF_ALL;
            _wapi.GetScrollInfo(hwnd,SB_VERT,FSI._getptr_);
            ypos := FSI.nPos;
            FSI.nPos := nx;
            FSI.fMask := SIF_POS;
            _wapi.SetScrollInfo(hwnd,SB_VERT,FSI._getptr_,TRUE);
            // 获得滚动条滑块的位置，由于窗口调整，它可能不是同一个值
            _wapi.GetScrollInfo(hwnd,SB_VERT,FSI._getptr_);
            if FSI.nPos <> ypos then
            begin
                FLocalYold := FLocalY;
                FLocalY := FSI.nPos;
                PositionChanged();
            end
        end
    end
    function InitialScroll();virtual;
    begin
        if not HandleAllocated()then return;
        hwnd := Handle;
        // 设置垂直滚动条范围和页面大小（设置页面大小将决定滑块的粗细）
        FSI.fMask := SIF_POS .| SIF_RANGE .| SIF_PAGE;
        FSI.nMin := 0;
        FSI.nPos := FLocalY; //20200709 
        FSI.nMax :=(FAutoScroll .& 1)?(GetClientYCount()):0;
        FSI.nPage := GetClientYCapacity();
        _wapi.SetScrollInfo(hwnd,SB_VERT,FSI._getptr_,true);
        {if FSI.nMax>FSI.nPage  then 
        begin 
        FLocalYold := FLocalY;
        FLocalY := 0;
        end else 
        begin }
        FSI.fMask := SIF_POS;
        _wapi.GetScrollInfo(hwnd,SB_VERT,FSI._getptr_);
        FLocalYold := FLocalY;
        FLocalY := FSI.nPos;
        //end 
        // 设置水平滚动条范围和页面大小（设置页面大小将决定滑块的粗细） 
        FSI.cbSize := FSI._size_;
        FSI.fMask := SIF_RANGE .| SIF_PAGE .| SIF_POS;
        FSI.nMin := 0;
        FSI.nPos := FLocalX;
        FSI.nMax :=(FAutoScroll .& 2)?(GetClientXCount()):0;
        FSI.nPage := GetClientXCapacity();
        _wapi.SetScrollInfo(hwnd,SB_HORZ,FSI._getptr_,TRUE);
        {if FSI.nMax>FSI.nPage  then 
        begin 
        FLocalXold := FLocalX;
        FLocalX := 0;
        end else 
        begin }
        FSI.fMask := SIF_POS;
        _wapi.GetScrollInfo(hwnd,SB_HORZ,FSI._getptr_);
        FLocalXold := FLocalX;
        FLocalX := FSI.nPos;
        //end 
        PositionChanged();
    end
    function DoVScroll(o,e);override;
    begin
        // 获得垂直滚动条的所有信息
        if csDesigning in ComponentState then return;
        FSI.fMask := SIF_ALL;
        hwnd := e.hwnd;
        _wapi.GetScrollInfo(hwnd,SB_VERT,FSI._getptr_);
        // 保存当前滑块位置，迟些进行比较
        yPos := FSI.nPos;
        case e.lowparam of
            // 用户点击键盘 Home 按键
            SB_TOP:
            begin
                FSI.nPos := FSI.nMin;
            end
            // 用户点击键盘 End 按键
            SB_BOTTOM:
            begin
                FSI.nPos := FSI.nMax;
            end
            // 用户点击滚动条上边的三角形
            SB_LINEUP:
            begin
                FSI.nPos -= 1;
            end
            // 用户点击滚动条下边的三角形
            SB_LINEDOWN:
            begin
                FSI.nPos += 1;
            end
            // 用户点击滑块上边的滚动条轴
            SB_PAGEUP:
            begin
                //return ;
                FSI.nPos -= FSI.nPage;
            end
            // 用户点击滑块下边的滚动条轴
            SB_PAGEDOWN:
            begin
                //return ;
                FSI.nPos += FSI.nPage;
            end
            // 用户拖动滚动条
            SB_THUMBTRACK:
            begin
                if FThumbTrack then
                begin
                    FSI.nPos := FSI.nTrackPos;
                end
            end
            SB_THUMBPOSITION:
            begin
                FSI.nPos := FSI.nTrackPos;
            end
        end
        // 设置滚动条滑块的新位置
        if FSI.nPos=yPos then return;
        return SetYpos(FSI.nPos);
        FSI.fMask := SIF_POS;
        _wapi.SetScrollInfo(hwnd,SB_VERT,FSI._getptr_,TRUE);
        // 获得滚动条滑块的位置，由于窗口调整，它可能不是同一个值
        _wapi.GetScrollInfo(hwnd,SB_VERT,FSI._getptr_);
        // 与此前的保存的值进行比较，如果不同则滚动窗口
        FLocalY := FSI.nPos;
        if(FSI.nPos <> yPos)then
        begin
            PositionChanged();
        end
        return 0;
    end
    function DoHScroll(o,e);override;
    begin
        if csDesigning in ComponentState then return;
        FSI.fMask := SIF_ALL;
        _wapi.GetScrollInfo(e.hwnd,SB_HORZ,FSI._getptr_);
        // 保存当前滑块位置，迟些进行比较
        xPos := FSI.nPos;
        case e.lowparam of
            // 用户点击滚动条左边的三角形
            SB_LEFT:
            begin
                FSI.nPos := FSI.nMin;
            end
            SB_RIGHT:
            begin
                FSI.nPos := FSI.nMax;
            end
            SB_LINELEFT:
            begin
                FSI.nPos -= 1;
            end
            // 用户点击滚动条右边的三角形
            SB_LINERIGHT:
            begin
                FSI.nPos += 1;
            end
            // 用户点击滑块左边的滚动条轴
            SB_PAGELEFT:
            begin
                FSI.nPos -= FSI.nPage;
            end
            // 用户点击滑块右边的滚动条轴
            SB_PAGERIGHT:
            begin
                FSI.nPos += FSI.nPage;
            end
            // 用户拖动滚动条
            SB_THUMBTRACK:
            begin
                if FThumbTrack then
                begin
                    FSI.nPos := FSI.nTrackPos;
                end
            end
            SB_THUMBPOSITION:
            begin
                //return ;
                FSI.nPos := FSI.nTrackPos;
            end
        end;
        if FSI.nPos=xPos then return;
        return SetXpos(FSI.nPos);
        // 设置滚动条滑块的新位置
        FSI.fMask := SIF_POS;
        _wapi.SetScrollInfo(e.hwnd,SB_HORZ,FSI._getptr_,TRUE);
        // 获得滚动条滑块的位置，由于窗口调整，它可能不是同一个值
        _wapi.GetScrollInfo(e.hwnd,SB_HORZ,FSI._getptr_);
        // 与此前的保存的值进行比较，如果不同则滚动窗口
        FLocalX := FLocalX;
        FLocalX := FSI.nPos;
        if(FSI.nPos <> xPos)then
        begin
            PositionChanged();
        end
    end
    function DoMouseWheel(o,e);override;
    begin
        if csDesigning in ComponentState then return;
        hwnd := self.Handle;
        FSI.fMask := SIF_ALL;
        _wapi.GetScrollInfo(hwnd,SB_VERT,FSI._getptr_);
        // 保存当前滑块位置，迟些进行比较
        yPos := FSI.nPos;
        dd := 0;        
        edelta := e.delta;
        ew := abs(round(edelta/120));
        if edelta<0 and FSI.nMax>yPos then
        begin
            //dd++;
            dd += FWhileStep*ew;
        end
        if edelta>0 and FSI.nMin<yPos then
        begin
            //dd--;
            dd -= FWhileStep*ew;
        end
        if not dd then return;
        FSI.fMask := SIF_POS;
        FSI.nPos := yPos+dd;
        _wapi.SetScrollInfo(hwnd,SB_VERT,FSI._getptr_,TRUE);
        // 获得滚动条滑块的位置，由于窗口调整，它可能不是同一个值
        _wapi.GetScrollInfo(hwnd,SB_VERT,FSI._getptr_);
        dd := yPos-FSI.nPos;
        FLocalYold := FLocalY;
        FLocalY := FSI.nPos;
        if dd then
        begin
            PositionChanged();
        end
    end
    public
    function Create(AOwner);override;
    begin
        FWhileStep := 3;
        inherited;        
    end
    function AfterConstruction();override;
    begin
        inherited;
        FThumbTrack := true;
        FLocalX := 0;
        FLocalY := 0;
        FLocalXold := 0;
        FLocalYold := 0;
        FAutoScroll := 0;
        FSI := new TScrollinfo();
        FSI.cbSize := FSI._size_;
    end 
    property AutoScroll:integer read FAutoScroll write SetAutoScroll;
    property ThumbTrack:bool read FThumbTrack write FThumbTrack;
    property WhileStep:integer  read FWhileStep write SetWhileStep; //滚动步长
    {**
        @param(AutoScroll)(integer) 0,1,2,3 滚动条模式 %%     
        @param(ThumbTrack)(bool) 拖动按钮 %%     
        @param(WhileStep)(integer) 滚动步长 %%     
    **}

end