Mostrar el Browse abajo del GET con BITMAP

Board index FiveWin para Harbour/xHarbour Mostrar el Browse abajo del GET con BITMAP

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Mostrar el Browse abajo del GET con BITMAP
Posted: Thu Jul 02, 2009 07:45 PM

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 (fw): Select all Collapse

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

Saludos,

Adhemar C.

JavierVital

Posts: 105

Joined: Thu Feb 26, 2009 04:08 PM

Re: Mostrar el Browse abajo del GET con BITMAP
Posted: Sat Jul 04, 2009 06:23 PM

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 (fw): Select all Collapse

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

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Mostrar el Browse abajo del GET con BITMAP
Posted: Mon Jul 06, 2009 01:48 PM

Gracias Distinguido Javier

Funciona Perfecto.

Saludos

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion