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

richmemo: temporary workaround to prevent scrolling on style change

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5970 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2017-07-06 20:49:49 +00:00
parent e66ef65444
commit a7d192079f
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/richmemo/richmemo.pas
View File

@ -864,6 +864,7 @@ var
p : TFontParams;
allowInternalChange: Boolean;
fp : TFontParams;
h,v : integer;
const
AllFontStyles : TFontStyles = [fsBold, fsItalic, fsUnderline, fsStrikeOut];
begin
@ -871,6 +872,8 @@ begin
if (ModifyMask = []) or (TextLength = 0) then Exit;
h:=Self.HorzScrollBar.Position;
v:=Self.VertScrollBar.Position;
allowInternalChange:=(not (tmm_Styles in ModifyMask)) or (AddFontStyle+RemoveFontStyle=AllFontStyles);
if allowInternalChange and (TWSCustomRichMemoClass(WidgetSetClass).isInternalChange(Self, ModifyMask)) then
@ -883,6 +886,8 @@ begin
Exit;
end;
//todo: this is temporary workaround
// the style changing should not be adjusting the scroll
Lines.BeginUpdate;
try
// manually looping from text ranges and re-applying
@ -907,7 +912,11 @@ begin
inc(i, l);
end;
finally
Lines.EndUpdate
// todo: this is a workaround.
// getting position is necessary, so the cached values are refershed
if Self.HorzScrollBar.Position<>h then Self.HorzScrollBar.Position:=h;
if Self.VertScrollBar.Position<>v then Self.VertScrollBar.Position:=v;
Lines.EndUpdate;
end;
end;