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;