TIWCGBSPagination Question

[dfields]

How do I set the Active property of a specific button at runtime?

[dfields]

I figured it out. Here is the code I used in the OnClick event of the Pagination control

Code: Select all

procedure TIWFormBootStrap1.Pagination1IWCGHTMLBSPaginationElementElements0Elements0Events0(Sender: TObject; AParams: TStringList);
var idx : integer;
begin
  idx := APArams.Values['index'].ToInteger;
  PaginationItem := TIWCGBSPaginationItem(Pagination1.Html.Elements[0].Elements[0].Elements[idx]);
  PaginationItem.Active := true;
end;