Corretto bugs nelle stampe XVT ???

git-svn-id: svn://10.65.10.50/trunk@1212 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-04-06 15:28:37 +00:00
parent 28e19f6451
commit 7d6e56859f

View File

@ -201,16 +201,28 @@ bool TPrintwin::do_print()
RCT* rct;
bool ok = TRUE;
#ifdef DBG
const long size = xvt_dwin_get_font_size_mapped(win());
#endif
while (ok && !_aborted)
{
_aborted = !(bool)xvt_print_open_page(_printrcd);
while (!_aborted && ok && (rct = xvt_print_get_next_band()) != NULL)
ok = print_band(page, *rct);
xvt_print_close_page(_printrcd);
_aborted = !(bool)xvt_print_open_page(_printrcd);
while (!_aborted && ok
&& (rct = xvt_print_get_next_band()) != NULL)
{
set_font(XVT_FFN_SYSTEM, XVT_FS_NONE, _char_size);
set_font(XVT_FFN_FIXED, XVT_FS_NONE, _char_size);
#ifdef DBG
long size1 = xvt_dwin_get_font_size_mapped(win());
CHECK(size == size1, "Failed to set font. xvt bugs???");
#endif
ok = print_band(page, *rct);
}
_aborted |= !(bool)xvt_print_close_page(_printrcd);
page++;
}
return !_aborted;
}
}
TPrintwin::TPrintwin(TTextfile& txt)
@ -224,7 +236,8 @@ TPrintwin::TPrintwin(TTextfile& txt)
WINDOW prwin = xvt_print_create_win(_printrcd, (char*)(const char*)main_app().title());
set_win(prwin);
#endif
_char_size = p.get_char_size();
_char_size = p.get_char_size();
set_font(XVT_FFN_FIXED, XVT_FS_NONE, _char_size);
#if XVT_OS != XVT_OS_SCOUNIX
@ -247,6 +260,7 @@ TPrintwin::TPrintwin(TTextfile& txt)
}
else _aborted = TRUE;
#endif
LEN_SPACES(win(), 50); //debug
}