mORMot Open Source

       
       WordWrapLeftCols:= True;
       AddColumns([3,14,30,7,8,10,10,10]);

       SetColumnAlign(3,caRight);
       SetColumnAlign(4,caRight);
       SetColumnAlign(5,caRight);
       SetColumnAlign(6,caRight);
       SetColumnAlign(7,caRight);

       //SetColumnBold(7);

       AddColumnHeaders(['#',
         'Article',
         'Description',
         'Price',
         'Qty.',
         'Total price',
         'Discount',
         'Total price' + #13#10 + 'with discount'],True,True,0); //--> here I would like to wordwrap the "Total price with discount" text

       for i := 1 to 25 do
         begin
         DrawTextAcrossCols([IntToStr(i),
            '3344574',
            'Some description here, range 0-100 mm' + #13#10 + 'Delivery: 2-3 weeks',  //--> this works well
            '2.000 €',
            '1',
            '2.000 €',
            '10%',
            '1.800 €']);
         //DrawLine;
         end;

       TextAlign:= taRight;
       Font.Size:= 14;
       Font.Style:= [fsBold];
       DrawTextAt('TOTAL',RightMarginPos - 50);
       DrawTextAt('1.800 €',RightMarginPos);