Recent

« previous next »
Pages: [1]

Author Topic: [ SOLVED ] Fortes Report Language  (Read 2959 times)

superc

  • Sr. Member
  • ****
  • Posts: 251
[ SOLVED ] Fortes Report Language
« on: August 16, 2021, 03:40:06 pm »
Hello,

I've  a problem with traduction with Fortes Report in many point: for an example how can modify traduction in this form during generation of pdf?



Thanks in advance.
« Last Edit: August 17, 2021, 09:27:50 am by superc »
Logged

nouzi

  • Sr. Member
  • ****
  • Posts: 324
Re: Fortes Report Language
« Reply #1 on: August 16, 2021, 04:54:30 pm »
French
Logged
My English is  bad
Lazarus last version free pascal last version
Lazarus trunk  free pascal trunk 
System : Linux mint  64bit  Windows 7 64bit

superc

  • Sr. Member
  • ****
  • Posts: 251
Re: Fortes Report Language
« Reply #2 on: August 16, 2021, 04:57:56 pm »
Quote from: nouzi on August 16, 2021, 04:54:30 pm
French


yes, I had noticed it; how do i change language?
Logged

Jurassic Pork

  • Hero Member
  • *****
  • Posts: 1290
Re: Fortes Report Language
« Reply #3 on: August 17, 2021, 01:55:09 am »
hello,
1 - Annulli is cancel in italian ---> There is a mix of italian and french translations in the file rlconsts.pas :
example at the beginning of the translation :
Quote
procedure LoadFrenchStrings;
begin
  LS_PrintingInProgressStr:='Stampando in progresso...';
  LS_FilterInProgressStr  :='Rapporto che salva...';
  LS_PreparingReportStr   :='Rapporto che prepara...';
  LS_PrinterNotFoundStr   :='Stampante non fondato';
  LS_NoPathToPrinterStr   :='Percorso di stampante nullo';
  LS_LoadDefaultConfigStr :='Carico configurazione predefinita';
  LS_PrinterDriverErrorStr:='Errore di conducente di stampante';
  LS_PageStr              :='Pagina';
  LS_PrepareErrorStr      :='Errore mentre preparando rapporto';
  LS_PageBreakStr         :='Continua...'; // italian
  LS_PageMendStr          :='A suivre';
  LS_ReportEndStr         :='Fin';
  LS_FileNotFoundStr      :='Fichier non trouvé';
  LS_FileNameStr          :='Nom de Fichier';
// ...
procedure LoadItalianStrings;
begin
  LS_PrintingInProgressStr:='Impression du rapport...';
  LS_FilterInProgressStr  :='Sauver le rapport...';
  LS_PreparingReportStr   :='Préparation du rapport...';
  LS_PrinterNotFoundStr   :='Imprimante non trouvée';
  LS_NoPathToPrinterStr   :='Invalid printer path'; // english
  LS_LoadDefaultConfigStr :='Chargement de la configuration standard';
  LS_PrinterDriverErrorStr:='Erreur dans le driver d''impression';
  LS_PageStr              :='Page';
  LS_PrepareErrorStr      :='Erreur durant la prépartaion du rapport'; // french
  LS_PageBreakStr         :='Continua...';
  LS_PageMendStr          :='Continuazione';
  LS_ReportEndStr         :='Fine';
  LS_FileNotFoundStr      :='Archivio non fondò';
  LS_FileNameStr          :='Nome di file';
  LS_AllFileTypesStr      :='Tutti archiviano';
  LS_LoadReportStr        :='Rapporto di carico';
  LS_NotFoundStr          :='Non fondato';
  LS_WaitStr              :='Attesa...';
  LS_FinishedStr          :='Finito';
  LS_CancelStr            :='Annulli';
  LS_CloseStr             :='Vicino';
  LS_SaveStr              :='Salvataggio';
// ...

you are in the Italian language

2 - How is the language is detected and choosen --> it is in the same file :

Code: Pascal  [Select][+][-]
  1. procedure DetectLocale;
  2. {$ifdef LINUX}
  3. var
  4.   dlct:string;
  5. {$endif}
  6. begin
  7. {$ifdef LINUX}
  8.   dlct:=AnsiUpperCase(Copy(GetEnvironmentVariable('LANG'),1,2));
  9.   if dlct='PT' then
  10.     LoadPortugueseStrings
  11.   else if dlct='EN' then
  12.     LoadEnglishStrings
  13.   else if dlct='ES' then
  14.     LoadSpanishStrings
  15.   else if dlct='FR' then
  16.     LoadFrenchStrings
  17.   else if dlct='IT' then
  18.     LoadItalianStrings
  19.   else if dlct='SW' then
  20.     LoadSwedishStrings
  21.   else
  22.     LoadEnglishStrings;
  23. {$else}
  24.   case SysLocale.PriLangID of
  25.     $16 {LANG_PORTUGUESE}: LoadPortugueseStrings;
  26.     $09 {LANG_ENGLISH}   : LoadEnglishStrings;
  27.     $0a {LANG_SPANISH}   : LoadSpanishStrings;
  28.     $0c {LANG_FRENCH}    : LoadFrenchStrings;
  29.     $10 {LANG_ITALIAN}   : LoadItalianStrings;
  30.     $1d {LANG_SWEDISH}   : LoadSwedishStrings;
  31.   else
  32.     LoadEnglishStrings;
  33.   end;
  34. {$endif}
  35. end;
  36.  
  37. initialization
  38.   DetectLocale;
  39.  
  40. end.
  41.  

