[JVCL-Checkins] CVS: dev/p3/examples/JediSurveyor/Reporter MainFrm.pas,1.8,1.9 jsr.dpr,1.2,1.3

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/p3/examples/JediSurveyor/Reporter
In directory sc8-pr-cvs1:/tmp/cvs-serv25584/p3/examples/JediSurveyor/Reporter

Modified Files:
	MainFrm.pas jsr.dpr 
Log Message:
Surveyor:
Changed RichEdits to memos 
Response filename is now generated from LocalUserName first and LocalComputer second

Builder:
SurveyTaker is cleared before saving


Index: MainFrm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/p3/examples/JediSurveyor/Reporter/MainFrm.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** MainFrm.pas	25 Mar 2003 20:44:01 -0000	1.8
--- MainFrm.pas	27 Mar 2003 15:03:25 -0000	1.9
***************
*** 487,491 ****
    function ConvertCRLFToBR(const S: string): string;
    begin
- //    Result := StringReplace(Result,MakeString(cDelimChar, cDelimLength),'<hr>',[rfReplaceAll]);
      Result := StringReplace(S, '\n', '<br>', [rfReplaceAll]);
      Result := StringReplace(Result, #13#10, '<br>', [rfReplaceAll]);
--- 487,490 ----

Index: jsr.dpr
===================================================================
RCS file: /cvsroot/jvcl/dev/p3/examples/JediSurveyor/Reporter/jsr.dpr,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** jsr.dpr	22 Mar 2003 13:39:41 -0000	1.2
--- jsr.dpr	27 Mar 2003 15:03:26 -0000	1.3
***************
*** 4,9 ****
    Forms,
    MainFrm in 'MainFrm.pas' {frmMain},
!   JvSurveyImpl in '..\common\JvSurveyImpl.pas',
!   CommentsFrm in 'CommentsFrm.pas' {frmComments};
  
  {$R *.RES}
--- 4,8 ----
    Forms,
    MainFrm in 'MainFrm.pas' {frmMain},
!   JvSurveyImpl in '..\common\JvSurveyImpl.pas';
  
  {$R *.RES}