Richedit-Ansicht wie in Word

[fkerber]

Hi!

Habe in einem anderen Thread folgenden Code von Christian Seehase gefunden:

Delphi-Quellcode:

var 
  rcWork : TRect; 

begin 
with Richedit1 do begin 
  SendMessage(Handle,EM_GETRECT,0,LongInt(@PageRect)); 
  rcWork.Left   := PageRect.Left+50; 
  rcWork.Right  := PageRect.Right-50; 
  rcWork.Top    := PageRect.Top+50; 
  rcWork.Bottom := PageRect.Bottom-50; 
  PageRect      := rcWork; 
  SendMessage(Handle,EM_SETRECT,0,LongInt(@PageRect)); 
end;
end;

Soweit so gut, funktioniert auch alles.

Ich wollte jetzt aber, dass man tatsächlich die "Seiten" sieht. Eben so wie in Word. Mit diesem grauen Abschnitten zwischen den Seiten.

Lässt sich das realisieren?

Ciao fkerber