> procedure TBarThread.Execute; > begin > FFinished := False; // work-around variable > while not Terminated do > begin > Synchronize(@UpdateProgressBar); > end; > FFinished := True; // work-around variable > end; > What about dropping that loop and put it in UpdateProgressBar
TForm1.UpdateProgressBar; begin Something here Application.ProcessMessages end; And drop the waitfor all together? _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
