how to make listbox smaller

[acwoo]

#include "Fivewin.ch"


FUNCTION MAIN()

LOCAL oDlg, oBrw

LOCAL hBmp1 := READBITMAP( 0, "SELECT.BMP" )
LOCAL hBmp2 := READBITMAP( 0, "UNSELECT.BMP" )

USE TEST

DEFINE DIALOG oDlg SIZE 400, 300

@ 0, 0 LISTBOX oBrw FIELDS FIELD -> last,;
FIELD -> first,;
IF( FIELD -> married, hBmp1, hBmp2 ),;
"";
HEADERS "LAST", "FIRST", "M", "";
SIZES 100, 100, 16, 0

oBrw:bLClicked = { | nRow, nCol | Cambia( oBrw, nCol ) }

ACTIVATE DIALOG oDlg;
ON INIT oDlg:SetControl( oBrw );
CENTER

CLOSE

DELETEOBJECT( hBmp1 )
DELETEOBJECT( hBmp2 )

RETURN NIL


STATIC FUNCTION CAMBIA( oBrw, nCol )

IF oBrw:nAtCol( nCol ) = 3
REPLACE FIELD -> married WITH !FIELD -> married
oBrw:Refresh( .F. )
ENDIF

RETURN NIL

After putting in oDlg:SetControl( oBrw ) the Brw occupies the whole dialog
box, leaving no place to put in a button for "Exit".
Without oDlg:SetControl( oBrw ), I can put in the "Exit" button.
How do I solve this problem.

Thanks

[Otto]

Hello accwo,
try without ON INIT oDlg:SetControl( oBrw )

Regards,
Otto

[James Bott]

You can use a resource editor and design the dialog however you wish.

Regards,
James

[acwoo]

>try without ON INIT oDlg:SetControl( oBrw )

It works.

Thanks