FiveTech Support Forums

Muy buenas, he diseñado un dialgo en el cual cada vez que aparece un msginfo o cualquier ventana encima de este al repintar se sube para arriba y se mueve de su posicion original,
¿sabrían decirme como puedo mantener fijo el DIALOGO?

Un Saludo.

softruz wrote:¿sabrían decirme como puedo mantener fijo el DIALOGO?

Con Loctite Super Glue-3.

Es broma, debe ser un bug, díselo a Antonio.
No he podido resistirme.

Un saludo y feliz fin de semana.
Carlos G.

Hola Softruz

por favor puedes mostrar el define y el active del dialogo

gracias

define font oFont name "Myriad Pro Cond" size 0,30 bold
define dialog oDlg resource "INSERT_SERVICE" brush oBrush TRANSPARENT

activate dialog oDlg center on init (oDlg:move(200,(oWnd:nWidth/2)-250),FindMat(,oTbrD,.t.)) on paint (iif(nOption = 2 .or. nOption = 3,aoGets[5]:setfocus(),iif(nOption = 5,aoGets[8]:setfocus(),)),(oDlg:nHeight :=700 ,oDlg:nWidth:=500,oDlg:nTop:=0,oDlg:nBottom:=151))

Por cierto es un dialogo sin titulo y sin botones de min, max y X en la cabecera.

Un Saludo.

pienso que el error esta en el on paint
pienso que no necesitas esto alli, colocalo en on init

(oDlg:nHeight :=700 ,oDlg:nWidth:=500,oDlg:nTop:=0,oDlg:nBottom:=151)

esto lo puedes colocar en bGotocus
(iif(nOption = 2 .or. nOption = 3,aoGets[5]:setfocus(),iif(nOption = 5,aoGets[8]:setfocus(),))

oDlg:bGotFocus := {|| aqui adentro }

intenta eso y comentas

Muchas gracias por la contestacion, ya lo he solucionado, ha sido error mio por poner (oDlg:nHeight :=700 ,oDlg:=500,oDlg:=0,oDlg:=151) en el paint, lo he quitado y YA ESTA.

Un Saludo.

Daniel Garcia-Gil wrote:pienso que el error esta en el on paint
pienso que no necesitas esto alli, colocalo en on init

(oDlg:nHeight :=700 ,oDlg:=500,oDlg:=0,oDlg:=151)

esto lo puedes colocar en bGotocus
(iif(nOption = 2 .or. nOption = 3,aoGets[5]:setfocus(),iif(nOption = 5,aoGets[8]:setfocus(),))

oDlg:bGotFocus := {|| aqui adentro }

intenta eso y comentas