paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-30 15:40:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PopOver corrections

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-03-04 10:08:25 +01:00
parent 9088c2050f
commit 5fec2409ca
1 changed files with 55 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
packages/bootstrap/libbootstrap.pp
View File

@ -81,41 +81,38 @@ Type
display : string; display : string;
end; end;
TBootstrapDelayObject = Class External name 'Object' (TJSObject) TBootstrapPopoverDelayOptions = Class external name 'Object' (TJSObject)
show : integer; show : NativeInt;
hide : integer; hide : NativeInt;
End; end;
TBootstrapPlacementCallBack = reference to procedure (popoverEl,triggerEl : TJSHTMLElement); TPopoverContentFunction = reference to function(arg: jsValue): jsvalue;
TBootstrapProcCallBack = reference to procedure; TPopoverPlacementFunction = reference to function(popoverNode, triggeringNode: jsValue): jsvalue;
TBootstrapPopoverOptions = Class external name 'Object' (TJSObject) TBootstrapPopoverOptions = Class external name 'Object' (TJSObject)
animation : boolean; animation : boolean;
container : string; container : string;
containerEl : TJSHTMLElement; external name 'container'; containerEl : TJSHTMLElement; external name 'container';
containerBool : Boolean; external name 'container';
content : string; content : string;
contentEl : TJSHTMLElement; external name 'container'; contentEl : TJSHTMLElement; external name 'content';
contentProc : TBootstrapProcCallBack; external name 'content'; contentFn : TPopoverContentFunction; external name 'content';
delay : Integer; delay : NativeInt;
delayObj : TBootstrapDelayObject; external name 'delay'; delayObj : TBootstrapPopoverDelayOptions; external name 'delay';
html : Boolean; html : boolean;
placement : string; placement : string;
placementFunc : TBootstrapPlacementCallBack; external name 'placement'; placementFn : TPopoverPlacementFunction; external name 'placement';
selector : string; selector : string;
selectorBool : boolean; external name 'selector'; selectorBool: Boolean; external name 'selector';
template : string; template : string;
title: string; title: string;
titleEl : TJSHTMLElement; external name 'title'; titleEl : TJSHTMLElement; external name 'title';
titleProc : TBootstrapProcCallBack; external name 'tirle';
trigger: string; trigger: string;
offset : integer; offset : string;
offsetStr : string; external name 'offset'; offsetInt : Integer; external name 'offset';
fallBackPlacement : string; fallbackPlacement : string;
fallBackPlacementArr : string; external name 'fallBackPlacement';
boundary: string; boundary: string;
boundaryEl : TJSHTMLElement; external name 'boundary'; boundaryEl : TJSHTMLElement; external name 'boundary';
End; end;
TBootstrap = Class helper for TJQuery TBootstrap = Class helper for TJQuery
Procedure modal; external name 'modal'; Procedure modal; external name 'modal';
@ -175,16 +172,18 @@ Type
Procedure DropDownHide; Procedure DropDownHide;
Procedure DropDownUpdate; Procedure DropDownUpdate;
Procedure DropDownDispose; Procedure DropDownDispose;
Procedure Popover(options : TJSObject); external name 'popover'; Procedure PopOver; external name 'popover';
Procedure Popover(options : TBootstrapPopoverOptions); external name 'popover'; Procedure PopOver(aCommand : string); external name 'popover';
Procedure Popover(aCommand : String); external name 'popover'; Procedure PopOver(options : TJSObject); external name 'popover';
Procedure PopoverShow; Procedure PopOver(options : TBootstrapPopoverOptions); external name 'popover';
Procedure PopoverHide; Procedure PopOverToggle;
Procedure PopoverToggle; Procedure PopOverShow;
Procedure PopoverDispose; Procedure PopOverHide;
Procedure PopoverEnable; Procedure PopOverDispose;
Procedure PopoverToggleEnabled; Procedure PopOverEnable;
Procedure PopoverUpdate; Procedure PopOverDisable;
Procedure PopOverToggleEnabled;
Procedure PopOverUpdate;
end; end;
implementation implementation
@ -351,59 +350,46 @@ begin
dropdown('dispose'); dropdown('dispose');
end; end;
Procedure TBootstrap.PopoverShow; procedure TBootstrap.PopOverDisable;
begin begin
Popover('show'); popover('disable');
end; end;
procedure TBootstrap.PopOverDispose;
Procedure TBootstrap.PopoverHide;
begin begin
popover('dispose');
Popover('hide');
end; end;
procedure TBootstrap.PopOverEnable;
Procedure TBootstrap.PopoverToggle;
begin begin
popover('enable');
Popover('toggle');
end; end;
procedure TBootstrap.PopOverHide;
Procedure TBootstrap.PopoverDispose;
begin begin
popover('hide');
Popover('dispose');
end; end;
procedure TBootstrap.PopOverShow;
Procedure TBootstrap.PopoverEnable;
begin begin
popover('show');
Popover('enable');
end; end;
procedure TBootstrap.PopOverToggle;
Procedure TBootstrap.PopoverToggleEnabled;
begin begin
popover('toggle');
Popover('toggleEnabled');
end; end;
procedure TBootstrap.PopOverToggleEnabled;
Procedure TBootstrap.PopoverUpdate;
begin begin
popover('toggleEnabled');
end;
Popover('update'); procedure TBootstrap.PopOverUpdate;
begin
popover('enabled');
end; end;
end. end.