Ajuste Tamaño Listbox

[JoseLuis]

Hola amigos

Me estoy liando y no se porque me sale el listbox como en la imagen siguiente:
[img][img]http://img242.imageshack.us/img242/6538/ventanawx3.jpg[/img][/img]
Porque? no me ocupa la pantalla?
El codigo del listbox es:

Code: Select all  Expand view  RUN

      @ 30, 0 Listbox oLbx FIELDS  dtoc((aAlias[1])->Fecha),;
                               oemtoansi((aAlias[1])->cnomcli);
                               HEADER  " Fecha ", " Cliente ";
                               FIELDSIZES    52,200;
                               ALIAS aAlias[1];
                               CURSOR dedo;
                               COLOR CLR_BLACK,  nRGB(226,226,208) ;
                               ON LEFT DBLCLICK  (iif(!(aAlias[1])->(eof()),(cTitulo:="Visualización de acciones ",Entalba(aAlias,cTitulo,"V"),oLbx:Refresh()),.T.));
                               OF Publicas:oWppal;
                PIXEL
   oLbx:nStyle:= nOr( WS_VSCROLL, WS_HSCROLL )
   oLbx:nLineStyle := 1
   oLbx:Setcolor(nil,RGB(245,239,191))
   oLbx:nClrBackHead := RGB(248,191,36)
   oLbx:aJustify := {.F.,.F.}
   oLbx:aHJustify := {2,2}
   oLbx:nClrPane:={||iIF((oLbx:cAlias)->(OrdKeyNo())%2==0,nRGB(245,219,175),nRGB(245,239,191))}


Saludos

Jose Luis

[R.F.]

Tienes que avisarle a la ventana contenedora que control es que toma el aera cliente:

Publicas:oWppal:SetControl(oLbx)

Y listo, esto debe de ir antes del ACTIVATE WINDOW

[JoseLuis]

Gracias por la respuesta René
Aplicando el Setcontro(), me da el siguiente error

*************************************************
Error description: Error BASE/1004 Message not found: TWINDOW:SETCONTROL

Stack Calls
===========
Called from: => TWINDOW:ERROR(179)
Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105)
Called from: => TWINDOW:MSGNOTFOUND(0)
Called from: WINDOW.PRG => TWINDOW:SETCONTROL(167)
Called from: acciones.prg => MAIN(103)

***********************************************

Yo nunca había tenido que utilizar ésto y me había funcionado, la verdad es que siempre he utilizado listbox en ventanas hijas o Dialogos. En éste caso lo utilizo en ventana pincipal no MDI y el codigo completo es:

Code: Select all  Expand view  RUN

     DEFINE WINDOW Publicas:oWPpal FROM 5,5 TO 35,90 NOMAXIMIZE;
       TITLE Publicas:cTitulo;
       ICON oIco
    DEFINE FONT oFont NAME 'MS Sans Serif' SIZE 0,-8
    Publicas:oWPpal:oFont:=oFont
    SET MESSAGE TO (" (c) GrupoSunade ") CENTERED OF Publicas:oWPpal
    DEFINE BUTTONBAR oBar TOP 3d OF Publicas:oWPpal
    DEFINE BUTTON RESOURCE "ANADIR" of oBar NOBORDER MESSAGE "Añadir"      ACTION (cTitulo:="Creación de nuevas acciones ",;
                        (aAlias[1])->(OrdSetFocus("Fecha")),oTab:nOption:=1,oTab:refresh(),;
                        Entalba(aAlias,cTitulo,"A"),oLbx:Refresh());
                        TOOLTIP "Añadir"
    DEFINE BUTTON RESOURCE "MODIFICAR" of oBar NOBORDER  MESSAGE "Modificar"   ACTION (iif(!(aAlias[1])->(eof()),(cTitulo:="Modificación de envios ",;
                        Entalba(aAlias,cTitulo,"M"),oLbx:Refresh()),.T.));
                TOOLTIP "Modificar"
    DEFINE BUTTON RESOURCE "BORRAR" of oBar NOBORDER  MESSAGE "Eliminar"    ACTION (Entalba());
         TOOLTIP "Eliminar"
    DEFINE BUTTON RESOURCE "BUSCAR" of oBar NOBORDER  MESSAGE "Localizar"   ACTION (Entalba());
         TOOLTIP "Localizar"
    DEFINE BUTTON RESOURCE "VER" of oBar NOBORDER  MESSAGE "Visualizar"  ACTION (Entalba());
         TOOLTIP "Zoom"
    DEFINE BUTTON RESOURCE "IMPRESORA" of oBar NOBORDER  MESSAGE "Imprimir"    ACTION (Entalba());
                 TOOLTIP "Imprimir Listados"
    DEFINE BUTTON RESOURCE "SALIR" of oBar NOBORDER  MESSAGE "Salir"       ACTION Publicas:oWppal:END();
         TOOLTIP "Salir"
      @ 30, 0 Listbox oLbx FIELDS  dtoc((aAlias[1])->Fecha),;
                               oemtoansi((aAlias[1])->cnomcli);
                               HEADER  " Fecha ", " Cliente ";
                               FIELDSIZES    52,200;
                               ALIAS aAlias[1];
                               CURSOR dedo;
                               COLOR CLR_BLACK,  nRGB(226,226,208) ;
                               ON LEFT DBLCLICK  (iif(!(aAlias[1])->(eof()),(cTitulo:="Visualización de acciones ",Entalba(aAlias,cTitulo,"V"),oLbx:Refresh()),.T.));
                               OF Publicas:oWppal;
                PIXEL
   oLbx:nStyle:= nOr( WS_VSCROLL, WS_HSCROLL )
   oLbx:nLineStyle := 1
   oLbx:Setcolor(nil,RGB(245,239,191))
   oLbx:nClrBackHead := RGB(248,191,36)
   oLbx:aJustify := {.F.,.F.}
   oLbx:aHJustify := {2,2}
   oLbx:nClrPane:={||iIF((oLbx:cAlias)->(OrdKeyNo())%2==0,nRGB(245,219,175),nRGB(245,239,191))}
           @ Publicas:oWPpal:nHeight() - 45, 0  TABS oTab ;
                               PROMPTS "&Fecha","&Cliente" ;
                COLOR CLR_BLACK, CLR_WHITE ;
                                    ACTION ((aAlias[1])->(Ordsetfocus(cambia(oTab:nOption))),oLbx:Refresh())
  oTab:Default()
* Publicas:oWppal:SetControl(oLbx)
    ACTIVATE WINDOW Publicas:oWPpal;
              VALID Salir()


Saludos

Jose Luis

[Antonio Linares]

Prueba así:

Publicas:oWppal:oClient := oLbx

[JoseLuis]

Perfecto Antonio

Saludos

Jose Luis