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

* added missing macros from lclextensions

Browse Source 
git-svn-id: trunk@23477 -
This commit is contained in:
marc 2010-01-17 18:16:51 +00:00
parent 34643c673a
commit 6ed617ebe2
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/lclintf.pas
View File

@ -64,9 +64,15 @@ uses
// All interface communication (Our additions)
{$I lclintfh.inc}
//-------------------------
// Some MACROs
//-------------------------
function MakeLong(A,B: Word): LongInt; inline;
function MakeWord(A,B: Byte): Word; inline;
function MakeRop4(fore,back: DWORD): DWORD; inline;
function IndexToOverlayMask(iOverlay: UINT): UINT; inline;
function MakeLong(A,B : Word) : LongInt; inline;
function MakeWord(A,B : Byte) : Word; inline;
//-------------------------
function PredefinedClipboardFormat(
AFormat: TPredefinedClipboardFormat): TClipboardFormat;
@ -190,10 +196,20 @@ begin
end;
function MakeWord(A,B : Byte) : Word; inline;
Begin
begin
Result := A or B shl 8;
end;
function MakeRop4(fore,back: DWORD): DWORD; inline;
begin
Result := ((back shl 8) and $FF000000) or fore;
end;
function IndexToOverlayMask(iOverlay: UINT): UINT; inline;
begin
Result := iOverlay shl 8;
end;
function PredefinedClipboardFormat(AFormat: TPredefinedClipboardFormat
): TClipboardFormat;
begin