Memo-Komponente zum Testen

[xaromz]

Hallo,

wie ich schonhier erwähnt habe bin ich gerade beim Schreiben einer Memo-Komponente mit einigen Erweiterungen:

• Unterscheidung zwischen Zeilenwechsel und Absatz
• Basic-Formatierungen ähnlich wie RTF (fett, kursiv...)
• Anzeige von Steuerzeichen (ähnlich wie Word)
• Einbindung von ASpell zur Rechtschreibprüfung
• Unicode-Support
• Einfügen/Überschreiben

Ich hab den momentanen Stand mal hochgeladen (ein kleiner Beispieleditor ist auch dabei). Vielleicht kann sich ja mal einer die Komponente anschauen und Fehler finden oder Verbesserungsvorschläge machen (Ein mehrfaches Undo/Redo ist schon in Planung, evtl. auch RTF-Im-/Export).
Zum Laden von Dokumenten greift mein Beispieleditor auf Word zurück (LoadFromMSWord), um z. B. *.doc zu laden (das aber noch ohne Formatierungen). Wer kein Word hat sollte einfach LoadFromFile verwenden. Dann geht aber nur noch *.txt.
Die Nutzung der Komponente ist selbstverständlich auch gestattet.

Damit die Rechtschreibung funktioniert muss Aspell sowie ein oder mehrere Wörterbücher installiert werden. Wie das geht findet man auf der Seite von ASpell.

Ich freue mich auf Rückmeldungen.

Gruß
xaromz

[toms]

Hallo,

Kannst du mal eine EXE Beispiel Programm hochladen, habe grad kein Delphi "zur Hand"

[xaromz]

Hallo,

klar doch!

Gruß
xaromz

[mimi]

mein vorschlang währe jetzt(habe es jetzt nicht getestet) sowas änliches wie sysedit... dazu zu packen *G*

[xaromz]

Hallo,

Zitat:

Zitat von mimi

mein vorschlang währe jetzt(habe es jetzt nicht getestet) sowas änliches wie sysedit... dazu zu packen *G*

:gruebel:

Gruß
xaromz

[DGL-luke]

er meint wohl synedit...

also eine highlighter-funktion.

[xaromz]

Hallo,

dachte ich mir schon. Aber dann soll er SynEdit nehmen...
Meine Komponente ist ja nur ein erweitertes Memo mit beschränkten Möglichkeiten zur Textformatierung und Silbentrennung/Rechtschreibprüfung.

Gruß
xaromz

[jim_raynor]

MMh. Kann es sein, dass du in irgendeiner Form Word verwendest? Es öffnet sich nämlich immer ein neuer Prozess. Heisst also die Komponente funktioniert nicht ohne MS-Office?

Das Laden von Dateien dauert verhältnismäßig lange. Vermute mal es hängt mit Word zusammen.

[malo]

Zitat:

Zitat von jim_raynor

Es öffnet sich nämlich immer ein neuer Prozess.

Das ist meistens so, wenn man ein Programm startet :zwinker:

Zitat:

Das Laden von Dateien dauert verhältnismäßig lange. Vermute mal es hängt mit Word zusammen.

Also einen Word-Prozess kann ich bei bestem Willen nicht finden ;)

[Daniel B]

Schau vorher nach ob Eine Office-Anwendung, in Deinem Fall Word geöffnet ist.

Delphi-Quellcode:

function IsOfficeProgActive(sClassName: String): Boolean;
//Aufrufbeispiel
{procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsOfficeProgActive('Word.Application') then
    ShowMessage('Word läuft');
  if IsOfficeProgActive('Excel.Application') then
    ShowMessage('Excel läuft');
  if IsOfficeProgActive('Outlook.Application') then
    ShowMessage('Outlook läuft');
  if IsOfficeProgActive('Access.Application') then
    ShowMessage('Access läuft');
  if IsOfficeProgActive('Powerpoint.Application') then
    ShowMessage('Powerpoint läuft');
end;}
var
  ClassID: TCLSID;
  Unknown: IUnknown;
begin
  try
    ClassID := ProgIDToClassID(sClassName);
    Result := GetActiveObject(ClassID, nil, Unknown) = S_OK;
  except
    Result := False;
  end;
end;