From 088bf7d5dad488538a2dace94bb032a6eac863a9 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Wed, 15 Aug 2012 22:19:03 -0400 Subject: [PATCH] Fixes --- utilities/cvtmenus.pas | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/utilities/cvtmenus.pas b/utilities/cvtmenus.pas index 797f680..28e3b2d 100644 --- a/utilities/cvtmenus.pas +++ b/utilities/cvtmenus.pas @@ -201,6 +201,14 @@ Begin If MenuCmd[Count].HotKey = MenuCmd[Loop].HotKey Then Begin If Length(MenuCmd[Loop].Command) < 2 Then Continue; + // if lb menus check x/y/lo/hi values and assign if they were blank + If (Menu.MenuType > 0) And ((NewItem[NewItems].TextLo = '') or (NewItem[NewItems].TextHi = '')) Then Begin + NewItem[NewItems].X := MenuCmd[Loop].X; + NewItem[NewItems].Y := MenuCmd[Loop].Y; + NewItem[NewItems].TextLo := MenuCmd[Loop].TextLo; + NewItem[NewItems].TextHi := MenuCmd[Loop].TextHi; + End; + Inc (NewItem[NewItems].Commands); NewCmds := NewItem[NewItems].Commands; @@ -238,7 +246,7 @@ Begin WriteLn (NewF, 'Menu description'); WriteLn (NewF, Menu.Access); - WriteLn (NewF, Menu.Password); + WriteLn (NewF, Menu.Fallback); WriteLn (NewF, FlagStr); WriteLn (NewF, ''); WriteLn (NewF, ''); // node status