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); procedure TDexedMemo.scrollCentered(down: boolean);
begin begin
centerCursor(); centerCursor();
if down then if not down then
begin begin
ExecuteCommand(ecScrollDown, #0, nil); ExecuteCommand(ecScrollDown, #0, nil);
CaretY := CaretY - 1; CaretY := CaretY - 1;