Source language: Translate to:

App with language choice menu

General questions about NeoBook

Moderator: Neosoft Support

App with language choice menu

Postby Dixan » Thu May 19, 2016 11:56 am

Well, I have a new problem, I have a project with language choice menu. Is there a fast way to set change all menu betwen language?
I have to write an scrip in each page of the new language to hide a group of menu and show just which are in the selected language.

I used this long script i each page.

HideMenuItem "EncabezadoMenu1"
HideMenuItem "EncabezadoMenu2"
HideMenuItem "EncabezadoMenu9"
HideMenuItem "EncabezadoMenu10"
HideMenuItem "EncabezadoMenu3"
HideMenuItem "EncabezadoMenu4"
HideMenuItem "EncabezadoMenu13"
HideMenuItem "EncabezadoMenu29"
HideMenuItem "EncabezadoMenu15"
HideMenuItem "EncabezadoMenu16"
HideMenuItem "EncabezadoMenu17"
HideMenuItem "EncabezadoMenu18"
HideMenuItem "EncabezadoMenu19"
HideMenuItem "EncabezadoMenu20"
HideMenuItem "EncabezadoMenu21"
HideMenuItem "EncabezadoMenu31"
HideMenuItem "EncabezadoMenu22"
HideMenuItem "EncabezadoMenu23"
HideMenuItem "EncabezadoMenu24"
HideMenuItem "EncabezadoMenu25"
HideMenuItem "EncabezadoMenu26"
HideMenuItem "EncabezadoMenu27"
HideMenuItem "EncabezadoMenu28"
HideMenuItem "EncabezadoMenu32"
ShowMenuItem "EncabezadoMenu5"
ShowMenuItem "EncabezadoMenu6"
ShowMenuItem "EncabezadoMenu11"
ShowMenuItem "EncabezadoMenu12"
ShowMenuItem "EncabezadoMenu8"
ShowMenuItem "EncabezadoMenu7"
ShowMenuItem "EncabezadoMenu14"
ShowMenuItem "EncabezadoMenu30"

Image
Dix@n
User avatar
Dixan
 
Posts: 51
Joined: Sat May 14, 2016 2:48 pm

Re: App with language choice menu

Postby Gaev » Thu May 19, 2016 1:23 pm

Dixan:

The Captions for Menu Headings and Items (submenus) can be assigned a [variable] ... so you could have a subroutine (one for each language) that sets the appropriate values after the user selects his/her language.

You could get fancy with Array Variables and Loop/EndLoop command blocks to reduce the number of subroutines/commands ... but I favour simplicity over a few less lines of commands.
User avatar
Gaev
 
Posts: 3737
Joined: Fri Apr 01, 2005 7:48 am
Location: Toronto, Canada

Re: App with language choice menu

Postby Dixan » Fri May 20, 2016 7:06 am

Could you show me an example?
Dix@n
User avatar
Dixan
 
Posts: 51
Joined: Sat May 14, 2016 2:48 pm

Re: App with language choice menu

Postby Gaev » Fri May 20, 2016 9:11 am

Dixan:

Could you show me an example?

1) Say you want to show the following ...
English:

File
. Open
. Close

Edit

Spanish:

Archivo
. Abierto
. Cerca

Editar

When you design your Menus, define the corresponding captions like so ...
[MenuHeading1]
[MenuItem11]
[MenuItem12]

[MenuHeading2]

Now add this code in your subroutines/code section (F12) ...
Code: Select all
:MakeMenusEnglish
SetVar "[MenuHeading1]" "File"
SetVar "[MenuItem11]" "Open"
SetVar "[MenuItem12]" "Close"

SetVar "[MenuHeading2]" "Edit"
Return


:MakeMenusSpanish
SetVar "[MenuHeading1]" "Archivo"
SetVar "[MenuItem11]" "Abierto"
SetVar "[MenuItem12]" "Cerca"

SetVar "[MenuHeading2]" "Editar"
Return


When you want to show English captions ...
Code: Select all
GoSub "MakeMenusEnglish"


When you want to show Spanish captions ...
Code: Select all
GoSub "MakeMenusSpanish"
User avatar
Gaev
 
Posts: 3737
Joined: Fri Apr 01, 2005 7:48 am
Location: Toronto, Canada

Re: App with language choice menu

