浏览代码

* Correct .Assign for styleclasses

Michaël Van Canneyt 1 年之前
父节点
当前提交
cfe1da9cb6
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      packages/bootstrap/src/bootstraptablewidget.pp

+ 3 - 3
packages/bootstrap/src/bootstraptablewidget.pp

@@ -508,6 +508,9 @@ begin
     FEditClass:=IC.FEditClass;
     FEditClass:=IC.FEditClass;
     FInfoClass:=IC.FInfoClass;
     FInfoClass:=IC.FInfoClass;
     FReadonlyEditClass:=IC.FReadonlyEditClass;
     FReadonlyEditClass:=IC.FReadonlyEditClass;
+    FButtonGroupClass:=IC.FButtonGroupClass;
+    FGroupedButtonExtraTag:=IC.FGroupedButtonExtraTag;
+    FGroupedButtonExtraTagClass:=IC.FGroupedButtonExtraTagClass;
     end
     end
   else
   else
     inherited Assign(Source);
     inherited Assign(Source);
@@ -523,7 +526,6 @@ end;
 procedure TBSColumnAction.SetExtraAttributes(AValue: String);
 procedure TBSColumnAction.SetExtraAttributes(AValue: String);
 begin
 begin
   if FExtraAttributes=AValue then Exit;
   if FExtraAttributes=AValue then Exit;
-  Writeln('Setting extra attributes : ',aValue);
   FExtraAttributes:=AValue;
   FExtraAttributes:=AValue;
 end;
 end;
 
 
@@ -541,7 +543,6 @@ begin
   if Source is TBSColumnAction then
   if Source is TBSColumnAction then
   begin
   begin
     Name:=aSource.Name;
     Name:=aSource.Name;
-    Writeln('Copying ',ExtraAttributes,':=',aSource.ExtraAttributes);
     ExtraAttributes:=aSource.ExtraAttributes;
     ExtraAttributes:=aSource.ExtraAttributes;
     ButtonURLTarget:=aSource.ButtonURLTarget;
     ButtonURLTarget:=aSource.ButtonURLTarget;
     ButtonURL:=aSource.ButtonURL;
     ButtonURL:=aSource.ButtonURL;
@@ -1074,7 +1075,6 @@ begin
     RenderData[i].ButtonURLTarget:=A.ButtonURLTarget;
     RenderData[i].ButtonURLTarget:=A.ButtonURLTarget;
     RenderData[i].ExtraAttributes:=A.ExtraAttributes+Format(' data-action-index="%d"',[I]);
     RenderData[i].ExtraAttributes:=A.ExtraAttributes+Format(' data-action-index="%d"',[I]);
     PrepareButtonRender(RenderData[I]);
     PrepareButtonRender(RenderData[I]);
-    Writeln('Attributes : ',I,': ',a.Name,' -> ',A.ExtraAttributes);
     if Assigned(aTableCol.OnButtonClick) then
     if Assigned(aTableCol.OnButtonClick) then
       begin
       begin
       Result.events:=TJSObject.new;
       Result.events:=TJSObject.new;