Efecto no deseado en RIBBON Y TPANEL (SOLUCIONADO)

[Patricio Avalos Aguirre]

Estimados, en los ribbon y tPanel sale un efecto no deseado

en el ejemplo c:\fwh\samplos\ribbon.prg colocar lo siguiente

Code: Select all  Expand view

   @ 46, 55 ADD BUTTON oBtn4 GROUP oGr BITMAP "..\bitmaps\paste16.BMP" ;
     SIZE 70, 20 PROMPT "Paste"  MOSTLEFT round ;
     action pastes( oWnd )


function pastes( oWnd )
    local oPanel
    oPanel := TPanel():New(,,,, oWnd)
    msginfo( "mm" )
    oPanel:Hide()
    msginfo( "mm" )
return

Uploaded with ImageShack.us

[Patricio Avalos Aguirre]

Estimados

aqui esta el problema del pintado no deseado en la clase tPanel esta en ::setbrush(..), si lo saco funciona bien pero a la segunda se cae

hay alguna forma de solucionarlo..

Code: Select all  Expand view

  ::Register()

   if ! Empty( ::oWnd:hWnd )
      ::Create()
      ::oWnd:AddControl( Self )
      if ::oWnd:oBrush != nil
         ::SetBrush( ::oWnd:oBrush ) // este linea
      endif
   else
      ::oWnd:DefControl( Self )
   endif
 

[Antonio Linares]

Patricio,

Es que estas creando un panel que es hijo de la ventana y es normal lo que obtienes.

Si quieres que ese panel sea hijo de la ventana, lo que tienes que hacer es cambiar el valor nTop del panel para que se muestre mas abajo de la ribbon.

Si nos explicas lo que deseas implementar podremos ayudarte mejor

[Patricio Avalos Aguirre]

Gracias antonio por responder

te adjunto un video para que veas el efecto aunque no afecta en el funcionamiento de este..

http://imageshack.us/clip/my-videos/826/npi.mp4/

[Antonio Linares]

Patricio,

La aplicación se ve muy linda, enhorabuena

Veo que aparece el panel y luego desaparece, para que lo usas ? Lo pones en otra posición luego ?

[Patricio Avalos Aguirre]

Antonio:

lo ocupo para el xbrowse

Code: Select all  Expand view

   oPanel := TPanel():New(,,,, oWnd)
    oPanel:Hide()

   @ 0,0 XBROWSE oBrw OF oPanel                 ;
         FIELDS   (cAliasTablas)->cod_tabla, ;                                                                  //1
                        (cAliasTablas)->Nom_tabla ;                                                                 //2
            HEADERS "Código", "Descripción" ;
            JUSTIFY AL_LEFT,AL_LEFT ;
         ALIAS (cAliasTablas)               ;
            CELL LINES AUTOSORT

    WITH OBJECT oBrw
 

[Antonio Linares]

Patricio,

Estas usando ventanas MDI ?

[Patricio Avalos Aguirre]

Antonio:

NO, lo uso de este manera en el main principal

Code: Select all  Expand view

Function Main()

   local oRibbon
    local oQbtn1, oQbtn2, oQbtn3
   local oQck, oBtn
    local OmENU2, OiCO, oPanel, oItem
    local hBorland

    SetKey( VK_F6, { || VerPosibleError() } )

   SetBalloon( .T. )
    hBorland := LoadLibrary( "SYSTEM\BWCC32.DLL" )
    BWCCRegister(GetResources())
    HB_LANGSELECT( 'ES' )

   DEFINE WINDOW oWnd TITLE "Sistema Administrativo Comercial"

    oRibbon := BuildRibbonBar( oWnd )

//---------------------------------------------------------------------------------------------------------------*/
    DEFINE QUICKBUTTON OF oRibbon ;
          BITMAP "c:\fwh\bitmaps\16x16\fivetech.bmp", "c:\fwh\bitmaps\btnqcka.bmp", "c:\fwh\bitmaps\btnqckb.bmp", "c:\fwh\bitmaps\btnqckc.bmp" ;
          ACTION AbreMenu( oWnd )

   DEFINE QUICKACCESS oQck OF oRibbon

   ADD BUTTON oQbtn1 QUICKACCESS oQck BITMAP "c:\fwh\bitmaps\16x16\floppy.bmp"  ;
       ACTION MsgInfo("1")

   ADD BUTTON oQbtn2 QUICKACCESS oQck BITMAP "c:\fwh\bitmaps\16x16\closeall.bmp"  ;
       ACTION MsgInfo("2")

   ADD BUTTON oQbtn3 QUICKACCESS oQck BITMAP "c:\fwh\bitmaps\16x16\additem.bmp" ;
       ACTION MsgInfo("3")

   ADD BUTTON oQbtn3 QUICKACCESS oQck BITMAP "c:\fwh\bitmaps\16x16\adddbf.bmp" ;
       ACTION MsgInfo("4")

   AEval( oQck:aButtons, {|o| o:bRClicked := {| nRow, nCol, nFlags, oBtn | MenuQuickDelete( oBtn, oQck ) } } )

   oRibbon:nSeparation( 4 )

   SET MESSAGE OF oWnd TO "Sistema Administrativo Comercial" NOINSET 2007 //CENTERED CLOCK KEYBOARD 2007
    DEFINE MSGITEM oItem OF oWnd:oMsgBar SIZE 23 BITMAP "BTN_RESPALDO" TOOLTIP "Ver Usuarios en Linea" ACTION (MsgInfo("Ver Usuarios"))
    DEFINE MSGITEM oItem OF oWnd:oMsgBar SIZE 23 BITMAP "BTN_SALIR" TOOLTIP "Activar Calendario" ACTION (FwCalendar())

   ACTIVATE WINDOW ownd MAXIMIZED

Return Nil

[Antonio Linares]

Patricio,

Entiendo que usas un panel para situar el control izquierdo, un splitter un el browse a la derecha, si ?

Los tres sobre el panel, si ?

[Antonio Linares]

Patricio,

Cambia esta línea:

oPanel := TPanel():New(,,,, oWnd)

a:

oPanel := TPanel():New( 200, 0, 500, 500, oWnd)

cambia las coordenadas según te convenga

[Patricio Avalos Aguirre]

Antonio:

Excelente estaba justo en eso.

muchas gracias