paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:30:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

double byte char font started

Browse Source 
git-svn-id: trunk@3687 -
This commit is contained in:
mattias 2002-12-05 22:16:28 +00:00
parent 902c93f9c3
commit 801656d902
2 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/syntextdrawer.pp
View File

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

6
lcl/lcltype.pp
View File

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