New FiveDBU using the strings API and the new preview

[Antonio Linares]

https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824.zip

Full source code provided

[Antonio Linares]

Enhanced version:

https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824_2.zip

[Marc Vanzegbroeck]

Hi Antonio,

I just downloaded the latest version, and now it start in Spanish.
How can I change it in Dutch, or English?
In the ZIP-file is no translation-file included...
Thanks,

[Antonio Linares]

Marc,

Here there is a new version that supports the language selection from the Preferences dialogbox:
https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824_3.zip

also I have included strings.prg so I appreciate if you (some of you) help translating it, thanks

The translations order is: "EN", "ES", "FR", "PT", "DE", "IT"

example:
{ "Attention", "Atención", "Attention", "Atenção", "Achtung", "Attenzione" }

[Marc Vanzegbroeck]

Thanks Antonio, but there is still some problems...

1. If I change from Spanish to English, the text in the menu's are changing, but not the text in buttonbar
2. After restarting the program, it's back in Spanish. Can you save the language in the INI-file?
Thanks

[Antonio Linares]

Marc,

Enhanced version that allows to dinamically change the language at runtime

https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824_4.zip

Full source code included and strings.prg API

[Marc Vanzegbroeck]

Antonio,

Now it's working very nice!!!

Thanks,

[Antonio Linares]

More recent strings.prg translations:

Code: Select all  Expand view

