Tabulator in JvRichedit in Millimetern

[BrunoT]

Hi DPl'er,

ich möchte gern die Tabulatoren im JvRichedit im Millimetern angeben. Bisher habe ich das so versucht:

Delphi-Quellcode:

var
  dc: HDC;
  MMproPixelX, MMproPixely : single;
  xofs, yofs: Integer;
begin
  dc := GetDC(0);
  MMproPixelX := 25.4 / GetdeviceCaps(dc, LOGPIXELSX);
  MMproPixelY := 25.4 / GetdeviceCaps(dc, LOGPIXELSY);
  JvRe.Lines.Add('');
  jvRe.Paragraph.TabCount := 3;
  jvRe.Paragraph.Tab[0] := Round(1 / MMproPixelX * 10); //10mm
  jvRe.Paragraph.Tab[1] := Round(1 / MMproPixelX * 50); //50mm
  jvRe.Paragraph.Tab[2] := Round(1 / MMproPixelX * 100); //100mm
  JvRe.Lines.Add(^I + IntToStr(jvRe.Paragraph.Tab[0]) + ^I +
    IntToStr(jvRe.Paragraph.Tab[1]) + ^I + IntToStr(jvRe.Paragraph.Tab[2]));

Die Tabulator- Abstände passen aber nicht. Was mache ich falsch?