Forum HAMOR Soft

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