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;