home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Function_CreateImage_001.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  897 b   |  29 lines
  1. saveH = Settings(0).NumberImagesHorizontal                 ' Save settings
  2. if saveH < 6 Then Settings(0).NumberImagesHorizontal = 6 ' 6 images horizontal
  3.  
  4. i1 = CreateImage( 150,100 )            ' 1st from 5 new images
  5. Image( i1 ).Color = _ColorRed 
  6. i2 = CreateImage( 150,100 )            ' 2
  7. Image( i2 ).Color = _ColorGreen
  8. i3 = CreateImage( 150,100 )
  9. Image( i3 ).Color = _ColorBlue
  10. i4 = CreateImage( 150,100 )
  11. Image( i4 ).Color = RGB(255,0,255)
  12. i5 = CreateImage( 150,100 )
  13. Image( i5 ).Color = RGB(255,255,0)
  14. t1 = "PLEASE" 
  15. t2 = "WAIT  " 
  16. For a = 0 to GetImageCount() - 1
  17.     Font.Size = image(a).Height / 3.5
  18.     Image(a).DrawText(0,0,Image(a).Width,Image(a).Height, a + "\n" + Mid(t1,Len(t1)-a-1,1) + "\n" + Mid(t2,Len(t2)-a-1,1) ) 
  19. next
  20. Redraw()
  21. Sleep( 7000 )
  22. Settings(0).NumberImagesHorizontal = saveH
  23. Image(i1).Delete()
  24. Image(i2).Delete()
  25. Image(i3).Delete()
  26. Image(i4).Delete()
  27. Image(i5).Delete()
  28.  
  29.