Page 1 of 1

como progamar un Meter

Posted: Wed Nov 15, 2006 6:22 pm
by prm_pedro
:lol: HOLA A TODOS



TENGO UN DUDA DE COMO VA LA ESCRUCTURA DE UN METER


EN :oops: 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
:cry: 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
:cry: 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

Posted: Wed Nov 15, 2006 6:36 pm
by Antonio Linares
Pedro,

Los meters aún no estan implementados en FWPPC.

Re: como progamar un Meter

Posted: Thu Nov 16, 2006 4:37 am
by Vikthor
prm_pedro wrote::lol: HOLA A TODOS



TENGO UN DUDA DE COMO VA LA ESCRUCTURA DE UN METER


EN :oops: 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
:cry: 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
:cry: 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

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