home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / PROGRAMS / WINBASIC / DIALOG.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-06-11  |  1.6 KB  |  73 lines
  1.  
  2. Dim Menu$(3)
  3.  
  4. Subroutine SetFont()
  5.   Dialog  60, 20,160,120,  0,  0, "Set Font"
  6.   Dialog  10, 10, 80,100, -1, 10, "Font"
  7.   Dialog  20, 20, 60, 12, 11, 12, "Times"
  8.   Dialog  20, 32, 60, 12, 12, 12, "Helvetica"
  9.   Dialog  20, 44, 60, 12, 13, 12, "Swiss"
  10.   Dialog  20, 56, 60, 12, 14, 12, "Script"
  11.   Dialog  20, 68, 60, 12, 15, 12, "Roman"
  12.   Dialog  20, 80, 60, 12, 16, 12, "System"
  13.   Dialog  20, 92, 60, 12, 17, 12, "Courier"
  14.   Dialog 100, 16, 30, 10, -1,  5, "Height:" 
  15.   Dialog 140, 14, 12, 12, 21, 18, "48" 
  16.   Dialog 100, 30, 30, 10, -1,  5, "Width:" 
  17.   Dialog 140, 28, 12, 12, 22, 18, "30"
  18.   Dialog 100, 44, 50, 10, 31,  1, "Bold" 
  19.   Dialog 100, 56, 50, 10, 32,  1, "Italic" 
  20.   Dialog 100, 68, 50, 10, 33,  1, "Under" 
  21.   Dialog 100, 82, 50, 12,  3, 13, "OK"
  22.   Dialog 100, 98, 50, 12,  4, 11, "Cancel"
  23.   Dialog
  24. _INIT:
  25.   Dlgitem 16, 11, 17, 6, chr$(1)
  26.   bold%=0
  27.   under%=0
  28.   italic%=0
  29. _1: 'Enter
  30. _3: 'OK-Button
  31.   Dlgitem 21, itemtext$ : h% = val%(itemtext$)
  32.   Dlgitem 22, itemtext$ : w% = val%(itemtext$)
  33.   Font h%, w%, bold%, italic%+under%*2, FF%
  34.   Cls
  35.   Print "Your Font"
  36.   Dialog @
  37. _2: 'Escape
  38. _4:
  39.   Dialog @
  40. _11:
  41. _12:
  42. _13:
  43. _14:
  44. _15:
  45. _16:
  46. _17:
  47.   item% = GetMessage%()
  48.   Dlgitem item%, 11, 17, 4, chr$(1)
  49.   FF%=item%-10
  50. _31:
  51.   bold% = 1-bold%
  52.   Dlgitem 31, 0, 0, bold%*4, chr$(1)
  53. _32:
  54.   italic% = 1-italic%
  55.   Dlgitem 32, 0, 0, italic%*4, chr$(1)
  56. _33:
  57.   under% = 1-under%
  58.   Dlgitem 33, 0, 0, under%*4, chr$(1)
  59. Endsub
  60.  
  61. REM *** Main program ***
  62.  
  63. Menu$(1)="E&xit"
  64. Menu$(2)="&Font"
  65. Menu$(3)=""
  66.  
  67. Menu Menu$
  68.  
  69. _1000:
  70.   Stop
  71. _2000:
  72.   Gosub SetFont()
  73.