- Code: Select all Expand view RUN
- #include "FiveWin.ch"
Function Inicio()
LOCAL oDlg, oBrw, oFont[2]
LOCAL aData := {{"xHarbour" , "http://www.xharbour.org/" , 1},;
{"Cualquier cosa" , "Ejecuta proceso Tres" , 3},;
{"Fivetech" , "www.fivetechsoft.com" , 1},;
{"Forum Fivetecht" , "https://forums.fivetechsupport.com" , 1},;
{"Tarea adicional" , "Ejecuta proceso Dos" , 2}}
DEFINE FONT oFont[1] NAME "TAHOMA" SIZE 0,-14
DEFINE FONT oFont[2] NAME "TAHOMA" SIZE 0,-14 UNDERLINE
DEFINE DIALOG oDlg SIZE 537,300 PIXEL TRUEPIXEL TITLE "xBrowse con UrlLink"
@ 20,20 XBROWSE oBrw DATASOURCE aData OF oDlg PIXEL SIZE 500,200 AUTOSORT AUTOCOLS LINES CELL;
HEADERS "Empresa / Mensaje", "URL / Acción" COLSIZES {150,300} FONT oFont[1]
WITH OBJECT oBrw:aCols[2]
:bLDClickData := { || Opciones(aData, oBrw) }
:oDataFont := {|| iif( aData[oBrw:nArrayAt, 3] == 1, oFont[2], oFont[1]) }
:aClrText := {|| Iif( aData[oBrw:nArrayAt, 3] == 1, nRGB(50,50,200), nRGB(0,0,0) )}
:bCellToolTip := { |oCol| {"Doble clic para abrir enlace o ejecutar Proceso","Selecciona:"} }
END
oBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY
oBrw:nColDividerStyle := LINESTYLE_LIGHTGRAY
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
Return(NIL)
//-------------------------------------------------//
Function Opciones(aData, oBrw)
LOCAL nOpcion := aData[oBrw:nArrayAt, 3]
DO CASE
CASE nOpcion == 1
Shellexecute( 0, "Open", aData[oBrw:nArrayAt, 2] )
CASE nOpcion == 2
Dos()
CASE nOpcion == 3
Tres()
ENDCASE
Return(NIL)
//-------------------------------------------------//
Function Dos()
MsgInfo("Opción Dos")
Return(NIL)
//-------------------------------------------------//
Function Tres()
MsgInfo("Opción Tres")
Return(NIL)
//-------------------------------------------------//
Question : How to assign a HAND cursor over a specific column ?
Regards,
