From c02f4896d83ca2a5404903e7c91be562ddd4dd12 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 30 Dec 2012 09:20:58 +0000
Subject: [PATCH] Ignore TFont when translating main form, so "Default" does
 not get broken, for XP users. Fixes issue #3064.

---
 source/main.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/source/main.pas b/source/main.pas
index 44f2fe8e..f3ac277d 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1330,6 +1330,11 @@ var
 begin
   caption := APPNAME;
 
+  // First time translation via dxgettext.
+  // Issue #3064: Ignore TFont, so "Default" on mainform for WinXP users does not get broken.
+  // Issue #557: Apply images *after* translating main menu, so top items don't get unused
+  // space left besides them.
+  TP_GlobalIgnoreClass(TFont);
   TranslateComponent(Self);
   MainMenu1.Images := ImageListMain;