Skip to end of metadata
Go to start of metadata

You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Current »

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

\uD83D\uDCD8 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;  

  • No labels