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

Some visual updates

This commit is contained in:
mysticbbs 2012-08-06 01:53:35 -04:00
parent 00ed82b868
commit 6d2f253a5d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mystic/bbs_cfg_menuedit.pas
View File

@ -501,7 +501,7 @@ Begin
Box.Open (9, 5, 72, 21); Box.Open (9, 5, 72, 21);
WriteXY (11, 6, 112, 'Hot Key Text Exec'); WriteXY (11, 6, 112, 'HotKey Text C# Ex');
WriteXY (11, 7, 112, strRep('Ä', 60)); WriteXY (11, 7, 112, strRep('Ä', 60));
WriteXY (11, 19, 112, strRep('Ä', 60)); WriteXY (11, 19, 112, strRep('Ä', 60));
WriteXY (29, 20, 112, cfgCommandList); WriteXY (29, 20, 112, cfgCommandList);
@ -517,8 +517,9 @@ Begin
If (Str = '') And (Menu.Item[Count]^.TextLo <> '') Then If (Str = '') And (Menu.Item[Count]^.TextLo <> '') Then
Str := strStripMCI(Menu.Item[Count]^.TextLo); Str := strStripMCI(Menu.Item[Count]^.TextLo);
List.Add (strPadR(Menu.Item[Count]^.HotKey, 15, ' ') + List.Add (strPadR(Menu.Item[Count]^.HotKey, 10, ' ') + ' ' +
strPadR(Str, 43, ' ') + strPadR(Str, 43, ' ') + ' ' +
strPadL(strI2S(Count), 2, ' ') + ' ' +
strPadL(strI2S(Menu.Item[Count]^.Commands), 2, ' '), 0); strPadL(strI2S(Menu.Item[Count]^.Commands), 2, ' '), 0);
End; End;