From: Peter T. <pe...@us...> - 2003-03-27 15:03:35
|
Update of /cvsroot/jvcl/dev/p3/examples/JediSurveyor/Surveyor In directory sc8-pr-cvs1:/tmp/cvs-serv25584/p3/examples/JediSurveyor/Surveyor Modified Files: CommentFrm.dfm CommentFrm.pas MainFrm.pas 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: CommentFrm.dfm =================================================================== RCS file: /cvsroot/jvcl/dev/p3/examples/JediSurveyor/Surveyor/CommentFrm.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** CommentFrm.dfm 25 Mar 2003 18:22:51 -0000 1.1 --- CommentFrm.dfm 27 Mar 2003 15:03:26 -0000 1.2 *************** *** 38,52 **** TabOrder = 2 end ! object reComments: TJvRichEdit Left = 6 Top = 6 Width = 361 Height = 246 Anchors = [akLeft, akTop, akRight, akBottom] - PlainText = True PopupMenu = popEdit TabOrder = 0 WantTabs = True ! WordWrap = False end object alCommentFrm: TActionList --- 38,56 ---- TabOrder = 2 end ! object reComments: TJvMemo Left = 6 Top = 6 Width = 361 Height = 246 + AutoSize = False + MaxLines = 0 + HideCaret = False Anchors = [akLeft, akTop, akRight, akBottom] PopupMenu = popEdit + ReadOnly = False + ScrollBars = ssBoth TabOrder = 0 WantTabs = True ! Wordwrap = False end object alCommentFrm: TActionList Index: CommentFrm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/p3/examples/JediSurveyor/Surveyor/CommentFrm.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** CommentFrm.pas 25 Mar 2003 18:22:51 -0000 1.1 --- CommentFrm.pas 27 Mar 2003 15:03:27 -0000 1.2 *************** *** 5,9 **** uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ! Dialogs, StdCtrls, ComCtrls, ActnList, JvDialogs, Menus, JvRichEd; type --- 5,9 ---- uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ! Dialogs, StdCtrls, ComCtrls, ActnList, JvDialogs, Menus, JvMemo; type *************** *** 11,15 **** btnOK: TButton; btnCancel: TButton; ! reComments: TJvRichEdit; alCommentFrm: TActionList; acOK: TAction; --- 11,15 ---- btnOK: TButton; btnCancel: TButton; ! reComments: TJvMemo; alCommentFrm: TActionList; acOK: TAction; Index: MainFrm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/p3/examples/JediSurveyor/Surveyor/MainFrm.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** MainFrm.pas 25 Mar 2003 20:44:05 -0000 1.5 --- MainFrm.pas 27 Mar 2003 15:03:28 -0000 1.6 *************** *** 7,12 **** Dialogs, StdCtrls, ExtCtrls, JvScrollBox, ComCtrls, JvProgressBar, JvBevel, Buttons, JvBitBtn, JvFooter, JvComponent, JvSurveyIntf, ! JvDialogs, JvRichEd, ImgList, JvImageWindow, ActnList, JvActions, JvLinkLabel, ! JvRadioButton, JvCheckBox, Menus; type --- 7,12 ---- Dialogs, StdCtrls, ExtCtrls, JvScrollBox, ComCtrls, JvProgressBar, JvBevel, Buttons, JvBitBtn, JvFooter, JvComponent, JvSurveyIntf, ! JvDialogs, ImgList, JvImageWindow, ActnList, JvActions, JvLinkLabel, ! JvRadioButton, JvCheckBox, JvMemo, Menus; type *************** *** 461,475 **** procedure TfrmMain.CreateFreeFormPage(Index:integer); ! var RE:TJvRichEdit; begin ClearScrollBox; ! RE := TJvRichEdit.Create(self); with RE do begin Parent := sbSurvey; SetBounds(cStartOffset, cStartOffset, sbSurvey.ClientWidth - cStartOffset * 2, sbSurvey.ClientHeight - cStartOffset * 2); Anchors := [akLeft..akBottom]; ! PlainText := true; ScrollBars := ssBoth; if FSurvey.Items[FPageIndex].Responses = '' then --- 461,476 ---- procedure TfrmMain.CreateFreeFormPage(Index:integer); ! var RE:TJvMemo; begin ClearScrollBox; ! RE := TJvMemo.Create(self); with RE do begin + WordWrap := false; Parent := sbSurvey; SetBounds(cStartOffset, cStartOffset, sbSurvey.ClientWidth - cStartOffset * 2, sbSurvey.ClientHeight - cStartOffset * 2); Anchors := [akLeft..akBottom]; ! // PlainText := true; ScrollBars := ssBoth; if FSurvey.Items[FPageIndex].Responses = '' then *************** *** 544,548 **** // and add a path Result := ChangeFileExt(ExtractFileName(Filename), '') + ! DefaultStr(FSurvey.SurveyTaker.UserName, GetLocalUserName) + FormatDateTime('yyyyMMddhhnnss', Now) + cResponseFileExt; // ShowMessage(Result); --- 545,549 ---- // and add a path Result := ChangeFileExt(ExtractFileName(Filename), '') + ! DefaultStr(GetLocalUserName,GetLocalComputerName) + FormatDateTime('yyyyMMddhhnnss', Now) + cResponseFileExt; // ShowMessage(Result); |