diff options
author | Andrew Haines <andrewd207@aol.com> | 2014-07-21 22:00:56 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2014-07-21 22:02:42 +0100 |
commit | 84d9c47dee2a6c27e4c8ce467fe618591104977f (patch) | |
tree | 2dae2fd0c05679a97834e182fbfb9ea8265904c0 /examples/gui/togglebox/ToggleBoxTest.lpr | |
parent | 1bd4b9091d3649f531c77ef0d0d656de4f6e3129 (diff) | |
download | fpGUI-84d9c47dee2a6c27e4c8ce467fe618591104977f.tar.xz |
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.
Diffstat (limited to 'examples/gui/togglebox/ToggleBoxTest.lpr')
-rw-r--r-- | examples/gui/togglebox/ToggleBoxTest.lpr | 30 |
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. + |