Cancellazione chiavi da DNINST

git-svn-id: svn://10.65.10.50/branches/R_10_00@22844 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-04-09 15:10:08 +00:00
parent f85c99f239
commit bf49d2b058
2 changed files with 36 additions and 3 deletions

View File

@ -901,7 +901,13 @@ bool Tdninst_mask::on_sheet_event(TSheet_field& s, TField_event e, long jolly)
}
}
break;
case se_query_del: return false;
case se_query_del:
{
TToken_string& r = s.row(jolly);
const int serno = r.get_int(0);
return delete_box("Si desidera eliminare la chiave %d", serno);
}
break;
default: break;
}
return true;

View File

@ -270,9 +270,36 @@ BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_CANCEL 2 2
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 ""
PROMPT 1 1 ""
END
BUTTON DLG_NULL 2 2
BEGIN
PROMPT -1 1 ""
PICTURE 0
END
BUTTON DLG_INFO 2 2
BEGIN
PROMPT 1 1 "Info"
MESSAGE EXIT,K_F2
PICTURE TOOL_INFO
END
BUTTON DLG_HELP 2 2
BEGIN
PROMPT 2 1 "Help"
MESSAGE EXIT,K_F1
PICTURE TOOL_HELP
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 3 1 "Annulla"
MESSAGE EXIT,K_ESC
PICTURE TOOL_CANCEL
END
ENDPAGE