how to change richedit selection color - GSM-Forum

GTunlocker · 03-07-2012, 08:22

hi all

help me pleas

uses Richedit;

how to change richedit selection color
select is black, i need blue like Tmemo

br

darmiles · 03-07-2012, 13:57

SelStart := GetTextLen;
SelAttributes.Size := 10;
//add one unformatted line
SelText := 'test1' + #13#10;

//add some normal font text
//SelText := 'Formatted lines in RichEdit' + #13#10;
SelText := 'test2';
///SelAttributes.Size := 10;

//add bold + red
SelAttributes.Style := [fsBold];
SelAttributes.Color := clRed;
SelText := ':';
SelAttributes.Style := [fsBold];
SelAttributes.Color := clBlue;
SelText := 'test2';
//only bold
SelAttributes.Color := clGreen;
SelText := 'test3:';
///////////

//add italic + blue
SelAttributes.Style := [fsbold];
SelAttributes.Color := clpurple;
SelText := 'test4';

//new line
SelText := #13#10;

//add normal again
SelAttributes.Style := [fsItalic];
SelAttributes.Size := 10;
SelAttributes.Color := cllime;
SelText := '';

neXt time USE GOOGLE BEFORE MAKING LAZY THREAD LIKE THIS

darmiles · 03-07-2012, 14:09

procedure TForm1.Button1Click(Sender: TObject);
BEGIN
with richEdit1 do
begin
Richedit1.clear;

SelStart := GetTextLen;
SelAttributes.Size := 10;
//add one unformatted line
SelText := 'MY NAME IS DARWIN' + #13#10;

//add some normal font text
/////SelText := 'LAZY TEAM' + #13#10;
SelText := 'DARWIN' + #13#10;
//bigger text
///SelAttributes.Size := 10;

//add bold + red
SelAttributes.Style := [fsBold];
SelAttributes.Color := clRed;
SelText := 'DARMILES';
SelAttributes.Style := [fsBold];
SelAttributes.Color := clBlue;
SelText := ''+ #13#10;
//only bold
SelAttributes.Color := clGreen;
SelText := 'LEVEL5TEAM';
///////////

//add italic + blue
SelAttributes.Style := [fsbold];
SelAttributes.Color := clpurple;
SelText := 'GSMHOSTING';

//new line
SelText := #13#10;

//add normal again
SelAttributes.Style := [fsItalic];
SelAttributes.Size := 10;
SelAttributes.Color := cllime;
SelText := '';

SelAttributes.Size := 10;
SelAttributes.Style := [fsItalic];
SelAttributes.Color := clBlue;
SelText := ''#13#10;
SelText :='';

richedit1.lines.add(' ');
SelAttributes.Size := 10;
SelAttributes.Style := [fsbold];
SelAttributes.Color := clfuchsia;
SelText := 'TEST1'#13#10;

end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with richEdit1 do
begin
Richedit1.clear;

SelStart := GetTextLen;
SelAttributes.Size := 10;
//add one unformatted line
SelText := 'MY NAME IS DARWIN' + #13#10;

//add some normal font text
/////SelText := 'LAZY TEAM' + #13#10;
SelText := 'DARWIN' + #13#10;
//bigger text
///SelAttributes.Size := 10;

//add bold + red
SelAttributes.Style := [fsBold];
SelAttributes.Color := clRed;
SelText := 'DARMILES';
SelAttributes.Style := [fsBold];
SelAttributes.Color := clBlue;
SelText := ''+ #13#10;
//only bold
SelAttributes.Color := clGreen;
SelText := 'LEVEL5TEAM';
///////////

//add italic + blue
SelAttributes.Style := [fsbold];
SelAttributes.Color := clpurple;
SelText := 'GSMHOSTING';

//new line
SelText := #13#10;

//add normal again
SelAttributes.Style := [fsItalic];
SelAttributes.Size := 10;
SelAttributes.Color := cllime;
SelText := '';

