by Silvio.Falconi » Tue Mar 27, 2018 2:44 pm
It's very strange ...is a simply menu and on that line there is nothing
On the Windows Seven I not Have that error and the exe run ok
This morning at school I have win10 the same exe make errors
- Code: Select all Expand view RUN
METHOD BuildMenu() CLASS TApplication
local oMenu
MENU ::oMenuMain 2010
MENUITEM i18n("&Archivi")
MENU
MENUITEM i18n( "Gestione anni Scolastici" ) ;
MESSAGE i18n( "Gestione anni scolastici" ) ;
RESOURCE "MENU_ESERCIZI";
ACTION Esercizi()
SEPARATOR
MENUITEM i18n("Gestione assenze docenti" ) ;
MESSAGE i18n( "Gestione delle assenze e sostituzioni " ) ;
RESOURCE "ASSENZE16" ;
ACTION Assenze()
SEPARATOR
MENUITEM i18n("Tipo assenze docenti" ) ;
MESSAGE i18n( "Gestione del tipo di assenze" ) ;
RESOURCE "TIPO16" ;
ACTION TipoAssenze()
SEPARATOR
MENUITEM i18n("Calendario festività e vacanze" ) ;
MESSAGE i18n( "Calendario festività e vacanze " ) ;
RESOURCE "GRID_PERIODIC" ;
ACTION Calendario()
SEPARATOR
MENUITEM i18n( "Archivi complementari " ) RESOURCE 'SH_TABELLE'
MENU
MENUITEM i18n( "Archivio Docenti" )NAME "M_DOCENTI";
MESSAGE i18n( "archivio complementare docenti " );
ACTION Docenti()
MENUITEM i18n( "Materie insegnamento" )NAME "M_MATERIE";
MESSAGE i18n( "archivio complementare materie " );
ACTION Materie()
MENUITEM i18n( "Classi presenti " ) NAME "M_CLASSI" ;
MESSAGE i18n( "archivio complementare classi " ) ;
ACTION Classi()
MENUITEM i18n( "Aule - Laboratori " ) NAME "M_AULE" ;
MESSAGE i18n( "archivio complementare aule - laboratori " ) ;
ACTION AULE()
MENUITEM i18n( "Gruppi di classi " ) NAME "M_GRUPPI" ;
MESSAGE i18n( "archivio complementare gruppi di classi " ) ;
ACTION GRUPPI()
SEPARATOR
MENUITEM i18n( "Gestione Cattedre Docenti" ) NAME "M_ORE" ;
MESSAGE i18n( "Inserimento/modifica cattedre" ) ;
ACTION PCattedre()
SEPARATOR
MENUITEM i18n( "Orario delle lezioni (Tabellone) " ) NAME "M_ORE" ;
MESSAGE i18n( "Tabellone orario delle lezioni " ) ;
ACTION PNuovoTabellone()
ENDMENU
SEPARATOR
MENUITEM i18n( "Specificare la stampante" );
RESOURCE "MENU_CONFIGPRN" ;
ACTION PrinterSetup() ;
MESSAGE i18n( "Stabilire la configurazione della sua stampante. " )
SEPARATOR
MENUITEM i18n( "Configurazione del programma" ) ;
MESSAGE i18n( "Stabilire la configurazione del programma " ) ;
RESOURCE "MENU_CONFIG" ;
Action ::Configurazione(1)
SEPARATOR
MENUITEM i18n( "Uscire dal programma" ) RESOURCE "MENU_SALIR2" ;
ACTION ::ExitFromBtn() ;
MESSAGE i18n( " Terminare l'esecuzione dell'applicazione. " )
ENDMENU
MENUITEM "&Utilità"
MENU
MENUITEM i18n( "Protezione del programma" );
MESSAGE i18n( "Proteggere il programma con password criptata personale " ) ;
RESOURCE "MENU_PROTEZ" ;
Action Password()
SEPARATOR
MENUITEM i18n( "Indicizzazione archivi" );
MESSAGE i18n( "Avviare l'indicizzazione degli archivi " ) ;
RESOURCE "MENU_INDICIZZA" ;
Action Ut_Indexar()
SEPARATOR
MENUITEM i18n( "Salvataggio archivi" );
MESSAGE i18n( "salvataggio degli archivi in un file compresso e datato " ) ;
RESOURCE "MENU_BACK" ;
Action ZipBackup()
MENUITEM i18n( "Recupero archivi" ) ;
MESSAGE i18n( "Recupero di un salvataggio archivi " ) ;
RESOURCE "MENU_RESTORE" ;
Action ZipRestore()
SEPARATOR
MENUITEM i18n( "Salvataggio archivi in XmL" ) ;
MESSAGE i18n( "convertire gli archivi in formato xml " ) ;
RESOURCE "MENU_XML" ;
Action GenXML()
MENUITEM i18n( "Salvataggio archivi in Csv" ) ;
MESSAGE i18n( "convertire gli archivi in formato csv " ) ;
RESOURCE "MENU_CSV" ;
Action GenTxt()
ENDMENU
MENUITEM "&Aiuto" // HELP
MENU
MENUITEM i18n( "Aiuto del programma" ) ;
RESOURCE "MENU_HELP" action Winexec("HH"+"EurekaS.chm") // action HelpIndex()
MENUITEM i18n( "Trucco del giorno" );
ACTION TipOfDay(".\tips.ini") ;
RESOURCE "MENU_TIPS"
SEPARATOR
MENUITEM i18n( "Visitare il sito di eoeo" );
RESOURCE "MENU_WEB" ;
ACTION GoWeb("www.eoeo.it")
MENUITEM i18n( "Contattare per email l'autore" );
RESOURCE "MENU_CONTATTI" ;
ACTION GoMailE( "info@eoeo.it","Informazioni su "+::cAppname,"Vorrei informazioni sulla Vostra applicazione "+::cAppname )
MENUITEM i18n( "Autore di "+::cAppname );
RESOURCE "MENU_AUTORI" ;
ACTION ::AppAcercade()
ENDMENU
ENDMENU
RETURN ::oMenuMain
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
