https://i.imgur.com/kwTqJ6g.png

Regards, saludos.
Everything and anything is possible with Fivewin.¿Es posible crear una ventana así en fivewin?
Code: Select all
#include 'fivewin.ch'
#include 'xbrowse.ch'
function Main()
local oDlg, oBrw, oFont
USE CUSTOMER ALIAS CUST
DEFINE FONT oFont NAME 'Calibri' SIZE 0, -14 BOLD
DEFINE DIALOG oDlg SIZE 640,440 PIXEL ;
FONT oFont TITLE 'XBrowse Gradient Rows'
@ 10, 10 XBROWSE oBrw OF oDlg SIZE 300, 200 PIXEL ;
AUTOCOLS ALIAS 'CUST'
oBrw:CreateFromCode()
oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW
oBrw:nRowDividerStyle = LINESTYLE_LIGHTGRAY
oBrw:bClrStd = {|| {nRGB(169,181,184),nRGB(19,22,59)} }
oBrw:bClrSelFocus = {|| { CLR_WHITE,nRGB(44,94,205) } }
oBrw:nSizePen = 2
oBrw:nColorPen = CLR_RED
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
Code: Select all
oBrw:nColorPen = CLR_RED