richedit-problem

[markus lemcke]

hallo,

wenn ich au diese seite gehe:<br>
http://www.rochadekuppenheim.de/mg/partien/<br>
ein partie kopiere und in ein richedit mit strg+c einfüge,<br>
werden die formatierungen(z.b. blaue schrift) mit übernommen!<br>
wie kann ich das verhindern?<br>

gruß<br>

markus<br>

[Christian Seehase]

Moin Markus,<br>
<br>
muss es denn ein RichEdit sein?<br>
Nimm doch ein TMemo, dass kann keine Formatierungen anzeigen.<br>
<br>
Ciao<br>
Chri

[markus lemcke]

hi,

ja, aber richedit hat eben auch einige vorteile!<br>
mit suchen ersetzen und so!<br>

gruß

marku

[Christian Seehase]

Moin Markus,<br>
<br>
dann probiers mal hiermit. Die gewünschten Attribute musst Du natürlich noch einstellen.<br>
<pre>
var
fChangeStart : Boolean = false;

implementation

{$R *.DFM}

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
if not fChangeStart then
begin
fChangeStart := true;
RichEdit1.Lines.BeginUpdate;
RichEdit1.SelectAll;
RichEdit1.SelAttributes.Name := 'Courier';
RichEdit1.SelAttributes.Color := clRed;
RichEdit1.SelStart := 0;
RichEdit1.Lines.EndUpdate;
fChangeStart := false;
end;
end;
</pre>
Ciao<br>
Chri

[markus lemcke]

hi,

vielen dank!! sieht gut aus!

gruß

marku