[Lazarus-es] Refresh no funciona

[Maxi]

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