Hilfe in Textverarbeitung

[Stargate]

Hallo,

wir haben in der Schule angefangen, ein Textverarbeitungsprogramm zu schreiben. Ich habe auch erstmal den größten Teil der Pflichtsachen erfüllt und möchte noch ein paar Extras haben.. sodass mir 15 Punkte garantiert sind
Wäre euch für eure Hilfe sehr dankbar !!

Also ich habe euch erstmal die Files geupped:
Main.pas: http://www.tup-clan.de/delphi/main.pas
Das komplette Projekt gepackt als rar:
http://www.tup-clan.de/delphi/word.rar

Also ich möchte jetzt, sofern das möglich ist, noch folgende Sachen implementiert haben:
- wenn ich z.B. auf den Button Fett drücke, soll er "eingedrückt" bleiben (genau wie in word).. nochmal Fett drücken um normale Formatierung wiederherzustellen...

- wenn ich Text markiere, der z.B. Fett ist, soll der Button Fett ebenfalls "eingedrückt" sein (also irgendeine Erkennung, welche Formatierung der Text gerade hat und dies beim Button ausgeben)

- möglichkeit zum Einfügen von Bilder

- Funktion Wörter zählen

- Suchenfunktion (da weiß ich aber selber so ungefär wie es funzt)

- Aktuelle Zeile und Spalte unten in der Statusbar anzeigen

- Wiederherstellen (Gegenteil von Rückgängig).. sollte wohl sowas wie Redo sein ?!?

Ich wäre dankbar, wenn ihr mir dazu ein paar Tipps oder Tuts o.ä. geben könntet... Danke schonmal !!

Axo das ganze sollte auch unter Delphi 5 laufbar sein, weil wir nur diese Version in der schule haben.

MfG
Stargate

P.S. Ich weiß das einige Kleinigkeiten im Menü noch nicht funktionieren.. Aber das kriege ich schon irgendwie selber hin

[Frank ter Duis]

Hi Stargate,<br><br>
bei Rückgängig machen benutzt Du ja die "Undo" Funktion, probiere zum Wiederherstellen doch mal die "Redo" Funktion ;-

[Frank ter Duis]

Zum Suchen, schau Dir mal TFindDialog an... unter Dialog

[Frank ter Duis]

Ne ziemlich einfach Wörterzählung, aber für die Schule sollte es reichen, kannst sie ja noch etwas verfeinern:<br><br>
Function WortCounter(Text : String): Integer;<br>
var<br>
i : integer;<br>
LastLeer : boolean;<br>
woerter : integer;<br><br>
begin<br>
LastLeer := true;<br>
Woerter := 0;<br>
for i := 0 to length(Text) -1 do<br>
begin<br>
if Text[i] in [#13, #32, #0] then<br>
LastLeer := true<br>
else<br>
begin<br>
if (LastLeer) and (Text[i] in<br>
['a'..'z', 'A'..'Z', 'ä', 'ö', 'ü', 'ß', 'Ä', 'Ö', 'Ü']) then<br>
begin<br>
inc(Woerter);<br>
LastLeer := false;<br>
end;<br>
end;<br>
end;<br>
WortCounter := Woerter;<br>
<br>
end;<br&gt

[Frank ter Duis]

was das mit den Bildern angeht, schau Dir mal dieses Posting an:<br><br>
<a href="/webx?50@@.2cb7cf25">Adi Emmenegger "TRichEdit und Bitmap" 24.10.2003 00:53</a><br><br&gt

[Stargate]

Wir hatten leider in der Schule noch keine Functionen. Ich habe jetzt zwei Stunden damit verbracht, die Funktion irgendwie reinzubasteln, aber es gelingt mir einfach nicht. Könntest du mir dazu bitte nochmal nen Tipp geben ??

Thx schonmal..

[Sigbert Engelhardt]

Hallo Sternentor,<BR>
Schau hier:<BR>
http://www.swissdelphicenter.ch/de/tipsindex.php<BR>
Gib als Suchbegriff Richedit ein. Dort solltest du alles finden.<BR>
Sigber

[Sigbert Engelhardt]

Knopf fett rein, wenn fett, u.s.w. :<BR>
In TRichEdit.OnSelectionChange<BR>
TRichEdit.Paragraph auslesen, und die Knöpfe entsprechend 'downen'<BR&gt

[Frank ter Duis]

die Function in Deinen Quelltext kopieren (Über die Procedure wo die Function aufgerufen wird!!!). Der Aufruf sieht dann wie folgt aus:<br><br>
procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
AnzWoerter : integer;<br>
begin<br>
AnzWoerter := WortCounter(Form1.RichEdit1.Text);<br>
// In AnzWoerter stehen die Anzahl der Wörter aus dem RichEdit<br>

end; <br><br><br>
Ich hoffe damit kommst Du klar, Gruß Fran