Postby virger » Sat May 21, 2016 8:46 am

Y si trata de esta forma. Solo el menu, sin gosub, uso de 'strparse'
And if you try this. Only the menu without GOSUB, use of 'strparse'

Code: Select all
NBW Publication Source File
(C)2014 NeoSoft Corp.
Title=Untitled NeoBook Publication
Language=US
NeoBookVer=5.80
ScreenColors=16777216
ScreenWidth=640
ScreenHeight=480
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowPos=0
WindowProps=95
BiDiMode=0
UseUpdateTimer=Yes
ReturnTime=60
StartupAction=strparse "Archivo.Abrir.Cerrar.Editar" "." "[lg]" "[x]"¶setvar "[lg0]" "Esp"
ShapeTransColor=536870912
SplashProps=3
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Setup
SetupColors=16711680|0|65535
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
ReqExLevel=1
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Cancel
L_YES=Yes
L_NO=No
L_CLOSE=Close
L_ERRORTITLE=Error
L_FINDTITLE=Find
L_FINDPROMPT=Find &What
L_FINDFIRST=&Find First
L_FINDNEXT=Find &Next
L_FINDERROR=Search text not found.
L_PWORDTITLE=Password required
L_PWORDMSG=Before continuing, you must first|enter the correct password.
L_PWORDPROMPT=&Password:
L_PWORDERROR=That's not the right password!
L_MEDIAERROR=In order to play this type of file you must install|the appropriate multimedia hardware and/or|software.
L_INTERNETERROR=Unable to locate Internet Browser software.
L_ABORTFUNCTION=Do you want to cancel this function?
L_EXTRACTERROR=This file could not be extracted and cannot be played.
L_INSTDIRPROMPT=Please enter the drive and directory where you would like this program to be installed. To accept the default drive and directory, simply press Enter.
L_INSTFOLDERPROMPT=Do you wish to create a program folder?
L_INSTRUNPROMPT=Do you want to run
L_INSTDISKPROMPT=Please insert disk #
L_INSTDISKERROR=That's not the correct disk, try again.
L_INSTGENERROR=The installation has terminated.
L_INSTEXITPROMPT=Do you really want to cancel the installation?
L_INSTWINTITLE=Setup
L_INSTPROGTITLE=Extracting Files...
L_SENDEMAIL=Sending Mail...
L_MAILSERVER=Please enter the name of your outgoing email server:
L_COPY=Copy to Clipboard
L_SELECTALL=Select All
L_DONWLOADFILE=Downloading: %s
L_PLEASEWAIT=Please wait...
MenuBegin
MenuName=Lg1
MenuText=[Lg1]
MenuState=3
MenuKey=0
MenuName=Lg2
MenuText=[Lg2]
MenuState=3
MenuKey=0
MenuName=Lg3
MenuText=[Lg3]
MenuState=3
MenuKey=0
MenuName=Lg4
MenuText=[Lg4]
MenuState=3
MenuKey=0
MenuName=Esp
MenuText=Español
MenuState=1
MenuKey=0
MenuAction=strparse "Archivo.Abrir.Cerrar.Editar" "." "[lg]" "[x]"¶setvar "[lg0]" "Esp"¶DisableMenuItem "Esp"¶EnableMenuItem "Eng"
MenuName=Eng
MenuText=English
MenuState=3
MenuKey=0
MenuAction=strparse "File.Open.Close.Edit"        "." "[lg]" "[x]"¶setvar "[lg0]" "Eng"¶DisableMenuItem "Eng"¶EnableMenuItem "Esp"
MenuEnd
TrayMenuBegin
MenuName=TrayOpen
MenuText=Open
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Exit
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=New Page
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0


KEYLOR NAVAS
ANDREY AMADOR...
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 524
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: App with language choice menu

Postby virger » Sat May 21, 2016 8:55 am

