* Add popover options

This commit is contained in:
michael 2020-08-22 11:52:54 +00:00
parent 5ceedc6bc3
commit 3aca99af09

View File

@ -81,6 +81,42 @@ Type
display : string;
end;
TBootstrapDelayObject = Class External name 'Object' (TJSObject)
show : integer;
hide : integer;
End;
TBootstrapPlacementCallBack = reference to procedure (popoverEl,triggerEl : TJSHTMLElement);
TBootstrapProcCallBack = reference to procedure;
TBootstrapPopoverOptions = Class external name 'Object' (TJSObject)
animation : boolean;
container : string;
containerEl : TJSHTMLElement; external name 'container';
containerBool : Boolean; external name 'container';
content : string;
contentEl : TJSHTMLElement; external name 'container';
contentProc : TBootstrapProcCallBack; external name 'content';
delay : Integer;
delayObj : TBootstrapDelayObject; external name 'delay';
html : Boolean;
placement: string;
placementFunc : TBootstrapPlacementCallBack; external name 'placement';
selector : string;
selectorBool : boolean; external name 'selector';
template : string;
title : string;
titleEl : TJSHTMLElement; external name 'title';
titleProc : TBootstrapProcCallBack; external name 'tirle';
trigger : string;
offset : integer;
offsetStr : string; external name 'offset';
fallBackPlacement : string;
fallBackPlacementArr : string; external name 'fallBackPlacement';
boundary : string;
boundaryEl : TJSHTMLElement; external name 'boundary';
End;
TBootstrap = Class helper for TJQuery
Procedure modal; external name 'modal';
Procedure modal(aCommand : string); external name 'modal';
@ -140,6 +176,7 @@ Type
Procedure DropDownUpdate;
Procedure DropDownDispose;
Procedure Popover(options : TJSObject); external name 'popover';
Procedure Popover(options : TBootstrapPopoverOptions); external name 'popover';
Procedure Popover(aCommand : String); external name 'popover';
Procedure PopoverShow;
Procedure PopoverHide;