Friendly, J.P
Logged
Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

superc

  • Sr. Member
  • ****
  • Posts: 251
Re: Fortes Report Language
« Reply #4 on: August 17, 2021, 09:27:29 am »
Quote from: Jurassic Pork on August 17, 2021, 01:55:09 am
hello,
1 - Annulli is cancel in italian ---> There is a mix of italian and french translations in the file rlconsts.pas :
example at the beginning of the translation :
Quote
procedure LoadFrenchStrings;
begin
  LS_PrintingInProgressStr:='Stampando in progresso...';
  LS_FilterInProgressStr  :='Rapporto che salva...';
  LS_PreparingReportStr   :='Rapporto che prepara...';
  LS_PrinterNotFoundStr   :='Stampante non fondato';
  LS_NoPathToPrinterStr   :='Percorso di stampante nullo';
  LS_LoadDefaultConfigStr :='Carico configurazione predefinita';
  LS_PrinterDriverErrorStr:='Errore di conducente di stampante';
  LS_PageStr              :='Pagina';
  LS_PrepareErrorStr      :='Errore mentre preparando rapporto';
  LS_PageBreakStr         :='Continua...'; // italian
  LS_PageMendStr          :='A suivre';
  LS_ReportEndStr         :='Fin';
  LS_FileNotFoundStr      :='Fichier non trouvé';
  LS_FileNameStr          :='Nom de Fichier';
// ...
procedure LoadItalianStrings;
begin
  LS_PrintingInProgressStr:='Impression du rapport...';
  LS_FilterInProgressStr  :='Sauver le rapport...';
  LS_PreparingReportStr   :='Préparation du rapport...';
  LS_PrinterNotFoundStr   :='Imprimante non trouvée';
  LS_NoPathToPrinterStr   :='Invalid printer path'; // english
  LS_LoadDefaultConfigStr :='Chargement de la configuration standard';
  LS_PrinterDriverErrorStr:='Erreur dans le driver d''impression';
  LS_PageStr              :='Page';
  LS_PrepareErrorStr      :='Erreur durant la prépartaion du rapport'; // french
  LS_PageBreakStr         :='Continua...';
  LS_PageMendStr          :='Continuazione';
  LS_ReportEndStr         :='Fine';
  LS_FileNotFoundStr      :='Archivio non fondò';
  LS_FileNameStr          :='Nome di file';
  LS_AllFileTypesStr      :='Tutti archiviano';
  LS_LoadReportStr        :='Rapporto di carico';
  LS_NotFoundStr          :='Non fondato';
  LS_WaitStr              :='Attesa...';
  LS_FinishedStr          :='Finito';
  LS_CancelStr            :='Annulli';
  LS_CloseStr             :='Vicino';
  LS_SaveStr              :='Salvataggio';
// ...

you are in the Italian language

2 - How is the language is detected and choosen --> it is in the same file :

Code: Pascal  [Select][+][-]
  1. procedure DetectLocale;
  2. {$ifdef LINUX}
  3. var
  4.   dlct:string;
  5. {$endif}
  6. begin
  7. {$ifdef LINUX}
  8.   dlct:=AnsiUpperCase(Copy(GetEnvironmentVariable('LANG'),1,2));
  9.   if dlct='PT' then
  10.     LoadPortugueseStrings
  11.   else if dlct='EN' then
  12.     LoadEnglishStrings
  13.   else if dlct='ES' then
  14.     LoadSpanishStrings
  15.   else if dlct='FR' then
  16.     LoadFrenchStrings
  17.   else if dlct='IT' then
  18.     LoadItalianStrings
  19.   else if dlct='SW' then
  20.     LoadSwedishStrings
  21.   else
  22.     LoadEnglishStrings;
  23. {$else}
  24.   case SysLocale.PriLangID of
  25.     $16 {LANG_PORTUGUESE}: LoadPortugueseStrings;
  26.     $09 {LANG_ENGLISH}   : LoadEnglishStrings;
  27.     $0a {LANG_SPANISH}   : LoadSpanishStrings;
  28.     $0c {LANG_FRENCH}    : LoadFrenchStrings;
  29.     $10 {LANG_ITALIAN}   : LoadItalianStrings;
  30.     $1d {LANG_SWEDISH}   : LoadSwedishStrings;
  31.   else
  32.     LoadEnglishStrings;
  33.   end;
  34. {$endif}
  35. end;
  36.  
  37. initialization
  38.   DetectLocale;
  39.  
  40. end.
  41.  

Friendly, J.P

It works!!!  Thank you very much


Logged
Pages: [1]
« previous next »
 

TinyPortal © 2005-2018