FiveTech Software tech support forums

I have a Meter on a dialog @ 55, 40 METER oProgress VAR nActual SIZE 120,20 PIXEL OF oDlgAgg ; COLOR 0x60ff0000, CLR_BLACK ; BARCOLOR 0x6000ff00, CLR_WHITE ; TOTAL nTotal FONT oFont BORDER CLR_BLACK ; // CIRCULAR INNERDIA { |n| 0.2 + ( 0.6 * n ) } ; ...

... ) then give me the right list https://i.postimg.cc/YqSGdXsp/testr.png on method paint I have DrawBitmap( ::hDC, ::aBitmaps[ max( ::nActual , 1 ) ], nRow, nCol, ::nWBmp, ::nHBmp, SRCCOPY ) because before the class run with only bmp file how I can to converte it to run with png files

... Meter: Mejoras: La sintaxis existente para crear el control del medidor(Meter) es: @ <nRow>, <nCol> METER [ <oMeter> VAR ] <nActual> ; [ TOTAL <nTotal> ] ; [ SIZE <nWidth>, <nHeight> ]; [ OF <oWnd> ] ; [ <update: UPDATE > ] ; [ <lPixel: ...

... * Meter class: Enhancements: The existing syntax for creating Meter contol is: @ <nRow>, <nCol> METER [ <oMeter> VAR ] <nActual> ; [ TOTAL <nTotal> ] ; [ SIZE <nWidth>, <nHeight> ]; [ OF <oWnd> ] ; [ <update: UPDATE > ] ; [ <lPixel: ...

... me paso con este código: DEFINE DIALOG oDlg RESOURCE "PROGRESO" oMeter = TProgress():Redefine(101,oDlg) //REDEFINE METER oMeter VAR nActual TOTAL 100 ID 101 OF oDlg //UPDATE //REDEFINE METER oMeter VAR nActual ID 101 OF oDlg TOTAL 100 //ROUND ROUNDSIZE 6 Cuando ocupe el REDEFINE ...

... me paso con este código: DEFINE DIALOG oDlg RESOURCE "PROGRESO" oMeter = TProgress():Redefine(101,oDlg) //REDEFINE METER oMeter VAR nActual TOTAL 100 ID 101 OF oDlg //UPDATE //REDEFINE METER oMeter VAR nActual ID 101 OF oDlg TOTAL 100 //ROUND ROUNDSIZE 6 Cuando ocupe el REDEFINE ...

... Local nReg:=TablaRecout("exi_suc") Local oma_arti,cSql,cExi_Det Local totini,totent,totsal Local oCmd,oRsCmd Local nCount:=0 nActual := 0 nTotal := 0 oCmd:=TOleAuto():New("ADODB.Command") oCmd:CommandText :="select count(*) from exi_suc WHERE sto_ok='"+"1'" ...

... que o topico esta solucionado concorda ? Este mesmo exemplo com o Meter funciona perfeitamente function Main() local oDlg, oProg1, oProg2 local nActual := 0 , nTotal := 100 DEFINE DIALOG oDlg TITLE "Progress Bars" // @ 1, 1 PROGRESS oProg1 SIZE 80, 12 // @ 1, 20 PROGRESS oProg2 SIZE ...

... muestro y quedó así: Descomprime(cFileZip,cPathDesempaque) FUNCTION Descomprime(cFile,cPathDescarga) LOCAL oDlg,nFiles,aFiles,oText, cMsg, oMeter,nActual:=0 DEFAULT cPathDescarga:="E:\" IF FILE(cFIle) aFiles:=hb_GetFilesInZip(cFile) // aFiles:=hb_GetFilesInZip(cFile,.t.) nFiles:=Len(hb_GetFilesInZip(cFile)) ...

Karinha, Checa estas funciones, a mi me funcionan!! STATIC FUNCTION Comprime(cFile,aFile) LOCAL oDlg,oMeter,oText,cMsg,nLen,lVal,nActual:=0 nLen:=Len(aFile) DEFINE DIALOG oDlg FROM 1, 1 TO 10, 60 TITLE "Espere, reuniendo archivos..." @ 0.5, 2 SAY oText VAR cMsg SIZE 180, 20 OF ...

... SIZE 90,18 FONT oFont @ 140,230 GET aoGt[ 8 ] VAR nDescto PIXEL SIZE 100, 24 PICTURE " 99.99" RIGHT OF oWnd @ 320, 40 METER oMeter VAR nActual TOTAL nTotal PIXEL SIZE 555, 40 OF oWnd ; FONT oFont COLOR nRGB( 90, 90, 90 ), nRGB( 255, 255, 255 ) ; BARCOLOR nRGB( 25, 25, 120 ), nRGB( 255, ...

... .. parent <dir> local nRec_ctr := 0 local cSto local cStart := time() local cStop local cElapsed local oPrg local oProg1 local oDlg local nActual := 0 local oMeter local nTotal local nTimes := 0 // stats dialog local oStat local fntArial local oSay local cStat_msg Local hFile Local aInfo ...

Moving the Index-call to Dialog ON INIT, doesn't need a Button-action. ACTIVATE DIALOG oDlg ; ON INIT ( CreateTag( oMeter, @nActual, "Test", cTag ) ) // , BROWSE() ) There is still another way to create a Index : Samples : ORDCREATE( ,"FAKT1","LOWER(archiv) ...

NAGES OR DANIEL, i USE METEREX FOR MAKE THE METER @ 205, 12 METEREX oMeterQuality VAR nActual SIZE 180, 12 TOTAL 100 PIXEL; GRADIENT CHUNK { { 1/2, nRGB( 255, 251, 229 ), nRGB( 250, 223, 143 ) } , ; { 1/2, nRGB( 244, 194, 51 ), nRGB( 252, 235, 173 ) } }; GRADIENT TRACK ...

... lo hago de la siguiente forma : //==================== FUNCTION PERCAP1() //==================== Public oExcel, oHoja, nRows, nCols,oMeter,oDlg,nActual:= 0 Public aCampos:={}, nRow, nCol,nContar:= 0 oExcel := TOleAuto():New( "Excel.Application" ) cFile := cGetFile("*.XLS", ...