Avatar billede densejeersej Nybegynder
26. april 2003 - 14:19 Der er 3 kommentarer

richedit og farver

Jeg skal bruge en procedure til at indsætte noget tekst i slutningen af en richedit...

proceduren skal se ud som dette:
procedure PasteText(Fra: string; text: string);

den skal så indsætte dette i slutningen af richedit:

Fra: //dette skal være strengen "fra"
  text //dette skal være strengen "text"

Fra skal så være grå farve
text skal være marineblå farve
Avatar billede stoney Nybegynder
26. april 2003 - 15:39 #1
procedure PasteText(Fra: string; text: string);
begin
form1.RichEdit1.SelAttributes.Color := clsilver;
form1.RichEdit1.SelText := fra;
form1.RichEdit1.SelAttributes.Color := clblue;
form1.RichEdit1.SelText := text;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
pastetext('grå',#13#10+'blå');
end;

Stoney
Avatar billede oggy Nybegynder
27. april 2003 - 13:09 #2
Hvor skal den procedure indsættes??
har nemlig noget af det samme problem...

Mvh. Frank Andersen
Avatar billede stoney Nybegynder
27. april 2003 - 13:48 #3
Indsæt koden efter nedenstående

implementation

{$R *.dfm}

ALTSÅ HER

Stoney
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester