Uso do componente uGauge

Exemplo de uso do componente Gauge nos projetos desenvolvidos com o VsScripter

Instruções

Incluir a unit uGaugePR no uses da unit do VsScripter;

Utilizar os comandos:

uGaugePR.AtivarGaugePr;
uGaugePr.UpdateGaugePR;
uGaugePR.DesativarGaugePr;
uGaugePR.Cancelado;

Segue um exemplo de código

uses 
  Classes,  Graphics,  Controls,  Forms,  Dialogs, uGaugePR, Base64Encoding;         
  
var
  i : integer;
  iNroPassos : Integer;
begin                                                         
  // qtos passos terá o processo: Pode ser o nro de Registros do dataset, etc..
  iNroPassos := 200000; 
  
  // Inicializa o gauge. O primeiro parametro define se o usuario podera cancelar o processo..  
  uGaugePR.AtivarGaugePr(True, 'Titulo da Janela', iNroPassos);    
  
  for i := 0 to iNroPassos do
    begin
    // Verifica se o usuario cancelou o processo pressionando o botão de Cancelar
    if (uGaugePr.Cancelado) then
      Break;   
      
    // Atualiza na tela o nro de passos realizados   
    uGaugePr.UpdateGaugePR;  
    
    // realiza o processo desejado..
    
  end;
  uGaugePR.DesativarGaugePr;       
end;