Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-05-2024
dani36652 dani36652 is offline
Miembro
 
Registrado: abr 2019
Posts: 61
Poder: 6
dani36652 Va camino a la fama
Post FMX Custom ProgressBar

Hola a todos.
El día de hoy les traigo el siguiente aporte que como su nombre lo indica, se trata de una barra de progreso personalizada a la cual se podrá:
-Asignar cualquier color
-Alto y ancho personalizados
-Establecer colores gradientes para darle una mejor presentación
-Acceder al porcentaje de avance

Aquí en GitHub está un repositorio que muestra un ejemplo de uso: https://github.com/dani36652/Delphi-...tomProgressBar

Pueden modificar el código y darle la funcionalidad que deseen a sus programas... Gustoso de hacer aportes, me despido dejándoles el código por aquí:
Código Delphi [-]
{
  Autor: Daniel Rodríguez Hernández
  Fecha: 28/04/2024
}
unit UCustomProgressBar;

interface
uses
  System.Classes, System.SysConst, System.SysUtils, System.Types, System.StrUtils,
  FMX.Objects, FMX.Graphics, FMX.Colors, FMX.StdCtrls, FMX.Types, System.UIConsts,
  System.UITypes, FMX.Text;

type TCustomProgressBar = class(TRectangle)
  private
    FValue: Double;
    FMin: Double;
    FMax: Double;
    FBackGroundColor: TAlphaColor;
    FColor: TAlphaColor;
    FFillRect: TRectangle;
    FXRadius: Single;
    FYRadius: Single;
    FPercent: Double;
    procedure setBackGroundColor(AColor: TAlphaColor);
    procedure setColor(AColor: TAlphaColor);
    procedure setValue(AValue: Double);
    procedure setMin(AValue: Double);
    procedure setMax(AValue: Double);
    procedure setX_Radius(AValue: Single);
    procedure setY_Radius(AValue: Single);
    procedure FOnResized(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
    property Value: Double read FValue write setValue;
    property Min: Double read FMin write setMin;
    property Max: Double read FMax write setMax;
    property BackGroundColor: TAlphaColor read FBackGroundColor write setBackGroundColor;
    property Color: TAlphaColor read FColor write setColor;
    property X_Radius: Single read FXRadius write setX_Radius;
    property Y_Radius: Single read FYRadius write setY_Radius;
    property Percent: Double read FPercent;
    property FillRect: TRectangle read FFillRect; //-> es el TRectangle que rellena al progressbar
end;

implementation

{ TCustomProgressBar }

constructor TCustomProgressBar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Self.BackGroundColor:= Self.Fill .Color;
  Self.Stroke.Kind:= TBrushKind.None;
  Self.Height:=
  {$IFDEF ANDROID OR DEF IOS}
  3
  {$ENDIF}
  {$IFDEF MSWINDOWS}
  20
  {$ENDIF};
  FFillRect:= TRectangle.Create(Self);
  FFillRect.Parent:= Self;
  FFillRect.Stroke.Kind:= TBrushKind.None;
  FFillRect.Align:= TAlignLayout.Left;
  FFillRect.Fill.Color:= Self.BackGroundColor;
  FFillRect.Width:= 0;
  FValue:= 0;
  FMin:= 0;
  FMax:= 100;
  FXRadius:= 0;
  FYRadius:= 0;
  FPercent:= 0;
  Self.Value:= FValue;
  Self.Min:=  FMin;
  Self.Max:= FMax;
  Self.XRadius:= FXRadius;
  Self.YRadius:= FYRadius;
  Self.OnResized:= FOnResized;
end;

procedure TCustomProgressBar.FOnResized(Sender: TObject);
begin
  FFillRect.Width:= (Self.Width * FPercent) / 100; // -> establece el ancho del FFillRect según el porcentaje
end;

procedure TCustomProgressBar.setBackGroundColor(AColor: TAlphaColor);
begin
  if Self.BackGroundColor <> AColor then
  begin
    FBackGroundColor:= AColor;
    Self.Fill.Color:= FBackGroundColor;
    Self.BackGroundColor:= FBackGroundColor;
  end;
end;

procedure TCustomProgressBar.setColor(AColor: TAlphaColor);
begin
  if Self.Color <> AColor then
  begin
    FColor:= AColor;
    FFillRect.Fill.Color:= FColor;
    Self.Color:= FColor;
  end;
end;

procedure TCustomProgressBar.setMax(AValue: Double);
begin
  if (FMax <> AValue) and (FValue >= 0) then
  begin
    FMax:= AValue;
  end;
end;

procedure TCustomProgressBar.setMin(AValue: Double);
begin
  if (FMin <> AValue) and (FValue >= 0) then
  begin
    FMin:= AValue;
  end;
end;

procedure TCustomProgressBar.setValue(AValue: Double);
begin
  if AValue >= 0 then
  begin
    if Self.Value <> AValue then
    begin
      if AValue < FMin then // siempre comenzar desde el valor min
        FValue:= FMin else FValue:= AValue;
      FPercent:= (100 * FValue) / FMax; //-> devuelve el porcentaje, ejemplo: #%
      FFillRect.Width:= (Self.Width * FPercent) / 100; // -> establece el ancho del FFillRect según el porcentaje
      Self.Value:= FValue;
    end;
  end;
end;

procedure TCustomProgressBar.setX_Radius(AValue: Single);
begin
  if FXRadius <> AValue then
  begin
    if AValue > Self.Height  then
      FXRadius:= Self.Height / 2 else FXRadius:= AValue;

    Self.XRadius:= FXRadius;
    FFillRect.XRadius:= FXRadius;
  end;
end;

procedure TCustomProgressBar.setY_Radius(AValue: Single);
begin
  if FYRadius <> AValue then
  begin
    if AValue > Self.Height then
      FYRadius:= Self.Height / 2 else FYRadius:= AValue;

    Self.YRadius:= FYRadius;
    FFillRect.YRadius:= FYRadius;
  end;
end;

end.
Responder Con Cita
  #2  
Antiguo 02-05-2024
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.549
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
Gracias por el aporte.
__________________
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
Respuesta



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
Error al imprimir custom size Choclito Impresión 1 23-11-2011 14:13:40
custom MessageDlg coso Trucos 1 02-07-2008 18:04:50
Impresion Custom tbolzan Impresión 2 15-09-2004 17:38:18
custom size en QuickReport marianaf Impresión 1 15-12-2003 16:36:18


La franja horaria es GMT +2. Ahora son las 01:55:39.


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