![]() |
Re: Richedit mit formatierten text füllen und drucken
Ich hab ein ähnliches Problem:
Ich will über Programmcode dem RichEdit eine neue Zeile zufügen, die dann z.B.: so aussehen soll: 'Dies ist eine Testzeile' Ich habs damit probiert:
Delphi-Quellcode:
Im Beispiel ist edit1.text='Dies ist /c1eine /c0Testzeile' und das 'eine' sollte eigentlich blau dargestellt werden, wirds aber nicht.
procedure TForm1.Button1Click(Sender: TObject);
Var iLoop: Integer; iSection: Integer; begin iLoop:=1; iSection:=1; While iLoop <= Length(Edit1.Text) Do Begin If Edit1.Text[iLoop]='/' Then Begin Inc(iLoop);//eat / If Edit1.Text[iLoop]='c' //color Then Begin Inc(iLoop);//eat c If Edit1.Text[iLoop]='1' Then RichEdit1.SelAttributes.Color:=clBlue Else If Edit1.Text[iLoop]='0' Then RichEdit1.SelAttributes.Color:=clBlack; Inc(iLoop); //eat number End; End; RichEdit1.Text:=RichEdit1.Text+Edit1.Text[iLoop]; Inc(iLoop); End; end; Das Problem ist wohl,dass sobald man RichEdit1.Text aufruft, der gesamte Text alle Formatierungen verliert(das gleiche gilt für RichEdit1.Lines[index]). |
Re: Richedit mit formatierten text füllen und drucken
!!!!!!!!EUREKA!!!!!!!!!!!
das Tauschen dieser Zeile:
Delphi-Quellcode:
mit dieser Zeile:
RichEdit1.Text:=RichEdit1.Text+Edit1.Text[iLoop];
Delphi-Quellcode:
funktioniert!
RichEdit1.SelText:=Edit1.Text[iLoop];
@BastardOp: hier kannst Du auch deine Variablen einfügen:
Delphi-Quellcode:
wenn nix markiert ist, fügt er den SelText hinten an.
RichEdit1.SelText:=MyStringVar;
|
Re: Richedit mit formatierten text füllen und drucken
Hallo,
Zitat:
![]() |
Re: Richedit mit formatierten text füllen und drucken
also irgendwei werd ich aus euren antworten nicht schlau. Ich habe einfach einen text den ich meintewegen auch als rtf speicher und diese möchte ich erstmal ins Richedit einfügen. Dabei sollen die formatierungen die ich vorher angegeben habe beibehalten werden, wenn ich dann in dem text stellen durch zeichen wie & makieren sollen diese später durch variablen ertsezte werden.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:43 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 by Thomas Breitkreuz