FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ventana(window) avanzada
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Ventana(window) avanzada
Posted: Fri Oct 25, 2019 01:36 PM
¿Es posible crear una ventana así en fivewin?

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



Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ventana(window) avanzada
Posted: Fri Oct 25, 2019 10:46 PM

Joao, por supuesto
Sin que sea exactamente eso, pero deberias ver esto

http://wiki.fivetechsoft.com/doku.php?id=windui14_guide

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Ventana(window) avanzada
Posted: Sat Oct 26, 2019 06:14 AM
¿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.
Regards



G. N. Rao.

Hyderabad, India
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ventana(window) avanzada
Posted: Sat Oct 26, 2019 02:26 PM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: Ventana(window) avanzada
Posted: Sat Oct 26, 2019 03:49 PM
Aprovechando el desorden y queriendo de alguna manera lograr ese diseño dentro de un xbrowse, monte lo siguiente:

Code (fw): Select all Collapse
#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:


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 (fw): Select all Collapse
 oBrw:nColorPen                 = CLR_RED
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Ventana(window) avanzada
Posted: Sat Oct 26, 2019 08:23 PM

http://www.subirimagenes.com/imagen-sin ... 13766.html

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

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion