Hola,
Por favor, implementar el estilo 2010, a帽adiendo la cl谩usula 2010, pues el 2007 ya est谩 algo desfasado.
Gracias.
Hola,
驴Alg煤n comentario por parte de Fivetech?.
Gracias.
up
Lucas
como seria ese look? tienes una imagen que nos muestre como seria?
puedes crear un ejemplo que tenga los colores que dices y ver si los podemos a帽adir como parte del default
Daniel,
Muchas gracias por responder.
Pues en lugar del azul del look 2007 debe ser como los botones de la Ribbon con la cl谩usula 2010.
Lucas
Los botones ribbon (clase TRBTN) solo se pintan diferentes cuando se usa la clausula 2010 en la ribbonbar, de forma nativa no tienen la clausula 2010, de hecho el comando ADD BUTTON para agregar el boton al grupo tampoco tiene la clausula 2010
la clausula 2007 de la clase BTNBMP es para poder usar colores degragados en los botones, esos colores son totalmente configurables desde nuestros PRGs, agregar una clausula 2010 seria hacer exactamente los mismo q la clausula 2007 solo que con colores diferentes, lo que solo nos traeria un simple esfuerzo de agregar un par de lineas de codigo a nuestros PRG para tener el look deseado a nuestra conveniencia
Daniel,
Creo que es bastante factible que la propia clase BTNBMP soporte ese estilo, al fin y al cabo es cortar y pegar el c贸digo de 2007 cambiando los colores a 2010.
Parece que desde Fivetech no se presta demasiada atenci贸n al interface gr谩fico, que es lo que vende una aplicaci贸n. Y tener botones en 2012 con look 2007 no es muy avanzado 
.
lucasdebeltran wrote:Parece que desde Fivetech no se presta demasiada atenci贸n al interface gr谩fico
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------//
function Main()
local oBtn,oFont
local cVer := FWVERSION
local bGrad := { | lInvert | If( ! lInvert, ;
{ { 1, nRGB( 255, 255, 255 ), nRGB( 230, 234, 239 ) } }, ;
{ { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
{ 2/3, nRGB( 255, 215, 84 ), nRGB( 255, 233, 162 ) } ;
} ) }
DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,-12
DEFINE dialog oWnd TITLE "Rounded Buttons in " + cVer size 500, 300 PIXEL
@ 5, 10 BTNBMP oBtn OF oWnd ;
SIZE 60, 70 ;
PROMPT cVer 2007 ;
FONT oFont CENTER;
ACTION MsgInfo("Hello") ;
GRADIENT bGrad
@ 10, 75 BTNBMP oBtn OF oWnd ;
SIZE 60, 60 ;
PROMPT "&" + cVer 2007 ;
FONT oFont CENTER;
ACTION MsgInfo( "Yes" ) ;
GRADIENT bGrad
@ 70, 165 BTNBMP oBtn OF oWnd ;
SIZE 80, 60 ;
PROMPT cVer + CRLF + "FIVEWIN" 2007 ;
FONT oFont CENTER ;
ACTION MsgInfo("Hello") ;
GRADIENT bGrad
ACTIVATE DIALOG oWnd CENTER
return nil if l2007
DEFAULT ::bClrGrad := { | lInvert | If( lInvert, ;
{ { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
{ 2/3, nRGB( 255, 215, 84 ), nRGB( 255, 233, 162 ) } ;
}, ;
{ { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ;
{ 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) } ;
} ) }
endifDaniel Garcia-Gil wrote:te dejo un ejemplo funcional de como hacer tu propio skin usando la clausula GRADIENT sin necesidad de cambiar la clase
CODE: SELECT ALL聽聽COLLAPSE VIEW
#include "FiveWin.ch"
static oWnd
聽 聽
//----------------------------------------------------------------//
function Main()
聽 聽local oBtn,oFont
聽 聽local cVer := FWVERSION
聽 聽local bGrad := { | lInvert | If( ! lInvert, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 { { 1, nRGB( 255, 255, 255 ), nRGB( 230, 234, 239 ) } }, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 { 2/3, nRGB( 255, 215, 聽84 ), nRGB( 255, 233, 162 ) } 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 } ) }
聽 聽
聽 聽DEFINE FONT 聽oFont 聽NAME "MS SANS SERIF" 聽SIZE 0,-12
聽 聽DEFINE dialog oWnd TITLE "Rounded Buttons in " + cVer size 500, 300 PIXEL
聽 聽
聽 聽 @ 5, 10 BTNBMP oBtn OF oWnd 聽;
聽 聽 聽 聽SIZE 60, 70 ;
聽 聽 聽 聽PROMPT cVer 2007 ; 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 聽FONT oFont CENTER;
聽 聽 聽 聽ACTION MsgInfo("Hello") ;
聽 聽 聽 聽GRADIENT bGrad
聽 聽 @ 10, 75 BTNBMP oBtn OF oWnd 聽;
聽 聽 聽 聽 SIZE 60, 60 ;
聽 聽 聽 聽 PROMPT "&" + cVer 2007 ; 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 聽 FONT oFont CENTER;
聽 聽 聽 聽 ACTION MsgInfo( "Yes" ) ;
聽 聽 聽 聽GRADIENT bGrad
聽 聽 @ 70, 165 BTNBMP oBtn OF oWnd 聽;
聽 聽 聽 聽 SIZE 80, 60 ;
聽 聽 聽 聽 PROMPT cVer + CRLF + "FIVEWIN" 2007 ; 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 聽 FONT oFont CENTER ;
聽 聽 聽 聽 ACTION MsgInfo("Hello") ;
聽 聽 聽 聽GRADIENT bGrad
聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽ACTIVATE DIALOG oWnd CENTER
return nil
聽
Y resulta que ni FW 11.12 ni 12.01 son utilizables pues tienen bugs reportados ampliamente y no resueltos
Antonio,
En todo caso, muchas gracias por vuestra atenci贸n y excelente soporte. Siempre todos los inconvenientes se solucionan de forma r谩pida y eficaz, cosa que no pasa con todos los productos.
&&&&&&&
Lucas,
Todos esos temas que comentas estan tratados, contestados y con soluciones propuestas. Son peque帽os detalles, no bugs que no permitan usar un producto.
De ahi a decir que la versi贸n 12.01 no es utilizable hay un abismo.
Por favor, un poco de cordura, porque lo que se dice aqui lo lee mucha gente y decir algo asi es hacernos da帽os a nosotros mismos innecesariamente.
, claro yo soy programador por hobby mas que todo y me puedo dar ese lujo de estar contantemente tratando de aprender, se que otros programadores por motivos de trabajo (tiempos de entrega, etc) no pueden darse ese lujo. pero corremos con el riegos de estancarnos si no nos damos tiempo para profundizar en las herramientas que usamos. (hay que conocer el compilador y hasta donde llega su poder, y de fwh como libreria gui)
/*procedimiento para reemplazar methodos o agregar nuevos a clases de fwh*/
PROCEDURE OverrideAndExtend()
聽 聽EXTEND CLASS TFOLDER 聽 聽WITH METHOD RefreshPages
聽 聽EXTEND CLASS TFOLDER 聽 聽WITH METHOD GoFirstControl
聽 聽EXTEND CLASS TDIALOG 聽 聽WITH METHOD RefreshDialog
聽 聽EXTEND CLASS TDIALOG 聽 聽WITH METHOD MySetFocus
聽 聽EXTEND CLASS TDIALOG 聽 聽WITH METHOD MyCountControl
聽 聽EXTEND CLASS TCONTROL 聽 WITH METHOD MyDisable
聽 聽EXTEND CLASS TXBROWSE 聽 WITH METHOD MyConfig
聽 聽EXTEND CLASS TXBROWSE 聽 WITH METHOD SetMyBmpSort
聽 聽EXTEND CLASS TPRINTER 聽 WITH METHOD Cm2PixX
聽 聽EXTEND CLASS TPRINTER 聽 WITH METHOD Cm2PixY
聽 聽EXTEND CLASS TPRINTER 聽 WITH METHOD SayText
聽 聽EXTEND CLASS TPRINTER 聽 WITH DATA 聽 nPxL
聽 聽EXTEND CLASS TPRINTER 聽 WITH DATA 聽 nPxC
聽 聽OVERRIDE METHOD GetDlgCode IN CLASS TButton WITH KGetDlgCode
RETURN
...
FUNCTION KGetDlgCode( nLastKey )
聽 聽LOCAL Self := HB_QSelf()
聽 聽::oWnd:nLastKey := nLastKey
聽 聽DO CASE
聽 聽CASE ::oWnd:oWnd != NIL .and. ( ::oWnd:oWnd:IsKindOf( "TFOLDER" 聽 ) .or. ::oWnd:oWnd:IsKindOf( "TFOLDEREX" ) 聽 聽 聽)
聽 聽 聽 RETURN DLGC_WANTALLKEYS
聽 聽CASE nLastKey == VK_ESCAPE .and. ::oWnd:oWnd != NIL .and. ( ::oWnd:oWnd:IsKindOf( "TWINDOW" 聽 ) .and. ::oWnd:IsKindOf( "TDIALOG" ) )
聽 聽 聽 RETURN DLGC_WANTALLKEYS
聽 聽ENDCASE
RETURN NIL
/*-------------------------------------------------------------------------------------------------*/
/*funcion nueva para method de tget*/
FUNCTION MyDisable( aNameCtrl )
聽 聽LOCAL Self := HB_QSelf()
聽 聽IF ( ::ClassName() IN aNameCtrl )
聽 聽 聽 ::bWhen := NIL
聽 聽 聽 ::Disable()
聽 聽ENDIF
RETURN NIL
FUNCTION SetMyBmpSort()
聽 聽LOCAL Self := HB_QSelf()
聽 聽LOCAL oBmp, hBmp
聽 聽::aSortBmp := {}
聽 聽DEFINE BITMAP oBmp NAME "BMS_ARROWDOWN"
聽 聽hBmp 聽:= oBmp:hBitmap
聽 聽AAdd( ::aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), NIL, FALSE } )
聽 聽DEFINE BITMAP oBmp NAME "BMS_ARROWUP"
聽 聽hBmp 聽:= oBmp:hBitmap
聽 聽AAdd( ::aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), NIL, FALSE } )
RETURN NIL
...Reitero nuevamente el agradecimiento al equipo de Fivetech, especialmente a Daniel por su siempre tan pronta y eficaz ayuda.