Jose Luis,
Curiosidad "geek" 
:
Estas usando ya Leopard ? Que "geekbench" te da tu máquina ? http://www.primatelabs.ca/geekbench
Y Xbench ?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour tprogress y windows vista
Page: 1 2 (27 posts)
Lo uso nativo, instalado con BootCamp. Probé Parallels pero el refresco del teclado era muy lento, asi que lo dejé estar.
Al final la solución pasará por el WaitSeconds, pero tengo que ver también lo del tamaño del meter, que parece que no funciona igual que en XP.
Saludos,
Antonio, uso Tiger. TodavÃa me queda mucha tela que aprender ahi como para pasar a Leopard. Y también está lo de los 129 euros, que también hay que pagarlos y la cosa se amontona.
DesconocÃa lo del GeekBench, cuando vuelva a arrancar en OS X te cuento.
Saludos,
Antonio,
el geekbench de 32 bits en mi equipo con Windows Vista es de 2076.
Saludos,
gracias!
Antonio, insisto en lo de los meter. Mira el siguiente ejemplo:
con este RC
En XP funciona perfecto. En Vista, si le quitas la linea del RC donde carga el .manifest funciona bien, pero si le pones en .manifest ya no llega al final, se queda como al 25% del control. El ejemplo usa la dbf que hay en fivewin/samples.
Saludos,
// FiveWin Win32 common controls sample
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oTabs, oSay, oProgress, oAnimate ,oSay1,oSay2 , nAVI := 1
DEFINE DIALOG oDlg RESOURCE "Main"
REDEFINE SAY oSay ID 100 OF oDlg
oProgress = TProgress():Redefine( 120, oDlg )
oDlg:bStart := { || SysRefresh(), Ut_CrearNTX(oSay, oProgress),;
oDlg:End() }
ACTIVATE DIALOG oDlg CENTERED
return nil
//-----------------------------------------------------------------------------//
function Ut_CrearNTX(oSay, oProgress)
local nProgress:= 0
field first, last
if File("CUSTOMER.NTX")
delete file "customer.ntx")
endif
USE Customer NEW
MsgAlert(LastRec())
oProgress:SetRange(0, RecCount())
oProgress:SetPos( 0 )
nProgress:= 0
sysrefresh()
INDEX ON first+last TO "CUST01" FOR ! Deleted();
EVAL (oProgress:SetPos(nProgress++), oSay:SetText(nProgress), Sysrefresh()) EVERY 1
Msginfo(nProgress)
DbCloseAll()
return nilcon este RC
1 24 "WinXP/WindowsXP.Manifest"
#include "..\include\WinApi.ch"
LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US
MAIN DIALOG DISCARDABLE 110, 41, 262, 71
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Vista Progressbar"
FONT 8, "MS Sans Serif"
BEGIN
CONTROL "", 120, "msctls_progress32", 0x00000000, 12, 20, 240, 20
CONTROL "Text", 100, "Static", WS_GROUP, 12, 48, 240, 8
ENDEn XP funciona perfecto. En Vista, si le quitas la linea del RC donde carga el .manifest funciona bien, pero si le pones en .manifest ya no llega al final, se queda como al 25% del control. El ejemplo usa la dbf que hay en fivewin/samples.
Saludos,
José Luis,
Parece una cuestión de pintado de Windows, porque asi se rellena la barra completamente:
Parece una cuestión de pintado de Windows, porque asi se rellena la barra completamente:
INDEX ON first+last TO "CUST01" FOR ! Deleted();
EVAL (oProgress:SetPos(nProgress++), MsgInfo( nProgress ), oSay:SetText(nProgress), Sysrefresh()) EVERY 1José Luis,
Hay que usar los métodos SetStep() y StepIt() y asi sà completa:
Hay que usar los métodos SetStep() y StepIt() y asi sà completa:
oProgress:SetRange( 0, RecCount() )
oProgress:SetStep( 2 )
nProgress:= 0
sysrefresh()
INDEX ON first+last TO "CUST01" FOR ! Deleted();
EVAL ( oProgress:SetPos( nProgress++ ),;
If( nProgress < RecCount(), oProgress:StepIt(),),;
oSay:SetText( nProgress ), SysRefresh()) EVERY 1Antonio,
en XP funciona bien asÃ. Esta noche lo pruebo en Vista.
Gracias,
José Luis Sánchez wrote:Antonio,
en XP funciona bien asÃ. Esta noche lo pruebo en Vista.
Gracias,
Estou com este problema tambem!
Isto foi solucionado?
FiveWin 9.03 + xHarbour !!
Anderson,
No, aún no hemos dado con la solución.
De hecho lo estamos comentando estos dias en el foro en inglés:
Page: 1 2 (27 posts)