From 84d9c47dee2a6c27e4c8ce467fe618591104977f Mon Sep 17 00:00:00 2001
From: Andrew Haines <andrewd207@aol.com>
Date: Mon, 21 Jul 2014 22:00:56 +0100
Subject: new ToggleBox widget

Hi I made a Togglebox widget descended from TfpgComboBox. It has button
that slides side to side for checked/unchecked with a subtle animation
when toggled. Various colors can be changed and the animation disabled.
---
 src/gui/fpg_checkbox.pas |   7 ++
 src/gui/fpg_toggle.pas   | 281 +++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 288 insertions(+)
 create mode 100644 src/gui/fpg_toggle.pas

(limited to 'src/gui')

diff --git a/src/gui/fpg_checkbox.pas b/src/gui/fpg_checkbox.pas
index 2b4b11d8..cd0e9920 100644
--- a/src/gui/fpg_checkbox.pas
+++ b/src/gui/fpg_checkbox.pas
@@ -50,6 +50,7 @@ type
     procedure   SetText(const AValue: string);
     procedure   DoOnChange;
   protected
+    procedure   HandleCheckChanged; virtual;
     procedure   HandlePaint; override;
     procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
     procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
@@ -121,6 +122,7 @@ begin
   if FChecked = AValue then
     Exit; //==>
   FChecked := AValue;
+  HandleCheckChanged;
   RePaint;
   if not (csDesigning in ComponentState) then
     DoOnChange;
@@ -173,6 +175,11 @@ begin
     FOnChange(self);
 end;
 
+procedure TfpgBaseCheckBox.HandleCheckChanged;
+begin
+  // nothing here for us
+end;
+
 procedure TfpgBaseCheckBox.HandlePaint;
 var
   r: TfpgRect;
