Patch level :10.0 440
Files correlati : Ricompilazione Demo : [ ] Commento : 0001394: backup Descrizione il cliente Sofind chiede che si possa avere il bottone sfoglia nei backup git-svn-id: svn://10.65.10.50/trunk@19269 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
7501c1913d
commit
2f42721ca2
@ -56,7 +56,7 @@ TArchive_mask::TArchive_mask() : TAutomask("ba2200")
|
|||||||
values.add(str);
|
values.add(str);
|
||||||
TToken_string& message = *lf.message(k++, TRUE);
|
TToken_string& message = *lf.message(k++, TRUE);
|
||||||
if (isrem && is_real_floppy(str))
|
if (isrem && is_real_floppy(str))
|
||||||
message.format("DISABLE,%d", F_PATH);
|
message.format("CLEAR,%d", F_PATH);
|
||||||
else
|
else
|
||||||
message.format("ENABLE,%d", F_PATH);
|
message.format("ENABLE,%d", F_PATH);
|
||||||
}
|
}
|
||||||
@ -68,6 +68,15 @@ bool TArchive_mask::on_field_event(TOperable_field& o, TField_event e, long joll
|
|||||||
{
|
{
|
||||||
switch (o.dlg())
|
switch (o.dlg())
|
||||||
{
|
{
|
||||||
|
case F_FLOPPY:
|
||||||
|
if (e == fe_modify)
|
||||||
|
{
|
||||||
|
const TString& path = get(F_PATH);
|
||||||
|
const TString& curr = o.get();
|
||||||
|
if (!path.starts_with(curr))
|
||||||
|
set(F_PATH, curr);
|
||||||
|
}
|
||||||
|
break;
|
||||||
case F_PATH:
|
case F_PATH:
|
||||||
if (e == fe_modify)
|
if (e == fe_modify)
|
||||||
{
|
{
|
||||||
|
@ -10,9 +10,11 @@ BEGIN
|
|||||||
ITEM "C|C:" MESSAGE ENABLE,F_PATH
|
ITEM "C|C:" MESSAGE ENABLE,F_PATH
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_PATH 45
|
STRING F_PATH 256 45
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 15 1 "Percorso "
|
PROMPT 15 1 "Percorso "
|
||||||
|
DSELECT
|
||||||
|
FLAGS "M"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_DITTA
|
BOOLEAN F_DITTA
|
||||||
|
Loading…
x
Reference in New Issue
Block a user