FiveTech Software tech support forums

Bayron
prueba colocar un sysrefresh() antes de empezar el proceso del blur


Andres
oDialog:refresh() sacalo del FOR/NEXT

Marco, That doesn't work. The Border-painting is designed, to work on any background. I can do a oDialog:Refresh(), to restore the original Background, but I prefer just to save / restore only the Background-area of the Control with Focus. As well it would be nice, to define ...

Hola, Me ocurre que el valid de un dialogo se ejecuta 2 veces: Una desde la llamada del oGet:KeyChar() y otra desde oDialog:Command(). No se si me explique ? Alguna vez lei sobre este o parecido problema, pero lo he buscado y no lo he encontrado; quiza la solucion estaba en el codigo ...

REDEFINE XBROWSE oBrw ID 4001 OF oDialog ARRAY aFras AUTOCOLS LINES CELL oBrw:nMarqueeStyle := 3 oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:nColDividerStyle := LINESTYLE_BLACK oBrw:lColDividerComplete := .t. oBrw:lFastEdit := .T. oBrw:lAutoAppend ...

I think that this solve your problem

nVar:=0

define dialog oDlg ....

redefine Get oGet Var nVar .... ON CHANGE validate( nVar, 100, oDlg )



function validate( nVar, nMax, oDialog )

if (nVar > nMax )

DRAWBOX....
else
oDialog:Refresh()
endif

return
return

... simple: DEFINE DIALOG oDlg ............... .... more statements come here....... .... ACTIVATE DIALOG oDlg ON INIT (DlgBar(oDlg)) Function DlgBar(oDialog) DEFINE BUTTON BAR oBar OF oDialog .... more button bar instructions come here .... ..... Return -------------------------------------------------------------------------------- ...

Silvio,

That behavior has to be implemented by the programer.

We don't know when the keyboard is going to be used, and what should be needed to be moved in the screen, to get a proper view.

You just need to change the oFolder:nTop value, or the oDialog:nTop value.

Darrell, What control has the focus when the key is pressed ? The key event will go to the focused control, and in the case that there is no a control, it will be routed to the window or dialog. Then you just need to implement: <oControl_or_oWindow_or_oDialog>:bKeyChar = { | nKey | ... your co...

Con stsay:

Por ejemplo:

redefine stsay ocartelx1 prompt evecar1 id 7003 of oDialog COLOR CLR_BLACK

... y para refrescar... debes ocultar y mostrar:
ocartelx1:hide() ; ocartelx1:show()

... y listo...

Un saludo.
LORENZO

Frances,

You could try this:

if AScan( oDialog:aControls, { | o | Upper( o:ClassName() ) == "TGET" .and. o:oGet:changed .and. ( o:oGet:VarGet() != o:oGet:Original ) } ) != 0

MsgInfo( "Gets changed" )

endif

... nRow, nCol ) } funct dblmenu( nRow, nCol) Local oMenu C5MENU oMenu POPUP c5menuitem 'prueba' C5ENDMENU ACTIVATE C5MENU oMenu AT nRow, nCol OF oDialog Return Cambia tu código: aforo[1]:bRClicked:={ |nRow, nCol, nFlags | dblmenu( nRow, nCol, aforo[1] ) } ...

... Dialog..... funct dblmenu( nRow, nCol) Local oMenu C5MENU oMenu POPUP c5menuitem 'prueba' C5ENDMENU ACTIVATE C5MENU oMenu AT nRow, nCol OF oDialog Return 2) En la clase TSBUTTON del Maestro Manuel Mercado, intento establecer un Tooltip en el sbutton, pero no me genera nada. Define Dialog.... ...

... Dialog..... funct dblmenu( nRow, nCol) Local oMenu C5MENU oMenu POPUP c5menuitem 'prueba' C5ENDMENU ACTIVATE C5MENU oMenu AT nRow, nCol OF oDialog Return ------------------------- En otra aplicación lo tengo dentro de un Windows (y me funciona) y en este caso es dentro de un Dialog. ¿Será ...

... el usuario puede crear sus propias presentaciones de botones. Luego defino los sbutton de las familias: REDEFINE SBUTTON obtnF[ 1] ID 4005 OF oDialog brush ofamilia NOBOXTR COLORS { |oBtnF| If( ! oBtnF:lActive, CLR_WHITE, If( oBtnF:lMouseOver, CLR_HRED, If( oBtnF:lPressed, CLR_HRED, CLR_WHITE ...

... Puedo cambiar el prompt pero no el Brush. Yo hago así: ... define brush oBrushF file 'Rojo.bmp' Define dialog... REDEFINE SBUTTON oBtn ID 4005 OF oDialog brush obrushF .... Activate dialog Y ahora hago: 1) Defino el nuevo brush: define brush oBrushF file 'verde.bmp' 2) Cambio de brush oBtn:SetBrush( ...