www.FiveTechSoft.com
https://fivetechsoft.com/forums/
hOLA aMIGOS.
Como puedo cambiar el fondo del titulo (TITLE) en un DIALOG, asi como el FONT y COLOR y que afecto a los controles contenidos en el DIALOG
Gracias
Eso es parte del sistema Windows, no es posible desde nuestras app. Cuando seleccionas un tema de Windows este aplica todas estas características.
Lo que hacen algunos es emular está barra, con un say, botones para emular el comportamiento de la barra.
Code: Select all | Expand
// C:\FWH\SAMPLES\WILLI2.PRG
#Include "FiveWin.ch"
STATIC oDlg
FUNCTION Main()
LOCAL cTitle, oSay, cPrompt, oSay2, cPrompt2, oBrush, oFont
cTitle := "WILLI INICIANDO TITLE DIALOG-FONT WINDOWS ORIGINAL"
cPrompt := "¿Puedo cambiar el título del diálogo en tiempo real?"
cPrompt2 := "Puedo Cambiar la fuente y el Color? "
DEFINE BRUSH oBrush GRADIENT { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) },;
{ 0.6, nRGB( 24, 61, 118 ), nRGB( 50, 95, 158 ) } }
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
DEFINE DIALOG oDlg FROM 6, 6 TO 20, 70 TITLE cTitle BRUSH oBrush TRANSPARENT FONT oFont
oDlg:lhelpIcon := .F.
@ 1.5, 02 SAY oSay PROMPT cPrompt OF oDlg SIZE 200, 15 COLOR CLR_BLACK ;
TRANSPARENT ADJUST FONT oFont
@ 3.7, 02 SAY oSay2 PROMPT cPrompt2 OF oDlg SIZE 200, 15 COLOR CLR_BLACK ;
TRANSPARENT ADJUST Font oFont
@ 2, 2 BUTTON "&Title" OF oDlg ACTION ( CAMBIA_TITLE( oDlg, oSay, oSay2 ) )
@ 4, 2 BUTTON "&Salir" OF oDlg ACTION( oDlg:End() ) CANCEL
ACTIVATE DIALOG oDlg CENTERED
oBrush:End()
oFont:End()
RETURN NIL
FUNCTION CAMBIA_TITLE( oDlg, oSay, oSay2 )
LOCAL cTxtNew, cTxtNoP
cTxtNew := "Sí, puedo cambiarlo, porque soy súper FWH. TITLE "
cTxtNoP := "No puedo cambiar la fuente ni el color porque es la de Windows."
oDlg:SETTEXT( "WILLI CAMBIANDO TITLE DIALOG-COLOR WINDOWS ORIGINAL" )
oDlg:Refresh()
oSay:VARPUT( cTxtNew )
oSay:Refresh()
oSay2:VARPUT( cTxtNoP )
oSay2:Refresh()
RETURN NIL
// FIN / END - [email protected]
Regards, saludos.