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

* Correct .Assign for styleclasses

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-31 17:12:23 +01:00
parent b49e270dff
commit cfe1da9cb6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/bootstrap/src/bootstraptablewidget.pp
View File

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