root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 2.2

Browse Source 
Files correlati     : ba8 ve1
Ricompilazione Demo : [ ]
Commento            :
Corretta gestione MESSAGE APPEND nel caso di campi vuoti


git-svn-id: svn://10.65.10.50/trunk@13680 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2006-01-09 18:31:01 +00:00
parent 76cff521d5
commit 3e3e08ef49
3 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/alex.cpp
View File

@ -918,7 +918,7 @@ void TAVM::execute(const TAVM_op& op)
case avm_negate:
{
TVariant& tos = _stack.peek();
tos.set(~tos.as_int());
tos.set(tos.as_bool() ? false : true);
}
break;
case avm_null: _stack.push(NULL_VARIANT); break;

13
include/report.alx
View File

@ -97,16 +97,19 @@
;
: MESSAGE_APPEND ( f1 -- )
MON
#THIS @ \ Leggo il valore del campo corrente
DUP EMPTY= \ Controlla se e' vuoto
IF
DROP \ Scarta il valore nullo
DROP \ Scarta f1
ELSE
" " \ Inserisco uno spazio
SWAP
+ \ Sommo uno spazio all'inizio della stringa
SWAP \ Riporto in primo piano f1
ELSE
OVER @ \ Leggo il valore di f1
EMPTY= NEGATE
IF
" " SWAP + \ Sommo uno spazio all'inizio della stringa
THEN
SWAP \ Riporto in primo piano f1
+! \ Incrementa f1 col contenuto della stringa
THEN
;

4
include/report.cpp
View File

@ -62,12 +62,12 @@ XVT_FNTID TReport_font::get_xvt_font(const TWindow& win) const
const PNT pnt0 = win.log2dev(0,0);
const PNT pnt1 = win.log2dev(cpi*100,100);
const int ppi = pnt1.h - pnt0.h;
const int best = compute_font_match(w, (pnt1.v - pnt0.v), ppi, cpi);
const int best = compute_font_match(w, abs(pnt1.v - pnt0.v), ppi, cpi);
nSize = cpi * best / _cpi;
}
XVT_FNTID fontid = xvt_font_create();
xvt_font_set_family(fontid, (char*)(const char*)_name);
xvt_font_set_family(fontid, _name);
xvt_font_set_size(fontid, nSize);
xvt_font_set_style(fontid, _style);