From: Peter T. <pe...@us...> - 2004-02-10 15:25:01
|
Update of /cvsroot/jvcl/dev/JVCL3/examples/JvSearchFile In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5682/examples/JvSearchFile Modified Files: JvSearchFileMainFormU.dfm JvSearchFileMainFormU.pas Log Message: - added Scaled = false to dfm's - removed D6+ properties Index: JvSearchFileMainFormU.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvSearchFile/JvSearchFileMainFormU.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** JvSearchFileMainFormU.pas 23 Jan 2004 09:50:40 -0000 1.5 --- JvSearchFileMainFormU.pas 10 Feb 2004 15:21:34 -0000 1.6 *************** *** 32,36 **** Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, JvListbox, JvComponent, JvCtrls, JvSearchFiles, Mask, JvToolEdit, ! ComCtrls, JvEdit, Menus, JvFormPlacement, JvExMask; type --- 32,37 ---- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, JvListbox, JvComponent, JvCtrls, JvSearchFiles, Mask, JvToolEdit, ! ComCtrls, JvEdit, Menus, JvFormPlacement, JvExMask, JvAppStorage, ! JvAppIniStorage; type *************** *** 54,57 **** --- 55,59 ---- rbInclude: TRadioButton; rbExclude: TRadioButton; + JvAppIniFileStorage1: TJvAppIniFileStorage; procedure btnSearchClick(Sender: TObject); procedure JvSearchFile1FindFile(Sender: TObject; const AName: string); Index: JvSearchFileMainFormU.dfm =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvSearchFile/JvSearchFileMainFormU.dfm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** JvSearchFileMainFormU.dfm 9 Feb 2004 08:28:06 -0000 1.5 --- JvSearchFileMainFormU.dfm 10 Feb 2004 15:21:34 -0000 1.6 *************** *** 49,52 **** --- 49,53 ---- Width = 281 Height = 21 + DialogKind = dkWin32 ButtonFlat = False Anchors = [akLeft, akTop, akRight] *************** *** 193,196 **** --- 194,198 ---- end object JvFormStorage1: TJvFormStorage + AppStorage = JvAppIniFileStorage1 StoredProps.Strings = ( 'edFileMask.Text' *************** *** 204,208 **** 'rbExclude.Checked') StoredValues = <> ! Left = 186 Top = 72 end --- 206,219 ---- 'rbExclude.Checked') StoredValues = <> ! Left = 154 ! Top = 72 ! end ! object JvAppIniFileStorage1: TJvAppIniFileStorage ! StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' ! StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' ! FileName = 'JvSearchFilesProj.ini' ! DefaultSection = 'Settings' ! SubStorages = <> ! Left = 192 Top = 72 end |