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

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

Regards,
Otto

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

Regards,
James

>try without ON INIT oDlg:SetControl( oBrw )

It works.

Thanks