Einzelnen Beitrag anzeigen

NICK447

Registriert seit: 29. Jan 2008
7 Beiträge
 
Delphi 7 Professional
 
#5

Re: Richedit schnell viele farbige Zeilen einfügen zu langsa

  Alt 15. Feb 2009, 17:19
ja darüber habe ich auch schon nachgedacht !! Das gespeicherte RTF in einen standard Editor geladen man sieht schön die "Tags" für Farbe.

{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl {\f0\fnil\fcharset0 Courier New;}}
{\colortbl ;\red255\green0\blue0;\red0\green0\blue255;}
\viewkind4\uc1\pard\b\f0\fs16 Report
\par \cf1 00166: 12 02 31 0a 00 00 00 00
\par \cf2 00176: f1 03 71 0a 01 00 00 00
\par \cf1 00189: 12 03 22 25 06 00 00 00
\par \cf2 00196: f1 05 62 25 06 00 fe 00 usw. usw.

Die \cf1 \cf2 sind die Farben denke ich. Habe ich dann einfach voran gestellt und die Stringliste zeilenwesie kopiert.
st1 := '\par \cf2 ' + st1 + #$0d + #$0a;

aber das Resultat ist ... na ja ... beeindruckend.

\\par \\cf1 00155: 12 02 31 0a 00 00 00 00 \\par \\cf2 00161: f1 03 71 0a 01 00 00 00 \\par \\cf1 00174: 12 03 22 25 06 00 00 00
Das Richedit control erkennt die '\' und ersetzt durch doppelte .. richtig schlau..

ne ich weis da im Moment nicht weiter ....

Grüsse Nick
  Mit Zitat antworten Zitat