Estoy intentando hacer un Toggle Button/Toggle switch
en Delphi 7 definiendo un nuevo componente heredado de TwwCheckBox
pero encontré algo similar en C#
y estoy traduciendo las funciones que hacen esto
Recurso: Toggle Button
private GraphicsPath GetFigurePath()
{
int arcSize = Height - 1;
Rectangle leftArc = new Rectangle(0, 0, arcSize, arcSize);
Rectangle rightArc = new Rectangle(Width - arcSize - 2, 0, arcSize, arcSize);
GraphicsPath path = new GraphicsPath();
path.StartFigure();
path.AddArc(leftArc, 90, 180);
path.AddArc(rightArc, 270, 180);
path.CloseFigure();
return path;
}
protected override void OnPaint(PaintEventArgs pevent)
{
int toggleSize = Height - 5;
pevent.Graphics.SmoothingMode = SmoothingMode.AntiAlias;
pevent.Graphics.Clear(Parent.BackColor);
if (Checked)
{
pevent.Graphics.FillPath(new SolidBrush(onBackColor), GetFigurePath());
pevent.Graphics.FillEllipse(new SolidBrush(onToggleColor), new Rectangle(Width - Height + 1, 2, toggleSize, toggleSize));
}
else
{
pevent.Graphics.FillPath(new SolidBrush(offBackColor), GetFigurePath());
pevent.Graphics.FillEllipse(new SolidBrush(offToggleColor), new Rectangle(2, 2, toggleSize, toggleSize));
}
}
Pero al estar traduciendo a Delphi me di cuenta que algunas clases como GraphicsPath
, PaintEventArgs pevent
, FillPath
, SolidBrush
no existen como tal en Delphi, hay variantes pero quisiera saber si hay posibilidad de hacer esto en Delphi 7?
Aquí estoy tratando de seguir el patrón que tiene c#, la razón porque la que estoy haciéndolo así es porque es la formas mas sencilla que encontré en c#
unit inToggleButton;
interface
uses
SysUtils, Classes, Controls, StdCtrls, wwcheckbox, Graphics, Variants, Forms, Dialogs, Types;
type
TinToggleButton = class(TwwCheckBox)
private
{ Private declarations }
FonBackColor: TColor;
FonToggleColor: TColor;
FoffBackColor: TColor;
FoffToggleColor: TColor;
procedure SetOnBackColor(Value: TColor);
procedure SetOnToggleColor(Value: TColor);
procedure SetOffBackColor(Value: TColor);
procedure SetOffToggleColor(Value: TColor);
procedure GetFigurePath(): TCanvas;
protected
{ Protected declarations }
procedure Paint; override;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
property onBackColor: TColor read FonBackColor Write SetOnBackColor default clRed;
property onToggleColor: TColor read FonToggleColor Write SetOnToggleColor default clSilver;
property offBackColor: TColor read FoffBackColor Write SetOffBackColor default clGray;
property offToggleColor: TColor read FoffToggleColor Write SetOffToggleColor default clLtGray;
end;
procedure Register;
implementation
constructor TinToggleButton.Create(AOwner: TComponent);
begin
inherited;
FonBackColor:= clRed;
FonToggleColor:= clSilver;
FoffBackColor:= clGray;
FoffToggleColor:= clLtGray;
end;
procedure TinToggleButton.SetOnBackColor(Value: TColor);
begin
if FonBackColor <> Value then
begin
FonBackColor:= Value;
Invalidate;
end;
end;
procedure TinToggleButton.SetOnToggleColor(Value: TColor);
begin
if FonToggleColor <> Value then
begin
FonToggleColor:= Value;
Invalidate;
end;
end;
procedure TinToggleButton.SetOffBackColor(Value: TColor);
begin
if FoffBackColor <> Value then
begin
FoffBackColor:= Value;
Invalidate;
end;
end;
procedure TinToggleButton.SetOffToggleColor(Value: TColor);
begin
if FoffToggleColor <> Value then
begin
FoffToggleColor:= Value;
Invalidate;
end;
end;
function TToggleButton.GetFigurePath: TCanvas;
var
path: TCanvas;
begin
path.Arc(183, 90, 180,0,0,0,0,0);
path.Arc(183, 280, 180, 0, 0, 0, 0, 0);
Result:= path;
end;
procedure TinToggleButton.Paint;
begin
if Checked then
begin
GetFigurePath;
end;
end;
end.
namespace System.Drawing
, link a la documentación oficial. Tienes que buscar librerías equivalentes en Delphi. Si buscas 'draw in delphi 7' en google, tienes muchos recursos para empezar.