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

reset message horz scrollbar on new item

This commit is contained in:
Basile Burg 2015-06-20 11:41:23 +02:00
parent b996a2852f
commit d071bc31f6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_messages.pas
View File

@ -42,6 +42,9 @@ type
procedure AssignTo(Dest: TPersistent); override; procedure AssignTo(Dest: TPersistent); override;
end; end;
TTreeHack = class(TTreeView)
end;
{ TCEMessagesWidget } { TCEMessagesWidget }
TCEMessagesWidget = class(TCEWidget, ICEEditableOptions, ICEMultiDocObserver, ICEProjectObserver, ICEMessagesDisplay) TCEMessagesWidget = class(TCEWidget, ICEEditableOptions, ICEMultiDocObserver, ICEProjectObserver, ICEMessagesDisplay)
@ -585,8 +588,8 @@ begin
item.SelectedIndex := item.ImageIndex; item.SelectedIndex := item.ImageIndex;
if not fastDisplay then if not fastDisplay then
begin begin
//TODO-cfeature: reset horz scroll bar to the left
clearOutOfRangeMessg; clearOutOfRangeMessg;
TTreeHack(list).scrolledLeft := 0;
scrollToBack; scrollToBack;
Application.ProcessMessages; Application.ProcessMessages;
filterMessages(fCtxt); filterMessages(fCtxt);