Ventana(window) avanzada

Post Reply
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Ventana(window) avanzada

Post by karinha »

¿Es posible crear una ventana así en fivewin?

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

Image

Regards, saludos.
João Santos - São Paulo - Brasil
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ventana(window) avanzada

Post by cnavarro »

Joao, por supuesto
Sin que sea exactamente eso, pero deberias ver esto
http://wiki.fivetechsoft.com/doku.php?id=windui14_guide
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Ventana(window) avanzada

Post 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.
Regards

G. N. Rao.
Hyderabad, India
User avatar
Antonio Linares
Site Admin
Posts: 37485
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Ventana(window) avanzada

Post by Antonio Linares »

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
leandro
Posts: 958
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Contact:

Re: Ventana(window) avanzada

Post by leandro »

Aprovechando el desorden y queriendo de alguna manera lograr ese diseño dentro de un xbrowse, monte lo siguiente:

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
 


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

 oBrw:nColorPen                 = CLR_RED
 
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Ventana(window) avanzada

Post by FranciscoA »

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.

Fwxh1204-MySql-TMySql
Post Reply