Ok.
Attached is my humble contribution to grid2print.
I've translated interface messages to Spanish and added a 'Do Case' structure, similar to the others in HMG to suppor multiple languages automatically.
We need now the collaboration of users of native languages other than English.
Code: Select all
Local cLang
cLang := Set ( _SET_LANGUAGE )
// LANGUAGES NOT SUPPORTED BY hb_langSelect() FUNCTION.
IF _HMG_SYSDATA [ 211 ] == 'FI' // FINNISH
cLang := 'FI'
ELSEIF _HMG_SYSDATA [ 211 ] == 'NL' // DUTCH
cLang := 'NL'
ENDIF
do case
case cLang == "TRWIN" .OR. cLang == "TR"
////////////////////////////////////////////////////////////
// TÜRKÇE
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "CS" .OR. cLang == "CSWIN"
/////////////////////////////////////////////////////////////
// CZECH
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "HR852"
/////////////////////////////////////////////////////////////
// CROATIAN
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "EU"
/////////////////////////////////////////////////////////////
// BASQUE
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "EN"
/////////////////////////////////////////////////////////////
// ENGLISH
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "FR"
/////////////////////////////////////////////////////////////
// FRENCH
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "DEWIN" .OR. cLang == "DE"
/////////////////////////////////////////////////////////////
// GERMAN
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "IT"
/////////////////////////////////////////////////////////////
// ITALIAN
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "PLWIN" .OR. cLang == "PL852" .OR. cLang == "PLISO" .OR. cLang == "" .OR. cLang == "PLMAZ"
/////////////////////////////////////////////////////////////
// POLISH
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "PT"
/////////////////////////////////////////////////////////////
// PORTUGUESE
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "RUWIN" .OR. cLang == "RU866" .OR. cLang == "RUKOI8"
/////////////////////////////////////////////////////////////
// RUSSIAN
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "ES" .OR. cLang == "ESWIN"
/////////////////////////////////////////////////////////////
// SPANISH
////////////////////////////////////////////////////////////
private msgarr := {"Nada para imprimir",;
"No hay impresoras instaladas!",;
"Asistente de Impresión",;
"Generador de Reportes",;
"Columnas",;
"Nombre de la columna",;
"Ancho (mm)",;
"Doble clic en una columna para seleccionar o deselecionarla para impresión",;
"Editar tamaño del texto de columna",;
"Ancho Total :",;
"out of",;
"Encabezado 1",;
"Encabezado 2",;
"Encabezado 3",;
"Pie de Página 1",;
"Propiedades del Reporte",;
"Tamaño de Fuente",;
"Línea larga",;
"Ajuste de Línea",;
"Truncar",;
"Paginación",;
"Apagado",;
"Superior",;
"Inferior",;
"Líneas de Grilla",;
"Columna",;
"Fila",;
"Centrado de Página",;
"Vertical",;
"Página/Impresora",;
"Orientación",;
"Horizontal",;
"Vertical",;
"Impresora: ",;
"Tamaño de Página",;
"Ancho de Página",;
"Altura de Página",;
"Márgenes (mm)",;
"Superior",;
"Derecho",;
"Izquierdo",;
"Inferior",;
"Imprimir",;
"Cancelar",;
"Bienvenido al asistente de Impresión",;
"Ha seleccionado más columnas de las que entran en una página!",;
"You have to select a printer!",;
"La impresora no puede ser seleccionada! Verifique la disponibilidad de la impresora.",;
"Página Nro. :",;
"Tamaño :",;
"Hecho",;
"EL tamaño de las columnas que no sean del tipo texto no pueden modificarse!",;
"Constantes de justificación no dadas apropiadamente.",;
}
case cLang == "FI"
///////////////////////////////////////////////////////////////////////
// FINNISH
///////////////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "NL"
/////////////////////////////////////////////////////////////
// DUTCH
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
case cLang == "SLWIN" .OR. cLang == "SLISO" .OR. cLang == "SL852" .OR. cLang == "" .OR. cLang == "SL437"
/////////////////////////////////////////////////////////////
// SLOVENIAN
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
OtherWise
/////////////////////////////////////////////////////////////
// DEFAULT (ENGLISH)
////////////////////////////////////////////////////////////
private msgarr := {"Nothing to print",;
"No printers have been installed!",;
"Print Wizard",;
"Report Writer",;
"Columns",;
"Name of the Column",;
"Width (mm)",;
"Double Click a Column to toggle between selecting and not selecting for printing.",;
"Edit Text Column Size",;
"Total Width :",;
"out of",;
"Header 1",;
"Header 2",;
"Header 3",;
"Footer 1",;
"Report Properties",;
"Font Size",;
"Lengthy Line",;
"Word Wrap",;
"Truncate",;
"Pagination",;
"Off",;
"Top",;
"Bottom",;
"Grid Lines",;
"Column",;
"Row",;
"Page Center",;
"Vertical",;
"Page/Printer",;
"Orientation",;
"Landscape",;
"Portrait",;
"Printer: ",;
"Page Size",;
"Page Width",;
"Page Height",;
"Margins (mm)",;
"Top",;
"Right",;
"Left",;
"Bottom",;
"Print",;
"Cancel",;
"Welcome to Print Wizard",;
"You had selected more columns than to fit in a page!",;
"You have to select a printer!",;
"Printer could not be selected! Check Availability of Printer.",;
"Page No. :",;
"Size :",;
"Done",;
"Size of Columns other than text type can not be modified!",;
"Justification constants not given properly.",;
}
endcase
Roberto.