Examples/Translation: Combine {$warnings off} with {$push} and {$pop}

git-svn-id: trunk@60230 -
2025-11-02 01:59:29 +01:00 · 2019-01-27 11:35:11 +00:00 · 2019-01-27 11:35:11 +00:00 · c6278a2e45
commit c6278a2e45
parent 23ebdb5faf
2 changed files with 2 additions and 1 deletions
--- a/examples/translation/localizedforms.pas
+++ b/examples/translation/localizedforms.pas
@ -159,9 +159,10 @@ begin
  LCID := GetLCIDFromLangCode(ALang);

  // Now we update the format settings to the new language
+ {$PUSH}
 {$WARNINGS OFF}
  GetLocaleFormatSettings(LCID, DefaultFormatSettings);
- {$WARNINGS ON}
+ {$POP}

  // We also store the code page that belongs to the new language. We'll need
  // that when converting FCL strings to UTF8.
--- a/examples/translation/translation_demo.res
+++ b/examples/translation/translation_demo.res