Recompilar biblioteca ttaskbar

[hebert_j_vargas]

Cierto, esta vez si lo he podido apreciar.

En el METHOD MouseMove( nRow, nCol, nFlags ) CLASS TTaskPanel

Se llama a

::Refresh()

Quitando esa llamada, debería eliminarse el parpadeo

Gracias amigo Antonio, voy a probar y les aviso.

Les comento el parpadeo se redujo un 95%, depende mucho de la cantidad de controles dentro del panel, yo tengo dos COMBOBOX, 3 SAY y 3 GET con botones. Otra falla que encontre tiene que ver con los panel que quedan debajo del área visible, no calcula el tamaño correcto , no le resta el espacio de la barra de desplazamiento vertical, tambien al colapsar los páneles y mover la barra de desplazamiento vertical y luego abrir el panel, ya no puedes volver a tu posición y los páneles del tope queda ocultos y no puedes volverlos a ver. Voy a publicar un ejemplo con todas las fallas.

[hebert_j_vargas]

Antonio, El siguiente ejemplo se comporta tal como te mensioné, los páneles que no son visibles quedan más anchos que sus precedesores. Si bajas hasta el último panel y luego colapsas los paneles anteriores al último, cuando y mueves la barra de desplazamiento vertical y luego amplias los páneles ocultos, la pantalla no mostrara los páneles primarios, asi como otras fallas de dibujo en los controles e imágenes.

Code: Select all  Expand view

#include "FiveWin.ch"
#include "ribbon.ch"
#include "xbrowse.ch"

//----------------------------------------------------------------------------//

function Main()
   local oWnd

     
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
   ACTIVATE WINDOW oWnd MAXIMIZED;
            ON INIT {oExBar := BldMyExpBar(oWnd)}  
RETURN NIL
FUNC BLDMYEXPBAR(oWnd)
   local oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
   local uVar, oBrw
   local aArray := { {"one",time(),DATE()},;
                  {"two",time(),DATE()},;
                  {"three",time(),DATE()},;
                  {"four",time(),DATE()},;
                  {"five",time(),DATE()} }
//   oExBar = TExplorerBar():New()
   oExBar = TExplorerBar():New(0,0,330,oWnd:nHeight-54,oWnd)


   oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp",300 )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )

   oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\people.bmp",300 )
   oPanel2:AddLink( "2First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel2:AddLink( "2Second item", bClick, "..\bitmaps\16x16\copy.bmp" )

   oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\people.bmp",300 )
   oPanel3:AddLink( "3First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel3:AddLink( "3Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
     
   oPanel4 = oExBar:AddPanel( "Four", "..\bitmaps\32x32\case.bmp", 400 )
   @ 40,10 say "This a say" of oPanel4 transparent pixel
   @ 60,10 radio uVar prompt "This a radio" of oPanel4 pixel size 100, 25
   @ 90, 10 COMBOBOX uVar ITEMS { "one", "two", "three" } of oPanel2 size 100, 100 pixel
   @ 120, 10 RBBTN PROMPT "Ribbon Btn" of oPanel2 pixel size 100, 25 border transparent
   @ 160, 10 btnbmp PROMPT "BtnBmp" of oPanel2 pixel size 100, 25 border 2007
   @ 40, 120 xbrowse oBrw columns {1,2,3} array aArray of oPanel4  pixel size 180, 150
   oBrw:CreateFromCode()

//   oWnd:oClient = oExBar
   SetParent( oExBar:hWnd, oWnd:hWnd )

RETURN oExBar
 

[hebert_j_vargas]

Antonio, El siguiente ejemplo se comporta tal como te mensioné, los páneles que no son visibles quedan más anchos que sus precedesores. Si bajas hasta el último panel y luego colapsas los paneles anteriores al último, cuando y mueves la barra de desplazamiento vertical y luego amplias los páneles ocultos, la pantalla no mostrara los páneles primarios, asi como otras fallas de dibujo en los controles e imágenes.

Code: Select all  Expand view

#include "FiveWin.ch"
#include "ribbon.ch"
#include "xbrowse.ch"

//----------------------------------------------------------------------------//

function Main()
   local oWnd

     
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
   ACTIVATE WINDOW oWnd MAXIMIZED;
            ON INIT {oExBar := BldMyExpBar(oWnd)}  
RETURN NIL
FUNC BLDMYEXPBAR(oWnd)
   local oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
   local uVar, oBrw
   local aArray := { {"one",time(),DATE()},;
                  {"two",time(),DATE()},;
                  {"three",time(),DATE()},;
                  {"four",time(),DATE()},;
                  {"five",time(),DATE()} }
//   oExBar = TExplorerBar():New()
   oExBar = TExplorerBar():New(0,0,330,oWnd:nHeight-54,oWnd)


   oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp",300 )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )

   oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\people.bmp",300 )
   oPanel2:AddLink( "2First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel2:AddLink( "2Second item", bClick, "..\bitmaps\16x16\copy.bmp" )

   oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\people.bmp",300 )
   oPanel3:AddLink( "3First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel3:AddLink( "3Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
     
   oPanel4 = oExBar:AddPanel( "Four", "..\bitmaps\32x32\case.bmp", 400 )
   @ 40,10 say "This a say" of oPanel4 transparent pixel
   @ 60,10 radio uVar prompt "This a radio" of oPanel4 pixel size 100, 25
   @ 90, 10 COMBOBOX uVar ITEMS { "one", "two", "three" } of oPanel2 size 100, 100 pixel
   @ 120, 10 RBBTN PROMPT "Ribbon Btn" of oPanel2 pixel size 100, 25 border transparent
   @ 160, 10 btnbmp PROMPT "BtnBmp" of oPanel2 pixel size 100, 25 border 2007
   @ 40, 120 xbrowse oBrw columns {1,2,3} array aArray of oPanel4  pixel size 180, 150
   oBrw:CreateFromCode()

//   oWnd:oClient = oExBar
   SetParent( oExBar:hWnd, oWnd:hWnd )

RETURN oExBar
 

[hebert_j_vargas]

UP

[hebert_j_vargas]

UP

[Antonio Linares]

Hebert,

Lo que ocurre es que la barra de scroll se muestra ó se oculta, pero el ancho de los paneles está bien.