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