SubMenu agregados.
SubMenu aggregates.
Code: Select all
NBW Publication Source File
(C)2014 NeoSoft Corp.
Title=Untitled NeoBook Publication
Language=US
NeoBookVer=5.80
ScreenColors=16777216
ScreenWidth=640
ScreenHeight=480
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowPos=0
WindowProps=95
BiDiMode=0
UseUpdateTimer=Yes
ReturnTime=60
StartupAction=strparse "Archivo.Abrir.Cerrar.Editar" "." "[lg]" "[x]"¶strparse "Alfa.Beta" "." "[Lg1]" "[x]"¶strparse "Uno.Dos" "." "[Lg4]" "[x]"¶setvar "[lg0]" "Esp"
ShapeTransColor=536870912
SplashProps=3
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Setup
SetupColors=16711680|0|65535
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
ReqExLevel=1
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Cancel
L_YES=Yes
L_NO=No
L_CLOSE=Close
L_ERRORTITLE=Error
L_FINDTITLE=Find
L_FINDPROMPT=Find &What
L_FINDFIRST=&Find First
L_FINDNEXT=Find &Next
L_FINDERROR=Search text not found.
L_PWORDTITLE=Password required
L_PWORDMSG=Before continuing, you must first|enter the correct password.
L_PWORDPROMPT=&Password:
L_PWORDERROR=That's not the right password!
L_MEDIAERROR=In order to play this type of file you must install|the appropriate multimedia hardware and/or|software.
L_INTERNETERROR=Unable to locate Internet Browser software.
L_ABORTFUNCTION=Do you want to cancel this function?
L_EXTRACTERROR=This file could not be extracted and cannot be played.
L_INSTDIRPROMPT=Please enter the drive and directory where you would like this program to be installed. To accept the default drive and directory, simply press Enter.
L_INSTFOLDERPROMPT=Do you wish to create a program folder?
L_INSTRUNPROMPT=Do you want to run
L_INSTDISKPROMPT=Please insert disk #
L_INSTDISKERROR=That's not the correct disk, try again.
L_INSTGENERROR=The installation has terminated.
L_INSTEXITPROMPT=Do you really want to cancel the installation?
L_INSTWINTITLE=Setup
L_INSTPROGTITLE=Extracting Files...
L_SENDEMAIL=Sending Mail...
L_MAILSERVER=Please enter the name of your outgoing email server:
L_COPY=Copy to Clipboard
L_SELECTALL=Select All
L_DONWLOADFILE=Downloading: %s
L_PLEASEWAIT=Please wait...
MenuBegin
MenuName=Lg1
MenuText=[Lg1]
MenuState=3
MenuKey=0
MenuBegin
MenuName=Lg11
MenuText=[Lg11]
MenuState=3
MenuKey=0
MenuName=Lg12
MenuText=[Lg12]
MenuState=3
MenuKey=0
MenuEnd
MenuName=Lg2
MenuText=[Lg2]
MenuState=3
MenuKey=0
MenuName=Lg3
MenuText=[Lg3]
MenuState=3
MenuKey=0
MenuName=Lg4
MenuText=[Lg4]
MenuState=3
MenuKey=0
MenuBegin
MenuName=Lg41
MenuText=[Lg41]
MenuState=3
MenuKey=0
MenuName=Lg42
MenuText=[Lg42]
MenuState=3
MenuKey=0
MenuEnd
MenuName=Esp
MenuText=Español
MenuState=1
MenuKey=0
MenuAction=strparse "Archivo.Abrir.Cerrar.Editar" "." "[lg]" "[x]"¶strparse "Alfa.Beta" "." "[Lg1]" "[x]"¶strparse "Uno.Dos" "." "[Lg4]" "[x]"¶setvar "[lg0]" "Esp"¶DisableMenuItem "Esp"¶EnableMenuItem "Eng"
MenuName=Eng
MenuText=English
MenuState=3
MenuKey=0
MenuAction=strparse "File.Open.Close.Edit"        "." "[lg]" "[x]"¶strparse "Good.Bad" "." "[Lg1]" "[x]"¶strparse "One.Two" "." "[Lg4]" "[x]"¶setvar "[lg0]" "Eng"¶DisableMenuItem "Eng"¶EnableMenuItem "Esp"
MenuEnd
TrayMenuBegin
MenuName=TrayOpen
MenuText=Open
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Exit
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=New Page
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0


Gracias por leerme
Thanks for reading me
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 524
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: App with language choice menu

Postby mishem » Sat May 21, 2016 9:53 am

[MenuHeading1]
[MenuItem11]
[MenuItem12]

[MenuHeading2]



[MenuHeading1] = [MenuFile]
[MenuItem11] = [MenuOpen]
[MenuItem12] = [MenuClose]
[MenuHeading2] = [MenuEdit]
etc.

