Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-01-2014
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
Barra de Progreso de Colores en Windows con Delphi 2010

Club Delphi,

Revisen este código:
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, XPMan;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   ComboBox1.Items.Add('Green');
   ComboBox1.Items.Add('Yellow');
   ComboBox1.Items.Add('Red');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;

begin

   case ComboBox1.ItemIndex of
      0 : SendMessage(ProgressBar1.Handle,1040,1,0);
      1 : SendMessage(ProgressBar1.Handle,1040,3,0);
      2 : SendMessage(ProgressBar1.Handle,1040,2,0);
   end;

   ProgressBar1.Step := 1;
   ProgressBar1.Min := 0;
   ProgressBar1.Max := 10000;

   for i := 1 to 10000 do
      ProgressBar1.StepIt;

end;

end.
El código anterior en Delphi 2010 sobre Windows 7 Professional x32, permite implementar un componente TProgressBar en los colores Green, Yellow y Red como se muestra en la siguiente imagen a continuación:



Espero sea útil

Nelson.

Última edición por nlsgarcia fecha: 18-01-2014 a las 08:30:52.
Responder Con Cita
  #2  
Antiguo 18-01-2014
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto

Se agradece.
Si lo puedes comprimir y subirlo al la sección de componentes, será más fácil de encontrar en el futuro.

Gracias.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 18-01-2014
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.232
Poder: 20
ElKurgan Va camino a la fama
Thumbs up

Gracias por el aporte, amigo
Responder Con Cita
  #4  
Antiguo 18-01-2014
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular

.
Responder Con Cita
  #5  
Antiguo 18-01-2014
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
Club Delphi,

Cita:
Empezado por Neftali
...Si lo puedes comprimir y subirlo a la sección de componentes, será más fácil de encontrar en el futuro...
El código del Msg #1 esta disponible en: http://terawiki.clubdelphi.com/Delph...rogressBar.rar

Espero sea útil

Nelson.
Responder Con Cita
  #6  
Antiguo 19-01-2014
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Poder: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
¿Funcionaría en XP? Es que no tengo ninguna copia de Delphi a mano para probarlo.

Aun así, mola.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
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
Barra de progreso nabucodonosor Delphi para la web 3 01-11-2012 11:57:04
Barra de Progreso XcamX MySQL 1 21-12-2010 12:24:52
Barra de progreso? marlulipe Impresión 5 26-02-2008 17:51:55
Mostrar progreso de descarga de IndyFTP con barra de progreso devicer Internet 2 05-12-2005 15:59:32
barra de progreso en developer Sostratov Oracle 1 03-09-2004 16:48:43


La franja horaria es GMT +2. Ahora son las 23:35:11.


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