* textmetricA variants, delphi compat.

git-svn-id: trunk@15779 -

rtl/win/wininc/struct.inc

@@ -5041,6 +5041,11 @@ Const
      tagTEXTMETRIC = TEXTMETRIC;
      TTEXTMETRIC = TEXTMETRIC;
      PTEXTMETRIC = ^TEXTMETRIC;
+     TEXTMETRICA   = TEXTMETRIC;
+     LPTEXTMETRICA = ^TEXTMETRICA;
+     tagTEXTMETRICA = TEXTMETRICA;
+     TTEXTMETRICA = TEXTMETRICA;
+     PTEXTMETRICA = ^TEXTMETRICA;
 
      TEXTMETRICW = record
           tmHeight : LONG;