The file in the folder with the application.

English.ini

MenuFile=File
MenuOpen=Open
MenuClose=Close
MenuEdit=Edit
etc.

Spanish.ini

MenuFile=Archivo
MenuOpen=Abierto
MenuClose=Cerca
MenuEdit=Editar
etc.

Code: Select all
LoadVariables "[PubDir]English.ini"


or

Code: Select all
LoadVariables "[PubDir]Spanish.ini"
mishem
 
Posts: 575
Joined: Mon Oct 08, 2012 1:51 pm

Re: App with language choice menu

Postby Dixan » Mon May 23, 2016 2:10 pm

OK guys my menu change perfectly betwen languages BUT I have problem in submenus. For example in Spanish menu 4 has 2 submenus "1ra Etapa and 2da Etapa", In English they are "1st Stage and 2nd Stage" names changes perfectly but action no changes, the first language is Spanich and send to page 3 with some documents in spanish, when change to English must go to page 4 with some documents in english, but it keep sending me to page 3. Help please.
Dix@n
User avatar
Dixan
 
Posts: 51
Joined: Sat May 14, 2016 2:48 pm

Re: App with language choice menu

Postby Gaev » Mon May 23, 2016 2:54 pm

Dixan:

For example in Spanish menu 4 has 2 submenus "1ra Etapa and 2da Etapa", In English they are "1st Stage and 2nd Stage" names changes perfectly but action no changes, the first language is Spanich and send to page 3 with some documents in spanish, when change to English must go to page 4 with some documents in english, but it keep sending me to page 3.

Say you assigned variables [MenuItem41] to the submenu ... in your actions section ...
Code: Select all
If "[MenuItem41]" "=" "1st Stage"
   GoToPage "4"
Else
   GoTopage "3"
EndIf


If you have many such scenarios, you might consider a universal variable (e.g. [MenuLanguage]) that you set to "English" or "Spanish" ... then ...
Code: Select all
If "[MenuLanguage]" "=" "English"
   GoToPage "4"
Else
   GoTopage "3"
EndIf
User avatar
Gaev
 
Posts: 3737
Joined: Fri Apr 01, 2005 7:48 am
Location: Toronto, Canada

Re: App with language choice menu

Postby virger » Tue May 24, 2016 7:54 am

1) Sin necesidad de "gotopage"
2) Sólo usando "ini"
3) Es más ordenado
4) Más simple
Intentalo con este ejemplo

1) No need to "gotopage"
2) Only using "ini"
3) It is neater
4) Simpler
Try it with this example

