diff --git a/CardStyled.IconBackground.pas b/CardStyled.IconBackground.pas
index 1f057fa..4285fa8 100644
--- 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
index 1870518..9eb252b 100644
--- 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">' +