Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-01-2006
Asimur Asimur is offline
Registrado
 
Registrado: ene 2006
Posts: 3
Poder: 0
Asimur Va por buen camino
Pantalla de inicio

Hola,
Bueno como podeis ver soy nuevo en el foro y bueno también soy nuevo
en la programación con delphi.Mi cuestión es la siguiente: He hecho un
formulario de inicio (splash screen) pero desaparece rápido y me gustaría que durase más. También quería ponerle una barra de progreso tipo 'TGauge'
mientras estuviera esta pantalla de inicio pero no lo he conseguido, no consigo que "progrese" . ¿alguién me puede ayudar?.

Saludos y grácias por todo.
Responder Con Cita
  #2  
Antiguo 26-01-2006
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Cita:
Empezado por Asimur
También quería ponerle una barra de progreso tipo 'TGauge'
mientras estuviera esta pantalla de inicio pero no lo he conseguido, no consigo que "progrese" .
¿Y que es lo que quieres que marque ese progreso?...
Si tu aplicación va a cargar módulos pesados, que tardan en cargar, es lógico poner alguna indicación para calmar la impaciencia del usuario, y en este caso el progreso lo marcará la misma carga de estos módulos...
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 26-01-2006
Asimur Asimur is offline
Registrado
 
Registrado: ene 2006
Posts: 3
Poder: 0
Asimur Va por buen camino
hombre si, que mientras se rellene la barra ponga cosas como:
'cargando datos' 'inicializando datos', ..., pero claro todo de pega porque mi aplicación no tiene módulos pesados que digamos. Por cierto he encontrado la función 'sleep()', que se supone que hace una pausa en la ejecución, pero a mi no me funciona, me da error (tengo delphi 4).
Responder Con Cita
  #4  
Antiguo 26-01-2006
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Cita:
Empezado por Asimur
hombre si, que mientras se rellene la barra ponga cosas como:
'cargando datos' 'inicializando datos', ...
Bueno, pero eso depende de los pasos que haga tu programa al iniciar, no te lo podemos decir nosotros.
Simpelemente tienes que saber la cantidad de pasos que hará tu programa y asignárselo a la propiedad Max (y dejar Min en cero).
Cada vez que tu aplicación termine un paso, o bien puedes cambiar el valor de la propiedad Position, o puedes llamar al método StepBy(1), o puedes llamar a StepIt definiendo previamente el valor de cada paso en la propiedad Step.

Sería buenísimo saber que error te da el uso de la función sleep, ya que es mas que básica, solo tienes que usar la unit Windows, y llamar a la función pasándole como parámetro el tiempo en milisegundos que quieres que detenga la ejecución.

PD: ¿Te parece lógico forzar que la aplicacón tarde mas de lo que tardaría realmente al iniciar?
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #5  
Antiguo 26-01-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Quizá no le funciona el Sleep porque falta algún Refresh. Aquí un ejemplo:

Código Delphi [-]
program Project1;

uses
  Windows,
  Graphics,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;

  Form2 := TForm2.Create(Application);
  Form2.Show;
  Form2.Refresh;

  Form2.Label1.Caption := 'Ensamblando pixeles...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Pintando controles...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Pegando la barra de desplazamiento...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Agregando botones...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Font.Style := [fsBold];
  Form2.Label1.Caption := 'Un momento, voy al sanitario';
  Form2.Refresh;
  Sleep(50000);
  Form2.Label1.Font.Style := [];

  Form2.Label1.Caption := 'Fijando la barra de título...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Recopilando fuentes...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Label1.Caption := 'Activando el cursor...';
  Form2.Refresh;
  Sleep(1000);

  Form2.Free;

  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.



pd: La verdad es que al principio suena muy bonito eso del splash aún siendo innecesario, pero al final tus usuarios te agradecerán que la aplicación inicie lo antes posible.

// Saludos
Responder Con Cita
  #6  
Antiguo 26-01-2006
Asimur Asimur is offline
Registrado
 
Registrado: ene 2006
Posts: 3
Poder: 0
Asimur Va por buen camino
oops, que novato, pues si lo que faltaba era la unit Windows para que
funcionara el sleep. Indagaré en eso 'delphi.com.ar' grácias, y grácias
a ti tambíen 'roman' por el código.

PD: la verdad es que creo que teneís razón con lo del 'splash screen',
pero bueno, lo probaré haber que tal.

Saludos.
Responder Con Cita
  #7  
Antiguo 27-01-2006
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Poder: 21
AzidRain Va camino a la fama
Pues yo coincido con lo que dice delphi.com.ar ....¿Que caso tiene hacer mas lento el programa solo para que "se vea mas profesional" o el usuario tenga tiempo de admirar el arte del bitmap del Splash?...Yo no soy muy amigo de poner Splash a menos que durante el inicio de la aplicación tenga que hacer procesos previos o "preparar el terreno" (en mi caso casi siempre son conexiones a bases de datos remotas), además estos Splash unicamente son útiles cuando no sabes a ciencia cierta que tanto tiempo puede tardar...Ahora bien si de todas formas quieres que el usuario vea quien lo hizo o algo asi, puedes poner una forma "Acerca..." sencilla con un boton "Aceptar" que se active justo cuando se ha cargado por completo la aplicación dándole al usuario la oportunidad de cerrarla cuando quiera...

En fin, es solo una opinión...
__________________
AKA "El animalito" ||Cordobés a mucha honra||
Responder Con Cita
  #8  
Antiguo 27-01-2006
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Cita:
Empezado por roman
Código Delphi [-]
  Form2.Label1.Font.Style := [fsBold];
  Form2.Label1.Caption := 'Un momento, voy al sanitario';
  Form2.Refresh;
  Sleep(50000);
  Form2.Label1.Font.Style := [];
¡Que velocidad!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
QuickRep.Preview deja de ocupar toda la pantalla Tcmn Impresión 1 28-10-2006 02:29:51
Error al capturar la pantalla!! DarkByte Gráficos 7 28-07-2005 04:16:33
Centrar en pantalla Gorehide Varios 3 09-07-2004 12:59:28
resolución de la pantalla lfidanza Varios 1 03-10-2003 16:25:52
Hercios de la pantalla bykram Varios 0 16-09-2003 18:26:27


La franja horaria es GMT +2. Ahora son las 08:19:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi