DIALOGs Vs WINDOWs

[Xevi]

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  RUN

#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

[Xevi]

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

Code: Select all  Expand view  RUN

#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]

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á... por no decir otra cosa!!!

[cnavarro]

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

Code: Select all  Expand view  RUN

#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  RUN

#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

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

 

[cnavarro]

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  RUN

#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  RUN

  @ 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  RUN

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

[Xevi]

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)

[Xevi]

¿?¿?

[cnavarro]

Mira a ver si te sirve

viewtopic.php?f=3&t=22411&start=0&hilit=difference+coordinates+dialog+or+windows