home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / tools / basicwi / ufba045.bas < prev    next >
BASIC Source File  |  1993-07-28  |  1KB  |  47 lines
  1. rem MS Basic/ MS Quick Basic
  2. rem ufba045.bas example for dynamic attribute modification
  3. rem attribut file <testfmt.att>
  4. rem ---------------------------
  5. rem Format-Textattribut:    9
  6. rem Format-Rahmenattribut: 11
  7. rem fld0$="            "
  8. rem  Distanzen in Bereich <Daten>:   Feldattribut: 501    Feldtyp: 503
  9. rem fld1& = 0
  10. rem  Distanzen in Bereich <Daten>:   Feldattribut: 508    Feldtyp: 510
  11. rem fld2$="                                        "
  12. rem  Distanzen in Bereich <Daten>:   Feldattribut: 515    Feldtyp: 517
  13.  
  14. '$INCLUDE: 'ufba04.INC'
  15. '$INCLUDE: 'testfmt.INC'
  16.  
  17. '$INCLUDE: 'testfmt.PRO'
  18.  
  19. CALLS MOUSEON
  20. rem normal output
  21. fld2$ = " output with generated attributes !    "
  22. FKZ% = 2: SM% = 0: RET% = 55: FMT$ = "testfmt "
  23. CALLS UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
  24.  
  25. rem change colour of field fld0 and fld1
  26. flf2$ = " change attribut of fld0 and fld1 !    "
  27. MID$(Daten$,501)=chr$(15)
  28. MID$(Daten$,508)=chr$(7)
  29. FKZ% = 3: RET% = 55
  30. CALLS UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
  31.  
  32. rem change access of field fld0 and fld1
  33. fld2$ = " change access of fld0 and fld1 !      "
  34. MID$(Daten$,503)=chr$(97)
  35. MID$(Daten$,510)=chr$(97)
  36. FKZ% = 3: RET% = 55
  37. CALLS UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
  38.  
  39. rem change colour of text and frame
  40. fld2$ = " change attribut of text and frame !   "
  41. MID$(Daten$,9)=chr$(112)
  42. MID$(Daten$,11)=chr$(44)
  43. FKZ% = 2: RET% = 55
  44. CALLS UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
  45. CALLS MOUSEOFF
  46. END
  47.