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

Text File | 1994-07-25 | 780 b | 31 lines

{$if not def INTUITION_IMAGECLASS_MACROS_H} CONST INTUITION_IMAGECLASS_MARCOS_H=0;

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

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

function GADGET_BOX(g:p_Gadget):p_IBox;
begin
 GADGET_BOX:=ptr(^g^.LeftEdge);
end;

function IM_BOX(im:p_Image):p_IBox;
begin
 IM_BOX:=ptr(^im^.LeftEdge);
end;

function IM_FGPEN(im:p_Image):Byte;
begin
 IM_FGPEN:=im^.PlanePick;
end;

function IM_BGPEN(im:p_Image):Byte;
begin
 IM_BGPEN:=im^.PlaneOnOff;
end;

{$endif}