FiveTech Software tech support forums

Pedro wrote:Hola a todos

Una pregunta por si se puede hacer. En los recursos ponemos los nombres que luego salen como textos en nuestros diálogos. Mi pregunta es, ¿se pueden capturar de alguna manera esos nombres en un array?

Ejemplo de recurso


DLGTORRE DIALOG DISCARDABLE 7, -12, 355, 300
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_MAXIMIZEBOX|WS_VISIBLE
CAPTION "Mantenimiento de Torres"
FONT 9, "MS Sans Serif"
BEGIN

CONTROL "Torre", 1, "Static", WS_GROUP, 18, 7, 40, 8
CONTROL "Codigo Cliente", 2, "Static", WS_GROUP, 140, 5, 60, 10
CONTROL "Nombre", 3, "Static", WS_GROUP, 18, 24, 40, 8
CONTROL "Ubicación", 4, "Static", WS_GROUP, 18, 42, 40, 8
CONTROL "Población", 5, "Static", WS_GROUP, 18, 58, 40, 8
CONTROL "Provincia", 6, "Static", WS_GROUP, 18, 76, 40, 8
CONTROL "Comunidad", 7, "Static", WS_GROUP, 18, 95, 45, 8
CONTROL "Fecha Alta", 8, "Static", WS_GROUP, 220, 76, 40, 8


Lo que yo quiero capturar es el nombre que está a continuación de CONTROL, y así hacer un array con esos nombres para luego por medio de dos funciones, p.e carga_nombres y
pinta_ nombres, poder ponerlos con el color del fondo del diálogo correspondiente.
El array podría quedar algo así

aArray[1] = "Torre"
aArray[2] = "Codigo Cliente"

etc...

¿Se puede?

Un saludo a todos

Pedro

Pedro wrote:Repasando lo expuesto y tu respuesta, Armando, creo que no me expliqué lo suficiente.
No quiero coger los nombres cuando "estoy programando la aplicación", si no cuando la estoy ejecutando y el fichero rc ya está incrustado en el exe.
De la misma forma que tu llamas al diálogo

DEFINE DIALOG oDlg RESOURCE "DLGDIALOGO" <------ y esta llamada se hace al recurso compilado y enlazado en la aplicación, a mi me gustaría pillar los nombres del control STATIC.

He visto el rc2prg y no sé si se podrá hacer lo mismo, es decir si oDlg:aControls[1] podría ser el nombre que busco
oDlg:aControls[2] podría ser el ID

etc...

A ver si Antonio u otro compañero me lo aclara

Un saludo

Pedro

quique wrote:Prueba con
aArray[ 1 ] := oCtrl1:varGet()
aArray[ 2 ] := oCtrl2:varGet()

o con
aArray[ 1 ] := oCtrl1:cCaption
aArray[ 2 ] := oCtrl2:cCaption

Armando Picon wrote:

Pedro wrote:Repasando lo expuesto y tu respuesta, Armando, creo que no me expliqué lo suficiente.
No quiero coger los nombres cuando "estoy programando la aplicación", si no cuando la estoy ejecutando y el fichero rc ya está incrustado en el exe.
De la misma forma que tu llamas al diálogo

DEFINE DIALOG oDlg RESOURCE "DLGDIALOGO" <------ y esta llamada se hace al recurso compilado y enlazado en la aplicación, a mi me gustaría pillar los nombres del control STATIC.

He visto el rc2prg y no sé si se podrá hacer lo mismo, es decir si oDlg:aControls[1] podría ser el nombre que busco
oDlg:aControls[2] podría ser el ID

etc...

A ver si Antonio u otro compañero me lo aclara

Un saludo

Pedro

Tienes razón, entendí mal. En el foro hubo una consulta respecto a lo ismo. La respuesta más clara fue que eso se podía hacer siempre y cuando los textos fueran objetos, como un Say o un Get, pero que como Static identificado como -1 (como lo pone el WS) no se podía.

Espero que haya alguien que si haya podido hacerlo desde ese enotnces.... Suerte

Antonio Linares wrote:Pedro,

Hazlo asi, desde la claúsula ON INIT en el ACTIVATE:

Code: Select all

   ACTIVATE DIALOG oDlg ; 
      ON INIT Textos( oDlg ) 

En la función Textos() a la que llamas, ya tienes el handle de ventana del diálogo, oDlg:hWnd. Y con ese handle puedes recorrer todos sus controles hijos:

Code: Select all

#define GW_CHILD      5 
#define GW_HWNDNEXT   2

function Textos( oDlg ) 

   local hCtrl := GetWindow( oDlg:hWnd, GW_CHILD ) 
   local aTextos := {}

   while hCtrl != 0 
      if GetClassName( hCtrl ) == "Static"  // SAY 
         AAdd( aTextos, GetTextWindow( hCtrl ) ) 
      endif 
      hCtrl = GetWindow( hCtrl, GW_HWNDNEXT ) 
   end 

return aTextos

Pregunta, ¿Se pueden poner las dos funciones en el ON INIT, aunque sea colocando el aTextos como Static del módulo?

ACTIVATE DIALOG oDlg ; 
ON INIT (Textos( oDlg ), PonSays(oDlg,oFont,aTextos) )

cmsoft wrote:

Pregunta, ¿Se pueden poner las dos funciones en el ON INIT, aunque sea colocando el aTextos como Static del módulo?

Code: Select all

ACTIVATE DIALOG oDlg ; 
ON INIT (Textos( oDlg ), PonSays(oDlg,oFont,aTextos) )

Si lo pones entre parentesis creo que funciona...

Antonio Linares wrote:Prueba asi:

Code: Select all

ACTIVATE DIALOG oDlg ; 
   ON INIT PonSays( oDlg, oFont, Textos( oDlg ) )

Y en PonSays() añade esto:

Code: Select all

For nInd := 1 TO Len(aText) 
   REDEFINE SAY oSay[nInd] PROMPT aText[nInd] ID nInd OF oDlg ; 
      COLOR RGB(0,0,0),RGB(255,204,102) FONT oFont 
   oSay[nInd]:Initiate()  // esto!
Next