1 files changed, 44 insertions, 0 deletions
diff --git a/examples/gui/togglebox/mainfrm.pas b/examples/gui/togglebox/mainfrm.pas
new file mode 100644
index 00000000..ff9a43da
--- /dev/null
+++ b/examples/gui/togglebox/mainfrm.pas
@@ -0,0 +1,44 @@
+unit mainfrm;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, fpg_base, fpg_form, fpg_toggle;
+
+type
+
+  { TfrmMain }
+
+  TfrmMain = class(TfpgForm)
+  private
+    FToggle: TfpgToggle;
+  public
+    constructor Create(AOwner: TComponent); override;
+  end;
+
+
+implementation
+
+{ TfrmMain }
+
+constructor TfrmMain.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  WindowTitle:='Yay a toggle!';
+  SetWidth(300);
+  SetHeight(200);
+
+  FToggle := TfpgToggle.Create(Self);
+  FToggle.SetPosition(10, 10, 200, 20);
+//  FToggle.Width:=200;
+
+  //FToggle.ToggleSide:=tsLeft;
+  //FToggle.ToggleWidth:=100;
+  //FToggle.UseAnimation:=False;
+
+end;
+
+end.
+