QT interface TextRect is paint wrong

Original Reporter info from Mantis: xmen

• Reporter name:

Description:

from issue 0017670
I test with TextRect in qt interface. TextRect paint wapper text in rect.
but test with gtk2 TextRect paint valid rect.

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  R:TRect;
  sText:String;
begin
  sText:='Test Paint Text';
  with PaintBox1.Canvas do
  begin
    Brush.Color:=clBlue;
    Brush.Style:=bsSolid;
    R:=ClipRect;
    FillRect(R);
    Brush.Style:=bsClear;
    Font.Size:=24;
    Font.Color:=clYellow;
    TextRect(R,0,0,sText);

    R.Right:=(R.Left+R.Right) div 2;
    R.Left:=(R.Left+R.Right) div 2;
    Font.Color:=clRed;
    TextRect(R,0,0,sText);
    Memo1.Lines.Add(Format('Left:%d Top:%d   Right:%d Bottom:%d',[R.Left,R.Top,R.Right,R.Bottom]));
  end;
end;

Mantis conversion info:

• Mantis ID: 17678
• OS: ubuntu
• OS Build: 10.10
• Build: rev27773
• Platform: linux
• Version: 0.9.29 (SVN)
• Fixed in revision: 27779 (#cd8a98a1)