1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
|
program GVLOGO;
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, Forms, bgrabitmappack, richmemopackage, printer4lazarus, main,
FrmTurtle, GVAutomat, GVConsts, GVErrConsts, GVErrors, GVEval, GVKernel,
GVLists, GVLocVars, GVPrimConsts, GVPropLists, GVStacks, GVTurtles, GVWords,
GVHighlighter, FrmAbout, FrmError, FrmText, FrmEdit, FrmInfo, FrmProcs,
GVLogoConsts, FrmEditor, FrmFind, FrmpHelpPrims, FrmFollow, FrmDump, FrmVars,
FrmLocVars, FrmPcks, FrmNewProc, FrmOptions, FrmTurtleShow, FrmTextShow,
SysUtils, GetText, Translations; // <================ traduction française de la LCL
{$R *.res}
procedure TranslateLCL;
// *** traduction *** <================= procédure ajoutée
var
Lang, DefLang: string;
begin
Lang := EmptyStr;
DefLang := EmptyStr;
GetLanguageIDs({%H-}Lang, {%H-}DefLang);
// utilisation du fichier corrigé <=========================== je l'avais rangé dans un dossier spécial, car celui de Lazarus 1.2.6 était inexploitable
TranslateUnitResourceStrings('LCLStrConsts',
'..\3rdparty\lclstrconsts.fr.po', Lang, DefLang);
end;
begin
RequireDerivedFormResource := True; // <========= ligne ajoutée
TranslateLCL; // traduction // <============ traduction
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TTurtleForm, TurtleForm);
Application.CreateForm(TErrorForm, ErrorForm);
Application.CreateForm(TTextForm, TextForm);
Application.CreateForm(TEditForm, EditForm);
Application.CreateForm(TEditorForm, EditorForm);
Application.CreateForm(TFindForm, FindForm);
Application.CreateForm(TFollowForm, FollowForm);
Application.CreateForm(TDumpForm, DumpForm);
Application.CreateForm(TVarsForm, VarsForm);
Application.CreateForm(TLocVarsForm, LocVarsForm);
Application.CreateForm(TPcksForm, PcksForm);
Application.CreateForm(TOptionsForm, OptionsForm);
Application.CreateForm(TTurtleShowForm, TurtleShowForm);
Application.CreateForm(TTextShowForm, TextShowForm);
Application.Run;
end. |
Partager