add attr in input tag

[jeroen.rottink]

Code:

procedure TIWForm1.dbCheckBoxHTMLTag(ASender: TObject; ATag: TIWHTMLTag);
var
  InputTag: TIWHTMLTag;
begin
  InputTag := ATag.Contents.FindTagByName('input') as TIWHTMLTag;
  // or InputTag := ATag.Contents[0] as TIWHTMLTag;
  InputTag.AddStringParam('data-role', 'checkbox');
end;