Merge pull request #4 from Ripjetski6502/dev

Dev

Author: Ripjetski6502

bin/fullappdemo.xex

@@ -14,7 +14,7 @@ interface
 
 const
     // Version
-    LIB_VERSION = '1.1.1';
+    LIB_VERSION = '1.1.2';
 
     // Window Record and Memory Alloc
     WRECSZ = 10;

src/a8defines.pas

@@ -584,7 +584,7 @@ function GCombo(bN, x, y, bE, bI, bS: Byte; pS: TStringArray): Byte;
     bC := bI;
 
     // calculate lenght of longeest string in pS
-    for i := 0 to Length(pS) - 1 do
+    for i := 0 to bS - 1 do
     begin
         bA:= Length(pS[i]);
         if bA > bL then bL:= bA;
@@ -649,7 +649,7 @@ function GCombo(bN, x, y, bE, bI, bS: Byte; pS: TStringArray): Byte;
                 if not bM then
                 begin
                     // calculating position based on parent window
-                    bZ:=WOpen(baW.bX[bN] + x - 1, baW.bY[bN] + y + 1, 5, 10, WOFF);
+                    bZ:=WOpen(baW.bX[bN] + x - 1, baW.bY[bN] + y + 1, bL + 2, bS + 2, WOFF);
 
                     bC:=MenuV(bZ, 1, 1, WON, bC, bS, pS);
                     WClose(bZ);