Code: Select all
NBW Publication Source File
(C)2014 NeoSoft Corp.
Title=Untitled NeoBook Publication
Language=US
NeoBookVer=5.80
ScreenColors=16777216
ScreenWidth=640
ScreenHeight=480
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowPos=0
WindowProps=95
BiDiMode=0
UseUpdateTimer=Yes
ReturnTime=60
StartupAction=strparse "Archivo.Abrir.Cerrar.Editar" "." "[lg]" "[x]"¶strparse "Alfa.Beta" "." "[Lg1]" "[x]"¶strparse "Uno.Dos" "." "[Lg4]" "[x]"¶setvar "[lg0]" "Esp"¶gosub "ini"
SubroutineAction=:Ini¶fileread "[lg0].ini" "1" "[Bt1]"¶fileread "[lg0].ini" "2" "[Msg1]"¶fileread "[lg0].ini" "3" "[Lis1]"¶StrReplace "[Lis1]" "~" "[#13][#10]" "[Lis1]" ""¶fileread "[lg0].ini" "4" "[Pic1]"¶FileRead "[lg0].ini" "5" "[Chk]"¶strparse "[Chk]" "~" "[Chk]" "[x]"¶FileRead "[lg0].ini" "6" "[Rad]"¶strparse "[Rad]" "~" "[Rd]" "[x]"¶¶clearvariables "[Rad],[Chk]"¶Return
ShapeTransColor=536870912
SplashProps=3
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Setup
SetupColors=16711680|0|65535
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
ReqExLevel=1
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Cancel
L_YES=Yes
L_NO=No
L_CLOSE=Close
L_ERRORTITLE=Error
L_FINDTITLE=Find
L_FINDPROMPT=Find &What
L_FINDFIRST=&Find First
L_FINDNEXT=Find &Next
L_FINDERROR=Search text not found.
L_PWORDTITLE=Password required
L_PWORDMSG=Before continuing, you must first|enter the correct password.
L_PWORDPROMPT=&Password:
L_PWORDERROR=That's not the right password!
L_MEDIAERROR=In order to play this type of file you must install|the appropriate multimedia hardware and/or|software.
L_INTERNETERROR=Unable to locate Internet Browser software.
L_ABORTFUNCTION=Do you want to cancel this function?
L_EXTRACTERROR=This file could not be extracted and cannot be played.
L_INSTDIRPROMPT=Please enter the drive and directory where you would like this program to be installed. To accept the default drive and directory, simply press Enter.
L_INSTFOLDERPROMPT=Do you wish to create a program folder?
L_INSTRUNPROMPT=Do you want to run
L_INSTDISKPROMPT=Please insert disk #
L_INSTDISKERROR=That's not the correct disk, try again.
L_INSTGENERROR=The installation has terminated.
L_INSTEXITPROMPT=Do you really want to cancel the installation?
L_INSTWINTITLE=Setup
L_INSTPROGTITLE=Extracting Files...
L_SENDEMAIL=Sending Mail...
L_MAILSERVER=Please enter the name of your outgoing email server:
L_COPY=Copy to Clipboard
L_SELECTALL=Select All
L_DONWLOADFILE=Downloading: %s
L_PLEASEWAIT=Please wait...
MenuBegin
MenuName=Lg1
MenuText=[Lg1]
MenuState=3
MenuKey=0
MenuBegin
MenuName=Lg11
MenuText=[Lg11]
MenuState=3
MenuKey=0
MenuName=Lg12
MenuText=[Lg12]
MenuState=3
MenuKey=0
MenuEnd
MenuName=Lg2
MenuText=[Lg2]
MenuState=3
MenuKey=0
MenuName=Lg3
MenuText=[Lg3]
MenuState=3
MenuKey=0
MenuName=Lg4
MenuText=[Lg4]
MenuState=3
MenuKey=0
MenuBegin
MenuName=Lg41
MenuText=[Lg41]
MenuState=3
MenuKey=0
MenuName=Lg42
MenuText=[Lg42]
MenuState=3
MenuKey=0
MenuEnd
MenuName=Esp
MenuText=Español
MenuState=1
MenuKey=0
MenuAction=strparse "Archivo.Abrir.Cerrar.Editar" "." "[lg]" "[x]"¶strparse "Alfa.Beta" "." "[Lg1]" "[x]"¶strparse "Uno.Dos" "." "[Lg4]" "[x]"¶setvar "[lg0]" "Esp"¶DisableMenuItem "Esp"¶EnableMenuItem "Eng"¶gosub "Ini"
MenuName=Eng
MenuText=English
MenuState=3
MenuKey=0
MenuAction=strparse "File.Open.Close.Edit"        "." "[lg]" "[x]"¶strparse "Good.Bad" "." "[Lg1]" "[x]"¶strparse "One.Two" "." "[Lg4]" "[x]"¶setvar "[lg0]" "Eng"¶DisableMenuItem "Eng"¶EnableMenuItem "Esp"¶gosub "Ini"
MenuEnd
TrayMenuBegin
MenuName=TrayOpen
MenuText=Open
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Exit
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=New Page
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=0
ObjectType=3
Name=Bt1
X=15
Y=8
W=100
H=38
Anchor=0
Text=[Bt1]
Align=2
ImageStyle=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=2
ObjectType=8
Name=Text1
X=120
Y=8
W=169
H=48
Anchor=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 [msg1]}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14211320
FillPattern=0
TabOrder=3
ObjectType=10
Name=Lis1
X=297
Y=8
W=203
H=119
Anchor=0
Text=[Lis1]
VarName=[Dt]
VarType=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=15856113
FillPattern=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=4
ObjectType=4
Name=Picture1
X=37
Y=77
W=130
H=108
Anchor=0
FileName=[pic1]
PictStyle=0
Centered=Yes
Resample=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16308432
FillPattern=0
TabOrder=5
ObjectType=12
Name=Chk1
X=257
Y=150
W=74
H=25
Anchor=0
Text=[Chk1]
Align=1
VarName=[vChk1]
InitState=0
XPTheme=No
AutoSize=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=7
ObjectType=12
Name=Chk2
X=257
Y=174
W=74
H=25
Anchor=0
Text=[Chk2]
Align=1
VarName=[vChk2]
InitState=0
XPTheme=No
AutoSize=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=6
ObjectType=13
Name=Rd1
X=377
Y=148
W=66
H=25
Anchor=0
Text=[Rd1]
Align=1
VarName=[Rd]
InitState=0
XPTheme=No
AutoSize=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=9
ObjectType=13
Name=Rd2
X=377
Y=172
W=66
H=25
Anchor=0
Text=[Rd2]
Align=1
VarName=[Rd]
InitState=0
XPTheme=No
AutoSize=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=8
ObjectType=8
Name=Text2
X=37
Y=115
W=128
H=24
Anchor=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 [Pic1]}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=12632256
FillPattern=1
TabOrder=10
ObjectType=8
Name=Text3
X=56
Y=279
W=260
H=170
Anchor=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Boton1\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Hola Mundo\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Arbol~Carro~Persona~Perro~Libro\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 MiFoto.jpg\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Uno~Dos\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Hola~NeoBook}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=1
FillColor=12632256
FillPattern=1
TabOrder=12
ObjectType=8
Name=Text4
X=55
Y=227
W=535
H=50
Anchor=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 crear/create\par\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 esp.ini\tab \tab \tab \tab \tab \tab \tab \tab \tab \tab \tab eng.ini}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=1
TabOrder=13
ObjectType=8
Name=Text5
X=330
Y=279
W=260
H=170
Anchor=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Button1\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Hello World\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Tree~Car~Dog~Person~Book\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 MyPicture.jpg\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 One~Two\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0 Hello~NeoBook}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=1
FillColor=12632256
FillPattern=1
TabOrder=11
ObjectType=7
Name=Line1
X1=354
Y1=139
X2=354
Y2=209
EndCaps=0
LineColor=0
LineWidth=2
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=14
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 524
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: App with language choice menu

