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

[glkgereon]

kann dir zwar nicht weiterhelfen, habe aber selbes problem :) :)

[Markus K.]

Hallo fkerber,
ich programmiere gerade ein Textverarbeitungsprogramm, wo ich die Seitenansicht auch mt einbauen möchte. Ich bin jetzt schon soweit, dass ich mir ein Lineal(cm-Einheit) zusammengebastelt habe, an welchem ich die Ränder etc. einstellen kann.
Eine A4 Seite hat dabei eine Breite von 20,9 cm, welche ich in das Pixelmaß umrechne. Somit habe ich dann eine Gesamtlänge für die RichEdit-Komponente. Nun nehme ich die Mitte der Breite der Komponente und berechne zudem die max. Breite des Hauptformulars, auf welchen die RichEdit-Komponente dargestellt werden soll.
Mit diesen beiden Werten kann man nun die RichEdit-Komponente so ausrichten, das links und rechts ein grauer Rand zusehen ist.
Nun etwas zur RichEdit-Komponente, man kann sie je nach Bedarf zur Laufzeit auf der Form erstellen. Mit Canvas kann man zusätzlich noch einen Schatten erzeugen.
Ebenso kann man die RichEdit-Komponente auf einem extra Formular erstellen, welche man zur Laufzeit erzeugt(Borderstyle bei Form auf bsnone stellen).
So das war mein Vorschlag, vielleicht hilft ihr dir ein wenig.

Tschüß Markus

[fkerber]

Hi!

Kann ich deinen Ausführungen entnehmen, dass jede neue Seite bei deinem Programm ein neues Form mit bsnone ist, auf dem ein Richedit ist?

Ciao fkerber

[Markus K.]

Hallo fkerber,
ich habe eine Form welche ich zur Laufzeit erzeuge, auf der ich beliebig viele RichEdit-Komponenten erstellen kann. Wenn ich ein neues Dokument anfangen möchte, erstelle ich eine neue Form.

Tschüß Markus

[fkerber]

Hi!

Also ist jede Seite ein neues Richedit-Control?
Ist das nicht zu ressourcenlastig?

Und wie ist dass, wenn auf Seite 1 ne Zeile gelöscht wird, wie lässt du alle anderen nachrücken?

Ciao fkerber

[Markus K.]

Hallo fkerber,
sicherlich ist es ressourcenlastig, allerdings ist mir noch nichts besseres eingefallen, wenn dir etwas einfallen sollte kannst du mir es ja mitteilen(muss das Projekt Montag abgeben).
Zum zweiten weiß ich auch noch nicht genau wie ich das mache, zur Zeit arbeite ich erstmal daran, dass eine neue Seite erstellt wird, wenn das Seitenende der vorhergegangenen Seite erreicht wurde. Ich werde wahrscheinlich die Zeilenanzahl pro Seite berechnen, wenn diese unterschritten sein sollte, werden ich den Text nachrücken.

Tschüß Markus

[fkerber]

Hi!

Hatte diesen Weg auch in Betracht gezogen, es aber verworfen, da es mir zu ressourcenlastig erschien und ich absolut keine saubere Möglichkeit für die korrekten Seitenwechsel sehe (bei der Zeilenmethode: denk nur mal an unterschiedliche Schriftgrößen, was dann?)

Ciao fkerber