romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bar # 2

Browse Source
This commit is contained in:
Lutz
2021-04-22 07:59:45 +02:00
parent f06820404c
commit 333f45b517
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
foxbin2prg.prg
View File

@@ -28482,8 +28482,10 @@ Define Class CL_MENU_OPTION As CL_MENU_COL_BASE
Do Case
Case m.lcBarName = '"'
loReg.Name = Substr( m.lcBarName, 2, Len( m.lcBarName ) - 2 )
Case LEFT ( m.lcBarName, 1 ) = '"'
lcBarName = Substr( m.lcBarName, 2, Len( m.lcBarName ) - 2 )
loReg.Name = m.lcBarName
loReg.OBJCODE = C_OBJCODE_MENUOPTION_BARNUM
Case Isdigit( m.lcBarName )
*-- Bar#
loReg.OBJCODE = C_OBJCODE_MENUOPTION_BARNUM