Ignore TFont when translating main form, so "Default" does not get broken, for XP users. Fixes issue #3064.

This commit is contained in:
Ansgar Becker
2012-12-30 09:20:58 +00:00
parent 9c6cd82798
commit c02f4896d8

View File

@@ -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;