home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / amosfactory / ext / lha / intui.lha / examples / scroll.AMOS / scroll.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1996-04-06  |  4.2 KB  |  100 lines
  1. Amos To Back 
  2. '
  3. '
  4. BASE=Start(1) : Rem       *** Start Of The IFF Bank       ***    
  5. WIDTH=Deek(BASE) : Rem    *** Get The Width Of The Image  ***   
  6. HEIGHT=Deek(BASE+2) : Rem *** Get The Height Of The Image ***
  7. _MODE=Deek(BASE+4) : Rem  *** Get The Screen Mode         *** 
  8. DEPTH=Deek(BASE+6) : Rem  *** Get The Number Of Planes    *** 
  9. 'If WIDTH>640 : WIDTH=640 : End If 
  10. '  
  11. '              *** Set Screen Flags ***  
  12. ' *** $0001= WBScreen                                 ***  
  13. ' *** $0002= Public Shared Screen                     ***
  14. ' *** $000F= CustomScreen                             ***
  15. ' *** $0080= Open The Screen Behind Any Other Screens ***
  16. ' *** $0100= No Gadgets Or Title On The Screen        ***
  17. '
  18.  Extension_25_02BE $F,,,,,,,
  19. '
  20. '
  21. '              *** Set Window IDCMPS *** 
  22. '
  23. ' *** $4=      Report When Window Contents Have Been Corruped     ***      
  24. ' *** $8=      Report When Either Mouse Buttons Have Been Clicked ***  
  25. ' *** $10=     Report When Mouse Pointer Has Moved                ***
  26. ' *** $20=     Report When A Gadget Has Been Pressed Down         ***
  27. ' *** $40=     Report When A gadget Has Been Released             ***
  28. ' *** $100=    Report When A Menu Has Been Selected               ***
  29. ' *** $200=    Report When The Close Gadget Has Been Clicked      ***
  30. ' *** $400=    Report When A Key Press Has Been Detected          ***
  31. ' *** $8000=   Report When A Disk Has Been Inserted Into A Drive  ***
  32. ' *** $10000=  Report When A Disk Is Removed From A Drive         ***
  33. ' *** $40000=  Report When A Window Has Been Activated            ***
  34. ' *** $80000=  Report When A Window Has Been Deactivated          ***
  35. ' *** $2000000=Report When A Window Has Been Resized              ***
  36. '
  37.  Extension_25_021E $400,,,,,,,,
  38. '
  39. '            *** Set Window Flags ***  
  40. '
  41. ' *** $1=    Add A Sizing Gadget                           *** 
  42. ' *** $2=    Allow The Window To Dragged By The Title Bar  *** 
  43. ' *** $4=    Add A Depth Gadget                            *** 
  44. ' *** $8=    Add A Close Gadget                            *** 
  45. ' *** $100=  Open The Window In BackDrop Mode              *** 
  46. ' *** $400=  Prevent From Drawing Over The Window Borders  *** 
  47. ' *** $800=  Open The Window Without Any Borders           *** 
  48. ' *** $1000= Activate The Window When First Opened         *** 
  49. '
  50.  Extension_25_0070 $1000,$800,,,,,,,
  51. '
  52. '
  53. '            *** Open A Intuition Screen *** 
  54. '
  55. ' *** Wb Open Screen Num,X,Y,Width,Height,Depth,Pen1,Pen2,Mode *** 
  56. ' *** Num= Screen Id Number Must Be 0 to 99                    *** 
  57. ' *** X=   LeftEdge Of Screen                                  ***   
  58. ' *** Y=   TopEdge Of Screen                                   *** 
  59. ' *** Width= Width Of Screen                                   *** 
  60. ' *** Height= Height Of Screen                                 *** 
  61. ' *** Depth= Number Of Planes To Have In Screen                *** 
  62. ' *** Pen1= Detail Pen                                         *** 
  63. ' *** Pen2= Block Pen                                          *** 
  64. ' *** Mode= Screen Display Mode ie $0=Lowres $4=LowresLaced    *** 
  65. '  
  66.  Extension_25_0282 0,0,0,WIDTH,HEIGHT,DEPTH,0,0,_MODE
  67. '
  68. '
  69. '             *** Open A Intuition Window ***
  70. '
  71. ' *** Wb Open Window Num,X,Y,Width,Height,MinX,MinY,MaxX,MaxY ***
  72. ' *** Num=    Window Id Number                                ***    
  73. ' *** X=      LeftEdge Of Window                              ***    
  74. ' *** Y=      TopEdge Of Window                               ***    
  75. ' *** Width=  Width Of Window                                 ***    
  76. ' *** Height= Height Of Window                                ***  
  77. ' *** MinX=   Minimum Size Window Can Be Sized To             ***
  78. ' *** MinY=   Minimum Size Window Can Be Sized To             ***
  79. ' *** MaxX=   Maximum Size Window Can Be Sized To             ***
  80. ' *** MaxY=   Maximum Size Window Can Be Sized To             ***
  81. '  
  82.  Extension_25_0006 0,0,0,WIDTH,HEIGHT,100,50,WIDTH,HEIGHT
  83. '
  84. '
  85. '    *** Display Image On Window *** 
  86. '
  87. ' *** Wb Image To Window Win,Bank ***
  88. ' *** Win=  Window Id Number      ***  
  89. ' *** Bank= Memory Bank Number    ***  
  90. '
  91.  Extension_25_0340 0,1
  92. Repeat 
  93. Inc X
  94. If X>1280 : X=0 : End If 
  95.  Extension_25_0578 X,0
  96. Until Extension_25_0390(1)=100
  97.  Extension_25_002C 0
  98.  Extension_25_02A8 0
  99. Amos To Front 
  100. End