From 801656d90263e99828b035da8db721ef993f5cc3 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 5 Dec 2002 22:16:28 +0000
Subject: [PATCH] double byte char font started

git-svn-id: trunk@3687 -
---
 components/synedit/syntextdrawer.pp | 9 ---------
 lcl/lcltype.pp                      | 6 ++++--
 2 files changed, 4 insertions(+), 11 deletions(-)

diff --git a/components/synedit/syntextdrawer.pp b/components/synedit/syntextdrawer.pp
index 780f45ed06..bec395e225 100644
--- a/components/synedit/syntextdrawer.pp
+++ b/components/synedit/syntextdrawer.pp
@@ -416,12 +416,7 @@ begin
       // find out whether the font `IsDBCSFont'
       DC := GetDC(0);
       hOldFont := SelectObject(DC, ABaseFont.Handle);
-      {$IFDEF SYN_LAZARUS}
-      // ToDo Font  DBCS double byte char set
-      IsDBCSFont:=false;
-      {$ELSE}
       IsDBCSFont := (0 <> (GCP_DBCS and GetFontLanguageInfo(DC)));
-      {$ENDIF}
       SelectObject(DC, hOldFont);
       ReleaseDC(0, DC);
     except
@@ -1303,12 +1298,8 @@ var
   c: Char;
 begin
   for c := Low(Char) to High(Char) do
-    {$IFNDEF SYN_LAZARUS}
     if IsDBCSLeadByte(Byte(c)) then
       Include(LeadBytes, c);
-    {$ELSE}
-    // ToDo  DBCS double byte char set
-    {$ENDIF}
 end;
 {$ENDIF} // HE_LEADBYTES
 
diff --git a/lcl/lcltype.pp b/lcl/lcltype.pp
index 250a5966b3..d06d36ae9d 100644
--- a/lcl/lcltype.pp
+++ b/lcl/lcltype.pp
@@ -118,7 +118,6 @@ type
 
 
 const
-
   ETO_OPAQUE = 2;
   ETO_CLIPPED = 4;
 
@@ -1406,7 +1405,7 @@ type
   PTextMetricW = ^TTextMetricW;
   PTextMetric = PTextMetricA;
 
-  tagTEXTMETRICA = record
+  tagTextMetricA = record
     tmHeight: Longint;
     tmAscent: Longint;
     tmDescent: Longint;
@@ -1681,6 +1680,9 @@ end.
 
 {
   $Log$
+  Revision 1.27  2002/12/05 22:16:28  mattias
+  double byte char font started
+
   Revision 1.26  2002/11/23 13:48:43  mattias
   added Timer patch from Vincent Snijders