¿Es posible crear una ventana así en fivewin?
https://i.imgur.com/kwTqJ6g.png
Regards, saludos.
¿Es posible crear una ventana así en fivewin?
#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
oBrw:nColorPen = CLR_RED
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 54 guests