소스 검색

* 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.