Corretto errore MI3375. Corretto, in fase di caricamento, il preserve

del font relativo al form.


git-svn-id: svn://10.65.10.50/trunk@2877 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-05-20 14:46:40 +00:00
parent 8eeadc669e
commit b679c8485c

View File

@ -349,8 +349,13 @@ bool TForm_EC_editor::load_fonts()
xvt_mem_free(family[i]);
}
TList_field& lst = (TList_field&)_msk->field(F_SFONT);
if (!font_found)
{
warning_box("Il font %s non esiste per la stampante di default.",(const char*) form().fontname());
pn1.add(form().fontname());
pn2.add(form().fontname());
}
lst.replace_items(pn1, pn2);
if (!font_found) warning_box("Il font %s non esiste per la stampante di default.",(const char*) form().fontname());
lst.set(form().fontname());
return font_found;
}
@ -662,7 +667,7 @@ bool TForm_EC_editor::edit(char s, pagetype p)
}
}
}
if (local_dirty || _msk->dirty()!=0) dirty=TRUE;
if (local_dirty || _msk->dirty()!=0 || k == K_ENTER) dirty=TRUE;
if (k==K_ESC || k==K_ENTER)
break;
} // End of while