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 wrote:Gracias amigo Antonio, voy a probar y les aviso.Antonio Linares wrote: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
Recompilar biblioteca ttaskbar
- hebert_j_vargas
- Posts: 94
- Joined: Thu Aug 02, 2012 3:21 pm
Re: Recompilar biblioteca ttaskbar
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.01
BCC 5.8.2
FiveWin Version: FWHX 15.01
BCC 5.8.2
- hebert_j_vargas
- Posts: 94
- Joined: Thu Aug 02, 2012 3:21 pm
Re: Recompilar biblioteca ttaskbar
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
#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
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.01
BCC 5.8.2
FiveWin Version: FWHX 15.01
BCC 5.8.2
- hebert_j_vargas
- Posts: 94
- Joined: Thu Aug 02, 2012 3:21 pm
Re: Recompilar biblioteca ttaskbar
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
#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
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.01
BCC 5.8.2
FiveWin Version: FWHX 15.01
BCC 5.8.2
- hebert_j_vargas
- Posts: 94
- Joined: Thu Aug 02, 2012 3:21 pm
Re: Recompilar biblioteca ttaskbar
UP
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.01
BCC 5.8.2
FiveWin Version: FWHX 15.01
BCC 5.8.2
- hebert_j_vargas
- Posts: 94
- Joined: Thu Aug 02, 2012 3:21 pm
Re: Recompilar biblioteca ttaskbar
UP
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.01
BCC 5.8.2
FiveWin Version: FWHX 15.01
BCC 5.8.2
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Recompilar biblioteca ttaskbar
Hebert,
Lo que ocurre es que la barra de scroll se muestra ó se oculta, pero el ancho de los paneles está bien.
Lo que ocurre es que la barra de scroll se muestra ó se oculta, pero el ancho de los paneles está bien.