home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / tools / basicwi / ufba035.bas < prev    next >
Encoding:
BASIC Source File  |  1993-07-28  |  1.4 KB  |  47 lines
  1. rem Turbo Basic/ Power Basic
  2. rem ufba035.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 "ufba03.INC"
  15. $INCLUDE "testfmt.INC"
  16.  
  17. $INCLUDE "testfmt.PRO"
  18.  
  19. CALL MOUSEON
  20. rem normal output
  21. fld2$ = " output with generated attributes !     "
  22. FKZ% = 2: SM% = 0: RET% = 55: FMT$ = "testfmt "
  23. CALL UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
  24.  
  25. rem change colour of field fld0 and fld1
  26. fld2$ = " change attribut of fld0 and flf1 !     "
  27. MID$(Daten$,501)=chr$(15)
  28. MID$(Daten$,508)=chr$(7)
  29. FKZ% = 3: RET% = 55
  30. CALL 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. CALL 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. CALL UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
  45. CALL MOUSEOFF
  46. END
  47.