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; 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
ok = print_band(page, *rct); && (rct = xvt_print_get_next_band()) != NULL)
xvt_print_close_page(_printrcd); {
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++; page++;
} }
return !_aborted; return !_aborted;
} }
TPrintwin::TPrintwin(TTextfile& txt) 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()); WINDOW prwin = xvt_print_create_win(_printrcd, (char*)(const char*)main_app().title());
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
} }