static aStrings := { ;
   { "Attention", "Atención", "Attention", "Atenção", "Achtung", "Attenzione" }, ;
   { "PDF Plugin Error", "Error del plugin de PDF", "Erreur de plugin du PDF", "Erro do plugin do PDF", ;
     "PDF Plugin Fehler", "Errore del plug PDF" }, ;
   { "PDF not saved to send Email", "No se ha guardado el PDF a enviar por Email", ;
     "PDF Non enregistré pour envoi Email", "PDF não foi salvo para mandar por email", ;
     "PDF nicht gespeichert. um E-Mail zu senden", "PDF non salvato per inviare e-mail" }, ;
   { "MS Word not installed", "MS Word no está instalado", "MS Word non installé", "MS Word não está instalado", ;
     "MS Word nicht installiert ist", "MS Word non è installata" }, ;
   { "Failed to Create Word Document", "No se ha podido crear el documento de Word", ;
     "Echec à la création du document Word", "Não foi possível criar o documento do Word", ;
     "Fehler beim Word-Dokument erstellen", "Impossibile creare il documento di Word" }, ;
   { "There is no output for export", "No hay nada que exportar", "Rien à exporter", "Nada para exportar", ;
     "Es erfolgt keine Ausgabe für den Export", "Non vi è alcuna uscita per l'esportazione" }, ;
   { "No .Doc file manipulation software installed", "No hay instalado software para usar ficheros .Doc", ;
     "Pas de programme installé pour manipuler les fichiers .Doc", "Não há software instalado para usar arquivos .Doc", ;
     "Keine. Doc Dateimanipulation Software installiert haben", ;
     "Nessun installato. Software di manipolazione di file Doc" }, ;
   { "not found, imposible to continue", "no se ha encontrado, no se puede continuar", ;
     "Pas trouvé, impossible de continuer", "não encontrado, impossível continuar", "Nicht gefunden. imposible fortsetzen", ;
     "Non trovata. imposible di continuare" }, ;
   { "Printing Error", "Error de impresión", "Erreur impressión", "Erro de impressão", "Druckfehler", "Errore di stampa" }, ;
   { "View", "Visualizar", "Visualiser", "Visualizar", "Sehen Sie", "Guarda" }, ;
   { "Excel not installed", "Excel no está instalado", "Excel non installé", "Excel não está instalado", ;
     "Excel nicht installiert", "Non Excel" }, ;
   { "Report width is greater than page width", "El ancho del informe es mayor que el ancho de la página", ;
     "Largeur du Rapport supérieure à la largeur de la page", "A largura do relátorio é maior que a página", ;
     "Melden Breite größer als Seitenbreite", "Rapporto larghezza è maggiore della larghezza pagina" }, ;
   { "Export to Excel is available only", "Solo está disponible exportar a Excel", ;
     "Export vers Excel uniquement disponible", "Somente a exportação para o Excel está disponível", ;
     "Excel-Export ist nur verfügbar", "Esporta in Excel è disponibile solo" }, ;
   { "for Reports with ::bInit defined", "para reportes con ::bInit definido", "pour Rapports avec ::bInit défini", ;
     "para relatórios com ::bInit definido", "Für Berichte mit :: bInit definiert", ;
     "Per i Rapporti con definito ::bInit" }, ;
   { "Printing Preview", "Previsualización de Impresión", "visualisation de l'impression", ;
     "Previsualização da impressão", "Printing Preview", "Anteprima di stampa" }, ;
   { "&File", "&Fichero", "&Fichier", "Ar&quivos", "Datei", "File" }, ;
   { "&Print", "&Imprimir", "&Imprimer", "&Imprimir", "Print", "Stampa" }, ;
   { "Print actual page", "Imprimir la página actual", "Imprimer la Page en Cours", "Imprimir a página atual", ;
     "Aktuelle Seite ausdrucken", "Stampa pagina reale" }, ;
   { "&Exit", "&Salir", "&Quitter", "&Sair", "Exit", "Exit" }, ;
   { "Exit from preview", "Salir de la previsualización", "Quitter la Visualisation", "Sair da previsualização", ;
     "Verlassen Sie Vorschau", "Esci da anteprima" }, ;
   { "Page", "Página", "Page", "Página", "Seite", "Pagina" }, ;
   { "&First", "&Primera", "&Première", "&Primeira", "Zuerst", "Prima" }, ;
   { "Go to first page", "Ir a la primera página", "Aller à la première page", "Ir para primeira página", ;
     "Zur ersten Seite", "Vai alla prima pagina" }, ;
   { "&Previous", "&Anterior", "&Précédente", "&Anterior", "Zurück", "Precedente" }, ;
   { "Go to previous page", "Ir a la página anterior", "Aller à la page précédente", "Ir para página anterior", ;
     "Zur vorherigen Seite", "Vai alla pagina precedente" }, ;
   { "&Next", "&Siguiente", "&Suivante", "Pró&xima", "Weiter", "Successiva" }, ;
   { "Go to next page", "Ir a la siguiente página", "Aller à la page suivante", "Ir para a próxima página", ;
     "Gehe zur nächsten Seite", "Vai alla pagina successiva" }, ;
   { "&Last", "&Ultima", "&Dernière", "Ú&ltima", "Last", "Ultimo" }, ;
   { "Go to last page", "Ir a la última página", "Aller à la dernière page",, "Zur letzten Seite", ;
     "Vai all'ultima pagina" }, ;
   { "&Zoom", "&Zoom", "&Zoom", "&Zoom", "Zoom", "Zoom" }, ;
   { "Page zoom", "Página ampliada con zoom", "zoom de la page", "zoom da página", "Seite Zoom", "Zoom della pagina" }, ;
   { "&Normal", "&Normal", "&Normal", "&Normal", "Normal", "Normale" }, ;
   { "Page unzoom", "Página normal", "Page normale", "Página normal", "Seite unzoom", "Pagina eliminare lo zoom" }, ;
   { "&Factor", "&Factor", "&Facteur", "&Fator", "Factor", "Fattore" }, ;
   { "Zoom factor", "Factor de zoom", "Facteur de Zoom", "Fator de zoom", "Zoom-Faktor", "Fattore di zoom" }, ;
   { "Factor", "Factor", "Facteur", "Fator", "Factor", "Fattore" }, ;
   { "&Two pages", "&Dos páginas", "&Deux pages", "&Duas páginas", "Zwei Seiten", "Due pagine" }, ;
   { "Preview on two pages", "Previsualización en dos páginas", "Visualiser sur deux pages", ;
     "Previsualização em duas páginas", "Vorschau auf zwei Seiten", "Anteprima su due pagine" }, ;
   { "One &page", "Una &página", "une &page", "Uma pá&gina", "Eine Seite", "Una pagina" }, ;
   { "Preview on one page", "Previsualización en una página", "Visualiser sur une page", ;
     "Previsualização em uma página", "Vorschau auf einer Seite", "Anteprima di una pagina" }, ;
   { "Page number:", "Número de página:", "Numéro de la Page:", "Número de página:", "Seitenzahl:", "Numero di pagina:" }, ;
   { "Go to first page", "Ir a la primera página", "Aller à la première page", "Ir para a primeira página", "Zur ersten Seite", "Vai alla prima pagina" }, ;
   { "First", "Primera", "Première", "Primeira", "Zuerst", "Prima" }, ;
   { "&Page", "&Página", "&Page", "Pá&gina", "Seite", "Pagina" }, ;
   { "Preview on one page", "Previsualización en una página", "Visualiser sur une page", "Previsualização em uma página", "Vorschau auf einer Seite", "Anteprima di una pagina" }, ;
   { "Previous", "Anterior", "Précédente", "Anterior", "Zurück", "Precedente" }, ;
   { "Next", "Siguiente", "Suivante", "Próxima", "Weiter", "Successiva" }, ;
   { "Last", "Ultima", "Dernière", "Última", "Last", "Ultimo" }, ;
   { "Zoom", "Aumentar", "Zoom", "Aumentar", "Zoom", "Zoom" }, ;
   { "Two pages", "Dos páginas", "Deux pages", "Duas páginas", "Zwei Seiten", "Due pagine" }, ;
   { "Print", "Imprimir", "Imprimer", "Imprimir", "Print", "Stampa" }, ;
   { "Save to DOC/PDF", "Guardar como DOC/PDF", "Enregistrer Format DOC/PDF", "Salvar como DOC/PDF", ;
     "Zu den DOC / PDF", "Salva per DOC / PDF" }, ;
   { "DOC Format", "Formato DOC", "Format DOC", "Formato DOC", "DOC-Format", "DOC Formato" }, ;
   { "PDF Format", "Formato PDF", "Format PDF", "Formato PDF", "PDF-Format", "Formato PDF" }, ;
   { "Export to PDF", "Exportar a PDF", "Exporter en PDF", "Exportar para PDF", "Export nach PDF", ;
     "Esportazione in formato PDF" }, ;
   { "Send by email as PDF", "Enviar por email como PDF", "Evnoi par email format PDF", "Enviar PDF por email", ;
     "Senden Sie per E-Mail als PDF", "Invia per e-mail in formato PDF" }, ;
   { "Export to MS Word", "Exportar a MS Word", "Exporter vers MS Word", "Exportar para MS Word", ;
     "Export nach MS Word", "Esporta in MS Word" }, ;
   { "Export to Excel", "Exportar a Excel", "Exporter vers Excel", "Exportar para Excel", "Excel-Export", ;
     "Esporta in Excel" }, ;
   { "Exit", "Salir", "Quitter", "Sair", "Exit", "Exit" }, ;
   { "Preview", "Previsualización", "Visualisation", "Previsualização", "Vorschau", "Anteprima" }, ;
   { "Save as", "Guardar como", "Enregistrer Sous", "Salvar como", "Speichern unter", "Salva con nome" }, ;
   { "Printing", "Imprimiendo", "Impression", "Imprimindo", "Druck", "Stampa" }, ;
   { "&Ok", "&Aceptar", "&OK", "C&onfirmar", "Ok", "Ok" }, ;
   { "&Cancel", "&Cancelar", "&Annuler", "&Cancelar", "Abbrechen", "Annulla" }, ;
   { "Printing range", "Rango de impresión", "Portée Impression", "Intervalo de impressão", "Druckbereich", ;
     "Gamma di stampa" }, ;
   { "All", "Todo", "Toutes", "Todo", "Alle", "Tutto" }, ;
   { "Current page", "Página actual", "Page en cours", "Página atual", "Diese Seite", "La pagina corrente" }, ;
   { "Pages", "Páginas", "Pages", "Páginas", "Seiten", "Pagine" }, ;
   { "From", "Desde", "De", "De", "Aus", "Da" }, ;
   { "To", "Hasta", "A", "Até", "Um", "A" }, ;
   { "Undo", "Deshacer", "Annuler", "desfazer", "Rückgängig", "Undo" }, ;
   { "Redo", "Rehacer", "Rétablir", "refazer", "Redo", "Redo" }, ;
   { "Cut", "Cortar", "couper", "Corte", "Schneiden", "Tagliare" }, ;
   { "Copy", "Copiar", "Copier", "cópia", "Kopieren", "Copia" }, ;
   { "Paste", "Pegar", "coller", "colar", "Einfügen", "Incolla" }, ;
   { "Delete", "Eliminar", "Supprimer", "excluir", "Löschen", "Elimina" }, ;
   { "Font", "Fuente", "Police", "Font", "Shrift", "Carattere" }, ;
   { "Print", "Imprimir", "Imprimer", "Imprimir", "Print", "Stampa" }, ;
   { "Select All", "Seleccionar Todo", "Sélectionner Tout", "Selecionar tudo", "Alle Auswählen", "Seleziona Tutto" }, ;
   { "Align", "Alinear", "Aligner", "alinhar", "Ausrichten", "Allineare" }, ;
   { "Left", "Izquierda", "Gauche", "à esquerda", "Linke", "Sinistra" }, ;
   { "New", "Nuevo", "nouveau", "novo", "neue", "nuovo" }, ;
   { "ADO open", "ADO abrir", "ADO ouvrir", "ADO abrir", "ADO öffnen", "ADO aprire" }, ;
   { "Open", "Abrir", "ouvrir", "Abrir", "öffnen", "Aprire" }, ;
   { "Center", "Centro", "Centrer", "center", "Center", "Centro" }, ;
   { "Right", "Derecha", "Droite", "certo", "Richtig", "Giusto" }, ;
   { "Justify", "Justificar", "Justifier", "justificar", "Rechtfertigen", "Giustificare" }, ;
   { "Attention", "¡Atención", "Attention", "Atenção", "Achtung", "Attenzione" }, ;
   { "Information", "Información", "Informations", "Informações", "Informazioni" }, ;
   { "Wrong predefined cursor type!", "Wrong tipo de cursor predefinido!", "Mauvais catégorie de curseur prédéfini!" }, ;
   { "Errado tipo cursor predefinido!", "Falsche vordefinierten Cursor-Typ!", "Sbagliato predefinito tipo di cursore!" }, ;
   { "Want to end ?", "¿ Desea terminar ?", "Veulent mettre fin ? ", "Quer acabar ?", "Beenden möchten ?", "voglio finire ?" },;
   { "Recent files", "Ficheros recientes" },;
   { "Open this file", "Abrir este fichero" },;
   { "Recent ADO connections", "Conexiones ADO recientes" },;
   { "Recent ADO connections strings", "Cadenas de conexión ADO recientes" },;
   { "Connect to this ADO database", "Conectar a esta base de datos ADO" },;
   { "Preferences", "Preferencias" },;
   { "Natural order", "Orden natural" },;
   { "Add", "Añadir" },;
   { "Edit", "Editar" },;
   { "Del", "Borrar" },;
   { "Top", "Inicio" },;
   { "Bottom", "Final" },;
   { "Search", "Buscar" },;
   { "Index", "Orden" },;
   { "Filter", "Filtro" },;
   { "Relations", "Relaciones" },;
   { "Process", "Proceso" },;
   { "Struct", "Estructura" },;
   { "Imp/Exp", "Imp/Exp" },;
   { "Report", "Reporte" },;
   { "FileName", "Nombre del fichero" },;
   { "NON DELETED", "NO BORRADO" },;
   { "nondeleted", "No borrado" },;
   { "Ordered by", "Ordenado por" },;
   { "Natural order", "Orden natural" },;
   { "Edit", "Editar" },;
   { "Save", "Guardar" },;
   { "Prev", "Anterior" },;
   { "Value", "Valor" },;
   { "Please select a DBF", "Por favor seleccione una DBF" },;
   { "(Y/N)", "(S/N)" },;
   { "Index builder", "Constructor de índices" },;
   { "Expression", "Expresión" },;
   { "Tag", "Tag" },;
   { "For", "Para" },;
   { "While", "Mientras" },;
   { "Unique", "Unico" },;
   { "Descending", "Descendente" },;
   { "Memory", "Memoria" },;
   { "Scope", "Ambito" },;
   { "Record", "Registro" },;
   { "Rest", "Restantes" },;
   { "Progress", "Progreso" },;
   { "Create", "Crear" },;
   { "fields", "campos" },;
   { "Name", "Nombre" },;
   { "Type", "Tipo" },;
   { "Len", "Lon" },;
   { "Dec", "Dec" },;
   { "Code", "Código" },;
   { "Indexes of ", "Indices de " },;
   { "Order", "Orden" },;
   { "TagName", "NombreTag" },;
   { "BagName", "NombreBag" },;
   { "BagExt", "ExtBag" },;
   { "Incremental", "Incremental" },;
   { "Key", "Clave" },;
   { "Help", "Ayuda" },;
   { "Import/Export for ", "Importar/Exportar para " },;
   { "PDF files | *.pdf |", "ficheros PDF | *.pdf |" },;
   { "Select PDF File to Save", "Seleccione el fichero PDF a guardar" },;
   { "Alert", "Alerta" },;
   { "Select an option", "Seleccione una opción" },;
   { "Window", "Ventana" },;
   { "Tile Vertical", "Distribución vertical" },;
   { "Vertical arranges the windows as nonoverlapping tiles", "Organiza las ventanas verticalmente" },;
   { "Tile Horizontal", "Distribución horizontal" },;
   { "Horizontal arranges the windows as nonoverlapping tiles", "Organiza las ventanas horizontalmente" },;
   { "Cascade", "Cascada" },;
   { "Arranges the windows so they overlap", "Organiza las ventanas para que no se oculten" },;
   { "Next Window", "Próxima ventana" },;
   { "Selects the next window", "Selecciona la próxima ventana" },;
   { "Arrange Icons", "Organiza los iconos" },;
   { "Arrange icons at the bottom of the window", "Organiza los iconos al final de la ventana" },;
   { "Iconize All", "Iconiza todas" },;
   { "Iconize all open windows", "Iconiza todas las ventanas abiertas" },;
   { "Close All", "Cierra todas" },;
   { "Close all open windows", "Cierra todas las ventanas abiertas" },;
   { "Contents", "Contenidos" },;
   { "Show the help contents", "Muestra los contenidos de la ayuda" },;
   { "Search for Help on...", "Busca en la ayuda por..." },;
   { "Search the help for a specific item", "Busca la ayuda para un item específico" },;
   { "Using help", "Usando la ayuda" },;
   { "Show the help index", "Muestra el índice de la ayuda" },;
   { "About...", "Acerca de..." },;
   { "Displays program information and copyright", "Muestra información y derechos de copia del programa" },;
   { "Default RDD", "RDD por defecto" },;
   { "Open in shared mode", "Abrir en modo compartido" },;
   { "No Help file defined with SetHelpFile()", "No se ha definido un fichero de ayuda usando SetHelpFile()" },;
   { "Want to delete this record ?", "¿ Desea eliminar este registro ?" },;
   { "Expression builder", "Constructor de expresiones" },;
   { "Operators", "Operadores" },;
   { "Functions", "Funciones" },;
   { "Relations of", "Relaciones de" },;
   { "Rel.", "Rel." },;
   { "Child Alias", "Alias del hijo" },;
   { "Additive", "Aditivo" },;
   { "Scoped", "Con ámbito" },;
   { "Processes", "Procesos" },;
   { "Run", "Correr" },;
   { "DELETED", "BORRADO" },;
   { "Record updated", "Registro actualizado" },;
   { "DBF builder", "Constructor de DBF" },;
   { "Field Name", "Nombre campo" },;
   { "FieldName", "Nombre campo" },;
   { "Move Up", "Mover arriba" },;
   { "Move Down", "Mover abajo" },;
   { "DBF Name:", "Nombre DBF:" },;
   { "Language", "Lenguaje" },;
   { "English", "Inglés" },;
   { "Spanish", "Español" },;
   { "French", "Frances" },;
   { "German", "Alemán" },;
   { "Portuguese", "Portugues" },;
   { "Italian", "Italiano" },;
   { "Databases", "Bases de datos" },;
   { "Query", "Consulta" },;
   { "Query builder", "Construtor de consultas" },;
   { "Operation", "Operación" },;
   { "Equal", "Igual" },;
   { "Diferent", "Diferente" },;
   { "Like", "Como" },;
   { "Equal", "Igual" } }
 

