Como saber que IDs estan definidos en un recurso

Como saber que IDs estan definidos en un recurso

Postby carlosmora » Fri Dec 23, 2005 11:41 am

Hola,
bueno, pues lo dicho, quisiera saber si hay modo de conocer los IDs definidos en un Diálogo conociendo el nombre del diálogo, sin tener que definirlo y eso. En realidad me valdría aunque los tuviera que definir, pero antes del activate dialog.
Es para no tener que declarar a mano los say transparentes. Si les asigno un rango de IDs predefinido, recorro los id del diálogo y si esta en el rango le hago el redefine correspondiente.

Saludos
carlosmora
 
Posts: 16
Joined: Thu Dec 01, 2005 4:15 pm

Postby Antonio Linares » Tue Dec 27, 2005 8:48 am

Carlos,

Tendrías que hacerlo desde la claúsula ON INIT en el ACTIVATE:

Code: Select all  Expand view
   ACTIVATE DIALOG oDlg ;
      ON INIT RedefineSays( oDlg )


En la función RedefineSays() 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  Expand view
function RedefineSays( oDlg )

   local hCtrl := GetWindow( oDlg:hWnd, GW_CHILD )

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

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41456
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby carlosmora » Tue Dec 27, 2005 3:21 pm

Gracias Antonio,
Necesitaría conocer el ID porque según el mismo es la definicion que tengo del Say, por decirte algo, los ID 100 al 199 están con una fuente y un color, los 200 a 299 con otro, etc. Como obtengo el ID?

Gracias
carlosmora
 
Posts: 16
Joined: Thu Dec 01, 2005 4:15 pm

Postby Antonio Linares » Tue Dec 27, 2005 3:45 pm

Carlos,

GetDlgCtrlID( hCtrl ) --> nId
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41456
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 125 guests