diff --git a/packages/webwidget/htmlwidgets.pp b/packages/webwidget/htmlwidgets.pp
index 8615d4d..8544817 100644
--- a/packages/webwidget/htmlwidgets.pp
+++ b/packages/webwidget/htmlwidgets.pp
@@ -627,6 +627,7 @@ Type
procedure SetCaption(AValue: String);
procedure SetClassNames(AValue: String);
Protected
+ Function RenderColumn : Boolean; virtual;
Function GetDisplayName: string; override;
function GetCaption: String; virtual;
Public
@@ -1543,19 +1544,20 @@ Var
begin
For I:=0 to CustomColumns.Count-1 do
- begin
- aCell.Reset;
- aCell.FColumn:=CustomColumns[i];
- aCell.SetRowColKind(-1,I,aKind);
-// Writeln(CellKinds[aKind],' cell before : ',aCell.Tag,' data : ',aCell.Text);
- aEnum.GetCellData(aCell);
-// Writeln(CellKinds[aKind],' cell after : ',aCell.Tag,' data : ',aCell.Text);
- if aCell.Tag='' then
- ACell.Tag:=CellTags[aKind];
- if Assigned(FOnGetCellData) then
- FOnGetCellData(Self,aEnum,aCell);
- aParent.appendChild(RenderCell(aCell));
- end;
+ if CustomColumns[i].RenderColumn then
+ begin
+ aCell.Reset;
+ aCell.FColumn:=CustomColumns[i];
+ aCell.SetRowColKind(-1,I,aKind);
+ // Writeln(CellKinds[aKind],' cell before : ',aCell.Tag,' data : ',aCell.Text);
+ aEnum.GetCellData(aCell);
+ // Writeln(CellKinds[aKind],' cell after : ',aCell.Tag,' data : ',aCell.Text);
+ if aCell.Tag='' then
+ ACell.Tag:=CellTags[aKind];
+ if Assigned(FOnGetCellData) then
+ FOnGetCellData(Self,aEnum,aCell);
+ aParent.appendChild(RenderCell(aCell));
+ end;
end;
procedure TCustomTableWidget.RenderRows(aParent: TJSHTMLElement; aKind: TRowKind; aCell: TTableWidgetCellData);
@@ -1760,6 +1762,11 @@ begin
FClassNames:=AValue;
end;
+function TCustomTableColumn.RenderColumn: Boolean;
+begin
+ Result:=True;
+end;
+
function TCustomTableColumn.GetDisplayName: string;
begin
Result:=Caption;