Page 1 of 1

Ventana(window) avanzada

PostPosted: Fri Oct 25, 2019 1:36 pm
by karinha
¿Es posible crear una ventana así en fivewin?

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

Image

Regards, saludos.

Re: Ventana(window) avanzada

PostPosted: Fri Oct 25, 2019 10:46 pm
by cnavarro
Joao, por supuesto
Sin que sea exactamente eso, pero deberias ver esto
http://wiki.fivetechsoft.com/doku.php?id=windui14_guide

Re: Ventana(window) avanzada

PostPosted: Sat Oct 26, 2019 6:14 am
by nageswaragunupudi
¿Es posible crear una ventana así en fivewin?


Everything and anything is possible with Fivewin.
Certain things may take time and effort.
If it is worth spending that time and effort, yes, it can be done.

Re: Ventana(window) avanzada

PostPosted: Sat Oct 26, 2019 2:26 pm
by Antonio Linares

Re: Ventana(window) avanzada

PostPosted: Sat Oct 26, 2019 3:49 pm
by leandro
Aprovechando el desorden y queriendo de alguna manera lograr ese diseño dentro de un xbrowse, monte lo siguiente:

Code: Select all  Expand view

#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
 


El resultado es el siguiente:
Image

Pero hay varias cosas a las que no se como cambiarle los colores:
Las lineas de división de las columnas y los registros.
El fondo del indicador de selección de registro así como las lineas de división
Las lineas de división de la cabecera.

En el foro encontré una respuesta sobre como cambiar el color de las lineas de división de los datos, pero no funciona.
Code: Select all  Expand view

 oBrw:nColorPen                 = CLR_RED
 

Re: Ventana(window) avanzada

PostPosted: Sat Oct 26, 2019 8:23 pm
by FranciscoA
http://www.subirimagenes.com/imagen-sin ... 13766.html

Falta algunas cositas como : lineas divisoras, barras de deslizamiento.
Saludos.