eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changes

This commit is contained in:
mysticbbs 2012-08-11 14:59:20 -04:00
parent 3725470afb
commit 5fb3eb7bbd
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utilities/cvtmenus.pas
View File

@ -3,6 +3,7 @@ Program CvtMenus;
{$I M_OPS.PAS} {$I M_OPS.PAS}
Uses Uses
lineinfo,
DOS, DOS,
m_Strings, m_Strings,
m_FileIO, m_FileIO,
@ -198,6 +199,8 @@ Begin
For Loop := Count to Cmds Do For Loop := Count to Cmds Do
If MenuCmd[Count].HotKey = MenuCmd[Loop].HotKey Then Begin If MenuCmd[Count].HotKey = MenuCmd[Loop].HotKey Then Begin
If Length(MenuCmd[Loop].Command) < 2 Then Continue;
Inc (NewItem[NewItems].Commands); Inc (NewItem[NewItems].Commands);
NewCmds := NewItem[NewItems].Commands; NewCmds := NewItem[NewItems].Commands;
@ -217,6 +220,14 @@ Begin
DoneList.Free; DoneList.Free;
// New engine will send header/footer for lightbar menus
// old engine did not, so zero these out just in case
If Menu.MenuType > 0 Then Begin
Menu.Header := '';
Menu.Prompt := '';
End;
FlagStr := strPadR( FlagStr := strPadR(
'0' + // char type '0' + // char type
strI2S(Menu.MenuType) + strI2S(Menu.MenuType) +
@ -243,6 +254,10 @@ Begin
For Count := 1 to NewItems Do Begin For Count := 1 to NewItems Do Begin
NewItem[Count].ReDraw := 1; NewItem[Count].ReDraw := 1;
NewItem[Count].TimerType := 0; NewItem[Count].TimerType := 0;
NewItem[Count].ShowType := 0;
If (NewItem[Count].Text = '') and (Menu.MenuType = 0) Then
NewItem[Count].ShowType := 2;
FlagStr := strPadR( FlagStr := strPadR(
strI2S(NewItem[Count].ReDraw) + strI2S(NewItem[Count].ReDraw) +