home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
tools
/
basicwi
/
ufba035.bas
< prev
next >
Wrap
BASIC Source File
|
1993-07-28
|
1KB
|
47 lines
rem Turbo Basic/ Power Basic
rem ufba035.bas - example for dynamic attribute modification
rem attribut file <testfmt.att>
rem ---------------------------
rem Format-Textattribut: 9
rem Format-Rahmenattribut: 11
rem fld0$=" "
rem Distanzen in Bereich <Daten>: Feldattribut: 501 Feldtyp: 503
rem fld1& = 0
rem Distanzen in Bereich <Daten>: Feldattribut: 508 Feldtyp: 510
rem fld2$=" "
rem Distanzen in Bereich <Daten>: Feldattribut: 515 Feldtyp: 517
$INCLUDE "ufba03.INC"
$INCLUDE "testfmt.INC"
$INCLUDE "testfmt.PRO"
CALL MOUSEON
rem normal output
fld2$ = " output with generated attributes ! "
FKZ% = 2: SM% = 0: RET% = 55: FMT$ = "testfmt "
CALL UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
rem change colour of field fld0 and fld1
fld2$ = " change attribut of fld0 and flf1 ! "
MID$(Daten$,501)=chr$(15)
MID$(Daten$,508)=chr$(7)
FKZ% = 3: RET% = 55
CALL UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
rem change access of field fld0 and fld1
fld2$ = " change access of fld0 and fld1 ! "
MID$(Daten$,503)=chr$(97)
MID$(Daten$,510)=chr$(97)
FKZ% = 3: RET% = 55
CALL UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
rem change colour of text and frame
fld2$ = " change attribut of text and frame ! "
MID$(Daten$,9)=chr$(112)
MID$(Daten$,11)=chr$(44)
FKZ% = 2: RET% = 55
CALL UNIF(FKZ%, FMT$, FMT$, RET%, SM%, Daten$)
CALL MOUSEOFF
END