Correzione per errore MI6050 sulla selezione degli sheet e

impostata la lunghezza massima di un edit field a 50 chrs sulle ricerche.


git-svn-id: svn://10.65.10.50/trunk@3284 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-07-29 17:23:12 +00:00
parent 89d8b13edf
commit e388f67815

View File

@ -631,6 +631,10 @@ bool TSheet_control::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
long rec = -1;
switch (k)
{
case K_SPACE:
check(selected(), !checked(selected()));
break;
case K_ENTER:
if (_disabled[_cur_rec])
break;
@ -861,9 +865,9 @@ bool TSheet::on_key(KEY key)
{
switch(key)
{
case K_SPACE:
check(selected(), !checked(selected()));
break;
// case K_SPACE:
// check(selected(), !checked(selected()));
// break;
case K_F7:
uncheck(-1);
break;
@ -1175,7 +1179,7 @@ TBrowse_sheet::TBrowse_sheet(TCursor* cursor, const char* fields,
switch (c.class_id())
{
case CLASS_EDIT_FIELD:
e = &add_string(c.dlg(), 0, p, 1, y++, c.size(), flags);
e = &add_string(c.dlg(), 0, p, 1, y++, c.size(), flags, c.size() > 50 ? 50 : c.size() );
break;
case CLASS_REAL_FIELD:
e = &add_number(c.dlg(), 0, p, 1, y++, c.size(), flags);