fix, scrollCentered inverted

This commit is contained in:
Basile Burg 2022-08-14 20:27:47 +02:00
parent 0c5b0b101e
commit 9b58fe161e
1 changed files with 1 additions and 1 deletions

View File

@ -2151,7 +2151,7 @@ end;
procedure TDexedMemo.scrollCentered(down: boolean);
begin
centerCursor();
if down then
if not down then
begin
ExecuteCommand(ecScrollDown, #0, nil);
CaretY := CaretY - 1;