diff --git a/src/gui/fpg_toggle.pas b/src/gui/fpg_toggle.pas
new file mode 100644
index 00000000..c58c9695
--- /dev/null
+++ b/src/gui/fpg_toggle.pas
@@ -0,0 +1,281 @@
+{
+    fpGUI  -  Free Pascal GUI Toolkit
+
+    Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this
+    distribution, for details of the copyright.
+
+    See the file COPYING.modifiedLGPL, included in this distribution,
+    for details about redistributing fpGUI.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+    Original author: Andrew Haines
+
+    Description:
+      Defines a ToggleBox control. A Checkbox like control that has an
+      animated bar that slides side to side when toggled.
+}
+unit fpg_toggle;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes,
+  SysUtils,
+  fpg_base,
+  fpg_main,
+  fpg_stylemanager,
+  fpg_checkbox;
+
+type
+
+  TfpgToggle = class(TfpgCheckBox)
+  private
+    FCheckedTextColor: TfpgColor;
+    FToggleWidth: TfpgCoord;
+    FToggleButtonWidth: TfpgCoord;
+    FAnimateTimer: TfpgTimer;
+    FCheckedCaption: TfpgString;
+    FCheckedColor: TfpgColor;
+    FSliderPosition: TfpgCoord;
+    FPaintedSliderPosition: TfpgCoord;
+    FUnCheckedCaption: TfpgString;
+    FUnCheckedColor: TfpgColor;
+    FUnCheckedTextColor: TfpgColor;
+    FUseAnimation: Boolean;
+    procedure   SetCheckedCaption(AValue: TfpgString);
+    procedure   SetCheckedColor(AValue: TfpgColor);
+    procedure   SetCheckedTextColor(AValue: TfpgColor);
+    procedure   SetToggleWidth(AValue: TfpgCoord);
+    procedure   SetUnCheckedCaption(AValue: TfpgString);
+    procedure   SetUnCheckedColor(AValue: TfpgColor);
+    procedure   AnimateTimer(Sender: TObject);
+    procedure   SetUnCheckedTextColor(AValue: TfpgColor);
+    function    ToggleLeft: TfpgCoord; inline;
+  protected
+    procedure   HandlePaint; override;
+    procedure   HandleCheckChanged; override;
+    procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor  Destroy; override;
+    property    UseAnimation: Boolean read FUseAnimation write FUseAnimation;
+    property    ToggleWidth: TfpgCoord read FToggleWidth write SetToggleWidth default 45;
+    property    CheckedCaption : TfpgString read FCheckedCaption write SetCheckedCaption;
+    property    CheckedColor: TfpgColor read FCheckedColor write SetCheckedColor default clLime;
+    property    CheckedTextColor: TfpgColor read FCheckedTextColor write SetCheckedTextColor default clHilite2;
+    property    UnCheckedCaption: TfpgString read FUnCheckedCaption write SetUnCheckedCaption;
+    property    UnCheckedColor: TfpgColor read FUnCheckedColor write SetUnCheckedColor default clWindowBackground;
+    property    UnCheckedTextColor: TfpgColor read FUnCheckedTextColor write SetUnCheckedTextColor default clText1;
+  end;
+
+implementation
+
+{ TfpgToggle }
+
+procedure TfpgToggle.SetCheckedColor(AValue: TfpgColor);
+begin
+  if FCheckedColor=AValue then Exit;
+  FCheckedColor:=AValue;
+  Invalidate;
+end;
+
+procedure TfpgToggle.SetCheckedTextColor(AValue: TfpgColor);
+begin
+  if FCheckedTextColor=AValue then Exit;
+  FCheckedTextColor:=AValue;
+  Invalidate;
+end;
+
+procedure TfpgToggle.SetToggleWidth(AValue: TfpgCoord);
+begin
+  if FToggleWidth=AValue then Exit;
+  FToggleWidth:=AValue;
+  FToggleButtonWidth:=AValue - 10;
+  Invalidate;
+end;
+
+procedure TfpgToggle.SetCheckedCaption(AValue: TfpgString);
+begin
+  if FCheckedCaption=AValue then Exit;
+  FCheckedCaption:=AValue;
+  Invalidate;
+end;
+
+procedure TfpgToggle.SetUnCheckedCaption(AValue: TfpgString);
+begin
+  if FUnCheckedCaption=AValue then Exit;
+  FUnCheckedCaption:=AValue;
+  Invalidate;
+end;
+
+procedure TfpgToggle.SetUnCheckedColor(AValue: TfpgColor);
+begin
+  if FUnCheckedColor=AValue then Exit;
+  FUnCheckedColor:=AValue;
+  Invalidate;
+end;
+
+procedure TfpgToggle.AnimateTimer(Sender: TObject);
+begin
+  if csDestroying in ComponentState then
+    Exit;
+  if not Checked then
+  begin // not checked
+    Dec(FSliderPosition, 1);
+    if FSliderPosition < 1 then
+      FSliderPosition:=0;
+  end
+  else  // checked
+  begin
+    Inc(FSliderPosition);
+    if FSliderPosition >= FToggleWidth - FToggleButtonWidth -2then
+      FSliderPosition := FToggleWidth - FToggleButtonWidth -2;
+  end;
+  Invalidate;
+end;
+
+procedure TfpgToggle.SetUnCheckedTextColor(AValue: TfpgColor);
+begin
+  if FUnCheckedTextColor=AValue then Exit;
+  FUnCheckedTextColor:=AValue;
+  Invalidate;
+end;
+
+function TfpgToggle.ToggleLeft: TfpgCoord;
+begin
+  if BoxLayout = tbLeftBox then
+    Result := 1
+  else
+    Result := Width - FToggleWidth;
+end;
+
+procedure TfpgToggle.HandlePaint;
+var
+  ToggleText: TfpgString;
+  PaintColor: TFPColor;
+  TextEnabled: TfpgTextFlags;
+  BvlWdth: TfpgCoord;
+  ButtonRect: TfpgRect;
+begin
+  Canvas.Clear(BackgroundColor);
+
+  // Text
+
+  if Enabled then
+    TextEnabled := []
+  else
+    TextEnabled := [txtDisabled];
+
+  BvlWdth := fpgStyleManager.Style.GetBevelWidth;
+
+  if BoxLayout = tbRightBox then
+    Canvas.DrawText(fpgRect(0,0,FWidth-FToggleWidth, FHeight), Text, [txtLeft, txtVCenter] + TextEnabled)   { internally this still calls fpgStyle.DrawString(), so theming will be applied }
+  else
+    Canvas.DrawText(fpgRect(ToggleWidth,0,FWidth-ToggleWidth, FHeight), Text, [txtRight, txtVCenter] + TextEnabled);   { internally this still calls fpgStyle.DrawString(), so theming will be applied }
+
+  // Toggle Stuff
+
+  // Toggle area bevel
+  fpgStyleManager.Style.DrawBevel(Canvas,ToggleLeft,0,FToggleWidth, Height, False);
+
+  // Toggle Button
+  ButtonRect := fpgRect(ToggleLeft+FSliderPosition+BvlWdth,BvlWdth,FToggleButtonWidth, Height -(BvlWdth*2));
+  fpgStyleManager.Style.DrawBevel(Canvas,ButtonRect.Left, ButtonRect.Top, ButtonRect.Width, ButtonRect.Height, True);
+
+
+  // unchecked text
+  if FSliderPosition < (FToggleWidth - FToggleButtonWidth) div 2 then
+  begin
+    ToggleText := FUnCheckedCaption;
+    Canvas.SetTextColor(FUnCheckedTextColor);
+  end
+  // checked text
+  else
+  begin
+    ToggleText := FCheckedCaption;
+    Canvas.SetTextColor(FCheckedTextColor);
+  end;
+
+  // Toggle Text (inside 2 bevels)
+  Canvas.DrawText(fpgRect(ToggleLeft+FSliderPosition+BvlWdth*2,BvlWdth*2,FToggleButtonWidth-BvlWdth*4, Height-BvlWdth*4),ToggleText, [txtVCenter, txtHCenter] + TextEnabled);
+
+  // Paint on either side of the button part of the toggle
+  if FSliderPosition > 0 then
+  begin
+    Canvas.SetColor(CheckedColor);
+    Canvas.FillRectangle(fpgRect(ToggleLeft+1,1, FSliderPosition, FHeight - BvlWdth*2));
+  end;
+
+  if FSliderPosition < FToggleWidth - FToggleButtonWidth -2 then
+  begin
+    Canvas.SetColor(UnCheckedColor);
+    Canvas.FillRectangle(fpgRect(ToggleLeft + FSliderPosition + FToggleButtonWidth+BvlWdth, BvlWdth, FToggleWidth - FToggleButtonWidth - FSliderPosition -(BvlWdth*2), FHeight - BvlWdth*2));
+  end;
+
+  // lastly draw focus
+  if FFocusable and FFocused then
+  begin
+    InflateRect(ButtonRect, -1,-1);
+    fpgStyleManager.Style.DrawFocusRect(Canvas, ButtonRect);
+  end;
+
+
+  if FPaintedSliderPosition = FSliderPosition then
+    FAnimateTimer.Enabled:=False;
+
+  FPaintedSliderPosition := FSliderPosition;
+end;
+
+procedure TfpgToggle.HandleCheckChanged;
+begin
+  if FUseAnimation then
+    FAnimateTimer.Enabled := True
+  else
+  begin
+    if Checked then
+       FSliderPosition := FToggleWidth - FToggleButtonWidth -2
+    else
+       FSliderPosition := 0;
+  end;
+  FPaintedSliderPosition := -1;
+end;
+
+procedure TfpgToggle.HandleLMouseUp(x, y: integer; shiftstate: TShiftState);
+begin
+  if ((BoxLayout = tbRightBox) and (x > Width - FToggleWidth))
+  or ((BoxLayout = tbLeftBox)  and (x <= FToggleWidth))
+  then
+    inherited HandleLMouseUp(x, y, shiftstate);
+end;
+
+constructor TfpgToggle.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  Text := 'ToggleBox';
+  ToggleWidth         := 45;
+  BoxLayout           := tbRightBox;
+  FUseAnimation       := True;
+  FUnCheckedCaption   := 'OFF';
+  FCheckedCaption     := 'ON';
+  FUnCheckedColor     := FBackgroundColor;
+  FCheckedColor       := clLime;
+  FUnCheckedTextColor := clText1;
+  FCheckedTextColor   := clHilite2;
+  FAnimateTimer       := TfpgTimer.Create(12);
+  FAnimateTimer.Enabled := False;
+  FAnimateTimer.OnTimer := @AnimateTimer;
+end;
+
+destructor TfpgToggle.Destroy;
+begin
+  FAnimateTimer.Free;
+  inherited Destroy;
+end;
+
+end.
+
-- 
cgit v1.2.3-70-g09d2


