[Lazarus-es] Refresh no funciona

[Maxi]

Me quedó la pica como quedó el asusnto. Hice hace tiempo un sistema de
despacho de hormigon en delphi y lo haciamos por timer cada 100ms
leeyendo eun registro que venia de la consola.

El día 14 de agosto de 2015, 15:03, francisco prieto
<fajprieto en gmail.com> escribió:
> 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
>
>
>
> _______________________________________________
> 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