[Lazarus-es] Refresh no funciona

[francisco prieto]

Si, Maxi

Respondi antes pero me llego un mesaje que elmoderador elimino el mensaje.

Puedo reenviar mi respuesta.

Saludos,

Pancho
Cordoba
Argentina

El 14 de agosto de 2015, 10:47, Maxi <maximiliano.duarte en gmail.com>
escribió:

> Funciona?
>
> El día 9 de agosto de 2015, 6:33, Jerónimo Sánchez <socger en gmail.com>
> escribió:
> > Muchas gracias, Pancho.
> >
> > Te he estado siguiendo en la lisa de lazarus.es y veo que pudistes
> salir muy
> > bien de todos los consejos.
> >
> > Bonito por tu parte. Un abrazo y todo un detalle por este aporte
> >
> >
> > El martes, 4 de agosto de 2015, 19:30:50 (UTC+3), Pancho escribió:
> >>
> >> Tengo el siguiente código
> >>
> >> procedure TfrmPesaje.UpdPeso(cLectura:String);
> >> var
> >>   lcTramas:TStringList;
> >>
> >>
> lnIndice,lnNeto,lnNegativo,lnFueraRango,lnFueraEqui,lnTeclaAd,lnCantTramas:integer;
> >>
> >>
> lcEstadoA,lcEstadoB,lcEstadoC,lcPeso,lcTara,lcDecimales,lcLectura:string;
> >> begin
> >>   lcEstadoA:='';
> >>   lcEstadoB:='';
> >>   lcEstadoC:='';
> >>   lcPeso:='';
> >>   lcTara:='';
> >>   lcTramas:= TStringList.Create;
> >>   Split('|', cLectura, lcTramas);
> >>   lnCantTramas:=lcTramas.count;
> >>   if lnCantTramas=5 then
> >>      begin
> >>        lcEstadoA:=lcTramas.Strings[1];
> >>        lcEstadoB:=lcTramas.Strings[2];
> >>        lcEstadoC:=lcTramas.Strings[3];
> >>        lcPeso:=copy(lcTramas.Strings[4],1,6);
> >>        lcTara:=copy(lcTramas.Strings[4],7,6);
> >>        {Analisis Estado A}
> >>        lcEstadoA:=HextoBin(lcEstadoA);
> >>        lcDecimales:=copy(lcEstadoA,6,3);
> >>        case lcDecimales of
> >>             '010':lnPesoComa:=0;
> >>             '011':lnPesoComa:=1;
> >>             '100':lnPesoComa:=2;
> >>             '101':lnPesoComa:=3;
> >>             '110':lnPesoComa:=4;
> >>        else
> >>             lnPesoComa:=0;
> >>        end;
> >>        {Analisis Estado B}
> >>        lcEstadoB:=HextoBin(lcEstadoB);
> >>        lnNeto:=StrToInt(copy(lcEstadoB,8,1));
> >>        lnNegativo:=StrToInt(copy(lcEstadoB,7,1));
> >>        lnFueraRango:=StrToInt(copy(lcEstadoB,6,1));
> >>        lnFueraEqui:=StrToInt(copy(lcEstadoB,5,1));
> >>        {Analisis Estado C}
> >>        lcEstadoC:=HextoBin(lcEstadoC);
> >>        lnTeclaAd:=StrToInt(copy(lcEstadoB,5,1));
> >>        {Calculos Finales}
> >>        lnPesoTara:=StrToInt(lcTara)/(Exp(LN(10)*lnPesoComa));
> >>        lnPesoTot:=StrToInt(lcPeso)/(Exp(LN(10)*lnPesoComa));
> >>        if lnNegativo=1 then
> >>           lnPesoTot:=lnPesoTot*(-1);
> >>        {Actualizo campo de Peso Actual}
> >>        txtPesoAct.Text:=FloatToStr(lnPesoTot);
> >>        txtPesoAct.Refresh;
> >>        application.ProcessMessages;
> >>      end;
> >>
> >> Que se ejecuta por cada lectura del puerto serie.
> >>
> >> txtPesoAct es una caja de texto en la cual pongo el peso de la balanza.
> >>
> >> Si solo hago el Refresh no se refresca el control...
> >> Si le agrego application.ProcessMessages tampoco se refresca el control.
> >>
> >> El control solo se refresca cuando hago un showmessage desde otro
> control.
> >>
> >> Tengo otra pantalla que tiene un codigo similar pero el que recibe la
> info
> >> es una lista, en ese caso funciona sin inconvenientes...
> >>
> >> Espero sus comentarios.
> >>
> >> Pancho
> >> Córdoba
> >> Argentina
> >
> >
> > _______________________________________________
> > Lazarus-es mailing list
> > Lazarus-es en lists.lazarus.freepascal.org
> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
> >
>
>
>
> --
> El que pregunta aprende, y el que contesta aprende a responder.
>
> No a la obsolecencia programada:
>
> http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml
>
> Linux User #495070
> http://domonetic.com/blog
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20150814/06358c66/attachment-0002.html>