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

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

Browse Source 
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
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
sc/sc3100.cpp
View File

@ -349,8 +349,13 @@ bool TForm_EC_editor::load_fonts()
xvt_mem_free(family[i]); xvt_mem_free(family[i]);
} }
TList_field& lst = (TList_field&)_msk->field(F_SFONT); 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); 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()); lst.set(form().fontname());
return font_found; 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) if (k==K_ESC || k==K_ENTER)
break; break;
} // End of while } // End of while