# Property of Four Js*
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
# * Trademark of Four Js Development Tools Europe Ltd
#   in the United States and elsewhere
# 
# Four Js and its suppliers do not warrant or guarantee that these
# samples are accurate and suitable for your purposes. Their inclusion is
# purely for information purposes only.

ACTION DEFAULTS
    ACTION send (TEXT="Send", IMAGE="mail", ACCELERATOR=CONTROL-RETURN)
    ACTION attachfile (TEXT="Attach file", IMAGE="plus", ACCELERATOR=CONTROL-J)
    ACTION close (IMAGE="quit", VALIDATE = NO, DEFAULTVIEW=YES)
    ACTION viewattachment (DEFAULTVIEW=NO)
END

LAYOUT(TEXT="Send EMAIL")
FOLDER
  PAGE p1(TEXT="Account settings")
    GRID
    {
    [lhostname ][hostname                             ]
    [lsmtphost ][smtphost                             ]
    [lsmtpport ][smtpport]
    [lsenderem ][senderemail               ]
    [lcnxtout  ][cnxtimeout] (-1 = INFINITE TIMEOUT)
    [chkcnf    ]
    [savecnf   ]
    }
    END
  END
  PAGE p2(TEXT="Mail compose")
    VBOX(splitter)
      HBOX(splitter)
        GROUP(TEXT="Recipients")
          GRID
          {
          <T recipients                                       >[a]
          [mode|recipient                                     ][i]
          [mode|recipient                                     ][d]
          [mode|recipient                                     ]
          [mode|recipient                                     ]
          }
          END
        END
        GROUP(TEXT="Attachments")
          GRID
          {
          <T attachments                        >
          [sname        |fname                  ]
          [                               :add:rm]
          }
          END
        END
      END
      GROUP mc(TEXT="Compose mail")
        GRID
        {
        [s|subject                                      ]
        [mailtext                                       ]
        [                                               ]
        [                                               ]
        [                                               ]
                                                   [send]
        }
        END
      END
    END
  END
  PAGE p3(TEXT="SMTP Dialog log")
    GRID
    {
    [smtplog                                        ]
    [                                               ]
    [                                               ]
    [                                               ]
    }
    END
  END
END

ATTRIBUTES
# Configuration
# smtphost should be a simple EDIT field, but EDIT does not support STRETCH attribute.
TEXTEDIT hostname=formonly.hostname, STRETCH=X, SCROLLBARS=NONE, WANTNORETURNS;
TEXTEDIT smtphost=formonly.smtphost, STRETCH=X, SCROLLBARS=NONE, WANTNORETURNS;
TABLE recipients: UNHIDABLECOLUMNS, UNMOVABLECOLUMNS;
EDIT smtpport=formonly.smtpport;
EDIT senderemail=formonly.senderemail, SCROLL;
EDIT cnxtimeout=formonly.cnxtimeout;
BUTTON savecnf:savecnf, TEXT="Save", IMAGE="disk";
BUTTON chkcnf:chkcnf, TEXT="Check", IMAGE="refresh";
BUTTON a: srrecipients.append, IMAGE = "listadd", TEXT="";
BUTTON i: srrecipients.insert, IMAGE = "listins", TEXT="";
BUTTON d: srrecipients.delete, IMAGE = "listdel", TEXT="";
LABEL lhostname:TEXT="Hostname";
LABEL lsmtphost:TEXT="Smtp server";
LABEL lsmtpport:TEXT="Smtp port";
LABEL lsenderem:TEXT="Email";
LABEL lcnxtout:TEXT="Connection timeout";

# To
COMBOBOX mode=formonly.mode, ITEMS=("To", "CC", "BCC"), TITLE="To";
EDIT recipient=formonly.recipient, TITLE="Email";

# Subject and mail body
LABEL s: TEXT="Subject:";
EDIT subject=formonly.subject, SCROLL;
TEXTEDIT mailtext=formonly.mailtext, STRETCH=BOTH;
BUTTON send:send, TEXT="Send", IMAGE="mail";

# Attachments
TABLE attachments: DOUBLECLICK=viewattachment;
EDIT fname=formonly.fname, TITLE="Filename";
EDIT sname=formonly.sname, HIDDEN=USER, TITLE="Local Filename";
BUTTON rm: delattachment, TEXT="Remove", IMAGE="eraser";
BUTTON add: attachfile, TEXT="Attach", IMAGE="plus";

# SMTP dialog log
TEXTEDIT smtplog=formonly.logtext, STRETCH=BOTH;

INSTRUCTIONS
SCREEN RECORD srrecipients(formonly.mode, formonly.recipient);
SCREEN RECORD srattachments(formonly.fname, formonly.sname);