paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-21 02:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Small fix for bootstrap toast, add button

Browse Source
This commit is contained in:
michael 2020-08-30 08:18:37 +00:00
parent 26d68a1ffa
commit e3fa3e3278
1 changed files with 65 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
packages/bootstrap/bootstrapwidgets.pp
View File

@ -20,7 +20,7 @@ unit bootstrapwidgets;
interface
uses
Classes, SysUtils, js, libjquery, libbootstrap, web, webwidget;
Classes, SysUtils, js, libjquery, libbootstrap, web, webwidget, htmlwidgets;
Type
@ -110,6 +110,23 @@ Type
Property ToastIcon : String Read FToastIcon Write FToastIcon;
end;
{ TBootstrapButton }
TBootstrapButton = class (TButtonWidget)
private
FContextual: TContextual;
FOutLine: Boolean;
procedure SetContextual(AValue: TContextual);
procedure SetOutLine(AValue: Boolean);
Protected
Function RecalcClasses(aOldContextual : TContextual; aOldOutline : Boolean) : String;
Public
Constructor Create(aOwner : TComponent); override;
Published
Property Contextual : TContextual Read FContextual Write SetContextual default cPrimary;
Property Outline : Boolean Read FOutLine Write SetOutLine;
end;
Const
ContextualNames : Array[TContextual] of string = ('','primary','secondary','success','danger','warning','info','light','dark');
@ -122,6 +139,52 @@ begin
Result:=TToastManager.Instance;
end;
{ TBootstrapButton }
procedure TBootstrapButton.SetContextual(AValue: TContextual);
Var
Old : TContextual;
begin
if FContextual=AValue then Exit;
old:=FContextual;
FContextual:=AValue;
RecalcClasses(Old,FOutline);
end;
procedure TBootstrapButton.SetOutLine(AValue: Boolean);
Var
Old : Boolean;
begin
if FOutLine=AValue then Exit;
old:=FoutLine;
FOutLine:=AValue;
RecalcClasses(FContextual,Old);
end;
function TBootstrapButton.RecalcClasses(aOldContextual: TContextual; aOldOutline: Boolean): String;
Const
OL : Array[Boolean] of string = ('','outline-');
Var
c : String;
begin
Result:='btn btn-'+OL[FOutLine]+ContextualNames[FContextual];
C:=RemoveClasses(Classes,'btn-'+OL[aOldOutLine]+ContextualNames[aOldContextual]);
Classes:=AddClasses(C,Result);
end;
constructor TBootstrapButton.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
Contextual:=cPrimary;
end;
{ TToastManager }
class function TToastManager.Instance: TToastManager;
@ -259,7 +322,7 @@ begin
Result:=Result+'<img src="'+HeaderImage+'" class="rounded mr-2">';
Result:=Result+'<div class="mr-auto">'+Header+'</div>';
if (SmallHeader<>'') then
Result:=Result+'<small>'+SmallHeader+'</div>';
Result:=Result+'<small>'+SmallHeader+'</small>';
if CloseButton then
Result:=Result+CloseButtonHTML;
Result:=Result+'</div>';