FiveTech Software tech support forums

Posted: **Mon Feb 12, 2007 3:12 pm**

Estimados:
Estoy usando la clase Outlook en la que a la derecha (splitter de por medio) de la barra de botones pretendo mostrar un Dlg con browse. El problema es que al dibujarse el Dlg con el browse este no muestra las barras de desplazamiento.
Alguna idea de que es lo que hago mal?
se ve así: http://hyperupload.com/download/02fac06 ... t.jpg.html

gracias, saludos

Posted: **Mon Feb 12, 2007 3:18 pm**

disculpas; aunque el código no tiene nada anormal es así:

Code: Select all

   @ 5, 5 OUTLOOK oOut ;
          SIZE 100, oWnd:nHeight() ;
          PIXEL ;
          FONT oCO:aFont[1] ;
          OF oWnd

   DEFINE GROUP OF OUTLOOK oOut PROMPT "&Mantenimiento"

   DEFINE BITMAP OF OUTLOOK oOut ;
      RESOURCE "bmp_Clientes"    ;
      PROMPT   "Clientes"        ;
      MESSAGE  "Tabla de Clientes" ;
      ACTION    oX:= BrwClie( oWnd, oCO:aoTb[_CLIENTES] )

...
   @ 5, 150 SPLITTER oSpl ;
            VERTICAL ;
            PREVIOUS CONTROLS oOut ;
            HINDS CONTROLS oX ;
            LEFT MARGIN  135 ;
            RIGHT MARGIN 1 ;
            SIZE 4, 100  PIXEL ;
            OF oWnd ;
            _3DLOOK ;
            UPDATE
...

//////
FUNCTION BrwClie( oWnd, oTb )
local oBrw, ;
      oDlg

   DEFINE DIALOG oDlg FROM 0,0 TO 500,600 PIXEL TITLE "Tabla de Clientes" ;
          STYLE  nOr( WS_POPUP, WS_VISIBLE, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME, WS_MINIMIZEBOX, 4 ) ;
          OF oWnd
          
   oTb:SetOrder( "Apellidos" )
   
   // Browse
   TWbrowse():lHScroll := .F.
   @1,1  LISTBOX  oBrw ;
         FIELDS   ""  ;
         HEADER   "Apellido(s)", "Nombre(s)", "Domicilio" ;
         COLSIZES 130 ,          160 ,        150 ;    
         SIZE     500,400 ;
         OF oDlg PIXEL

         oBrw:bLine:= {|nAt| oTB:Load(), ;
                             { oTB:FieldGet(2), ;
                               oTB:FieldGet(3), ;
                               oTB:FieldGet(5)} }

   oBrw:aJustify := { 0,0,0 }
   oBrw:lAdjLastCol:= TRUE
   MySetBrowse( oBrw, oTB )       // Eagle1
   oDlg:oClient:= oBrw
   oBrw:SetFocus()
   
   ACTIVATE DIALOG oDlg CENTER NOWAIT
   
return( oBrw )

Posted: **Tue Feb 13, 2007 1:51 am**

YO LO TENGO A SI Y ME FUNCIONA BIEN Y SE VE MUY BONITO

A UN QUE ME FALTA MAS COSITAS

@ -1, -1 OUTLOOK oOut ;
SIZE 140, oWnd:nHeight() ;
PIXEL ;
Color nRgb(230, 230, 250 ),nRgb( 132, 112, 255) ;
FONT oFont ;
OF oWnd

SET MESSAGE OF oWnd TO "" DATE TIME KEYBOARD

DEFINE GROUP OF OUTLOOK oOut PROMPT "&Principal"

DEFINE BITMAP OF OUTLOOK oOut ;
PROMPT "Autos" ;
ON CLICK Main2();
RESOURCE "auto1" TOOLTIP "Autos"

//msginfo("Your code ...", oSay:cCaption )

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "1VIDA" ;
PROMPT "Vida"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "GMM" ;
PROMPT "G.M.M"

//DEFINE BITMAP OF OUTLOOK oOut ;
// RESOURCE "FOLDER" ;
// PROMPT "This is the the fifth control"

// DEFINE BITMAP OF OUTLOOK oOut ;
// RESOURCE "fin" ;
// PROMPT "Salir" ;
// ACTION oWnd:End()

DEFINE GROUP OF OUTLOOK oOut PROMPT "&Listados"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "print" ;
PROMPT "Autos" ;
ACTION Reportes1();
TOOLTIP "Listado de renovaciones de Autos"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "print" ;
PROMPT " Vida";
TOOLTIP "Listado de renovaciones de Vida"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "print" ;
PROMPT "G.M.M" ;
TOOLTIP "Listado de renovaciones de Gastos Medicos"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "printers" ;
PROMPT "L.G.A" ;
ACTION LGA();
TOOLTIP "Listado General de Autos"

DEFINE GROUP OF OUTLOOK oOut PROMPT "&Herramientas"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "FOLDER" ;
PROMPT "First button"

DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "FOLDER" ;
PROMPT "Second button"

@ 0, 140 SPLITTER oSpl ;
VERTICAL ;
PREVIOUS CONTROLS oOut ;
LEFT MARGIN 70 ;
RIGHT MARGIN 200 ;
SIZE 4, nil PIXEL ;
OF oWnd ;
_3DLOOK ;
UPDATE

tienes que poner al final lo que esta en rojo
ACTIVATE WINDOW oWnd MAXIMIZED ON RESIZE oSpl:AdjRight()

SALUDOS

Aida

Posted: **Tue Feb 13, 2007 4:36 pm**

muchas gracias, todo sirve. Aunque el problema no estaba allí sino en el Dlg que se abre desde una de las opciones y que ya lo solucioné

FiveTech Software tech support forums

Barras verticales/horizontales que no se muestran

Barras verticales/horizontales que no se muestran

HOLA