FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Mantener fijo un dialogo NOMODAL
nanoespinoza
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Mantener fijo un dialogo NOMODAL
Posted: Mon Mar 27, 2017 04:23 AM
Estimados colegas

Necesito un poco de ayuda para lograr que un dialogo definido de la siguiente manera, no pueda ser movido de la posici贸n en la cual se lo activa inicialmente. He navegado bastante en el foro, y no encuentro la forma de hacerlo.

El c贸digo que uso es el siguiente, donde a pesar de ubicarse el dialogo en la posici贸n correcta, se lo puede mover con el rat贸n:

Code (fw): Select all Collapse
DEFINE DIALOG oDlgPrg OF oVent FROM oVent:nVertRes()-465, oVent:nHorzRes()-400 TO oVent:nVertRes()-153, oVent:nHorzRes()-72 ;
聽 聽 PIXEL COLORS CLR_HBLUE, CLR_HBROWN TITLE "Juegos programados" FONT oFnt ;
聽 聽 STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU )

......

ACTIVATE DIALOG oDlgPrg NOWAIT ON INIT ;
聽 聽 ( oDlgPrg:Move(oVent:nVertRes()-465, oVent:nHorzRes()-400), TimerPrg(oDlgPrg,oLbxPrg,aDatos,oTmr,300) )


Saludos

Fernando Espinoza A.
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Mon Mar 27, 2017 09:13 PM
prueba con estos solamente:


Code (fw): Select all Collapse
 STYLE nOr( WS_POPUP, WS_VISIBLE )
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
nanoespinoza
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Tue Mar 28, 2017 02:08 AM

Estimado Armando

Gracias por su respuesta; efectivamente su soluci贸n funciona, pero yo deseo hacerlo sin eliminar la barra con el caption. Hay alguna forma de hacer esto?

Saludos

Fernando Espinoza A.

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Tue Mar 28, 2017 07:32 AM

Prueba con:

STYLE nOr( WS_POPUP, WS_VISIBLE, WS_CAPTION )

regards, saludos

Antonio Linares
www.fivetechsoft.com
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Tue Mar 28, 2017 11:46 AM
Fernando; prueba con esto (que alguna vez me lo paso Antonio :-) ), a ver si es lo que buscas
Code (fw): Select all Collapse
#define 聽WND_ANCHO 聽 740
#define 聽WND_ALTO 聽 聽590
//--------------------------
聽 聽DEFINE WINDOW oWnd0 TITLE 聽"Control de Art铆culos" 
聽 聽... 聽 
聽 聽oWnd0:aMinMaxInfo = { WND_ANCHO,WND_ALTO, ; 聽 // xMaxSize, 聽 聽 聽yMaxSize
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽0, 0, ; 聽 聽 聽 聽 聽 聽 聽 聽 // xMaxPosition, 聽yMaxPosition
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽WND_ANCHO,WND_ALTO, ; 聽 // xMinTrackSize, yMinTrackSize
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽WND_ANCHO,WND_ALTO } 聽 聽// xMaxTrackSize, yMaxTrackSize
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
nanoespinoza
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Thu Mar 30, 2017 03:11 AM
Antonio Linares wrote:Prueba con:

STYLE nOr( WS_POPUP, WS_VISIBLE, WS_CAPTION )


Estimado Antonio,

Lamentablemente tampoco se consigue el efecto que espero, el dialogo igual se puede arrastrar con el rat贸n.

Saludos

Fernando Espinoza A.
nanoespinoza
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Thu Mar 30, 2017 03:18 AM
MarioG wrote:Fernando; prueba con esto (que alguna vez me lo paso Antonio :-) ), a ver si es lo que buscas
Code (fw): Select all Collapse
#define 聽WND_ANCHO 聽 740
#define 聽WND_ALTO 聽 聽590
//--------------------------
聽 聽DEFINE WINDOW oWnd0 TITLE 聽"Control de Art铆culos" 
聽 聽... 聽 
聽 聽oWnd0:aMinMaxInfo = { WND_ANCHO,WND_ALTO, ; 聽 // xMaxSize, 聽 聽 聽yMaxSize
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽0, 0, ; 聽 聽 聽 聽 聽 聽 聽 聽 // xMaxPosition, 聽yMaxPosition
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽WND_ANCHO,WND_ALTO, ; 聽 // xMinTrackSize, yMinTrackSize
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽WND_ANCHO,WND_ALTO } 聽 聽// xMaxTrackSize, yMaxTrackSize


Estimado Mario

Hice la prueba, pero el resultado es igual, no consigo que el dialogo se quede fijo en una posici贸n deseada.

Saludos

Fernando Espinoza A.
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Thu Mar 30, 2017 10:26 AM
Intenta as铆

Code (fw): Select all Collapse
STYLE nOr( WS_CHILD, WS_VISIBLE, WS_CAPTION )
Saludos,



Adhemar C.
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Thu Mar 30, 2017 11:11 AM

Fernando; disculpas!!
Tengo un dialog, que no tiene la barra caption, dentro de una ventana; y lo que te pas茅 lo que hace es no permitir redimensionar al ventana

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Thu Mar 30, 2017 12:42 PM
Hola, cuando defines la barra de caption en el dialogo igual se mueve debido a que windows controla eso, intenta simularla, pintando una barra, utiliza la clase tskin.

yo la use y funciona muy bien, pero no encuentro un ejemplo, por mientras mira esto y prueba.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=18909&hilit=Skin
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=23138&hilit=skin+dialog

saludos!
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Thu Mar 30, 2017 01:07 PM
Has probado con la clausula ON MOVE en el ACTIVATE ?

Code (fw): Select all Collapse
      ON MOVE oDlgPrg:Move(oVent:nVertRes()-465, oVent:nHorzRes()-400)
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
nanoespinoza
Posts: 163
Joined: Thu Mar 16, 2017 04:08 PM
Re: Mantener fijo un dialogo NOMODAL
Posted: Fri Mar 31, 2017 01:23 AM

Gracias Cristobal; su soluci贸n es bastante cercana a lo que buscaba. Solo se genera un efecto un poco molesto al intentar mover el dialogo con el rat贸n, pero es algo a lo que uno puede acostumbrarse.

Reitero, mil gracias.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions