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.

1 files changed, 30 insertions, 0 deletions

diff --git a/examples/gui/togglebox/ToggleBoxTest.lpr b/examples/gui/togglebox/ToggleBoxTest.lpr
new file mode 100644
index 00000000..8866f9c5
--- /dev/null
+++ b/examples/gui/togglebox/ToggleBoxTest.lpr
@@ -0,0 +1,30 @@
+program ToggleBoxTest;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  Classes,
+  fpg_main,
+  mainfrm;
+
+procedure MainProc;
+var
+  frmMain: TfrmMain;
+begin
+  fpgApplication.Initialize;
+  frmMain:= TfrmMain.Create(nil);
+  try
+    frmMain.Show;
+    fpgApplication.Run;
+  finally
+    frmMain.Free;
+  end;
+end;
+
+begin
+  MainProc;
+end.
+