error en los nuevos TABS. Urgente

[MOISES]

Antonio:

El siguiente código funcionaba perfectamente en la versión vieja:

// Tab
@ (oDlg:nHeight/2)-09, 72 TABS oTab SIZE oWndMain:nWidth()-80, 12 PIXEL OF oDlg ;
OPTION 1 ;
ITEMS " Por &Producto ", " Por &Código ", "Por &Familia+Producto", "Por F&amilia+Código" ;
ACTION ( Nil )

oDlg:oBottom = oTab // Para Fw febrero

Sin embargo, con los Tabs nuevos look XP no respeta las coordenadas!!!.

Un saludo,

[Antonio Linares]

Moises,

Si usas esta línea:
oDlg:oBottom = oTab

le estas indicando que se auto ajuste a la zona inferior del diálogo y que no use sus coordenadas

[MOISES]

Antonio

He probado sin ese parámetro y cuando intentas seleccionar un tab, todo siemplemente desparece. Por eso lo metí.

Sin embargo, con los tabs normales (7.12) todo funcionaba bien. Asimismo lo de odgbottom := otab funciona perfectamente con la versión 7.12, se muestra correctamente con las coordenadas.

Espero tu ayuda. Muchas gracias

[Antonio Linares]

Moises,

Si cambias oWndMain:nWidth() por oDlg:nWidth(), este ejemplo que usa tu código funciona bien:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg

   @ (oDlg:nHeight/2)-09, 72 TABS oTab SIZE oDlg:nWidth()-80, 12 PIXEL OF oDlg ;
   OPTION 1 ;
   ITEMS " Por &Producto ", " Por &Código ", "Por &Familia+Producto", "Por F&amilia+Código" ;
   ACTION ( Nil )

   ACTIVATE DIALOG oDlg CENTERED

return nil


[Antonio Linares]

Moises,

En el ejemplo que me has enviado tienes que quitar esta línea:

// oDlg:oClient := oVMenuBrowse

ya que sino el browse ocupa toda el area del diálogo y tapa a los tabs.

[MOISES]

Antonio:

Muchas gracias por responder. Ahora funciona correctamente.

Un saludo,