Amiga ISO Collection/AmigaUtilCD2.iso/Programming/Pascal/MAXONPASCAL2.DMS/in.adf/INCLUDE/intuition/intuition_Functions.h

Text File | 1994-07-25 | 1.4 KB | 71 lines

{$if not def INTUITION_INTUITION_MACROS_H} CONST INTUITION_INTUITION_MARCOS_H=0;

{ ***********************************************************************
  ** KickPascal-Include-Datei "intuition/intuition.h" zu Kickstart 3.0 **
  ** Ergänzung der MACROs als Pascal FUNCTIONen                  by JS **
  *********************************************************************** }

{$if not def INTUITION_INTUITION_H;incl "intuition/intuition.h";endif}

function MENUNUM(n:Integer):Integer;
begin
 MENUNUM:=n and $1f;
end;

function ITEMNUM(n:Integer):Integer;
begin
 ITEMNUM:=(n shr 5)and $3f;
end;

function SUBNUM(n:Integer):Integer;
begin
 SUBNUM:=(n shr 11) and $1f;
end;

function SHIFTMENU(n:Integer):Integer;
begin
 SHIFTMENU:=n and $1f;
end;

function SHIFTITEM(n:Integer):Integer;
begin
 SHIFTITEM:=(n and $4f) shl 5;
end;

function SHIFTSUB(n:Integer):Integer;
begin
 SHIFTSUB:=(n and $1f) shl 11;
end;

function FULLMENUNUM(menu,item,sub:Integer):Integer;
begin
 FULLMENUNUM:=SHIFTSUB(sub) or SHIFTITEM(item) or SHIFTMENU(menu);
end;

function SRBNUM(n:Integer):Integer;
begin
 SRBNUM:=$08-(n shr 4);
end;

function SWBNUM(n:Integer):Integer;
begin
 SWBNUM:=$08-(n and $0f);
end;

function SSBNUM(n:Integer):Integer;
begin
 SSBNUM:=$01+(n shr 4);
end;

function SPARNUM(n:Integer):Integer;
begin
 SPARNUM:=n shr 4;
end;

function SHAKNUM(n:Integer):Integer;
begin
 SHAKNUM:=n and $0f;
end;

{$endif}