[Antonio Linares]

Enhanced version that automatically opens Access MDB files:
https://code.google.com/p/fivewin-contributions/downloads/detail?name=fivedbu_20130824_5.zip

Full source code included

[ADutheil]

I got na error changing to portuguese with fivedbu_20130824_5

Application
===========
Path and name: E:\dbu\fivedbu.exe (32 bits)
Size: 5,495,296 bytes
Compiler version: Harbour 3.2.0dev (r1306132159)
FiveWin Version: FWH 13.07
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 19 secs
Error occurred at: 24/08/2013, 15:44:44
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 5

Stack Calls
===========
Called from: .\source\function\STRINGS.PRG => FWSTRING( 272 )
Called from: C:\fwteam\samples\fivedbu.prg => BUILDMENU( 109 )
Called from: C:\fwteam\samples\fivedbu.prg => (b)PREFERENCES( 1463 )
Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:CHANGE( 420 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1698 )
Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:HANDLEEVENT( 686 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 )
Called from: => SENDMESSAGE( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 410 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 892 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 274 )
Called from: C:\fwteam\samples\fivedbu.prg => PREFERENCES( 1470 )
Called from: C:\fwteam\samples\fivedbu.prg => (b)BUILDMENU( 139 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 463 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1043 )
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 256 )
Called from: => TMDIFRAME:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 996 )
Called from: C:\fwteam\samples\fivedbu.prg => MAIN( 59 )

[Antonio Linares]

André,

The portuguese translations are not available yet in strings.prg:

viewtopic.php?p=150313#p150313

[Silvio.Falconi]

Antonio,
Can you insert a xbrowse table where the final user can edit the lang strings just an idea !!!!

[Silvio.Falconi]

Error when I select Italian lang last version xxxxx.25

Code: Select all  Expand view

Application
===========
   Path and name: C:\Users\Silvio\Downloads\fivedbu_20130825\fivedbu.exe (32 bits)
   Size: 5,513,216 bytes
   Compiler version: Harbour 3.2.0dev (r1306132159)
   FiveWin  Version: FWH 13.07
   Windows version: 6.1, Build 7600

   Time from start: 0 hours 0 mins 11 secs
   Error occurred at: 25/08/2013, 11:55:25
   Error description: Error BASE/1132  Bound error: array access
   Args:
     [   1] = A   { ... }
     [   2] = N   6

Stack Calls
===========
   Called from: .\source\function\STRINGS.PRG => FWSTRING( 279 )
   Called from: C:\fwteam\samples\fivedbu.prg => BUILDMENU( 109 )
   Called from: C:\fwteam\samples\fivedbu.prg => (b)PREFERENCES( 1579 )
   Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:CHANGE( 420 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1698 )
   Called from: .\source\classes\COMBOBOX.PRG => TCOMBOBOX:HANDLEEVENT( 686 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 )
   Called from:  => SENDMESSAGE( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 410 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 892 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 274 )
   Called from: C:\fwteam\samples\fivedbu.prg => PREFERENCES( 1586 )
   Called from: C:\fwteam\samples\fivedbu.prg => (b)BUILDMENU( 139 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 463 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1043 )
   Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 256 )
   Called from:  => TMDIFRAME:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 996 )
   Called from: C:\fwteam\samples\fivedbu.prg => MAIN( 59 )
 

