FiveTech Software tech support forums

... por tu rapidez. Hice lo que me comentaste pero no surte efecto. Mi prg es: .... Define brush oBrushF[1] file familia->nombre Define dialog oDialog resource 'Ventas' REDEFINE SBUTTON obtnF[1] ID 4005 OF oDialog brush obrushF[1] REDEFINE SBUTTON oscrollF ID 4006 OF oDialog action scrollF() ...

Lorenzo,

REDEFINE SBUTTON obtnF[ 1] ID 4005 OF oDialog brush obrushF[1]
....
Activate dialog... ON INIT oBtnF[ 1 ]:SetBrush( oOtroBrush )

... que cambie según las necesidades. Mi prg: Define brush oBrushF[1] file familia->nombre Define dialog... REDEFINE SBUTTON obtnF[ 1] ID 4005 OF oDialog brush obrushF[1] .... Activate dialog... ¿ Como cambio de Brush ? Probé definiendolo de nuevo y haciendo un Refresh, pero no funciona!! Mil ...

GetStockObject():
http://msdn2.microsoft.com/en-us/library/ms533223(VS.85).aspx

WM_GETFONT:
http://msdn2.microsoft.com/en-us/library/ms632624(VS.85).aspx

In FWH:
<oWindow|oDialog|oControl>:oFont

... Estoy escribiendo un módulo Touch y necesito cambiar el brush de los SBUTTON: tengo el siguiente código: REDEFINE SBUTTON obtnF[10] ID 4014 OF oDialog brush obrushF[10] ROUNDRECT NOBOXTR REDEFINE SBUTTON obtnF[11] ID 4015 OF oDialog brush obrushF[11] ROUNDRECT NOBOXTR REDEFINE SBUTTON obtnF[12] ...

... de teclado y puedes analizarlos usando <oControl>:bKeyDown ó <oControl>:bKeyChar. Si no tienes controles definidos, pues usarías <oDialog> ó <oWindow> en vez de <oControl>

Ciertas propiedades, como por ejemplo las dimensiones, se pueden cambiar en tiempo de ejecución. Como tu mismo indicas:

oDialog:nWidth = ...
oDialog:nHeight = ...

... propiedades de un dialogo en tiempo de ejecucion style nOR( DS_MODALFRAME, WS_POPUP, 4 ) por ejemplo siendo dicho dialogo creado desde recurso pd oDialog:nWidth = ... oDialog:nHeight = ... sirve para el cambio de tamaño del dialogo conservando la misma posicion los distintos elementos del dialogo ...

oDialog:nWidth = ...
oDialog:nHeight = ...

<oControl>:nTop = ...
<oControl>:nLeft ...
<oControl>:nWidth = ...
<oControl>:nHeight = ...

Alfonso,

Puedes variar el tamaño con:

oDialog:nWidth = ...
oDialog:nHeight = ...

igual para los botones y el browse. Y las posiciones de los botones con:

oButton:nTop = ...
oButton:nLeft = ...

How can I check, if there is an ID in my resource

eg.

IsId(oDialog,4711)

... of dialog according different resolution as 1024*768,1280*1024, all the controls seems OK, but -1 ids (static text, groups) seems not exists in odialog:acontrols,how to detect these -1 ids ? rsl0:=getsysmetrics(0)/800 rsl1:=getsysmetrics(1)/600 for i:=1 TO LEN(odlg:acontrols) oCtrol = odlg:aControls[i] ...

... PROCEDURE MAIN() oDLG_MAIN := TWINDOW():NEW(,,,,"Test") ACTIVATE WINDOW oDLG_MAIN ON INIT( TEST2() ) RETURN NIL FUNCTION TEST2() LOCAL oDialog DEFINE DIALOG oDialog TITLE "Test2" DEFINE MESSAGE oMessage OF oDialog PROMPT "Test2 Footer" ACTIVATE DIALOG oDialog RETURN