From: Peter T. <pe...@us...> - 2003-03-23 20:23:38
|
Update of /cvsroot/jvcl/jvcl/source In directory sc8-pr-cvs1:/tmp/cvs-serv21958/source Modified Files: Changelog.txt JVCLReg.pas JvCtlReg.pas JvEnterAsTab.res JvFileUtil.pas JvHLParser.pas JvMinMaxEd.dfm JvMinMaxEd.pas JvMultiHttpGrabber.pas Added Files: JvValidateEdit.pas Removed Files: JvFloatEdit.pas JvTypedEdit.pas Log Message: Replaced TJvFloatEdit, TJvFloatEdit2, TJvCurrencyEdit, TJvxCurrencyEdit, TJvIntegerEdit amd TJvYearEdit with TJvValidateEdit. Updated examples, fixed packages, added palette image. BCB packages updated but NOT tested. Moved JvFloatEdit and JvTypedEdit to \archive. --- NEW FILE: JvValidateEdit.pas --- {----------------------------------------------------------------------------- The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/MPL-1.1.html Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for the specific language governing rights and limitations under the License. The Original Code is JvValidateEdit, released on 20 February 2003, by Christopher Latta Portions created by Christopher Latta are Copyright (C) 2003 Christopher Latta. All Rights Reserved. Contributor(s): Peter Thörnqvist Last Modified: 2003-02-20 [...984 lines suppressed...] procedure TJvValidateEditCriticalPoints.Assign(Source: TPersistent); var lcSource: TJvValidateEditCriticalPoints; begin inherited; if Source is TJvValidateEditCriticalPoints then begin lcSource := Source as TJvValidateEditCriticalPoints; CheckPoints := lcSource.CheckPoints; ColorAbove := lcSource.ColorAbove; ColorBelow := lcSource.ColorBelow; MaxValue := lcSource.MaxValue; MinValue := lcSource.MinValue; end; end; end. Index: Changelog.txt =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/Changelog.txt,v retrieving revision 1.49 retrieving revision 1.50 diff -C2 -d -r1.49 -r1.50 *** Changelog.txt 23 Mar 2003 15:07:59 -0000 1.49 --- Changelog.txt 23 Mar 2003 20:23:35 -0000 1.50 *************** *** 1,3 **** --- 1,6 ---- 2003-03-23 + Replaced TJvFloatEdit, TJvFloatEdit2, TJvCurrencyEdit, TJvxCurrencyEdit, TJvIntegerEdit and TJvYearEdit with TJvValidateEdit. JvFloatEdit.pas and JvTypedEdit.pas moved to \archive, examples updated. // peter3 + + 2003-03-23 Merged TJvRichEdit with TJvxRichEdit. TJvxRichEdit renamed to TJvRichEdit. JvRichEdit.pas moved to \archive. // roko, peter3 2003-03-23 Index: JVCLReg.pas =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JVCLReg.pas,v retrieving revision 1.51 retrieving revision 1.52 diff -C2 -d -r1.51 -r1.52 *** JVCLReg.pas 23 Mar 2003 15:07:39 -0000 1.51 --- JVCLReg.pas 23 Mar 2003 20:23:35 -0000 1.52 *************** *** 59,68 **** // Standard JvEdit, JvCombobox, JvCheckBox, JvRadioButton, JvButton, ! JvLabel, JvScrollBar, JvRadioGroup, JvPanel, JvMemo, // Edits { JvCustomBox, JvFileNameBox, JvDirectoryBox, JvImageBox, JvButtonBox, JvCalculatorBox, } ! JvTypedEdit, JvFloatEdit, // Controls --- 59,68 ---- // Standard JvEdit, JvCombobox, JvCheckBox, JvRadioButton, JvButton, ! JvLabel, JvScrollBar, JvRadioGroup, JvPanel, JvMemo, JvValidateEdit, // Edits { JvCustomBox, JvFileNameBox, JvDirectoryBox, JvImageBox, JvButtonBox, JvCalculatorBox, } ! // JvTypedEdit, JvFloatEdit, // Controls *************** *** 260,264 **** [TJvLabel, TJvEdit, TJvMemo, TJvButton, TJvCheckBox, TJvRadioButton, TJvListBox, TJvCombobox, TJvScrollBar, TJvGroupBox, TJvRadioGroup, ! TJvPanel, TJvJVCLAboutComponent]); // Jv Additional --- 260,264 ---- [TJvLabel, TJvEdit, TJvMemo, TJvButton, TJvCheckBox, TJvRadioButton, TJvListBox, TJvCombobox, TJvScrollBar, TJvGroupBox, TJvRadioGroup, ! TJvPanel, TJvJVCLAboutComponent, TJvValidateEdit]); // Jv Additional *************** *** 405,410 **** // Jv Convert ! RegisterComponents(srJvConvertPalette, ! [TJvFloatEdit, TJvFloatEdit2, TJvCurrencyEdit, TJvIntegerEdit, TJvYearEdit]); // JvBands --- 405,410 ---- // Jv Convert ! // RegisterComponents(srJvConvertPalette, ! // [TJvFloatEdit, TJvFloatEdit2, TJvCurrencyEdit, TJvIntegerEdit, TJvYearEdit]); // JvBands Index: JvCtlReg.pas =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvCtlReg.pas,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** JvCtlReg.pas 23 Mar 2003 15:07:40 -0000 1.16 --- JvCtlReg.pas 23 Mar 2003 20:23:35 -0000 1.17 *************** *** 443,447 **** [TJvComboEdit, TJvFilenameEdit, TJvDirectoryEdit, TJvDateEdit, TJvCalcEdit]); ! RegisterComponents(srJvConvertPalette, [TJvxCurrencyEdit]); RegisterComponents(srJvControlsPalette, [TJvTextListBox, --- 443,447 ---- [TJvComboEdit, TJvFilenameEdit, TJvDirectoryEdit, TJvDateEdit, TJvCalcEdit]); ! // RegisterComponents(srJvConvertPalette, [TJvxCurrencyEdit]); RegisterComponents(srJvControlsPalette, [TJvTextListBox, Index: JvEnterAsTab.res =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvEnterAsTab.res,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 Binary files /tmp/cvsHkAQ28 and /tmp/cvsAucUQ7 differ Index: JvFileUtil.pas =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvFileUtil.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** JvFileUtil.pas 17 Mar 2003 19:37:42 -0000 1.9 --- JvFileUtil.pas 23 Mar 2003 20:23:35 -0000 1.10 *************** *** 110,113 **** --- 110,116 ---- {$ENDIF} {$ENDIF} + {$IFDEF COMPILER5} + FileCtrl, + {$ENDIF} ShellAPI, Forms, JvDateUtil, JvVCLUtils, JvPrgrss, JvBrowseFolder; Index: JvHLParser.pas =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvHLParser.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** JvHLParser.pas 23 Mar 2003 13:59:40 -0000 1.6 --- JvHLParser.pas 23 Mar 2003 20:23:35 -0000 1.7 *************** *** 8,12 **** WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for the specific language governing rights and limitations under the License. ! The Original Code is: JvHLParser.PAS, released on 2002-07-04. --- 8,12 ---- WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for the specific language governing rights and limitations under the License. ! The Original Code is: JvHLParser.PAS, released on 2002-07-04. Index: JvMinMaxEd.dfm =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvMinMaxEd.dfm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** JvMinMaxEd.dfm 18 Feb 2003 15:53:55 -0000 1.3 --- JvMinMaxEd.dfm 23 Mar 2003 20:23:35 -0000 1.4 *************** *** 214,218 **** OnClick = SetCurrentBtnClick end ! object MaxPosLeftEdit: TJvxCurrencyEdit Left = 162 Top = 10 --- 214,218 ---- OnClick = SetCurrentBtnClick end ! object MaxPosLeftEdit: TJvValidateEdit Left = 162 Top = 10 *************** *** 220,231 **** Height = 21 AutoSize = False ! CheckOnExit = True ! DecimalPlaces = 0 ! DisplayFormat = ',0;-,0' MaxValue = 10000 TabOrder = 3 ! ZeroEmpty = False end ! object MaxPosTopEdit: TJvxCurrencyEdit Left = 242 Top = 10 --- 220,233 ---- Height = 21 AutoSize = False ! CheckChars = '01234567890' ! HasMaxValue = True MaxValue = 10000 + PasswordChar = #0 + ReadOnly = False TabOrder = 3 ! Text = '0' ! Value = 0 end ! object MaxPosTopEdit: TJvValidateEdit Left = 242 Top = 10 *************** *** 233,244 **** Height = 21 AutoSize = False ! CheckOnExit = True ! DecimalPlaces = 0 ! DisplayFormat = ',0;-,0' MaxValue = 10000 TabOrder = 4 ! ZeroEmpty = False end ! object MaxSizeWidthEdit: TJvxCurrencyEdit Left = 162 Top = 39 --- 235,248 ---- Height = 21 AutoSize = False ! CheckChars = '01234567890' ! HasMaxValue = True MaxValue = 10000 + PasswordChar = #0 + ReadOnly = False TabOrder = 4 ! Text = '0' ! Value = 0 end ! object MaxSizeWidthEdit: TJvValidateEdit Left = 162 Top = 39 *************** *** 246,257 **** Height = 21 AutoSize = False ! CheckOnExit = True ! DecimalPlaces = 0 ! DisplayFormat = ',0;-,0' MaxValue = 10000 TabOrder = 5 ! ZeroEmpty = False end ! object MaxSizeHeightEdit: TJvxCurrencyEdit Left = 242 Top = 39 --- 250,263 ---- Height = 21 AutoSize = False ! CheckChars = '01234567890' ! HasMaxValue = True MaxValue = 10000 + PasswordChar = #0 + ReadOnly = False TabOrder = 5 ! Text = '0' ! Value = 0 end ! object MaxSizeHeightEdit: TJvValidateEdit Left = 242 Top = 39 *************** *** 259,270 **** Height = 21 AutoSize = False ! CheckOnExit = True ! DecimalPlaces = 0 ! DisplayFormat = ',0;-,0' MaxValue = 10000 TabOrder = 6 ! ZeroEmpty = False end ! object MaxTrackWidthEdit: TJvxCurrencyEdit Left = 162 Top = 68 --- 265,278 ---- Height = 21 AutoSize = False ! CheckChars = '01234567890' ! HasMaxValue = True MaxValue = 10000 + PasswordChar = #0 + ReadOnly = False TabOrder = 6 ! Text = '0' ! Value = 0 end ! object MaxTrackWidthEdit: TJvValidateEdit Left = 162 Top = 68 *************** *** 272,283 **** Height = 21 AutoSize = False ! CheckOnExit = True ! DecimalPlaces = 0 ! DisplayFormat = ',0;-,0' MaxValue = 10000 TabOrder = 7 ! ZeroEmpty = False end ! object MaxTrackHeightEdit: TJvxCurrencyEdit Left = 242 Top = 68 --- 280,293 ---- Height = 21 AutoSize = False ! CheckChars = '01234567890' ! HasMaxValue = True MaxValue = 10000 + PasswordChar = #0 + ReadOnly = False TabOrder = 7 ! Text = '0' ! Value = 0 end ! object MaxTrackHeightEdit: TJvValidateEdit Left = 242 Top = 68 *************** *** 285,296 **** Height = 21 AutoSize = False ! CheckOnExit = True ! DecimalPlaces = 0 ! DisplayFormat = ',0;-,0' MaxValue = 10000 TabOrder = 8 ! ZeroEmpty = False end ! object MinTrackWidthEdit: TJvxCurrencyEdit Left = 162 Top = 98 --- 295,308 ---- Height = 21 AutoSize = False ! CheckChars = '01234567890' ! HasMaxValue = True MaxValue = 10000 + PasswordChar = #0 + ReadOnly = False TabOrder = 8 ! Text = '0' ! Value = 0 end ! object MinTrackWidthEdit: TJvValidateEdit Left = 162 Top = 98 *************** *** 298,309 **** Height = 21 AutoSize = False ! CheckOnExit = True ! DecimalPlaces = 0 ! DisplayFormat = ',0;-,0' MaxValue = 10000 TabOrder = 9 ! ZeroEmpty = False end ! object MinTrackHeightEdit: TJvxCurrencyEdit Left = 242 Top = 98 --- 310,323 ---- Height = 21 AutoSize = False ! CheckChars = '01234567890' ! HasMaxValue = True MaxValue = 10000 + PasswordChar = #0 + ReadOnly = False TabOrder = 9 ! Text = '0' ! Value = 0 end ! object MinTrackHeightEdit: TJvValidateEdit Left = 242 Top = 98 *************** *** 311,320 **** Height = 21 AutoSize = False ! CheckOnExit = True ! DecimalPlaces = 0 ! DisplayFormat = ',0;-,0' MaxValue = 10000 TabOrder = 10 ! ZeroEmpty = False end object OkBtn: TButton --- 325,336 ---- Height = 21 AutoSize = False ! CheckChars = '01234567890' ! HasMaxValue = True MaxValue = 10000 + PasswordChar = #0 + ReadOnly = False TabOrder = 10 ! Text = '0' ! Value = 0 end object OkBtn: TButton Index: JvMinMaxEd.pas =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvMinMaxEd.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** JvMinMaxEd.pas 18 Feb 2003 15:53:55 -0000 1.5 --- JvMinMaxEd.pas 23 Mar 2003 20:23:35 -0000 1.6 *************** *** 45,49 **** {$ENDIF} Consts, ! JvCurrEdit, JvVCLUtils, JvPlacemnt, JvToolEdit; type --- 45,49 ---- {$ENDIF} Consts, ! JvCurrEdit, JvVCLUtils, JvPlacemnt, JvToolEdit, JvValidateEdit, JvEdit; type *************** *** 69,80 **** MinTrackBtn: TSpeedButton; ClearBtn: TButton; ! MaxPosLeftEdit: TJvxCurrencyEdit; ! MaxPosTopEdit: TJvxCurrencyEdit; ! MaxSizeWidthEdit: TJvxCurrencyEdit; ! MaxSizeHeightEdit: TJvxCurrencyEdit; ! MaxTrackWidthEdit: TJvxCurrencyEdit; ! MaxTrackHeightEdit: TJvxCurrencyEdit; ! MinTrackWidthEdit: TJvxCurrencyEdit; ! MinTrackHeightEdit: TJvxCurrencyEdit; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); --- 69,80 ---- MinTrackBtn: TSpeedButton; ClearBtn: TButton; ! MaxPosLeftEdit: TJvValidateEdit; ! MaxPosTopEdit: TJvValidateEdit; ! MaxSizeWidthEdit: TJvValidateEdit; ! MaxSizeHeightEdit: TJvValidateEdit; ! MaxTrackWidthEdit: TJvValidateEdit; ! MaxTrackHeightEdit: TJvValidateEdit; ! MinTrackWidthEdit: TJvValidateEdit; ! MinTrackHeightEdit: TJvValidateEdit; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); Index: JvMultiHttpGrabber.pas =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvMultiHttpGrabber.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** JvMultiHttpGrabber.pas 27 Feb 2003 11:09:56 -0000 1.5 --- JvMultiHttpGrabber.pas 23 Mar 2003 20:23:35 -0000 1.6 *************** *** 245,248 **** --- 245,249 ---- begin OnTerminate := ThreadDateTerminated; + FreeOnTerminate := true; Resume; end; *************** *** 362,366 **** StopConnection(FInfos); Dispose(FInfos); ! Free; end; end; --- 363,367 ---- StopConnection(FInfos); Dispose(FInfos); ! // Free; // (p3) FreeOnTerminate set when creating, so don't free here end; end; --- JvFloatEdit.pas DELETED --- --- JvTypedEdit.pas DELETED --- |