SelAttributes.Size := 10;
SelAttributes.Style := [fsItalic];
SelAttributes.Color := clBlue;
SelText := ''#13#10;
SelText :='';

richedit1.lines.add(' ');
SelAttributes.Size := 10;
SelAttributes.Style := [fsbold];
SelAttributes.Color := clfuchsia;
SelText := 'TEST1'#13#10;

end;
end;
end.

orbita · 03-07-2012, 15:43

edited my message

GTunlocker · 03-07-2012, 17:11

Quote:

Originally Posted by darmiles

SelStart := GetTextLen;
SelAttributes.Size := 10;
//add one unformatted line
SelText := 'test1' + #13#10;

//add some normal font text
//SelText := 'Formatted lines in RichEdit' + #13#10;
SelText := 'test2';
///SelAttributes.Size := 10;

//add bold + red
SelAttributes.Style := [fsBold];
SelAttributes.Color := clRed;
SelText := ':';
SelAttributes.Style := [fsBold];
SelAttributes.Color := clBlue;
SelText := 'test2';
//only bold
SelAttributes.Color := clGreen;
SelText := 'test3:';
///////////

//add italic + blue
SelAttributes.Style := [fsbold];
SelAttributes.Color := clpurple;
SelText := 'test4';

//new line
SelText := #13#10;

//add normal again
SelAttributes.Style := [fsItalic];
SelAttributes.Size := 10;
SelAttributes.Color := cllime;
SelText := '';

neXt time USE GOOGLE BEFORE MAKING LAZY THREAD LIKE THIS

Thanks darmiles hehe

mustipusti · 03-07-2012, 21:44

Quote:

Procedure Addlog(S:string;Color:TColor);
var
Posit:Integer;
Time:String;
begin
Time := Timetostr(Now);
Posit := Length(Mainform.Log.Text);
Mainform.Log.Lines.Add('['+Time+'] ' + s);
Mainform.Log.SelStart := Posit;
Mainform.Log.SelLength := length(time)+3;
Mainform.Log.SelAttributes.Color := clhighlight;
Mainform.Log.SelStart := Posit + length(time)+3;
Mainform.Log.SelLength := Length(s);
Mainform.Log.SelAttributes.Color := Color;
Mainform.Log.SelStart := Length(Mainform.Log.Text);
SendMessage(Mainform.Log.handle, EM_SCROLLCARET,0,0);
end;

This Procedure will Show

[time] < clhighlight + String(s) < Color

03-07-2012, 08:22	#1 (permalink)
GTunlocker Freak Poster Join Date: Jul 2011 Location: Australia/Melbourne Posts: 101 Member: 1610809 Status: Offline Sonork: 100.1616347 Thanks: 90 Thanked 20 Times in 18 Posts	how to change richedit selection color hi all help me pleas uses Richedit; how to change richedit selection color select is black, i need blue like Tmemo br

03-07-2012, 15:43	#4 (permalink)
orbita Product Supporter Join Date: Apr 2002 Location: nckDongle Posts: 2,077 Member: 11170 Status: Online Sonork: 1603694 Thanks: 239 Thanked 1,761 Times in 633 Posts	edited my message Last edited by orbita; 03-07-2012 at 15:50.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
thread	Thread Starter	Forum	Replies	Last Post
How to add a language in 51xx/61xx	tati	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	8	05-21-2013 19:20
How to upload a new firmware...	Brand	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	28	08-30-2012 03:40
How can I do a Welcome note for my 6110 a dosn't have any one ?	Viper	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	7	07-18-2012 07:57
news headlines to gsm phone	mos	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	6	12-18-2011 11:00
Copy from one 6110 to another	Leif Nielsen	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	1	06-10-1999 22:36

03-07-2012, 13:57	#2 (permalink)
darmiles Product Supporter Join Date: Sep 2005 Location: FT_OK Then Age: 32 Posts: 376 Member: 177036 Status: Offline Thanks: 367 Thanked 542 Times in 125 Posts	SelStart := GetTextLen; SelAttributes.Size := 10; //add one unformatted line SelText := 'test1' + #13#10; //add some normal font text //SelText := 'Formatted lines in RichEdit' + #13#10; SelText := 'test2'; ///SelAttributes.Size := 10; //add bold + red SelAttributes.Style := [fsBold]; SelAttributes.Color := clRed; SelText := ':'; SelAttributes.Style := [fsBold]; SelAttributes.Color := clBlue; SelText := 'test2'; //only bold SelAttributes.Color := clGreen; SelText := 'test3:'; /////////// //add italic + blue SelAttributes.Style := [fsbold]; SelAttributes.Color := clpurple; SelText := 'test4'; //new line SelText := #13#10; //add normal again SelAttributes.Style := [fsItalic]; SelAttributes.Size := 10; SelAttributes.Color := cllime; SelText := ''; neXt time USE GOOGLE BEFORE MAKING LAZY THREAD LIKE THIS

03-07-2012, 14:09	#3 (permalink)
darmiles Product Supporter Join Date: Sep 2005 Location: FT_OK Then Age: 32 Posts: 376 Member: 177036 Status: Offline Thanks: 367 Thanked 542 Times in 125 Posts	procedure TForm1.Button1Click(Sender: TObject); BEGIN with richEdit1 do begin Richedit1.clear; SelStart := GetTextLen; SelAttributes.Size := 10; //add one unformatted line SelText := 'MY NAME IS DARWIN' + #13#10; //add some normal font text /////SelText := 'LAZY TEAM' + #13#10; SelText := 'DARWIN' + #13#10; //bigger text ///SelAttributes.Size := 10; //add bold + red SelAttributes.Style := [fsBold]; SelAttributes.Color := clRed; SelText := 'DARMILES'; SelAttributes.Style := [fsBold]; SelAttributes.Color := clBlue; SelText := ''+ #13#10; //only bold SelAttributes.Color := clGreen; SelText := 'LEVEL5TEAM'; /////////// //add italic + blue SelAttributes.Style := [fsbold]; SelAttributes.Color := clpurple; SelText := 'GSMHOSTING'; //new line SelText := #13#10; //add normal again SelAttributes.Style := [fsItalic]; SelAttributes.Size := 10; SelAttributes.Color := cllime; SelText := ''; SelAttributes.Size := 10; SelAttributes.Style := [fsItalic]; SelAttributes.Color := clBlue; SelText := ''#13#10; SelText :=''; richedit1.lines.add(' '); SelAttributes.Size := 10; SelAttributes.Style := [fsbold]; SelAttributes.Color := clfuchsia; SelText := 'TEST1'#13#10; end; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin with richEdit1 do begin Richedit1.clear; SelStart := GetTextLen; SelAttributes.Size := 10; //add one unformatted line SelText := 'MY NAME IS DARWIN' + #13#10; //add some normal font text /////SelText := 'LAZY TEAM' + #13#10; SelText := 'DARWIN' + #13#10; //bigger text ///SelAttributes.Size := 10; //add bold + red SelAttributes.Style := [fsBold]; SelAttributes.Color := clRed; SelText := 'DARMILES'; SelAttributes.Style := [fsBold]; SelAttributes.Color := clBlue; SelText := ''+ #13#10; //only bold SelAttributes.Color := clGreen; SelText := 'LEVEL5TEAM'; /////////// //add italic + blue SelAttributes.Style := [fsbold]; SelAttributes.Color := clpurple; SelText := 'GSMHOSTING'; //new line SelText := #13#10; //add normal again SelAttributes.Style := [fsItalic]; SelAttributes.Size := 10; SelAttributes.Color := cllime; SelText := ''; SelAttributes.Size := 10; SelAttributes.Style := [fsItalic]; SelAttributes.Color := clBlue; SelText := ''#13#10; SelText :=''; richedit1.lines.add(' '); SelAttributes.Size := 10; SelAttributes.Style := [fsbold]; SelAttributes.Color := clfuchsia; SelText := 'TEST1'#13#10; end; end; end.