TProgressBar va retrasado

[Casimiro Noteví]

Empezado por atani123

.. probé tu codigo y funciona correctamente pero siceramente se complica demasiado para simplemente utilizar un progressbar.

Es que el código lo único que hace es poner un progresbar, que es lo que necesitas. ¿Exactamente qué quieres conseguir?, mejor dicho, de qué otra forma más fácil se te ocurre que pueda hacerse lo que necesitas. Es que a lo mejor no hemos comprendido bien lo que estás buscando.

[[nlsgarcia]]

atani123,

Empezado por atani123

...probé tu código y funciona correctamente pero sinceramente se complica demasiado para simplemente utilizar un ProgressBar...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TPBThread = class(TThread)
  private
     procedure UpdatePB;
  protected
     procedure Execute; override;
  end;

const
   Max = 100000;

var
  Form1: TForm1;
  PBThread : TPBThread;

implementation

{$R *.dfm}

procedure TPBThread.UpdatePB;
begin
   with Form1 do
      ProgressBar1.Position := ProgressBar1.Position + 1;
end;

procedure TPBThread.Execute;
var
   i : Integer;
begin
   FreeOnTerminate := True;
   for i := 1 to Max do
      Synchronize(UpdatePB)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ProgressBar1.Position := 0;
   ProgressBar1.Min := 1;
   ProgressBar1.Max  := Max;
   PBThread := TPBThread.Create(False);
end;

end.

El código anterior en Delphi XE7 sobre Windows 7 Professional x32, es una versión simplificada del código sugerido en el Msg #9, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.

[atani123]

Os cuento, es simplemente un compresor que utiliza el TZipMaster y muestra el progreso parcial y total de la compresion.

Lo he solucionado de la siguiente forma (chapuza, pero funciona y de momento no puedo perder mas tiempo con esto). El progressbar actuaba mal con el Style=pbsNormal, si se ponia a psbError o psbPaused funcionaba bien, si ponia referesh o repaint tambien iba mal asi que al final poniendo el codigo de esta forma funciona:

Código Delphi [-]
PB.Position := nPos;
PB.StepBy(-1);
PB.StepBy(1);

Debe de ser que asignando directamente a Position el paint tiene que tener algun bug, y forzando con StepBy parece que se fuerza correctamente el pintado.

Lo propuesto por nlsgarcia funcionaba perfectamente, y seguramente es una opcion mas elegante que la que he adoptado pero considero que es mas simple a la hora de interpretar el codigo en un futuro. aun asi la guardo en mi biblioteca porque nunca se sabe.

Bueno gente, muchas gracias a todos y espero no haberos mareado mucho