[JVCL-Checkins] dev/JVCL3/examples/JvParameterList JvParameterListMainForm.dfm,1.10,1.11 JvParameterListMainForm.pas,1.14,1.15 - Updated

[Jens F. <jfu...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvParameterList
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30014/JVCL3/examples/JvParameterList

Modified Files:
	JvParameterListMainForm.dfm JvParameterListMainForm.pas 
Log Message:
Updated



Index: JvParameterListMainForm.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvParameterList/JvParameterListMainForm.dfm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** JvParameterListMainForm.dfm	25 Aug 2004 22:24:58 -0000	1.10
--- JvParameterListMainForm.dfm	22 Dec 2004 22:43:18 -0000	1.11
***************
*** 2110,2113 ****
--- 2110,2114 ----
      StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
      StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
+     StorageOptions.WhiteSpaceReplacement = '_'
      FileName = 'JvParameterListDemo.xml'
      RootNodeName = 'Configuration'

Index: JvParameterListMainForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvParameterList/JvParameterListMainForm.pas,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** JvParameterListMainForm.pas	9 Aug 2004 21:08:47 -0000	1.14
--- JvParameterListMainForm.pas	22 Dec 2004 22:43:18 -0000	1.15
***************
*** 114,118 ****
      Button14: TButton;
      GroupBox7: TGroupBox;
-     Button15: TButton;
      DefaultParameterWidthEdit: TMaskEdit;
      Label6: TLabel;
--- 114,117 ----
***************
*** 120,123 ****
--- 119,125 ----
      DefaultParameterLabelWidthEdit: TMaskEdit;
      AssignWidthHeightCheckBox: TCheckBox;
+     JvPanel2: TJvPanel;
+     Button16: TButton;
+     Button15: TButton;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
***************
*** 142,145 ****
--- 144,148 ----
      procedure Button15Click(Sender: TObject);
      procedure AssignWidthHeightCheckBoxClick(Sender: TObject);
+     procedure Button16Click(Sender: TObject);
    private
      { Private-Deklarationen }
***************
*** 239,243 ****
        Caption    := 'DateTest';
  //      Width      := 80;
!       AsDate     := Now;
      end;
      ParameterList.AddParameter(Parameter);
--- 242,246 ----
        Caption    := 'DateTest';
  //      Width      := 80;
!       AsDate     := Now-10;
      end;
      ParameterList.AddParameter(Parameter);
***************
*** 1042,1044 ****
--- 1045,1078 ----
  end;
  
+ procedure TForm1.Button16Click(Sender: TObject);
+ VAR
+   ParameterList     : TJvParameterList;
+   BaseParameter     : TJvBaseParameter;
+ begin
+   ParameterList := TJvParameterList.Create(self);
+   try
+     BaseParameter:= TJvBaseParameter(tJvMemoParameter.Create(ParameterList));
+     WITH tJvMemoParameter(BaseParameter) DO
+     BEGIN
+       SearchName := 'Memo';
+       Caption := 'Simple Memo';
+       AsString := 'Memo Contents';
+       Width := 420;
+       Height := 200;
+       WordWrap := False;
+       WantTabs := False;
+       WantReturns := False;
+       Scrollbars := ssBoth;
+       ReadOnly := TRUE;
+     END;   {*** WITH BaseParameter DO ***}
+     ParameterList.AddParameter(BaseParameter);
+     ParameterList.Messages.OkButton := 'C&opy';
+     ParameterList.Messages.CancelButton := '&Cancel';
+     IF ParameterList.ShowParameterDialog THEN
+       MessageDlg (ParameterList.ParameterByName('Memo').ASString, mtInformation, [mbok],0);
+   finally
+     ParameterList.Free;
+   end;
+ end;
+ 
  end.