paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:22:54 +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

20
lcl/lclintf.pas
View File

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