forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #39 - dont autoscroll to display new messages when the view is not at the bottom

This commit is contained in:
Basile Burg 2020-05-12 22:05:16 +02:00
parent 0c17a4d187
commit d646b8c296
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/u_messages.pas
View File

@ -114,6 +114,7 @@ type
fOptionsBackup: TMessagesOptions;
fBtns: array[TAppMessageCtxt] of TToolButton;
fFiltering: boolean;
fMustScrollToBack: boolean;
function itemShouldBeVisible(item: TTreeNode; aCtxt: TAppMessageCtxt): boolean;
procedure filterMessages(aCtxt: TAppMessageCtxt);
procedure clearOutOfRangeMessg;
@ -165,6 +166,7 @@ type
procedure clearbyContext(aCtxt: TAppMessageCtxt);
procedure clearbyData(data: Pointer);
procedure scrollToBack;
procedure checkIfMustScrollToBack();
protected
procedure setToolBarFlat(value: boolean); override;
procedure updateLoop; override;
@ -977,6 +979,7 @@ begin
fBtns[aCtxt].Click;
if fastDisplay then
IncLoopUpdate;
checkIfMustScrollToBack();
item := List.Items.AddObject(nil, msg, dt);
item.ImageIndex := iconIndex(aKind);
item.SelectedIndex := item.ImageIndex;
@ -1070,9 +1073,17 @@ begin
list.EndUpdate;
end;
procedure TMessagesWidget.checkIfMustScrollToBack();
var
i: TTreeNode;
begin
i := List.BottomItem;
fMustScrollToBack := i.isNotNil and i.IsVisible;
end;
procedure TMessagesWidget.scrollToBack;
begin
if not Visible then
if not Visible or not fMustScrollToBack then
exit;
if List.BottomItem.isNotNil then
List.BottomItem.MakeVisible;