pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: fix delphi SelAttributes.Styles unset behaviour

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4064 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-24 12:41:02 +00:00
parent 352531c61f
commit 671e0af7b1
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/richmemo/richmemohelpers.pas
View File

@@ -162,12 +162,15 @@ begin
m.SetRangeParams( m.SelStart, m.SelLength, [tmm_Size], '', ASize, 0, [], []);
end;
const
AllFontStyles : TFontStyles = [fsBold, fsItalic, fsUnderline, fsStrikeOut];
procedure TRichEditTextAttributes.SetStyles(AValue: TFontStyles);
var
m : TCustomRichMemo;
begin
m := TCustomRichMemo(TObject(Self));
m.SetRangeParams(m.SelStart, m.SelLength, [tmm_Styles], '', 0, 0, AValue, []);
m.SetRangeParams(m.SelStart, m.SelLength, [tmm_Styles], '', 0, 0, AValue, AllFontStyles - AValue);
end;
{ TRichEditParaAttributes }