Mostrar el Browse abajo del GET con BITMAP

[acuellar]

Hola amigos

Como se hace para mostrar el browse abajo del GET cuando se da Click sobre la imagen, me muestra después de la imagen.
Si presiono F2 o flecha abajo me muestra el browse abajo del GET

Tengo lo siguiente:

Code: Select all

REDEFINE GET oGet VAR xRubro ID 103 OF oDlg1 PICTURE "@!"  BITMAP "Buscar" ON CHANGE Eval( oGet:bAction );
      VALID  {|| RUBRO->( dBSeek( xRubro )),;
          iif( RUBRO->( Eof() ), (MsgInfo("Sector no Existe"),.F.),.T. ) } ACTION (BUSCARUBRO("RUBRO")

       oGet:lAdjustBtn := .t.  ; oGet:cToolTip := "Presiona F2" 
       oGet:bKeyDown := { |nKey| If( nKey == VK_F2 .OR. nKey=VK_DOWN, Eval( oGet:bAction ), Nil ) }
...

Function BUSCARUBRO(cAlias)
     Local oRec:= GetWndRect( GetFocus() )
     
    DbSelectArea( cAlias )

    DEFINE DIALOG oDlg FROM oRec[3], oRec[2] TO oRec[3] + 197, oRec[2] + 200 PIXEL STYLE nOr( WS_VISIBLE, WS_POPUP )
    oBrw := TXBrowse():New( oDlg )
    oBrw:nMarqueeStyle:=MARQSTYLE_HIGHLROW
   oBrw:bLDblClick:={ || ( lOk:=.T.,oDlg:End() )}
      
   oCol:=oBrw:AddCol()
    oCol:bStrData :={ || RUBRO}
        
   oBrw:CreateFromCode()

  ACTIVATE DIALOG oDlg

Return Nil
 

Gracias por la ayuda

Saludos

Adhemar

[JavierVital]

yo le hago asi , aver si te funciona

a al funcion BUSCARUBRO le mando el objeto donde estoy ubicado "oGet" y el objeto dialogo asi :

Code: Select all

BUSCARUBRO(oDlg1,oGet[2])

FUNCTION BUSCARUBRO(oDAnte,oObj1)
  LOCAL nTopD := oObj1:nTop(), nLeftD := oObj1:nLeft()
  LOCAL aRect := GetWndRect( oDAnte:hWnd )
  DEFINE DIALOG oDlgCte RESOURCE "CLIENTES_05" OF oDAnte
  ACTIVATE DIALOG oDlgCte ON INIT oDlgCte:Move(aRect[1]+nTopD+50,aRect[2]+nLeftD)
RETURN .T.

 

y asi me funciona que al ponerle el F2 me desglose el browse hacia abajo del get

Saludos.

[acuellar]

Gracias Distinguido Javier

Funciona Perfecto.

Saludos

Adhemar