cambiar fuente a todos los diálogos en tiepo de ejecución

Board index FiveWin para Harbour/xHarbour cambiar fuente a todos los diálogos en tiepo de ejecución

Posts: 422

Joined: Mon Aug 17, 2009 12:18 PM

cambiar fuente a todos los diálogos en tiepo de ejecución
Posted: Wed Apr 21, 2010 07:06 PM

Hola:

¿Hay alguna forma de cambiar la fuente y el tamaño de los Diálogos definidos en RECURSOS en tiempo de ejecución para todos de golpe?.

Muchas gracias

Saludos,

Eduardo

JavierVital

Posts: 105

Joined: Thu Feb 26, 2009 04:08 PM

Re: cambiar fuente a todos los diálogos en tiepo de ejecución
Posted: Thu Apr 22, 2010 02:35 AM

MgSoft

oDlg:SetFont(aLetras[16])

De un golpe cambias el tamaño de todo el dialogo.

Saludos-

mgsoft

Posts: 422

Joined: Mon Aug 17, 2009 12:18 PM

Re: cambiar fuente a todos los diálogos en tiepo de ejecución
Posted: Thu Apr 22, 2010 11:32 AM

Muchas gracias por responder, pero me refiero a TODOS.

Saludos,

Eduardo

MdaSolution

Posts: 401

Joined: Tue Jan 05, 2010 02:33 PM

Re: cambiar fuente a todos los diálogos en tiepo de ejecución
Posted: Fri Apr 23, 2010 07:53 AM

I use
oApp:oFont

where oFont is a data of TApplication class ( Main Window)

and on each dialog I use Dialog .... FONT oApp:oFont

on menu main I use

          MENU
                 MENUITEM oItem[68] PROMPT &quot;&amp;Normal &quot; ACTION Set_FontWin(1,oItem[68],oItem[69])
                 MENUITEM oItem[69] PROMPT &quot;Ne&amp;grita&quot; ACTION Set_FontWin(2,oItem[68],oItem[69])
              ENDMENU

STAT FUNC Set_FontWin(n,oItem1,oItem2)
LOCAL cIni:=GetWinDir()+"\"+cNSys+".Ini", hFont, lFWnd
hFont:=IF(n=1,"Normal","Bold")
WritePProstring(cNSys,"hFont",hFont,cIni)
lFWnd:=IF(n=1,.T.,.F.)
IF n=1
DEFINE FONT hFont NAME "MS Sans Serif" SIZE 0,-10
ELSE
DEFINE FONT hFont NAME "MS Sans Serif" SIZE 0,-10 BOLD
ENDIF
SET FONT OF oWnd TO hFont
oItem1:SetCheck(lFWnd)
oItem2:SetCheck(!lFWnd)
RETURN (NIL)

and save all fonts into Ini file

FWH .. BC582.. xharbour

FiveTech Support Forums

Continue the discussion