From bf1aa3d4983f01c0943aa188963a1dc0aa801fbc Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Mon, 21 Jul 2014 22:59:15 +0100
Subject: uidesigner: added togglebox widget to the palette bar

---
 src/gui/fpg_toggle.pas       |   1 +
 uidesigner/icons.inc         | 113 +++++++++++++++++++++++++++++++++++++++++++
 uidesigner/images/toggle.bmp | Bin 0 -> 1850 bytes
 uidesigner/vfdwidgets.pas    |  31 ++++++++++++
 4 files changed, 145 insertions(+)
 create mode 100644 uidesigner/images/toggle.bmp

(limited to 'src/gui')

diff --git a/src/gui/fpg_toggle.pas b/src/gui/fpg_toggle.pas
index c58c9695..07711e3c 100644
--- a/src/gui/fpg_toggle.pas
+++ b/src/gui/fpg_toggle.pas
@@ -63,6 +63,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
+  published
     property    UseAnimation: Boolean read FUseAnimation write FUseAnimation;
     property    ToggleWidth: TfpgCoord read FToggleWidth write SetToggleWidth default 45;
     property    CheckedCaption : TfpgString read FCheckedCaption write SetCheckedCaption;
diff --git a/uidesigner/icons.inc b/uidesigner/icons.inc
index 0e75a91f..f58ab0a0 100644
--- a/uidesigner/icons.inc
+++ b/uidesigner/icons.inc
@@ -3720,3 +3720,116 @@ const
      146,119,119,146,119,119,146,119,119,146,119,119,146,119,119,255,255,
      255,  0,  0);
 
+
+const
+  stdimg_vfd_toggle: array[0..1849] of byte = (
+      66, 77, 58,  7,  0,  0,  0,  0,  0,  0,122,  0,  0,  0,108,  0,  0,
+       0, 24,  0,  0,  0, 24,  0,  0,  0,  1,  0, 24,  0,  0,  0,  0,  0,
+     192,  6,  0,  0, 19, 11,  0,  0, 19, 11,  0,  0,  0,  0,  0,  0,  0,
+       0,  0,  0, 66, 71, 82,115,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+       0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+       0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+       0,  0,  0,  0,  2,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+       0,  0,  0,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     146,119,119,146,119,119,146,119,119,146,119,119,146,119,119,146,119,
+     119,146,119,119,146,119,119,146,119,119,146,119,119,146,119,119,146,
+     119,119,146,119,119,146,119,119,146,119,119,146,119,119,146,119,119,
+     146,119,119,146,119,119,146,119,119,146,119,119,146,119,119,255,  0,
+     255,255,  0,255,146,119,119,200,208,212,200,208,212,200,208,212,200,
+     208,212,200,208,212,200,208,212,200,208,212,200,208,212,200,208,212,
+     200,208,212,200,208,212,200,208,212,200,208,212,200,208,212,200,208,
+     212,200,208,212,200,208,212,200,208,212,200,208,212,200,208,212,146,
+     119,119,255,  0,255,255,  0,255,146,119,119,200,208,212,  0,230,  0,
+       0,230,  0,  0,230,  0,  0,230,  0,255,255,255,132,132,132,132,132,
+     132,132,132,132,132,132,132,132,132,132,132,132,132,132,132,132,132,
+     132,132,132,132,132,132,132,132,132,132,132,132,132,132,132,132,132,
+     200,208,212,146,119,119,255,  0,255,255,  0,255,146,119,119,200,208,
+     212,  0,230,  0,  0,230,  0,  0,230,  0,  0,230,  0,255,255,255,200,
+     208,212,159,159,159,  0,  0,  0,  0,  0,  0,159,159,159,200,208,212,
+       0,  0,  0,200,208,212,145,145,145,  0,  0,  0,200,208,212,200,208,
+     212,132,132,132,200,208,212,146,119,119,255,  0,255,255,  0,255,146,
+     119,119,200,208,212,  0,230,  0,  0,230,  0,  0,230,  0,  0,230,  0,
+     255,255,255,200,208,212,  0,  0,  0,200,208,212,200,208,212,  0,  0,
+       0,200,208,212,  0,  0,  0,132,132,132,  0,  0,  0,  0,  0,  0,200,
+     208,212,200,208,212,132,132,132,200,208,212,146,119,119,255,  0,255,
+     255,  0,255,146,119,119,200,208,212,  0,230,  0,  0,230,  0,  0,230,
+       0,  0,230,  0,255,255,255,200,208,212,  0,  0,  0,200,208,212,200,
+     208,212,  0,  0,  0,200,208,212,  0,  0,  0,  0,  0,  0,132,132,132,
+       0,  0,  0,200,208,212,200,208,212,132,132,132,200,208,212,146,119,
+     119,255,  0,255,255,  0,255,146,119,119,200,208,212,  0,230,  0,  0,
+     230,  0,  0,230,  0,  0,230,  0,255,255,255,200,208,212,159,159,159,
+       0,  0,  0,  0,  0,  0,159,159,159,200,208,212,  0,  0,  0,145,145,
+     145,200,208,212,  0,  0,  0,200,208,212,200,208,212,132,132,132,200,
+     208,212,146,119,119,255,  0,255,255,  0,255,146,119,119,200,208,212,
+       0,230,  0,  0,230,  0,  0,230,  0,  0,230,  0,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+     255,255,255,200,208,212,146,119,119,255,  0,255,255,  0,255,146,119,
+     119,200,208,212,200,208,212,200,208,212,200,208,212,200,208,212,200,
+     208,212,200,208,212,200,208,212,200,208,212,200,208,212,200,208,212,
+     200,208,212,200,208,212,200,208,212,200,208,212,200,208,212,200,208,
+     212,200,208,212,200,208,212,200,208,212,146,119,119,255,  0,255,255,
+       0,255,146,119,119,146,119,119,146,119,119,146,119,119,146,119,119,
+     146,119,119,146,119,119,146,119,119,146,119,119,146,119,119,146,119,
+     119,146,119,119,146,119,119,146,119,119,146,119,119,146,119,119,146,
+     119,119,146,119,119,146,119,119,146,119,119,146,119,119,146,119,119,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,
+     255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,
+     255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255,255,
+       0,255,255,  0,255,255,  0,255,255,  0,255,255,  0,255);
+
diff --git a/uidesigner/images/toggle.bmp b/uidesigner/images/toggle.bmp
new file mode 100644
index 00000000..304d0973
Binary files /dev/null and b/uidesigner/images/toggle.bmp differ
diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas
index 2238e4e5..575ae40a 100644
--- a/uidesigner/vfdwidgets.pas
+++ b/uidesigner/vfdwidgets.pas
@@ -67,6 +67,7 @@ uses
   fpg_ColorWheel,
   fpg_splitter,
   fpg_hyperlink,
+  fpg_toggle,
   vfdpropeditgrid,
   vfdmain;
 
@@ -325,6 +326,12 @@ begin
   fpgImages.AddBMP(
     'vfd.scrollframe', @stdimg_vfd_scrollframe,
     sizeof(stdimg_vfd_scrollframe));
+
+  fpgImages.AddMaskedBMP(
+    'vfd.toggle', @stdimg_vfd_toggle,
+    sizeof(stdimg_vfd_toggle),
+    0, 0);
+
 end;
 
 procedure AddWidgetPosProps(wgc: TVFDWidgetClass);
@@ -985,6 +992,30 @@ begin
   wc.WidgetIconName := 'vfd.hyperlink';
   RegisterVFDWidget(wc);
 
+  // ToggleBox
+  wc          := TVFDWidgetClass.Create(TfpgToggle);
+  wc.NameBase := 'Toggle';
+  wc.AddProperty('Align', TPropertyEnum, '');
+  wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('CheckedCaption', TPropertyString, 'Initial text');
+  wc.AddProperty('CheckedColor', TPropertyColor, '');
+  wc.AddProperty('CheckedTextColor', TPropertyColor, '');
+  wc.AddProperty('Enabled', TPropertyBoolean, '');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('Hint', TPropertyString, 'Tooltip hint');
+  wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
+  wc.AddProperty('ShowHint', TPropertyBoolean, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('Text', TPropertyString, 'Initial text');
+  wc.AddProperty('TextColor', TPropertyColor, '');
+  wc.AddProperty('ToggleWidth', TPropertyInteger, 'Width of toggle button');
+  wc.AddProperty('UnCheckedCaption', TPropertyString, 'Initial text');
+  wc.AddProperty('UnCheckedColor', TPropertyColor, '');
+  wc.AddProperty('UnCheckedTextColor', TPropertyColor, '');
+  wc.AddProperty('UseAnimation', TPropertyBoolean, '');
+  wc.WidgetIconName := 'vfd.toggle';
+  RegisterVFDWidget(wc);
+
   // Other - do not delete!!! this should be the last...
   wc          := TVFDWidgetClass.Create(TOtherWidget);
   wc.NameBase := 'Custom';
-- 
cgit v1.2.3-70-g09d2


From eb3dd6adb3548674faae26ba535f5b56adbfb30e Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Mon, 21 Jul 2014 22:59:54 +0100
Subject: toggle: fixes minor bug where selected font isn't used.

---
 src/gui/fpg_toggle.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/gui')

diff --git a/src/gui/fpg_toggle.pas b/src/gui/fpg_toggle.pas
index 07711e3c..b35ca661 100644
--- a/src/gui/fpg_toggle.pas
+++ b/src/gui/fpg_toggle.pas
@@ -166,7 +166,7 @@ begin
   Canvas.Clear(BackgroundColor);
 
   // Text
-
+  Canvas.SetFont(Font);
   if Enabled then
     TextEnabled := []
   else
-- 
cgit v1.2.3-70-g09d2