FiveTech Software tech support forums

Gracias Antonio solo con oBrw:lTransparent = .T. Funcionó perfecto Lo aplique a un xBrowse que muestra un array colocando if oCol:oBrw:VGetPos() == oBrw:nArrayAt Funciona, pero cuando pasa por una linea vacia no muestra en gradient Gracias una vez mas por la ayuda, se ve muy bonito Saludos Adhemar

Adhemar,

Pruebalo asi:

Code: Select all  Expand view

   @ 10, 10 XBROWSE oBrw OF oDlg ;
      SIZE 300, 200 PIXEL ;
      AUTOCOLS ALIAS 'CUST'
     
   oBrw:SetColor( "N/W" )
   oBrw:lTransparent = .T.

   ...
 

Gracias Antonio

Ahora da un error en BACKGROUND "", lo elimino y funciona, pero cuando avanza no pone en blanco el anterior
no se si sera por esto.

Gracias de nuevo

Saludos

Adhemar

Adhemar, Esta versión es mas simple y no necesita los bookmarks: #include 'fivewin.ch'#include 'xbrowse.ch'function Main()   local oDlg, oBrw, oFont   USE CUSTOMER ALIAS CUST   DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14      DEFINE DIALOG oDlg SIZE 640,440 PIXEL ;      FONT oFont TITLE 'XBr...

Gracias Antonio

Ahora me da un error en oBrw:Bookmark

Tengo FWH 9.04 y no se porque, he visto en el foro que lo usan con versiones anteriores.

Gracias una vez mas por la ayuda

Saludos

Adhemar

Adhemar, Aqui está el código de la función RoundBox(): #pragma BEGINDUMP#include <windows.h>#include <hbapi.h>HB_FUNC( ROUNDBOX ){   HDC hDC = ( HDC ) hb_parni( 1 );   HBRUSH hBrush = ( HBRUSH ) GetStockObject( 5 );   HBRUSH hOldBrush = ( ...

Adhemar:
Omitiendo esas llamadas a RoundBox() tambien funciona el degradado. Pruébalo.
Lo único es que no llena la col de la flechita.
Saludos.

Antonio

He compilado el ejemplo y me da error que no encuentra la funcion RoundBox, en que libreria esta.

Gracias por la ayuda

Saludos

adhemar

FiveWin nos permite hacer lo que queramos

Su grado de libertad y de posibilidades es muy grande

Queda realmente bonito !!!

Saludos,

Jose Luis, Aqui tienes un ejemplo basado en el de Rao :-) http://img200.imageshack.us/img200/4688/66973403.jpg #include 'fivewin.ch'#include 'xbrowse.ch'function Main()   local oDlg, oBrw, oFont   local nRecSel   USE CUSTOMER ALIAS CUST   nRecSel  := CUST->( RecNo(...

Antonio,
ya que estás puesto lo suyo sería que se pudiera simular el efecto nativo de Windows7 tal como aparece en la imagen. Es hacerle un recuadro a la fila activa y el degradado al pintarla.
Saludos,

José Luis,

El código fuente de la función XBrowse() de FWH, usada tambien desde el comando XBROWSER, es un muy buen ejemplo de como ajustar las dimensiones del dialogo y del xbrowse contenido.

José Luis, Si nos proporcionas un ejemplo de ajuste automatico para probarlo aqui, podemos comentarte que tal funciona. O si deseas compartir tus modificaciones con otros usuarios aqui en el foro, te estaremos muy agradecidos todos y asi podremos ir mejorando xbrowse de acuerdo a las necesidades de ...

Antonio, Yo uso una versión de xbrowse modificada que permite ajustar automáticamente el ancho de las columnas, es una versión vieja pero que funciona perfectamente. Modificando un poco la clase puedo conseguir ese aspecto que me interesa, y no se si el xbrowse que viene con FWH hace este ajuste aut...