home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tegl_ii / intro / animtst1.pas < prev    next >
Pascal/Delphi Source File  |  1991-08-12  |  2KB  |  84 lines
  1. {*********************************************************}
  2. {        TEGL Windows ToolKit II           }
  3. {      Copyright (C) 1990, TEGL Systems Corporation      }
  4. {         All Rights Reserved.              }
  5. {*********************************************************}
  6.  
  7. Uses
  8.     errorlog,
  9.     tgraph,
  10.     videochk,
  11.     virtmem,
  12.     teglintr,
  13.     animate,
  14.     TEGLmain,
  15.     TEGLMenu,
  16.     TEGLUnit,
  17.     fastgrph;
  18.  
  19. const
  20. {$I animtst1.inc}
  21.  
  22. var Oriental   : animateobject;
  23.     OrientalFS : imagestkptr;
  24.  
  25.  
  26. {$F+}
  27. function OrientalBow(Frame:imagestkptr; MouseClickPos: msclickptr) : word;
  28. {$F-}
  29.    begin
  30.       hideimage(Frame);
  31.  
  32.       hidemouse;
  33.       with Oriental do
  34.      begin
  35.         ResetFrame(1);
  36.         Animateinit;
  37.         origin(frame^.x,frame^.y);
  38.         animate(8);
  39.      end;
  40.  
  41.       showmouse;
  42.  
  43.       showimage(Frame,frame^.x,frame^.y);
  44.       OrientalBow := 1;
  45.    end;
  46.  
  47.  
  48. {$F+}
  49. function ExitOption(Frame:imagestkptr; MouseClickPos: msclickptr) : word;
  50. {$F-}
  51.    begin
  52.       abortexit('IconEdit Test Program - Test IconEdit PutPict.');
  53.    end;
  54.  
  55. begin
  56.    SetVideoChoices(TG_VGA,false);
  57.    EasyTEGL;
  58.  
  59.    with Oriental do
  60.       begin
  61.      init;
  62.      addframe(@imageChina,0,0,55,37,350,1200,55,black);
  63.      addframe(@imageChina,0,0,55,37,150,1200,56,black);
  64.  
  65.      addframe(@imageChina2,0,0,55,37,75,1100,55,black);
  66.      addframe(@imageChina2,0,0,55,37,75,1100,56,black);
  67.  
  68.      addframe(@imageChina3,0,0,55,37,150,900,55,black);
  69.      addframe(@imageChina3,0,0,55,37,150,900,56,black);
  70.      addframe(@imageChina3,0,0,55,37,600,1100,56,black);
  71.  
  72.      addframe(@imageChina2,0,0,55,37,150,1100,0,black);
  73.      addframe(@imageChina,0,0,55,37,500,1100,55,black);
  74.       end;
  75.  
  76.    pushimage(15,getmaxy-65,15+37,getmaxy-65+55);
  77.    putpict(15,getmaxy-65,@imageChina,black);
  78.    DefineMouseClickArea(stackptr,0,0,37,55,true,Orientalbow,MSClick);
  79.    OrientalFS := stackptr;
  80.    setframemobility(stackptr,false);
  81.  
  82.    TEGLSupervisor;
  83. end.
  84.