Jose Luis,
Curiosidad "geek" :
Estas usando ya Leopard ? Que "geekbench" te da tu máquina ? http://www.primatelabs.ca/geekbench
Y Xbench ?
http://www.xbench.com/
// 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 nil
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
END
INDEX ON first+last TO "CUST01" FOR ! Deleted();
EVAL (oProgress:SetPos(nProgress++), MsgInfo( nProgress ), oSay:SetText(nProgress), Sysrefresh()) EVERY 1
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 1
José Luis Sánchez wrote:Antonio,
en XP funciona bien así. Esta noche lo pruebo en Vista.
Gracias,
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot], JoseLuis and 77 guests