Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TEGL6B.ZIP/INTROPAK.EXE/FRAME3.PAS

Pascal/Delphi Source File | 1991-07-16 | 398 b | 24 lines

{-- frame3.pas}
{$F+}

USES teglunit,teglmain;

VAR ifs : ImageStkPtr;

function cancelevent(frame: ImageStkPtr; mouse: MsClickPtr): Word;
  BEGIN
    dropstackimage(ifs);
  END;

BEGIN
  easytegl;
  easyout;
  PushImage(50,50,200,150);
  ShadowBox(50,50,200,150);
  ifs := StackPtr;
  DefineSquareButtonText(ifs,0,0,80,30,5,5,'CANCEL',cancelevent);
  TeglSupervisor;
END.