home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 01171 / dialog.bas < prev    next >
BASIC Source File  |  1990-08-30  |  2KB  |  74 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, "H÷he:" 
  15.   Dialog 140, 14, 12, 12, 21, 18, "" 
  16.   Dialog 100, 30, 30, 10, -1,  5, "Breite:" 
  17.   Dialog 140, 28, 12, 12, 22, 18, ""
  18.   Dialog 100, 44, 50, 10, 31,  1, "Fett" 
  19.   Dialog 100, 56, 50, 10, 32,  1, "Kursiv" 
  20.   Dialog 100, 68, 50, 10, 33,  1, "Unterstr." 
  21.   Dialog 100, 82, 50, 12,  3, 13, "OK"
  22.   Dialog 100, 98, 50, 12,  4, 11, "Abbrechen"
  23.   Dialog
  24. _INIT:
  25.   Dlgitem 16, 11, 17, 6, chr$(1)
  26.   fett%=0
  27.   unter%=0
  28.   kursiv%=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%, fett%, kursiv%+unter%*2, FF%
  34.   Cls
  35.   Print "Ihr 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%, itemtext$
  49.   Dlgitem item%, 11, 17, 6, itemtext$
  50.   FF%=item%-10
  51. _31:
  52.   fett% = 1-fett%
  53.   Dlgitem 31, 0, 0, fett%*4+2, chr$(1)
  54. _32:
  55.   kursiv% = 1-kursiv%
  56.   Dlgitem 32, 0, 0, kursiv%*4+2, chr$(1)
  57. _33:
  58.   unter% = 1-unter%
  59.   Dlgitem 33, 0, 0, unter%*4+2, chr$(1)
  60. Endsub
  61.  
  62. REM *** Hauptprogramm ***
  63.  
  64. Menu$(1)="&Ende"
  65. Menu$(2)="&Font"
  66. Menu$(3)=""
  67.  
  68. Menu Menu$
  69.  
  70. _1000:
  71.   Stop
  72. _2000:
  73.   Gosub SetFont()
  74.