瀏覽代碼

* Add PopOver

michael 5 年之前
父節點
當前提交
21146d5b6d
共有 1 個文件被更改,包括 64 次插入0 次删除
  1. 64 0
      packages/bootstrap/libbootstrap.pp

+ 64 - 0
packages/bootstrap/libbootstrap.pp

@@ -139,6 +139,15 @@ Type
     Procedure DropDownHide;
     Procedure DropDownUpdate;
     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;
 
 implementation
@@ -305,4 +314,59 @@ begin
   dropdown('dispose');
 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.