From 6e385df280ca9993e2eb41f22be4d9d40a9b5c3b Mon Sep 17 00:00:00 2001
From: Fellippe Heitor <fellippeheitor@gmail.com>
Date: Thu, 10 Mar 2022 13:04:36 -0300
Subject: [PATCH] Fix alignment issues in listbox controls

---
 source/ide/ide_methods.bas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 48947ac47..32a250965 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -10894,7 +10894,7 @@ SUB idedrawobj (o AS idedbotype, f)
                     'skip
                 ELSE
                     IF y <= o.h THEN
-                        a3$ = " " + a3$
+                        a3$ = " " + RTRIM$(a3$)
                         IF o.sel = n THEN
                             COLOR 7, 0
                             o.selY = o.par.y + o.y + y
@@ -10948,6 +10948,7 @@ SUB idedrawobj (o AS idedbotype, f)
                                     PRINT LEFT$(a3$, 3);
                                     IF o.sel = n THEN COLOR 7, 0 ELSE COLOR 0, 7
                                     character = 3
+                                    cf = cf + 3
                                     _CONTINUE
                                 END IF
                                 PRINT MID$(a3$, character, 1);