From 6ed617ebe2e92c52dfbb47110bef54ae2c2beba6 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Sun, 17 Jan 2010 18:16:51 +0000
Subject: [PATCH] * added missing macros from lclextensions

git-svn-id: trunk@23477 -
---
 lcl/lclintf.pas | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/lcl/lclintf.pas b/lcl/lclintf.pas
index 9016be8812..ad2e3b5668 100644
--- a/lcl/lclintf.pas
+++ b/lcl/lclintf.pas
@@ -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