como progamar un Meter

[prm_pedro]

HOLA A TODOS



TENGO UN DUDA DE COMO VA LA ESCRUCTURA DE UN METER


EN FW ES ASI PERO EN PC POCKET COMO LO UTILIZO..


DEFINE DIALOG oCopia RESOURCE "envia" TITLE "Copiando Archivo al sitio " + cFTPSite
REDEFINE BITMAP RESOURCE "GFTP" ID 117 OF oCopia
REDEFINE SAY oSay1 ID 110 OF oCopia
REDEFINE SAY oSay2 ID 120 OF oCopia
REDEFINE METER oMeter1 VAR nAmount1 ID 111 OF oCopia;
PROMPT " " ;
COLORS CLR_HGRAY, CLR_BLUE ;
BARCOLOR CLR_HGREEN, CLR_BLUE
REDEFINE SAY oSay3 ID 140 OF oCopia
REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia;
PROMPT " " ;
COLORS CLR_HGRAY, CLR_BLUE ;
BARCOLOR CLR_HRED, CLR_BLUE
oCopia:bStart := { || SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2,;
@lEnd, oCopia, oFTP ,cFTPSite)}
ACTIVATE DIALOG oCopia CENTERED


ESPERO Y ALGUIEN ME PUEDA AYUDAR

[Antonio Linares]

Pedro,

Los meters aún no estan implementados en FWPPC.

[Vikthor]

:lol: HOLA A TODOS



TENGO UN DUDA DE COMO VA LA ESCRUCTURA DE UN METER


EN FW ES ASI PERO EN PC POCKET COMO LO UTILIZO..


DEFINE DIALOG oCopia RESOURCE "envia" TITLE "Copiando Archivo al sitio " + cFTPSite
REDEFINE BITMAP RESOURCE "GFTP" ID 117 OF oCopia
REDEFINE SAY oSay1 ID 110 OF oCopia
REDEFINE SAY oSay2 ID 120 OF oCopia
REDEFINE METER oMeter1 VAR nAmount1 ID 111 OF oCopia;
PROMPT " " ;
COLORS CLR_HGRAY, CLR_BLUE ;
BARCOLOR CLR_HGREEN, CLR_BLUE
REDEFINE SAY oSay3 ID 140 OF oCopia
REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia;
PROMPT " " ;
COLORS CLR_HGRAY, CLR_BLUE ;
BARCOLOR CLR_HRED, CLR_BLUE
oCopia:bStart := { || SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2,;
@lEnd, oCopia, oFTP ,cFTPSite)}
ACTIVATE DIALOG oCopia CENTERED


ESPERO Y ALGUIEN ME PUEDA AYUDAR

Para que quieres meter si tienes TProgress

Code: Select all  Expand view  RUN

   @  75, 1 PROGRESS oPrg OF oPanel POSITION 50 PIXEL SIZE 100, 20 COLORS 7646455, 324325345