Linealdarstellung in cm

[hansklok]

Hallo,

im Delphibeispielordner gibt es einen RTF-Editor, mit einem Lineal. Leider ist dieses in der Maßeinheit Pixel. Kann mir von euch jemand sagen, wie ich das Lineal von Pixel in cm umprogrammieren kan?

Delphi-Quellcode:

const
  RulerAdj = 4/3;        // für Lineal
  GutterWid = 6;

 //Lineal
procedure TForm1.SetupRuler;
var
  I: Integer;
  S: String;
begin
  SetLength(S, 201);
  I := 1;
  while I < 200 do
  begin
    S[I] := #9;
    S[I+1] := '|';
    Inc(I, 2);
  end;
  Lineal.Caption := S;
end;

... Form1.Create ...
SetupRuler; //Lineal

Danke