[Antonio Linares]

Silvio,

Italian translations are missing in strings.prg

Please fill them, post them here and you will have italian support, thanks

[cnavarro]

Maybe with this modification to avoid those mistakes until the list is complete

Quizas con esta modificacion se eviten esos errores hasta que la lista este completa

Code: Select all  Expand view

function FWString( cString )

   local nAt

   if LanguageID() == 1
      return cString
   else
      if ( nAt := AScan( aStrings, { | aString | Upper( aString[ 1 ] ) == Upper( cString ) } ) ) != 0
         if Len( aStrings[ nAt ] ) >= LanguageID()
            return IfNil( aStrings[ nAt ][ LanguageID() ], cString )
         endif
      else
         if '&' $ cString
            cString  := StrTran( cString, '&', '' )
            if ( nAt := AScan( aStrings, { | aString | Upper( aString[ 1 ] ) == Upper( cString ) } ) ) != 0
               if Len( aStrings[ nAt ] ) >= LanguageID()              
                  return '&' + IfNil( aStrings[ nAt ][ LanguageID() ], cString )
               endif
            endif
         endif
      endif
      MsgInfo( 'The string: "' + cString + '"' + CRLF + ;
               "defined from: " + ProcName( 1 ) + " line " + ;
               AllTrim( Str( ProcLine( 1 ) ) ) + " in " + ProcFile( 1 ) + CRLF + ;
               "is not defined in FWH strings" + CRLF + ;
               "Please add it to FWH\source\function\strings.prg" )
      AAdd( aMissing, cString )
   endif

return cString