DIALOGs Vs WINDOWs

DIALOGs Vs WINDOWs

Postby Xevi » Mon Jan 01, 2018 4:51 pm

Estoy comparando comportamientos de controles entre WINDOW y/o DIALOG, y encuentro algunos "defectos" entre el tratamiento de un contenedor u otro.

El tema de PIXELs, no es el mismo, por ejemplo...

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION Main()
   local oWnd, oFldr
   Local oEdit, cVarEdit := "Edit2..."
   Local oEdit2, cVarEdit2 := "Edit2..."

   DEFINE DIALOG oWnd FROM 1, 1 TO 800, 1450 PIXEL
   oWnd:lTruePixel := .T.
//   DEFINE WINDOW oWnd FROM 1, 1 TO 800, 1450 PIXEL

   oFldr := TFolderEx():New( 0, 0,800,250, oWnd,, .T., .F., {"Prime","Segu","Terce","Quart","Five","My Dialog"},,, 0,,,,, .F., 0,,, .F., "TOP",,, .F.,,, .T.,, .F.,, "oFldr" )

   @ 25,25 BUTTON "&FotoFons" OF oFldr:aDialogs[1] SIZE 100, 30 PIXEL

   @ 75,25 EDIT oEdit VAR cVarEdit SIZE 300,22 LIMITTEXT BY 30 CHARS PIXEL OF oFldr:aDialogs[1]

   @ 275,25 EDIT oEdit2 VAR cVarEdit2 SIZE 300,22 LIMITTEXT BY 30 CHARS PIXEL OF oWnd

   ACTIVATE DIALOG oWnd
//   ACTIVATE WINDOW oWnd

Return Nil
 


Los dos Edits, son (deberian ser) del mismo tamaño. Un Edit que esté en el contenedor de un TFolderEX, si éste FolderEx su parent es una WINDOW, respeta el tema PIXELs, correctamente, si el parent es un DIALOG, NO lo respeta y va por libre!!!

Creo que el TFolderEx está bien creado, el séptimo parámetro es el que corresponde a lPixels
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: DIALOGs Vs WINDOWs

Postby Xevi » Mon Jan 01, 2018 5:06 pm

Tampoco se pueden crar ExplBar, salta error en ejecución...
Error Base/1004... Message not found: TEXPLORERBAR:DEFCONTROL

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION Main()
   local oWnd, oExplBar

   DEFINE DIALOG oWnd FROM 1, 1 TO 750, 1450 PIXEL
   oWnd:lTruePixel := .T.

   oExplBar := TExplorerBar():New( 0, 0, 325, 500, oWnd )

   oExplBar:nTopColor    := CLR_BLUE
   oExplBar:nBottomColor := CLR_RED

   oExplBar:AddPanel( "ACCESSOS DIRECTES", "ExpBarDirectes",, 35,15 ) //<cTitle>, <cBitmap>, <nBodyHeight>, <nTitleHeight>, <nRound>, <aGradient>, <oFont>, <nClrT>, <nClrP>

   ACTIVATE DIALOG oWnd

Return Nil
 
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: DIALOGs Vs WINDOWs

Postby Xevi » Mon Jan 01, 2018 5:08 pm

No se... me esta empezando a poner nervioso FW.
Tantas cosas mal hechas no estaré haciendo yo, no???

Porqué unos controles SI y otros NO ???
Porqué utilizar WINDOW o DIALOG ???
A que se debe tanta incompatibilidad de controles???

Voy a seguir mirando, pero, ya digo, me está... :evil: por no decir otra cosa!!!
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: DIALOGs Vs WINDOWs

Postby cnavarro » Mon Jan 01, 2018 5:45 pm

Xevi wrote:Tampoco se pueden crar ExplBar, salta error en ejecución...
Error Base/1004... Message not found: TEXPLORERBAR:DEFCONTROL

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION Main()
   local oWnd, oExplBar

   DEFINE DIALOG oWnd FROM 1, 1 TO 750, 1450 PIXEL
   oWnd:lTruePixel := .T.

   oExplBar := TExplorerBar():New( 0, 0, 325, 500, oWnd )

   oExplBar:nTopColor    := CLR_BLUE
   oExplBar:nBottomColor := CLR_RED

   oExplBar:AddPanel( "ACCESSOS DIRECTES", "ExpBarDirectes",, 35,15 ) //<cTitle>, <cBitmap>, <nBodyHeight>, <nTitleHeight>, <nRound>, <aGradient>, <oFont>, <nClrT>, <nClrP>

   ACTIVATE DIALOG oWnd

