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

richmemo: initialize font params structure SetTextAttributes method with TFont

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3999 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-06 14:04:42 +00:00
parent 9365a1dff2
commit fdd08738ef
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/richmemo/richmemo.pas
View File

@ -444,6 +444,7 @@ procedure TCustomRichMemo.SetTextAttributes(TextStart, TextLen: Integer;
var var
params : TFontParams; params : TFontParams;
begin begin
InitFontParams(params);
params.Name := AFont.Name; params.Name := AFont.Name;
params.Color := AFont.Color; params.Color := AFont.Color;
params.Size := AFont.Size; params.Size := AFont.Size;