[solved] RichMemo - how to get the range text style?

[Nicole]

I tried a lot, but nothing worked.
How can I figure out, if the selected text is bold already?
Please be careful with links, as I have 2 links with code, which were NOT working any more.
The component TRichmemo seems to change from now and then.

These 2 lines below work today / first line sets to bold / second line, sets back to "not bold".
What is missing still, is the "if bold then...else ... condition"

   RichMemo_Notizen.SetRangeParams(RichMemo_Notizen.SelStart, RichMemo_Notizen.SelLength,[tmm_Styles],'',0,0,[fsbold], [])

   RichMemo_Notizen.SetRangeParams(RichMemo_Notizen.SelStart, RichMemo_Notizen.SelLength,[tmm_Styles],'',0,0,[], [fsbold]);

[paweld]

Code: Pascal  [Select][+][-]

1. var
2.   fontparams: TFontParams;
3. begin
4.   if RichMemo1.GetTextAttributes(RichMemo1.SelStart, fontparams) then
5.   begin
6.     if fsBold in fontparams.Style then
7.       ShowMessage('Font is bold');
8.   end;  
9. end;

[Nicole]

This works nicely, many thanks!