Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Barra de Progreso de Colores (https://www.clubdelphi.com/foros/showthread.php?t=85047)

nlsgarcia 18-01-2014 08:21:24

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.

Neftali [Germán.Estévez] 18-01-2014 15:57:02

^\||/^\||/
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.

ElKurgan 18-01-2014 18:36:03

Gracias por el aporte, amigo

Casimiro Notevi 18-01-2014 19:18:53

^\||/
.

nlsgarcia 18-01-2014 19:24:29

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.

Ñuño Martínez 19-01-2014 15:46:48

¿Funcionaría en XP? :confused: Es que no tengo ninguna copia de Delphi a mano para probarlo.

Aun así, mola. :)


La franja horaria es GMT +2. Ahora son las 19:55:23.

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