Anyone using lzrichedit or trichmemo for a chat type app?

[snorkel]

I am trying to convert some delphi code that does stuff like this:

re1.SelAttributes.Color:=clred;
re1.SelText:='word 1';   //word 1 is red
re1.SelAttributes.Color:=clnavy;
re1.SelText:='word 2'  //word 2 is navy

This does not work at all(it just puts in plain text instead of coloured) in LzRichedit.

[typo]

SelAtrributes property is read only.

Code: [Select]

property SelAttributes: TTextAttributes read FSelAttributes;

RichBox.pas, line 126 on my installation.

[snorkel]

it's not read only in LzRichEdit, trichmemo it is.

[typo]

lzRichEdit.

My installation is not up to date.

So why it does not work?

[snorkel]

lzRichEdit.

My installation is not up to date.

So why it does not work?

oops sorry you are correct it is read only but properties it contains are read/write like style and color.

[typo]

Sure, it should not be so. Not implemented yet.

[snorkel]

this works in the demo that's included with lzrichedit:

lzRichEdit1.SelAttributes.Color:=

Typo, are you the author of LzRichEdit?  Just wondering.

[typo]

No.

[snorkel]

The problem I am having with lzrichedit is setting the text attributes in code.
for example if a new chat message comes in i want the the datetime in say clred, the username in clnavy and bold etc

[typo]

This works, don't ask why:

Code: [Select]

  re.SelText:='word 1';   //word 1 is red
  re.setfocus;
  re.selstart := re.selstart - length('word 1');
  re.SelLength := length('word 1');
  re.setfocus;
  re.SelAttributes.Color:=clred;
  re.sellength := 0;
  re.selstart := re.selstart + length('word 1');


[taazz]

how about setting the attribute after a valid selection is made, ee add the new text select it and then set the color or other attributes moving the caret to end of the selection after everything is done to avoid replacing the selected text in the next iteration.

[typo]

Code: [Select]

  // Insert the unformatted text
  re.SelText:='word 1';   //word 1 is red
  re.setfocus;

  // Select the inserted text
  re.selstart := re.selstart - length('word 1');
  re.SelLength := length('word 1');
  re.setfocus;

  // Set attributes
  re.SelAttributes.Color:=clred;

  //  Unselect
  re.sellength := 0;
  re.selstart := re.selstart + length('word 1');


[snorkel]

I came up with this using trichmemo:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
 fp:TFontParams;
 current_user:string;
begin
     current_user:='Joe User';
     send_memo.Lines.BeginUpdate;
     try
        //get the send text
        send_memo.SelectAll;
        send_memo.CutToClipboard;
        //insert time to receive_memo;
        receive_memo.selText:=FormatDateTime('(hh:mm:ss AM/PM) ',now);
        //set time color
        fp.Color:=clnavy;
        fp.Style:=[];
        receive_memo.SetTextAttributes(receive_memo.SelStart,receive_memo.SelLength,fp);
        receive_memo.SelStart:=receive_memo.GetTextLen;
        //Add username
        fp.Style:=[fsbold];
        receive_memo.SelText:=format('%s ',[current_user]);
        receive_memo.SetTextAttributes(receive_memo.SelStart,receive_memo.SelLength,fp);
        receive_memo.SelStart:=receive_memo.GetTextLen;
        //add the send text to receive memo
        receive_memo.PasteFromClipboard;
        receive_memo.Lines.Append('');
        receive_memo.Lines.Delete(receive_memo.Lines.Count-1);
        fp.Style:=[];
        fp.Color:=clDefault;
     finally
            send_memo.Lines.endUpdate;
     end;
end;

[snorkel]

in case anyone is interested this works in trichmemo and probably lzrichedit in win32/win64

http://www.swissdelphicenter.ch/en/showcode.php?id=1147

[arneolav]

In a translating system i need ... 

Editor.SelAttributes.BackColor := ...   Set background color of a selected text.