Page 1 of 1
cOLOR Y TAMAÑO EN UN SAY
Posted: Mon May 12, 2008 8:19 pm
by RMC
Hola,
Como cambio el tamaño y tipo de letra y color en un control tipo say ??
Gracias
Posted: Mon May 12, 2008 10:12 pm
by vlmsoft
Hola RMC,
Prueba lo siguiente:
Code: Select all | Expand
...
DEFINE FONT oFont1 NAME "TAHOMA" SIZE 10,20
DEFINE FONT oFont2 NAME "TAHOMA" SIZE 20,40
DEFINE FONT oFont3 NAME "ARIAL" SIZE 20,20
DEFINE DIALOG oDlg ...
@ 0,0 SAY "LINEA1" OF oDlg FONT oFont1 SIZE 40,15
@ 2,0 SAY "LINEA2" OF oDlg FONT oFont2 SIZE 100,25 COLORS CLR_HRED,CLR_WHITE
@ 4,0 SAY "LINEA3" OF oDlg FONT oFont3 SIZE 80,15 COLOR CLR_HGREEN
ACTIVATE DIALOG oDlg
...
Saludos
Posted: Mon May 12, 2008 10:29 pm
by RMC
Gracias , pero a lo que yo me referia es si defino en el Resoruce Work shop un control de Texto,
y luego en el codigo lo declaro asi :
redefine say tablero id 201 of odlg4 update
Como le digo cambio ya al control que la letra la quiero de tal fuente y de tal tamaño ?
Gracias
Posted: Mon May 12, 2008 10:32 pm
by RMC
Ya le encontre utilizando lo que me enviaste gracias
Rene
Posted: Wed May 28, 2008 11:36 am
by Pedro
RMC wrote:Ya le encontre utilizando lo que me enviaste gracias
Rene
Hola Rene, puedes decirme como lo hiciste?
Yo tambien tengo dialogos a los cuales les quiero cambiar el say(texto escrito en el recurso con el WS) y no lo he conseguido.
Mil gracias
Un saludo
Pedro
Posted: Wed May 28, 2008 9:58 pm
by vlmsoft
Hola Pedro,
Aqui tienes un ejemplo
Code: Select all | Expand
#include "FiveWin.ch"
FUNCTION Main()
LOCAL oDlg,oFont,oSay[2]
DEFINE FONT oFont NAME "ARIAL" SIZE 40,60
DEFINE DIALOG oDlg RESOURCE "SAY_PRUEBA"
REDEFINE SAY oSay[1] PROMPT "Linea-1" ID 10 OF oDlg
REDEFINE SAY oSay[2] PROMPT "Linea-2" ID 11 OF oDlg ;
COLOR CLR_HRED FONT oFont
ACTIVATE DIALOG oDlg
RETURN NIL
Saludos
Posted: Thu May 29, 2008 11:15 am
by Pedro
vlmsoft wrote:Hola Pedro,
Aqui tienes un ejemplo
Code: Select all | Expand
#include "FiveWin.ch"
FUNCTION Main()
LOCAL oDlg,oFont,oSay[2]
DEFINE FONT oFont NAME "ARIAL" SIZE 40,60
DEFINE DIALOG oDlg RESOURCE "SAY_PRUEBA"
REDEFINE SAY oSay[1] PROMPT "Linea-1" ID 10 OF oDlg
REDEFINE SAY oSay[2] PROMPT "Linea-2" ID 11 OF oDlg ;
COLOR CLR_HRED FONT oFont
ACTIVATE DIALOG oDlg
RETURN NIL
Saludos
Muchas Gracias funcionó Ok
Hice además una función para pintarlos todos de una tacada con un FOR/NEXT
Saludos