Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Memo Formatieren (https://www.delphipraxis.net/90393-memo-formatieren.html)

hedie 16. Apr 2007 18:40


Memo Formatieren
 
Hallo

Ich bastle mir gerade meinen eigenen Programmer und daher möchte ich das bestimmte befehle mit farbe hervorgehoben werden.

Am einfachsten wäre es etwa so

texteingabe:
suche nach(befehl)
befehl := clBlue

einfach das beim OnEnter Event eines memos automatisch alle befehle in einer anderen farbe dargestellt werden.


ich hoffe ihr wisst was ich meine und noch besser ihr habt ne idee :D

grüsschen

Klaus01 16. Apr 2007 18:55

Re: Memo Formatieren
 
Bei Deinem Vorgaben wirst Du mit der TMemo Komponente nicht viel Glück haben.
Schau Dir dazu besser einmal die TRichEdit Komponente an.

Grüße
Klaus

inherited 16. Apr 2007 18:57

Re: Memo Formatieren
 
Am einfachsten geht das mit der Komponente Hier im Forum suchenSynEdit
Ansonsten musst du ein RichEdit nehmen, mit Delphi-Referenz durchsuchenPos und Delphi-Referenz durchsuchenPosEx die Position der Wörter herausfinden und mit SelStart, SelLength und SelAttributes die Formatierung ändern.

€dit: Schlächtschraibunk :roll:

hedie 16. Apr 2007 19:09

Re: Memo Formatieren
 
Das Rich Edit hat keine Pos oder PosEx

Hab ich da was falsch gemacht?

mkinzler 16. Apr 2007 19:10

Re: Memo Formatieren
 
Pos bzwPosEx sind freie Funktionen und keine Methoden

hedie 16. Apr 2007 19:14

Re: Memo Formatieren
 
Ok das mit Pos hab ich verstanden und auch herausgefunden doch wie krieg ich nun alle positionen heraus

Wil pos bringt ja nur das erste ergebniss zu tage

Klaus01 16. Apr 2007 19:16

Re: Memo Formatieren
 
Mit posEx da kannst Du den Index angeben ab wo gesucht werden soll.

Grüße
Klaus

Mark90 17. Okt 2007 19:35

Re: Memo Formatieren
 
ich hätte auch ne frage. wie formatiere ich dann den ausgewählten breich zwischen selstart un sellength?


Delphi-Quellcode:
int scannedpos = 0;
   scannedpos = Pos("<?", this->REdSourceCode->Text);

   this->REdSourceCode->SelStart = scannedpos;
   this->REdSourceCode->SelLength = 2;

   this->REdSourceCode->SelAttributes->Color = clRed;


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz