Fórum Splash com prograss (verdadeiro) ...como faço ? #278252

program Granja;
uses
  Forms,
  Principalf in ´Principalf.pas´ ,
  Areaf in ´Areaf.pas´ ,
  Galpaof in ´Galpaof.pas´ ,
  Clientef in ´Clientef.pas´ ,
  Saidaf in ´Saidaf.pas´ ,
  Relatoriof in ´Relatoriof.pas´ ,
  baixaf in ´baixaf.pas´ ,
  Mortalidadef in ´Mortalidadef.pas´ ,
  manubaixaf in ´manubaixaf.pas´ ,
  ConsEstoquef in ´ConsEstoquef.pas´ ,
  sobref in ´sobref.pas´ ,
  ImpRelatoriof in ´ImpRelatoriof.pas´ ,
  Consultasf in ´Consultasf.pas´ ,
  ImpEntradaf in ´ImpEntradaf.pas´ ,
  PassWord in ´PassWord.pas´ ,
  ImpMortalidadef in ´ImpMortalidadef.pas´ ,
  ImpSaidaf in ´ImpSaidaf.pas´ ,
  ImpClientesf in ´ImpClientesf.pas´ ,
  Apres2f in ´Apres2f.pas´ ,
  Entradaf in ´Entradaf.pas´ ;
 
{$R *.RES}
 
var
i:shortint;
maximo:shortint=0;
divisor:shortint=19;
begin
  Application.Initialize;
  Application.Title := ´GSJ2 - LloydSoft´;
  with TApres.Create(nil) do
  try
  Gauge1.MaxValue:=100;
  Show;
  Update;
  Panel1.caption:=´Criando Tela: Principal´;
  Panel1.Repaint;
Application.CreateForm(TPrincipal, Principal);
  for i:=1 to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Cadastro de Entradas´;
  Panel1.Repaint;
Application.CreateForm(TEntrada, Entrada);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Cadastro de Mortalidade´;
  Panel1.Repaint;
Application.CreateForm(TImpMortalidade, ImpMortalidade);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Impressão de Saida´;
  Panel1.Repaint;
Application.CreateForm(TImpSaida, ImpSaida);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Impressão de Clientes´;
  Panel1.Repaint;
Application.CreateForm(TImpClientes, ImpClientes);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Password´;
  Panel1.Repaint;
Application.CreateForm(TPasswordDlg, PasswordDlg);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Consultas´;
  Panel1.Repaint;
Application.CreateForm(TConsultas, Consultas);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Impressão de Entradas´;
  Panel1.Repaint;
Application.CreateForm(TImpEntrada, ImpEntrada);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Impressão de Relatório´;
  Panel1.Repaint;
Application.CreateForm(TImpRelatorio, ImpRelatorio);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Estoque´;
  Panel1.Repaint;
Application.CreateForm(TConsEstoque, ConsEstoque);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Sobre´;
  Panel1.Repaint;
Application.CreateForm(TSobre, Sobre);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Cadastro de Entradas´;
  Panel1.Repaint;
Application.CreateForm(TArea, Area);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Cadastro de Galpão´;
  Panel1.Repaint;
Application.CreateForm(TGalpao, Galpao);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Cadastro de Clientes´;
  Panel1.Repaint;
Application.CreateForm(TCliente, Cliente);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Cadastro de Saídas´;
  Panel1.Repaint;
Application.CreateForm(TSaida, Saida);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Relatório´;
  Panel1.Repaint;
Application.CreateForm(TRelatorio, Relatorio);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Baixa´;
  Panel1.Repaint;
Application.CreateForm(TBaixa, Baixa);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Mortalidade´;
  Panel1.Repaint;
Application.CreateForm(TMortalidade, Mortalidade);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Criando Tela: Manutenção´;
  Panel1.Repaint;
Application.CreateForm(TManubaixa, Manubaixa);
  for i:=maximo to (maximo+(100 div divisor)) do
  begin
  gauge1.progress:=i;
  maximo:=i;
  end;
  Panel1.caption:=´Finalizando´;
  Panel1.Repaint;
  finally
  Free;
  end;
  Application.Run;
end.