[JVCL-Checkins] CVS: dev/JVCL3/examples/JediSurveyor/Surveyor MainFrm.dfm,1.3,1.4 MainFrm.pas,1.1,1.2 - style cleaning

[Robert M. <mar...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JediSurveyor/Surveyor
In directory sc8-pr-cvs1:/tmp/cvs-serv18373/JVCL3/examples/JediSurveyor/Surveyor

Modified Files:
	MainFrm.dfm MainFrm.pas 
Log Message:
style cleaning

Index: MainFrm.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JediSurveyor/Surveyor/MainFrm.dfm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MainFrm.dfm	18 Oct 2003 12:01:57 -0000	1.3
--- MainFrm.dfm	30 Nov 2003 17:10:26 -0000	1.4
***************
*** 854,862 ****
        OnExecute = acLoadSurveyExecute
      end
!     object acSendMail: TJvSendMail
        Caption = 'Send'
!       Mail.FindOptions = []
!       Mail.HtmlBody = False
!       Mail.LogonOptions = [loLogonUI]
      end
      object acGotoJVCL: TJvWebAction
--- 854,862 ----
        OnExecute = acLoadSurveyExecute
      end
!     object acSendMail: TJvSendMailAction
        Caption = 'Send'
!       MailOptions.FindOptions = []
!       MailOptions.HtmlBody = False
!       MailOptions.LogonOptions = [loLogonUI]
      end
      object acGotoJVCL: TJvWebAction

Index: MainFrm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JediSurveyor/Surveyor/MainFrm.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** MainFrm.pas	26 Jun 2003 13:00:07 -0000	1.1
--- MainFrm.pas	30 Nov 2003 17:10:26 -0000	1.2
***************
*** 610,615 ****
  procedure TfrmMain.DoSendMail(Sender: TObject);
  begin
!   acSendMail.Mail.Recipients := FSurvey.RecipientMail;
!   acSendMail.Mail.Subject := FSurvey.Title;
    if edUserName <> nil then
      FSurvey.SurveyTaker.UserName := edUserName.Text;
--- 610,615 ----
  procedure TfrmMain.DoSendMail(Sender: TObject);
  begin
!   acSendMail.MailOptions.Recipients := FSurvey.RecipientMail;
!   acSendMail.MailOptions.Subject := FSurvey.Title;
    if edUserName <> nil then
      FSurvey.SurveyTaker.UserName := edUserName.Text;
***************
*** 617,621 ****
      FSurvey.SurveyTaker.MailAddress := edUserEMail.Text;
    // create and attach response file
!   acSendMail.Mail.Attachments.Clear;
    if FTempSurveyFilename = '' then
      FTempSurveyFilename := GetTempSurveyFileName;
--- 617,621 ----
      FSurvey.SurveyTaker.MailAddress := edUserEMail.Text;
    // create and attach response file
!   acSendMail.MailOptions.Attachments.Clear;
    if FTempSurveyFilename = '' then
      FTempSurveyFilename := GetTempSurveyFileName;
***************
*** 623,630 ****
      FSurvey.SurveyTaker.ID := CreateClassID;
    FSurvey.SaveToFile(FTempSurveyFilename,ffBinary);
!   acSendMail.Mail.Attachments.Add(FTempSurveyFilename);
  
!   acSendMail.Mail.ShowDialogs := true; // not acSendMail.Mail.UserLogged;
!   if acSendMail.Mail.Execute then
      FCompletedSurvey := true;
  end;
--- 623,630 ----
      FSurvey.SurveyTaker.ID := CreateClassID;
    FSurvey.SaveToFile(FTempSurveyFilename,ffBinary);
!   acSendMail.MailOptions.Attachments.Add(FTempSurveyFilename);
  
!   acSendMail.MailOptions.ShowDialogs := true; // not acSendMail.Mail.UserLogged;
!   if acSendMail.Execute then
      FCompletedSurvey := true;
  end;