changing the font in a table cell

Here is code sample that shows how to draw several tables using different fonts:

 

// QPL: TQuickPDF;

var
  table: Integer;
  f1, f4, f10, f12: Integer;
begin
  with QPL do
  begin
    SetOrigin(1);
    f1 := AddStandardFont(1);
    f4 := AddStandardFont(4);
    f10 := AddStandardFont(10);
    f12 := AddStandardFont(12);

 

    table := CreateTable(2, 2);
    SetTableColumnWidth(table, 1, 2, 70);
    SetTableRowHeight(table, 1, 2, 30);

    SetTableCellContent(table, 1, 1, 'SOME TEXT');
    SetTableCellContent(table, 1, 2, 'SOME TEXT');
    SetTableCellContent(table, 2, 1, 'SOME TEXT');
    SetTableCellContent(table, 2, 2, 'SOME TEXT');

 

    SetHTMLNormalFont('Default', f1);
    DrawTableRows(table, 50, 50, 1000, 1, 0);
    SetHTMLNormalFont('Default', f4);
    DrawTableRows(table, 250, 50, 1000, 1, 0);
    SetHTMLNormalFont('Default', f10);
    DrawTableRows(table, 50, 150, 1000, 1, 0);
    SetHTMLNormalFont('Default', f12);
    DrawTableRows(table, 250, 150, 1000, 1, 0);
  end;

end;