WhiteUnicorn

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

Frequently Asked Questions

Defining PRIMARYLANGID(), SUBLANGID(), and MAKELANGID() macros

Question:

How can I define the PRIMARYLANGID(), SUBLANGID() and MAKELANGID() macros that are used with the Windows API functions that accept language identifiers?

Answer:

The follow example demonstrates functional equivalents for the
PRIMARYLANGID(), SUBLANGID(), and MAKELANGID() macros.

function PRIMARYLANGID(lgid : Word) : LongInt;
begin
  result := lgid and $3FF;
end;

function SUBLANGID(lgid : Word) : LongInt;
begin
  result := lgid shr 10;
end;

function MAKELANGID(sPrimaryLanguage : Word;
                    sSubLanguage : Word) : Word;
begin
  result := (sSubLanguage shl 10) or
             sPrimaryLanguage;
end;

	#WhiteUnicorn/ StartPage/ Documentation/DelphiFAQ >

	Anastasija aka WhiteUnicorn	LiveJournal PhotoFile