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.
---
 examples/gui/togglebox/ToggleBoxTest.lpr | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 examples/gui/togglebox/ToggleBoxTest.lpr

(limited to 'examples/gui/togglebox/ToggleBoxTest.lpr')

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.
+
-- 
cgit v1.2.3-70-g09d2