{ (c) 1998 CREEQ <creeq@web.de> }
program Button_Test;
uses Crt, Mouse, Graph, MyGfx;
var graphmode, graphdriver : integer;
    beenden, weiter        : button;
begin
  graphdriver := VGA;
  graphmode := VGAHi;
  initgraph(Graphdriver,Graphmode,'C:\TP\BIN');
  mouse.on;
  beenden.Init(450,430,600,450,LIGHTGRAY,'Beenden',FALSE);
  weiter.Init(40,430,190,450,LIGHTGRAY,'Weiter',FALSE);
  beenden.paint;
  weiter.paint;
  repeat
    while not (weiter.Posmouse) do
      if (Mouse.Key=LEFTBUTTON) and (beenden.PosMouse) then begin; beenden.ShortPush(200); closegraph; halt(0); end;
    while not (beenden.Posmouse) do
      if (Mouse.Key=LEFTBUTTON) and (weiter.PosMouse) then weiter.ShortPush(200);
  until false;
  closegraph;
end.