home *** CD-ROM | disk | FTP | other *** search
/ Fun Online 1997 January / FOL0197.ISO / DEMOS / HOLIDAY / DATA / INFOBOX.DAT < prev    next >
Text File  |  1996-09-25  |  4KB  |  118 lines
  1. WelcheZeilen : array[TIBArt,TIBZeilen] of Boolean =
  2.  1  0  0  1  1  1  1  0  1  0  1  0  0  0  0  0  0
  3.  1  0  0  1  1  1  1  0  1  0  1  0  0  0  0  0  0
  4.  1  0  0  1  1  1  0  1  0  1  1  0  0  0  0  0  0
  5.  1  0  0  1  1  1  0  1  0  1  1  0  0  0  0  0  0
  6.  1  0  0  1  1  1  0  1  0  1  1  0  0  0  0  0  0
  7.  1  0  0  1  1  1  0  1  0  1  1  0  0  0  0  0  0
  8.  1  0  0  1  1  1  0  1  0  1  1  0  0  0  0  0  0
  9.  1  0  0  1  1  1  0  1  0  1  1  0  0  0  0  0  0
  10.  1  0  0  1  1  1  0  1  0  1  1  0  0  0  0  0  0
  11.  1  0  0  1  1  1  0  1  0  1  1  0  0  0  0  0  0
  12.  1  0  0  1  1  1  0  1  0  1  1  0  0  0  0  0  0
  13.  0  1  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0
  14.  0  1  0  0  0  0  0  0  0  0  0  0  1  0  0  0  0
  15.  0  1  1  1  0  0  0  0  0  0  0  1  0  0  0  0  0
  16.  0  0  0  0  0  0  0  0  0  0  0  0  0  1  1  1  1
  17.  
  18. ZeilenLage : array[TIBZeilen,TIBZeilenlage] of Integer =
  19.    20    0    0    5  190    0    0    0  195
  20.    20    0    0    5  190    0    0    0  195
  21.    16    9   80    0    0    0    0    0   95
  22.    16    9   65   70  185    0    0    0  195
  23.    16    9   80   85  145  150  190    0  195
  24.    16    9   80   85  145  150  190    0  195
  25.    16    9   75   80  150  155  190    0  195
  26.    16    9   80   85  150  155  190    0  195
  27.    16    9   80   85  145  150  190    0  195
  28.    16    9   80   85  150  155  190    0  195
  29.    16    9   80   85  150    0    0    0  195
  30.    16    9   80   85  190    0    0    0  195
  31.    16    9   80   85  140  145  190    0  195
  32.    16    9  190    0    0    0    0    0  195
  33.    16    9   80   85  167  170  180    0  195
  34.    16    9   80   85  180  185  190    0  195
  35.    16    9   80   85  180  185  190    0  195
  36.  
  37. MaxBoxbreite =
  38.   250
  39.  
  40. MaxBoxHoehe =
  41.   216
  42.  
  43. Textzentriert : array[TIBZeilen,TIBTextart2] of Boolean =
  44.  left  left cente
  45.  left  left cente
  46. cente  left right
  47.  left  left right
  48.  left  left right
  49.  left  left right
  50.  left  left right
  51.  left  left right
  52.  left  left right
  53.  left  left right
  54.  left  left right
  55.  left  left right
  56.  left  left right
  57. cente  left right
  58.  left  left right
  59.  left  left right
  60.  left  left right
  61.  
  62. IBButtonzeile  :TIBButtonzeile = 0=False, 1=true
  63.   Breite Hoehe MitText Textlinks Textbreite MitWert Wertlinks Wertbreite
  64.   195    23    0       0         0          0       0         0
  65.   195    21    1       9         61         1       96        70
  66.   195    21    1       9         61         1       96        70
  67.   195    23    0       0         0          0       0         0
  68.   195    23    0       0         0          0       0         0
  69.   195    23    0       0         0          0       0         0
  70.   195    23    0       0         0          0       0         0
  71.   195    23    0       0         0          0       0         0
  72.  
  73. IBButton       :TIBButton =   False= 0 , True=1
  74.   Links Breite Hoehe
  75.   102   83     19
  76.   77    16     16
  77.   169   16     16
  78.   56    83     19
  79.   10    83     19
  80.   10    83     19
  81.   102   83     19
  82.   10    83     19
  83.   10    83     19
  84.  
  85. WelcheButton  :TWelcheButton=    False= 0 , True=1
  86.        1   0    0    0    1    0    0    0    0
  87.        0   1    1    0    0    0    0    0    0
  88.        0   1    1    0    0    0    0    0    0
  89.        0   0    0    1    0    0    0    0    0
  90.        0   0    0    0    0    0    1    0    1
  91.        0   0    0    0    1    0    0    0    0
  92.        0   0    0    0    0    0    1    1    0
  93.        0   0    0    0    0    0    1    0    0
  94.  
  95. WelcheButtonzeile:  Art,Buttonzeile=  False= 0 , True=1
  96.        1   1   0   0    1   0    0   0
  97.        1   1   0   0    1   0    0   0
  98.        1   0   1   0    1   0    0   0
  99.        1   0   1   0    1   0    0   0
  100.        1   0   1   0    1   0    0   0
  101.        1   0   1   0    1   0    0   0
  102.        1   0   1   0    1   0    0   0
  103.        1   0   1   0    1   0    0   0
  104.        1   0   1   0    1   0    0   0
  105.        1   0   1   0    1   0    0   0
  106.        1   0   1   0    1   0    0   0
  107.        0   0   0   0    0   0    1   0
  108.        0   0   0   0    0   0    1   0
  109.        0   0   0   1    0   0    1   0
  110.        0   0   0   0    1   0    0   0
  111.  
  112.   TIBArt =
  113.     (IBHotel,IBHaus,IBLokal,IBShop,IBSport,IBAttraktion,IBNatur,
  114.      IBVerleih,IBFlughafen,IBHafen,IBEnergie,IBStrasse,IBGround,IBBaustelle,IBInsel);
  115.   TIBButtonzeilenart = (IBBZRenovieren,IBBZMiete,IBBZBestechen,IBBZUnten,
  116.                         IBBZVerkaufen,IBBZFertig,IBBZNurOK);
  117.  
  118.