浏览代码

* Support for versions

Michaël Van Canneyt 3 年之前
父节点
当前提交
add91b7b27
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      packages/bootstrap/libbootstrap.pp

+ 4 - 1
packages/bootstrap/libbootstrap.pp

@@ -25,7 +25,7 @@ uses
   JS, web, libjquery;
 
 Type
-
+  TBootstrapVersion = (bv4,bv5);
   { TBootstrap }
 
   TBootstrapModalOptions = Class external name 'Object' (TJSObject)
@@ -186,6 +186,9 @@ Type
     Procedure PopOverUpdate;
   end;
 
+Var
+  BootstrapVersion : TBootstrapVersion = bv4;
+
 implementation
 
 { TBootstrap }