Browse Source

* Add PopOver

michael 5 years ago
parent
commit
21146d5b6d
1 changed files with 64 additions and 0 deletions
  1. 64 0
      packages/bootstrap/libbootstrap.pp

+ 64 - 0
packages/bootstrap/libbootstrap.pp

@@ -139,6 +139,15 @@ Type
     Procedure DropDownHide;
     Procedure DropDownHide;
     Procedure DropDownUpdate;
     Procedure DropDownUpdate;
     Procedure DropDownDispose;
     Procedure DropDownDispose;
+    Procedure Popover(options : TJSObject); external name 'popover';
+    Procedure Popover(aCommand : String); external name 'popover';
+    Procedure PopoverShow;
+    Procedure PopoverHide;
+    Procedure PopoverToggle;
+    Procedure PopoverDispose;
+    Procedure PopoverEnable;
+    Procedure PopoverToggleEnabled;
+    Procedure PopoverUpdate;
   end;
   end;
 
 
 implementation
 implementation
@@ -305,4 +314,59 @@ begin
   dropdown('dispose');
   dropdown('dispose');
 end;
 end;
 
 
+Procedure TBootstrap.PopoverShow;
+
+begin
+  Popover('show');
+end;
+
+
+Procedure TBootstrap.PopoverHide;
+
+begin
+
+  Popover('hide');
+end;
+
+
+Procedure TBootstrap.PopoverToggle;
+
+begin
+
+  Popover('toggle');
+end;
+
+
+Procedure TBootstrap.PopoverDispose;
+
+begin
+
+  Popover('dispose');
+end;
+
+
+Procedure TBootstrap.PopoverEnable;
+
+begin
+
+  Popover('enable');
+end;
+
+
+Procedure TBootstrap.PopoverToggleEnabled;
+
+begin
+
+  Popover('toggleEnabled');
+end;
+
+
+Procedure TBootstrap.PopoverUpdate;
+
+begin
+
+  Popover('update');
+end;
+
+
 end.
 end.