Postby Dixan » Wed Jun 01, 2016 7:57 am

Thanks guys, I got it. :lol:
I used something li this:

[Lg3]= "Idioma"(Spanish)

strparse ".Archivo.Idioma.Inicio.Etapas.Disciplina.Obispos.Fotos.Ayuda" "." "[lg]" "[x]"
strparse "Cerrar" "." "[Lg2]" "[x]"
HideMenuItem "Lg31"
ShowMenuItem "Lg32"
ShowMenuItem "Lg33"
ShowMenuItem "Lg34"
strparse "Español.Inglés.Alemán.Francés" "." "[Lg3]" "[x]"
strparse "1ra Etapa (1868 - 1897).2da Etapa (1898 - 1922).3ra Etapa (1923 - 1959).4ta Etapa (1960 - 1968).5ta Etapa (1969 - 1983).6ta Etapa (1984 - 2015)" "." "[Lg5]" "[x]"
strparse "Agradecimientos.Bibliografía.Acerca de.Enviar correo" "." "[Lg9]" "[x]"

[Lg3]= "Language" (English)

strparse ".File.Language.Start.Stage.Discipline.Bishops.Pictures.Help" "." "[lg]" "[x]"
strparse "Exit" "." "[Lg2]" "[x]"
HideMenuItem "Lg32"
ShowMenuItem "Lg31"
ShowMenuItem "Lg33"
ShowMenuItem "Lg34"
strparse "Spanish.English.German.French" "." "[Lg3]" "[x]"
strparse "1st Stage (1868 - 1897).2nd Stage (1898 - 1922).3rd Stage (1923 - 1959).4th Stage (1960 - 1968).5th Stage (1969 - 1983).6th Stage (1984 - 2015)" "." "[Lg5]" "[x]"
strparse "Thanks.Bibliography.About.Semd E-mail" "." "[Lg9]" "[x]"

and for the others tab I used

If "[Lg3]" "=" "Idioma"
GotoPage "E01"
ObjectToFront "Articulo3"
else
If "[Lg3]" "=" "Language"
GotoPage "I01"
ObjectToFront "Articulo11"
else
endif
endif
Dix@n
User avatar
Dixan
 
Posts: 51
Joined: Sat May 14, 2016 2:48 pm


Return to General NeoBook Discussions

Who is online

Users browsing this forum: No registered users and 2 guests