FiveTech Support Forums

MIO_PNG RCDATA "S_1.png"

// Exemplo de código para xBrowse com ícones 48x48
oCol := oBrw:AddCol()
oCol:bStrData    := { || "" }
oCol:nDataStrAlign := AL_CENTER
oCol:AddBitmap( { "icon1.bmp", "icon2.bmp", "icon3.bmp" } ) // Carrega os 3 ícones
oCol:nWidth      := 150 // Espaço suficiente para 3 ícones 48x48 lado a lado

// Evento ao mover o mouse dentro da célula
oCol:bMMoved := { | nRow, nCol, nFlags | ;
    If( nCol > 10 .and. nCol < 50, ; // Ajuste as coordenadas X de cada ícone
        oBrw:oCursor := oCursorHand(), ; // Define a mãozinha
        oBrw:oCursor := nil ) ; // Volta ao cursor padrão
}

#include "FiveWin.ch"
#include "xbrowse.ch"

Function Main()
    local oWnd, oBrw, oCol
    local oHand, oArrow
    

DEFINE CURSOR oHand HAND
DEFINE CURSOR oArrow ARROW

// ... setup browse and data ...

oBrw:bMMoved := { |nRow, nCol, nKeyFlags| 
    CheckIconHover(oBrw, nRow, nCol, oHand, oArrow) 
}

// ... activate browse ...
return nil

Function CheckIconHover(oBrw, nRow, nCol, oHand, oArrow)
    local nCellRow, nCellCol
    local nIcon1X, nIcon2X, nIcon3X
    local nIconY := 10 // Example vertical position in cell
    

// Determine if we are on the specific column with icons
// Get mouse position relative to the CELL
// This requires calculating where the icons are drawn:
// ... (Icon location calculation logic) ...

// Example condition (if mouse is over icon 1, 2, or 3 area)
if IsMouseOverIcon(oBrw, nRow, nCol)
    oBrw:oCursor := oHand
else
    oBrw:oCursor := oArrow
endif
return nil