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

richmemo: wrap SetRangeParams range changes into BeginUpdate/EndUpdate. Making sure that no updates would be visibile as well as refreshing by the end of the change

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5059 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-08-01 03:22:44 +00:00
parent bca9537340
commit 84084e84f5
1 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
components/richmemo/richmemo.pas
View File

@ -867,26 +867,31 @@ begin
Exit;
end;
// manually looping from text ranges and re-applying
// all the style. changing only the ones that in the mask
i := TextStart;
j := TextStart + TextLength;
while i < j do begin
GetTextAttributes(i, p);
Lines.BeginUpdate;
try
// manually looping from text ranges and re-applying
// all the style. changing only the ones that in the mask
i := TextStart;
j := TextStart + TextLength;
while i < j do begin
GetTextAttributes(i, p);
if tmm_Name in ModifyMask then p.Name := fnt.Name;
if tmm_Color in ModifyMask then p.Color := fnt.Color;
if tmm_Size in ModifyMask then p.Size := fnt.Size;
if tmm_Styles in ModifyMask then p.Style := p.Style + AddFontStyle - RemoveFontStyle;
if tmm_BackColor in ModifyMask then begin
p.HasBkClr:=fnt.HasBkClr;
p.BkColor:=fnt.BkColor;
if tmm_Name in ModifyMask then p.Name := fnt.Name;
if tmm_Color in ModifyMask then p.Color := fnt.Color;
if tmm_Size in ModifyMask then p.Size := fnt.Size;
if tmm_Styles in ModifyMask then p.Style := p.Style + AddFontStyle - RemoveFontStyle;
if tmm_BackColor in ModifyMask then begin
p.HasBkClr:=fnt.HasBkClr;
p.BkColor:=fnt.BkColor;
end;
l := GetContStyleLength(i);
if i + l > j then l := j - i;
if l = 0 then Break;
SetTextAttributes(i, l, p);
inc(i, l);
end;
l := GetContStyleLength(i);
if i + l > j then l := j - i;
if l = 0 then Break;
SetTextAttributes(i, l, p);
inc(i, l);
finally
Lines.EndUpdate
end;
end;