topic-31341

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Cambio de oFont y Color
Posted: Fri Sep 18, 2015 02:28 AM

Holas,

estoy intentando cambiar el tipo de fuente y color de textos en dialogos (recurso)

//------------------------------------------------------------------------------
function changeFont( oDlg, oFont )
//----------------------------------------------------------------------------
   LOCAL hCtrl := GetWindow( oDlg:hWnd, GW_CHILD ), hdc

   WHILE hCtrl != 0

      IF GetClassName( hCtrl ) == "Static" .AND. GetWindowLong( hCtrl, GWL_ID ) == -1
         SendMessage( hCtrl, WM_SETFONT, oFont:hFont )
         hdc = GetDC( hCtrl )
         SetTextColor( hdc, RGB(255,0,0) )
         RELEASEDC( hCtrl, hdc )
      ENDIF

      hCtrl := GetWindow( hCtrl, GW_HWNDNEXT )

   ENDDO

return nil

Logro cambiar el tipo de fuente, pero no el color, alguien tiene algo de experiencia en esto?
llamo la funcion en la clausula ON INIT

saludos

Marcelo

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Cambio de oFont y Color
Posted: Mon Sep 21, 2015 06:19 PM

Alguna idea?

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Cambio de oFont y Color
Posted: Mon Sep 21, 2015 10:34 PM

Marcelo.
Estas constantes no las encuentro para poder hacer pruebas. Puedes indicarme donde las hallo, o mostrarlas?

Code (fw): Select all Collapse

GWL_ID 
WM_SETFONT

Saludos

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Cambio de oFont y Color
Posted: Mon Sep 21, 2015 10:47 PM

Los encontré aqui:

Code (fw): Select all Collapse

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16270&hilit=gwl+id+GW_CHILD#p93219

Voy a hacer pruebas.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Cambio de oFont y Color
Posted: Mon Sep 21, 2015 11:11 PM

Hola,

Code (fw): Select all Collapse

#define GW_CHILD      5
#define GW_HWNDNEXT   2
#define GWL_ID      -12
#define WM_SETFONT   48

saludos

Marcelo

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Cambio de oFont y Color
Posted: Mon Sep 21, 2015 11:26 PM

Gracias, Marcelo.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Cambio de oFont y Color
Posted: Mon Sep 21, 2015 11:52 PM

Marcelo,
Esto no te funciona?

Code (fw): Select all Collapse

   DEFINE DIALOG oDlg RESOURCE "preferences" ;
      TITLE FWString( "Preferences" ) FONT oFontMenu
   oDlg:SetColor( , CLR_BLUE )   

.../...

o tienes otro motivo para desarrollar esa funcion?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Cambio de oFont y Color
Posted: Tue Sep 22, 2015 12:52 AM

Cristobal,

lo que estoy intentando hacer es cambiar todos los text (SAY) de un dialogo definido en recursos sin tener que redefinirlos, pude cambiar la fuente pero no logro cambiar su color.

Gracias por tu respuesta

saludos

Marcelo

FiveTech Support Forums

Continue the discussion