Como cambiarel fondo del titulo (TITLE) en un DIALOG,

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Como cambiarel fondo del titulo (TITLE) en un DIALOG,
Posted: Fri Jan 23, 2026 05:39 PM

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

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Como cambiarel fondo del titulo (TITLE) en un DIALOG,
Posted: Fri Jan 23, 2026 08:11 PM

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.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Como cambiarel fondo del titulo (TITLE) en un DIALOG,
Posted: Sat Jan 24, 2026 02:41 PM

Code: Select all Collapse

// 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 - kapiabafwh@gmail.com

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion