[SOLVED] RichMemo Bold/Italic Mechanism Q

[pixelink]

I am trying to use the RichMemo control. And because documentation is pretty much none existent, I am just struggling to getting this to work.

All I want to do is make any text I select Bold if its not, and normal when it is.

Its for a basic  RTF editor.

Error: Operator is not overloaded: not "Set Of TFontStyle"

CODE THAT DOESN'T WORK.

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

1.  
2. procedure TForm5.btnBoldClick(Sender: TObject);
3.   var
4.   fp   :  TFontParams;
5. begin
6.   Caption := Format('sel start %d,  sel length %d', [txtRTF.SelStart, txtRTF.SelLength]);
7.   txtRTF.GetTextAttributes(txtRTF.SelStart, fp);
8.   if fp.Style = [fsBold] then
9.      fp.Style := Not [fsBold];  <-- LINE WITH ERROR -->
10.   else
11.     fp.Style := [fsBold];
12.  
13.   txtRTF.SetTextAttributes(txtRTF.SelStart, txtRTF.SelLength, fp);
14. end;  
15.  
16.  

[pixelink]

I know that the error "NOT" is not workng, but I don't know what it is supposed to be to make the selected text normal and not bold..

UPDATE:
I even tried using the "-" sign in front of [fsBold], doesn't work

[FTurtle]

See documentation:

https://freepascal.org/docs-html/current/ref/refsu49.html#x152-17400012.8.5

[pixelink]

See documentation:

https://freepascal.org/docs-html/current/ref/refsu49.html#x152-17400012.8.5

None of those helped.
Tried exclude even, nothing , compiler doesn't like it

[skalogryz]

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

1.      fp.Style := fp.Style - [fsBold];
2.  

instead of "not [fdBold]"

[pixelink]

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

1.      fp.Style := fp.Style - [fsBold];
2.  

instead of "not [fdBold]"

That WORKED PERFECTLY... I knew there was supposed to be a '-' sign, but had it wrong.

THANK YOU!!!
 

[pixelink]

UPDATED CORRECT CODE:

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

1.  
2. procedure TForm5.btnBoldClick(Sender: TObject);
3.   var
4.   fp   :  TFontParams;
5. begin
6.   Caption := Format('sel start %d,  sel length %d', [txtRTF.SelStart, txtRTF.SelLength]);
7.   txtRTF.GetTextAttributes(txtRTF.SelStart, fp);
8.   if fp.Style = [fsBold] then
9.      fp.Style := fp.Style - [fsBold];
10.   else
11.     fp.Style := [fsBold];
12.  
13.   txtRTF.SetTextAttributes(txtRTF.SelStart, txtRTF.SelLength, fp);
14. end;
15.  
16.  

[FTurtle]

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

1.   if fp.Style = [fsBold] then
2.      fp.Style := fp.Style - [fsBold];
3.   else
4.     fp.Style := [fsBold];
5.  

What about italic and etc?
Better version:

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

1.   if fsBold in fp.Style then
2.      fp.Style := fp.Style - [fsBold]
3.   else
4.     fp.Style := fp.Style + [fsBold];
5.  

[pixelink]

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

1.   if fp.Style = [fsBold] then
2.      fp.Style := fp.Style - [fsBold];
3.   else
4.     fp.Style := [fsBold];
5.  

What about italic and etc?
Better version:

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

1.   if fsBold in fp.Style then
2.      fp.Style := fp.Style - [fsBold];
3.   else
4.     fp.Style := fp.Style + [fsBold];
5.  

I was actually just starting to post the same question.

Even though the code above works, it only worked on if bold or not.
If I try that on italics, it takes the italics away.

So, I have to code so it takes both bold and italic into consideration.

Let me try your suggestion.

[pixelink]

nope... that doesn't even work at all like it is.

[FTurtle]

I edited my code after you quoted it. Take attention that semicolon at line 2 should be deleted.

[FTurtle]

So, I have to code so it takes both bold and italic into consideration.

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

1.   if [fsBold, fsItalic] <= fp.Style then

or

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

1.   if (fsBold in fp.Style) and  (fsItalic in fp.Style) then

[pixelink]

I edited my code after you quoted it. Take attention that semicolon at line 2 should be deleted.

Already got that, still doesn't work

[pixelink]

Got this to work.
Even though it still doesn't address if the selected text was alo italic.

Had to add two parentheses on if statemnt

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

1.  
2.  if (fsBold in fp.Style) then
3.      fp.Style := fp.Style - [fsBold]
4.   else
5.     fp.Style := [fsBold];
6.  
7.  txtRTF.SetTextAttributes(txtRTF.SelStart, txtRTF.SelLength, fp);
8.  
9.  

Now, let see if I can take italics into account now.

[pixelink]

Okay... found some code that works the way it should.

Even if text is Italic, it leaves it that way.

So, you can use the code for Bold function.

If you want to put the code on an Italics button, just switch out fsBold, for fsItalic

CODE THAT WORKS:

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

1.  
2. procedure TForm5.btnBoldClick(Sender: TObject);
3. var
4.  fp   :  TFontParams;
5. begin
6.  Caption := Format('sel start %d,  sel length %d', [txtRTF.SelStart, txtRTF.SelLength]);
7.  txtRTF.GetTextAttributes(txtRTF.SelStart, fp);
8.  
9.    if (fsBold in fp.Style) then
10.       txtRTF.SetRangeParams (txtRTF.SelStart, txtRTF.SelLength,[tmm_Styles, tmm_Color],
11.       ''{font},0{fontsize},clBlack{color},[]{make bold/italic},[fsBold]{remove bold/italic})
12.    else
13.       txtRTF.SetRangeParams (txtRTF.SelStart, txtRTF.SelLength,[tmm_Styles, tmm_Color],
14.       ''{font},0{fontsize},clBlack{color},[fsBold]{make bold/italic},[]{remove bold/italic});
15.  
16. end;  
17.  
18.