Return Nil
 


Xevi, prueba asi ( con diálogos en el ON INIT )

Code: Select all  Expand view



#include "FiveWin.ch"

FUNCTION Main()
   
   local oWnd

   DEFINE DIALOG oWnd FROM 1, 1 TO 750, 1450 PIXEL
   oWnd:lTruePixel := .T.

   ACTIVATE DIALOG oWnd ;
      ON INIT HazExplorer( oWnd )

Return Nil

//----------------------------------------------------------------------------//

Function HazExplorer( oWnd )

   local oExplBar
   oExplBar := TExplorerBar():New( 0, 0, 325, 500, oWnd )

   oExplBar:nTopColor    := CLR_BLUE
   oExplBar:nBottomColor := CLR_RED

   oExplBar:AddPanel( "ACCESSOS DIRECTES", "ExpBarDirectes",, 35,15 )

Return nil

//----------------------------------------------------------------------------//

 
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: DIALOGs Vs WINDOWs

Postby cnavarro » Mon Jan 01, 2018 5:55 pm

Xevi wrote:Estoy comparando comportamientos de controles entre WINDOW y/o DIALOG, y encuentro algunos "defectos" entre el tratamiento de un contenedor u otro.

El tema de PIXELs, no es el mismo, por ejemplo...

Code: Select all  Expand view

#include "FiveWin.ch"

FUNCTION Main()
   local oWnd, oFldr
   Local oEdit, cVarEdit := "Edit2..."
   Local oEdit2, cVarEdit2 := "Edit2..."

   DEFINE DIALOG oWnd FROM 1, 1 TO 800, 1450 PIXEL
   oWnd:lTruePixel := .T.
//   DEFINE WINDOW oWnd FROM 1, 1 TO 800, 1450 PIXEL

   oFldr := TFolderEx():New( 0, 0,800,250, oWnd,, .T., .F., {"Prime","Segu","Terce","Quart","Five","My Dialog"},,, 0,,,,, .F., 0,,, .F., "TOP",,, .F.,,, .T.,, .F.,, "oFldr" )

   @ 25,25 BUTTON "&FotoFons" OF oFldr:aDialogs[1] SIZE 100, 30 PIXEL

   @ 75,25 EDIT oEdit VAR cVarEdit SIZE 300,22 LIMITTEXT BY 30 CHARS PIXEL OF oFldr:aDialogs[1]

   @ 275,25 EDIT oEdit2 VAR cVarEdit2 SIZE 300,22 LIMITTEXT BY 30 CHARS PIXEL OF oWnd

   ACTIVATE DIALOG oWnd
//   ACTIVATE WINDOW oWnd

Return Nil
 


Los dos Edits, son (deberian ser) del mismo tamaño. Un Edit que esté en el contenedor de un TFolderEX, si éste FolderEx su parent es una WINDOW, respeta el tema PIXELs, correctamente, si el parent es un DIALOG, NO lo respeta y va por libre!!!

Creo que el TFolderEx está bien creado, el séptimo parámetro es el que corresponde a lPixels


En el diálogo, prueba así

Code: Select all  Expand view

  @ 75,25 EDIT oEdit VAR cVarEdit SIZE 300 / 2, 22 / 2  LIMITTEXT BY 30 CHARS PIXEL OF oFldr:aDialogs[1]

 


o no actives lTruePixel

Code: Select all  Expand view

   DEFINE DIALOG oWnd FROM 1, 1 TO 800, 1450 PIXEL
//   oWnd:lTruePixel := .T.
 
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: DIALOGs Vs WINDOWs

Postby Xevi » Mon Jan 01, 2018 7:04 pm

Con o sin lTruePixel... el resultado el mismo.

@ 75,25 EDIT oEdit VAR cVarEdit SIZE 300 / 2, 22 / 2 LIMITTEXT BY 30 CHARS PIXEL OF oFldr:aDialogs[1]
Así, si va bien...
El caso es que ... porqué tengo que en el diálogo del TFolderEx, ponerlo de esta manera???

Alguna razón... pues no me vale que en un contenedor lo deba de pone XX/2 y en el otro directamente XX.

Vaya, no es normal ni lógico.

El contenedor padre es en PIXELs... pues todo en PIXELs (eso creo que es como deberia de ser, a no ser que se le diga el contrario)
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: DIALOGs Vs WINDOWs

Postby Xevi » Tue Jan 02, 2018 5:19 pm

¿?¿?
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 108
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: DIALOGs Vs WINDOWs

Postby cnavarro » Tue Jan 02, 2018 7:28 pm

Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: karinha and 5 guests