Formular:
Code: Select all
#INCEPUT
# {IMPRIM}
# {MESAJI}
# {INITC}
Functioneaza color doar cu imprimanta WIN,
cu WIS va lista italic sau bold.
Avem 80 coloane efectiv
descrierea este 8x16=126
<23456789><23456789><23456789><23456789><23456789><23456789><23456789><23456789>
#RIND/P1
{N }{B }{R }{N }{B }{R }{N }{B }
#SFIRSIT
#SFIRSITFORMULAR
Code: Select all
IMPRIM ; ; X_4:=IF("WIN"$x_oPrint[31],.T.,.F.)
MESAJI ; ; IF(X_4,NIL,h_MesWar("Pentru imprimare color Tip imprmanta WIN...",0))
// secventele difera in functie de tip imprimanta
// daca WIN - listeaza color,
// daca WIS - listeaza cursiv (in loc de albastru) sau bold (in loc de rosu)
INITC ; ; (X_1:={,}),(X_2:={,}),(X_3:={,}),
(X_1[1]:=IF(X_4,CHR(27)+"cN","")),
(X_1[2]:=IF(X_4,CHR(27)+"cN","")),
(X_2[1]:=IF(X_4,CHR(27)+"cB",CHR(27)+"i")),
(X_2[2]:=IF(X_4,CHR(27)+"cN",CHR(27)+"i")),
(X_3[1]:=IF(X_4,CHR(27)+"cR",CHR(27)+"b")),
(X_3[2]:=IF(X_4,CHR(27)+"cN",CHR(27)+"b"))
// trebuie asigurat ca coloana scrisa efectiv sa fie de latimea din picture
N ; ; X_1[1]+"Negru "+X_1[2] ; C10 ; @T
B ; ; X_2[1]+"Albastru "+X_2[2] ; C10 ; @T
R ; ; X_3[1]+"Rosu "+X_3[2] ; C10 ; @T