Implementação do Callback

academiadocodigo · Aug 19, 2022 · f181738 · f181738
1 parent 3c88dd6
commit f181738
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/CardStyled.IconBackground.pas b/CardStyled.IconBackground.pas
@@ -171,8 +171,13 @@ function TModelCardStyledIconBackground.GenerateFooter: String;
 end;
 
 procedure TModelCardStyledIconBackground.GenerateHTML;
+var
+ CardCallback : string;
 begin
- FHTML := Format('<div id="%s" class="%s %s">', [FName, FColMd, Fcolxl]) +
+ CardCallback := '';
+ if Assigned(FCallBack) then
+ CardCallback := FCallBack.ResultClass;
+ FHTML := Format('<div id="%s" class="%s %s"%s>', [FName, FColMd, Fcolxl, CardCallback]) +
  '<div class="card" style="background: ' + FBackgroundColor +'; border-radius: 10px;">' +
  '<div class="p-4">' +
  GenerateShape +

diff --git a/CardStyled.IconLeft.pas b/CardStyled.IconLeft.pas
@@ -179,8 +179,13 @@ function TModelCardStyledIconLeft.GenerateFooter: String;
 end;
 
 procedure TModelCardStyledIconLeft.GenerateHTML;
+var
+ CardCallback : string;
 begin
- FHTML := Format('<div id="%s" class="%s %s">', [FName, FColMd, Fcolxl]) +
+ CardCallback := '';
+ if Assigned(FCallBack) then
+ CardCallback := FCallBack.ResultClass;
+ FHTML := Format('<div id="%s" class="%s %s"%s>', [FName, FColMd, Fcolxl, CardCallback]) +
  '<div class="card" style="background: ' + FBackgroundColor +'">' +
  '<div class="card-body">' +
  '<div class="row">' +