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,12 +201,24 @@ bool TPrintwin::do_print()
RCT* rct; RCT* rct;
bool ok = TRUE; bool ok = TRUE;
#ifdef DBG
const long size = xvt_dwin_get_font_size_mapped(win());
#endif
while (ok && !_aborted) while (ok && !_aborted)
{ {
_aborted = !(bool)xvt_print_open_page(_printrcd); _aborted = !(bool)xvt_print_open_page(_printrcd);
while (!_aborted && ok && (rct = xvt_print_get_next_band()) != NULL) 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); ok = print_band(page, *rct);
xvt_print_close_page(_printrcd); }
_aborted |= !(bool)xvt_print_close_page(_printrcd);
page++; page++;
} }
return !_aborted; return !_aborted;
@ -225,6 +237,7 @@ TPrintwin::TPrintwin(TTextfile& txt)
set_win(prwin); set_win(prwin);
#endif #endif
_char_size = p.get_char_size(); _char_size = p.get_char_size();
set_font(XVT_FFN_FIXED, XVT_FS_NONE, _char_size); set_font(XVT_FFN_FIXED, XVT_FS_NONE, _char_size);
#if XVT_OS != XVT_OS_SCOUNIX #if XVT_OS != XVT_OS_SCOUNIX
@ -247,6 +260,7 @@ TPrintwin::TPrintwin(TTextfile& txt)
} }
else _aborted = TRUE; else _aborted = TRUE;
#endif #endif
LEN_SPACES(win(), 50); //debug
} }