From: <mar...@us...> - 2006-05-16 09:14:00
|
Revision: 10600 Author: marquardt Date: 2006-05-16 02:13:15 -0700 (Tue, 16 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10600&view=rev Log Message: ----------- moving JvgProcess to Archive Modified Paths: -------------- trunk/jvcl/changelog.txt trunk/jvcl/design/JvGlobusReg.pas trunk/jvcl/help/migrating_globus.html trunk/jvcl/images/JvGlobusReg.rc trunk/jvcl/packages/c5/JvGlobusC5R.bpk trunk/jvcl/packages/c5/JvGlobusC5R.cpp trunk/jvcl/packages/c5/JvGlobusC5R.dpk trunk/jvcl/packages/c5std/JvGlobusC5R.bpk trunk/jvcl/packages/c5std/JvGlobusC5R.cpp trunk/jvcl/packages/c5std/JvGlobusC5R.dpk trunk/jvcl/packages/c6/JvGlobusC6R.bpk trunk/jvcl/packages/c6/JvGlobusC6R.dpk trunk/jvcl/packages/c6per/JvGlobusC6R.bpk trunk/jvcl/packages/c6per/JvGlobusC6R.dpk trunk/jvcl/packages/d10/JvGlobusD10R.dpk trunk/jvcl/packages/d10per/JvGlobusD10R.dpk trunk/jvcl/packages/d5/JvGlobusD5R.dpk trunk/jvcl/packages/d5std/JvGlobusD5R.dpk trunk/jvcl/packages/d6/JvGlobusD6R.dpk trunk/jvcl/packages/d6per/JvGlobusD6R.dpk trunk/jvcl/packages/d7/JvGlobusD7R.dpk trunk/jvcl/packages/d7per/JvGlobusD7R.dpk trunk/jvcl/packages/d9/JvGlobusD9R.dpk trunk/jvcl/packages/d9per/JvGlobusD9R.dpk trunk/jvcl/packages/xml/JvGlobus-R.xml trunk/jvcl/readme.htm trunk/jvcl/resources/JvGlobusReg.dcr trunk/jvcl/todo.txt Modified: trunk/jvcl/changelog.txt =================================================================== --- trunk/jvcl/changelog.txt 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/changelog.txt 2006-05-16 09:13:15 UTC (rev 10600) @@ -1,5 +1,7 @@ Changelog for JVCL 3.X ====================== +2006-05-16: +- TJvgProcess moved to Archive because TJvCreateProcess is much better // (rom) 2006-04-23: - Introduced MaxSimultaneousGrabbers in JvUrlListGrabber, thus changing the Grabbers array behaviour to only contain the running grabbers. // obones 2006-04-08: Modified: trunk/jvcl/design/JvGlobusReg.pas =================================================================== --- trunk/jvcl/design/JvGlobusReg.pas 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/design/JvGlobusReg.pas 2006-05-16 09:13:15 UTC (rev 10600) @@ -53,9 +53,9 @@ JvgFileIterator, {JvgFileUtils, } JvgFixFont, JvgShadow, {JvgGraph,} JvgGraphicButton, JvgSingleInstance, {JvgShape, } JvgSpeedButton, JvgStaticText, JvgHoleShape, JvgSplit, - {JvgImageGroup, } JvgInspectorGrid, {JvgJump, } JvgSmallFontsDefense, //JvgSysInf, + {JvgImageGroup, } JvgInspectorGrid, {JvgJump, } JvgSmallFontsDefense, {JvgSysInf, } JvgLogicItemEditorForm, JvgLogics, JvgStringContainer, JvgMailSlots, - JvgStringGrid, JvgTabComm, JvgTab, JvgSysRequirements, JvgProcess, + JvgStringGrid, JvgTabComm, JvgTab, JvgSysRequirements, {JvgProcess, } {JvgProcessUtils, } JvgPropertyCenter, JvgTransparentMemo, JvgTreeView, JvgTypes, JvgUtils, {JvgWinMask, } JvgRTFPreviewForm, JvgWizardHeader, JvgXMLSerializer, Jvg3DColors, JvgAskListBox, JvgBevel, @@ -99,7 +99,7 @@ TJvgExtSpeedButton, TJvgWizardHeader, TJvgCaption]); RegisterComponents(RsPaletteGlobusComponents2, [TJvgCheckBox, - TJvgRuler, TJvgPageControl, TJvgTabControl, TJvgProcess, + TJvgRuler, TJvgPageControl, TJvgTabControl, TJvgMailSlotServer, TJvgMailSlotClient, TJvgLabel, TJvgFlyingText, TJvgDigits, TJvgStaticText, TJvgHoleShape, TJvgHelpPanel, TJvgXMLSerializer, TJvgLanguageLoader, TJvgExceptionHandler, @@ -134,10 +134,8 @@ 'Resources', TJvgResourcesProperty); } //RegisterComponentEditor(TJvgGridHeaderControl, TJvgGridHeaderControl_Editor); - //RegisterPropertyEditor(TypeInfo(STRING), TJvgMaskEdit, 'EditMask', + //RegisterPropertyEditor(TypeInfo(string), TJvgMaskEdit, 'EditMask', // TMaskProperty); - //RegisterPropertyEditor(TypeInfo(STRING), TJvgProcess, 'FileName', - // TFilenameProperty); end; end. Modified: trunk/jvcl/help/migrating_globus.html =================================================================== --- trunk/jvcl/help/migrating_globus.html 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/help/migrating_globus.html 2006-05-16 09:13:15 UTC (rev 10600) @@ -516,11 +516,11 @@ <td style="vertical-align: top;">TJvgProcess</td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;"><br> + <td style="vertical-align: top;">TJvCreateProcess </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">Not done yet</td> + <td style="vertical-align: top;">TJvCreateProcess is superior</td> </tr> <tr> <td style="vertical-align: top;">TJvgMailSlotServer<br> Modified: trunk/jvcl/images/JvGlobusReg.rc =================================================================== --- trunk/jvcl/images/JvGlobusReg.rc 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/images/JvGlobusReg.rc 2006-05-16 09:13:15 UTC (rev 10600) @@ -34,7 +34,7 @@ TJVGMYQRPREVIEW BITMAP "TJVGMYQRPREVIEW.BMP" TJVGPAGECONTROL BITMAP "TJVGPAGECONTROL.BMP" TJVGPRINTCROSSTABLE BITMAP "TJVGPRINTCROSSTABLE.BMP" -TJVGPROCESS BITMAP "TJVGPROCESS.BMP" +;TJVGPROCESS BITMAP "TJVGPROCESS.BMP" TJVGPROGRESS BITMAP "TJVGPROGRESS.BMP" TJVGPROPERTYCENTER BITMAP "TJVGPROPERTYCENTER.BMP" TJVGQRDBTEXT BITMAP "TJVGQRDBTEXT.BMP" Modified: trunk/jvcl/packages/c5/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:42:35 UTC + Last generated: 16-05-2006 09:02:58 UTC ***************************************************************************** --> <PROJECT> @@ -67,7 +67,6 @@ ..\..\lib\c5\JvgLogics.obj ..\..\lib\c5\JvgMailSlots.obj ..\..\lib\c5\JvgPage.obj - ..\..\lib\c5\JvgProcess.obj ..\..\lib\c5\JvgProgress.obj ..\..\lib\c5\JvgReport.obj ..\..\lib\c5\JvgXMLSerializer.obj Modified: trunk/jvcl/packages/c5/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:42:36 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- */ @@ -64,7 +64,6 @@ USEUNIT("..\..\run\JvgLogics.pas"); USEUNIT("..\..\run\JvgMailSlots.pas"); USEUNIT("..\..\run\JvgPage.pas"); -USEUNIT("..\..\run\JvgProcess.pas"); USEUNIT("..\..\run\JvgProgress.pas"); USEUNIT("..\..\run\JvgReport.pas"); USEUNIT("..\..\run\JvgXMLSerializer.pas"); Modified: trunk/jvcl/packages/c5/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:42:34 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- } @@ -101,7 +101,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:42:35 UTC + Last generated: 16-05-2006 09:02:58 UTC ***************************************************************************** --> <PROJECT> @@ -62,7 +62,6 @@ ..\..\lib\c5\JvgLogics.obj ..\..\lib\c5\JvgMailSlots.obj ..\..\lib\c5\JvgPage.obj - ..\..\lib\c5\JvgProcess.obj ..\..\lib\c5\JvgProgress.obj ..\..\lib\c5\JvgReport.obj ..\..\lib\c5\JvgXMLSerializer.obj Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:42:36 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- */ @@ -59,7 +59,6 @@ USEUNIT("..\..\run\JvgLogics.pas"); USEUNIT("..\..\run\JvgMailSlots.pas"); USEUNIT("..\..\run\JvgPage.pas"); -USEUNIT("..\..\run\JvgProcess.pas"); USEUNIT("..\..\run\JvgProgress.pas"); USEUNIT("..\..\run\JvgReport.pas"); USEUNIT("..\..\run\JvgXMLSerializer.pas"); Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:42:34 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- } @@ -95,7 +95,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/c6/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:55:28 UTC + Last generated: 16-05-2006 09:02:58 UTC ***************************************************************************** --> <PROJECT> @@ -67,7 +67,6 @@ ..\..\lib\c6\JvgLogics.obj ..\..\lib\c6\JvgMailSlots.obj ..\..\lib\c6\JvgPage.obj - ..\..\lib\c6\JvgProcess.obj ..\..\lib\c6\JvgProgress.obj ..\..\lib\c6\JvgReport.obj ..\..\lib\c6\JvgXMLSerializer.obj @@ -199,7 +198,6 @@ <FILE FILENAME="..\..\run\JvgLogics.pas" FORMNAME="" UNITNAME="JvgLogics" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgMailSlots.pas" FORMNAME="" UNITNAME="JvgMailSlots" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgPage.pas" FORMNAME="" UNITNAME="JvgPage" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgProcess.pas" FORMNAME="" UNITNAME="JvgProcess" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgProgress.pas" FORMNAME="" UNITNAME="JvgProgress" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgReport.pas" FORMNAME="" UNITNAME="JvgReport" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgXMLSerializer.pas" FORMNAME="" UNITNAME="JvgXMLSerializer" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:55:27 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- } @@ -103,7 +103,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:55:28 UTC + Last generated: 16-05-2006 09:02:58 UTC ***************************************************************************** --> <PROJECT> @@ -62,7 +62,6 @@ ..\..\lib\c6\JvgLogics.obj ..\..\lib\c6\JvgMailSlots.obj ..\..\lib\c6\JvgPage.obj - ..\..\lib\c6\JvgProcess.obj ..\..\lib\c6\JvgProgress.obj ..\..\lib\c6\JvgReport.obj ..\..\lib\c6\JvgXMLSerializer.obj @@ -182,7 +181,6 @@ <FILE FILENAME="..\..\run\JvgLogics.pas" FORMNAME="" UNITNAME="JvgLogics" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgMailSlots.pas" FORMNAME="" UNITNAME="JvgMailSlots" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgPage.pas" FORMNAME="" UNITNAME="JvgPage" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgProcess.pas" FORMNAME="" UNITNAME="JvgProcess" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgProgress.pas" FORMNAME="" UNITNAME="JvgProgress" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgReport.pas" FORMNAME="" UNITNAME="JvgReport" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgXMLSerializer.pas" FORMNAME="" UNITNAME="JvgXMLSerializer" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:55:27 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- } @@ -96,7 +96,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d10/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 09:45:11 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- } @@ -106,7 +106,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d10per/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10per/JvGlobusD10R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d10per/JvGlobusD10R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 09:45:11 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- } @@ -96,7 +96,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d5/JvGlobusD5R.dpk =================================================================== --- trunk/jvcl/packages/d5/JvGlobusD5R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d5/JvGlobusD5R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 11:46:26 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- } @@ -101,7 +101,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d5std/JvGlobusD5R.dpk =================================================================== --- trunk/jvcl/packages/d5std/JvGlobusD5R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d5std/JvGlobusD5R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 11:46:26 UTC + Last generated: 16-05-2006 09:02:58 UTC ----------------------------------------------------------------------------- } @@ -95,7 +95,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d6/JvGlobusD6R.dpk =================================================================== --- trunk/jvcl/packages/d6/JvGlobusD6R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d6/JvGlobusD6R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:41:27 UTC + Last generated: 16-05-2006 09:02:59 UTC ----------------------------------------------------------------------------- } @@ -103,7 +103,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d6per/JvGlobusD6R.dpk =================================================================== --- trunk/jvcl/packages/d6per/JvGlobusD6R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d6per/JvGlobusD6R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 08:41:27 UTC + Last generated: 16-05-2006 09:02:59 UTC ----------------------------------------------------------------------------- } @@ -96,7 +96,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d7/JvGlobusD7R.dpk =================================================================== --- trunk/jvcl/packages/d7/JvGlobusD7R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d7/JvGlobusD7R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 11:46:28 UTC + Last generated: 16-05-2006 09:02:59 UTC ----------------------------------------------------------------------------- } @@ -103,7 +103,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d7per/JvGlobusD7R.dpk =================================================================== --- trunk/jvcl/packages/d7per/JvGlobusD7R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d7per/JvGlobusD7R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 11:46:28 UTC + Last generated: 16-05-2006 09:02:59 UTC ----------------------------------------------------------------------------- } @@ -96,7 +96,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d9/JvGlobusD9R.dpk =================================================================== --- trunk/jvcl/packages/d9/JvGlobusD9R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d9/JvGlobusD9R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 11:46:31 UTC + Last generated: 16-05-2006 09:02:59 UTC ----------------------------------------------------------------------------- } @@ -103,7 +103,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/d9per/JvGlobusD9R.dpk =================================================================== --- trunk/jvcl/packages/d9per/JvGlobusD9R.dpk 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/d9per/JvGlobusD9R.dpk 2006-05-16 09:13:15 UTC (rev 10600) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 01-03-2006 11:46:31 UTC + Last generated: 16-05-2006 09:02:59 UTC ----------------------------------------------------------------------------- } @@ -96,7 +96,6 @@ JvgLogics in '..\..\run\JvgLogics.pas' , JvgMailSlots in '..\..\run\JvgMailSlots.pas' , JvgPage in '..\..\run\JvgPage.pas' , - JvgProcess in '..\..\run\JvgProcess.pas' , JvgProgress in '..\..\run\JvgProgress.pas' , JvgReport in '..\..\run\JvgReport.pas' , JvgXMLSerializer in '..\..\run\JvgXMLSerializer.pas' , Modified: trunk/jvcl/packages/xml/JvGlobus-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvGlobus-R.xml 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/packages/xml/JvGlobus-R.xml 2006-05-16 09:13:15 UTC (rev 10600) @@ -92,7 +92,6 @@ <File Name="..\..\run\JvgLogics.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgMailSlots.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgPage.pas" Targets="VCL" Formname="" Condition=""/> - <File Name="..\..\run\JvgProcess.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgProgress.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgQPrintPreviewForm.pas" Targets="DB" Formname="JvgfPrintPreview" Condition="JVCL_UseQuickReport"/> <File Name="..\..\run\JvgQPrintSetupForm.pas" Targets="DB" Formname="JvgPrintSetup" Condition="JVCL_UseQuickReport"/> Modified: trunk/jvcl/readme.htm =================================================================== --- trunk/jvcl/readme.htm 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/readme.htm 2006-05-16 09:13:15 UTC (rev 10600) @@ -689,7 +689,6 @@ <p>TJvgRuler</p> <p>TJvgPageControl</p> <p>TJvgTabControl</p> - <p>TJvgProcess</p> <p>TJvgMailSlotServer</p> <p>TJvgMailSlotClient</p> <p>TJvgLabel</p> Modified: trunk/jvcl/resources/JvGlobusReg.dcr =================================================================== (Binary files differ) Modified: trunk/jvcl/todo.txt =================================================================== --- trunk/jvcl/todo.txt 2006-05-15 23:12:16 UTC (rev 10599) +++ trunk/jvcl/todo.txt 2006-05-16 09:13:15 UTC (rev 10600) @@ -6,7 +6,6 @@ - Unify JvRecentMenuButton.pas and JvStartMenuButton.pas // (rom) - JvRGBToHtml.pas to Archive and function RgbToHtml to JCL. // (rom) -- JvgProcessUtils.pas definitely goes to JCL. // (rom) - TJvgStringContainer should be downgraded to a TStringList and moved to JCL. // (rom) - JvBaseEdits.pas, JvToolEdit.pas relies on property order. // (rom) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <el...@us...> - 2006-05-19 15:21:23
|
Revision: 10610 Author: elahn Date: 2006-05-19 06:35:08 -0700 (Fri, 19 May 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10610&view=rev Log Message: ----------- Set svn:keywords property to all keywords on all files matching the pattern: *.pas;*.dpr;*.inc;*.dpk;*.rc;*.pm;*.java;*.js;*.c;*.cpp;*.h;*.conf;*.properties;*.xml;*.classpath;*.project;*.xsl;*.html;*.htm;*.css;*.php;*.pl;*.sh;Makefile;Makefile.*;*.txt Modified Paths: -------------- trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Creator/jedi.inc trunk/jvcl/devtools/InstallerTests/Installer/Common/Utils.pas trunk/jvcl/devtools/InstallerTests/Installer/D5Workarounds/Compiler5MissingPropertyFix.pas trunk/jvcl/devtools/InstallerTests/Installer/jvcl.inc Property Changed: ---------------- trunk/jvcl/archive/JVCLArchiveD6D.dpk trunk/jvcl/archive/JVCLArchiveD6R.dpk trunk/jvcl/archive/JVCLArchiveReg.pas trunk/jvcl/archive/JVCLReg.pas trunk/jvcl/archive/JvAlarmsEditor.pas trunk/jvcl/archive/JvAlarmsForm.pas trunk/jvcl/archive/JvAnalogClock.pas trunk/jvcl/archive/JvAppInfo.pas trunk/jvcl/archive/JvAppUtils.pas trunk/jvcl/archive/JvArrow.pas trunk/jvcl/archive/JvAutoSave.pas trunk/jvcl/archive/JvBDEReg.pas trunk/jvcl/archive/JvBandObjectReg.pas trunk/jvcl/archive/JvBlinkingLED.pas trunk/jvcl/archive/JvBreatheSkin.pas trunk/jvcl/archive/JvCaesarCipher.pas trunk/jvcl/archive/JvChrono.pas trunk/jvcl/archive/JvClock.pas trunk/jvcl/archive/JvClxUtils.pas trunk/jvcl/archive/JvCommandEdit.pas trunk/jvcl/archive/JvComplex.pas trunk/jvcl/archive/JvComputerInfo.pas trunk/jvcl/archive/JvConst.pas trunk/jvcl/archive/JvCoupler.pas trunk/jvcl/archive/JvCpuUsage.pas trunk/jvcl/archive/JvCtlConst.pas trunk/jvcl/archive/JvCtlReg.pas trunk/jvcl/archive/JvCtrlUtils.pas trunk/jvcl/archive/JvDBConst.pas trunk/jvcl/archive/JvDBReg.pas trunk/jvcl/archive/JvDatePickerReg.pas trunk/jvcl/archive/JvDateUtil.pas trunk/jvcl/archive/JvDeviceChanged.pas trunk/jvcl/archive/JvDirectories.pas trunk/jvcl/archive/JvFileInfo.pas trunk/jvcl/archive/JvFileUtil.pas trunk/jvcl/archive/JvFinalize.pas trunk/jvcl/archive/JvFormLog.pas trunk/jvcl/archive/JvFormProgress.pas trunk/jvcl/archive/JvFtpGrabber.pas trunk/jvcl/archive/JvFunctions.pas trunk/jvcl/archive/JvGraph.pas trunk/jvcl/archive/JvHighlighter.pas trunk/jvcl/archive/JvHook.pas trunk/jvcl/archive/JvHttpGrabber.pas trunk/jvcl/archive/JvIReg.pas trunk/jvcl/archive/JvIconClipboardUtils.pas trunk/jvcl/archive/JvImageForm.pas trunk/jvcl/archive/JvImageWindow.pas trunk/jvcl/archive/JvIni.pas trunk/jvcl/archive/JvInterpreter_JvRegAuto.pas trunk/jvcl/archive/JvKeyboardStates.pas trunk/jvcl/archive/JvMemoryInfos.pas trunk/jvcl/archive/JvMousePositionner.pas trunk/jvcl/archive/JvMultiHttpGrabber.pas trunk/jvcl/archive/JvNagScreen.pas trunk/jvcl/archive/JvObjectStrings.pas trunk/jvcl/archive/JvOle2Auto.pas trunk/jvcl/archive/JvPageSetupTitledEng.rc trunk/jvcl/archive/JvPageSetupTitledRus.rc trunk/jvcl/archive/JvParsing.pas trunk/jvcl/archive/JvPerforated.pas trunk/jvcl/archive/JvPlacemnt.pas trunk/jvcl/archive/JvPopupMemo.pas trunk/jvcl/archive/JvProps.pas trunk/jvcl/archive/JvRadioControl.pas trunk/jvcl/archive/JvRegAuto.pas trunk/jvcl/archive/JvRegAutoEditorForm.pas trunk/jvcl/archive/JvRegistry.pas trunk/jvcl/archive/JvRle.pas trunk/jvcl/archive/JvSchedEvntReg.pas trunk/jvcl/archive/JvScreenCanvas.pas trunk/jvcl/archive/JvStr16.PAS trunk/jvcl/archive/JvStrUtil.pas trunk/jvcl/archive/JvStrUtils.pas trunk/jvcl/archive/JvSystemColors.pas trunk/jvcl/archive/JvTabControl.pas trunk/jvcl/archive/JvTimerListForm.pas trunk/jvcl/archive/JvToolReg.pas trunk/jvcl/archive/JvTransLED.pas trunk/jvcl/archive/JvTransLedReg.pas trunk/jvcl/archive/JvTransparentForm.pas trunk/jvcl/archive/JvTransparentPanel.pas trunk/jvcl/archive/JvUtils.pas trunk/jvcl/archive/JvVCLUtils.pas trunk/jvcl/archive/JvVigenereCipher.pas trunk/jvcl/archive/JvWinampApi.pas trunk/jvcl/archive/JvXorCipher.pas trunk/jvcl/archive/JvaCtlReg.pas trunk/jvcl/archive/JvaDBReg.pas trunk/jvcl/archive/JvgBitBtn.pas trunk/jvcl/archive/JvgCGI.pas trunk/jvcl/archive/JvgCheckVersionInfoForm.pas trunk/jvcl/archive/JvgConstSysRequirements.pas trunk/jvcl/archive/JvgDBNav.pas trunk/jvcl/archive/JvgEdit.pas trunk/jvcl/archive/JvgFileUtils.pas trunk/jvcl/archive/JvgJump.pas trunk/jvcl/archive/JvgProcessUtils.pas trunk/jvcl/archive/JvgRegLibCBB5.pas trunk/jvcl/archive/JvgRegLibDelphi.pas trunk/jvcl/archive/JvgRegLibDelphi3.pas trunk/jvcl/archive/JvgRttiUtils.pas trunk/jvcl/archive/JvgShape.pas trunk/jvcl/archive/JvgStepLabel.pas trunk/jvcl/archive/JvgSysInf.pas trunk/jvcl/archive/JvxCtrls.pas trunk/jvcl/archive/JvxDConst.pas trunk/jvcl/archive/JvxRConst.pas trunk/jvcl/archive/examples/JvMultiHTTPGrabber/JvMultiHTTPGrabberDemo.dpr trunk/jvcl/archive/examples/JvMultiHTTPGrabber/MainFrm.pas trunk/jvcl/bin/ApplicationHookPlugin/ApplicationHookPlugin.txt trunk/jvcl/bin/Data/Data.txt trunk/jvcl/bin/Data/images.xml trunk/jvcl/bin/Data/sample.htm trunk/jvcl/bin/Data/test.xml trunk/jvcl/bin/DataPlugin/DataPlugin.txt trunk/jvcl/bin/MDIPlugin/MDIPlugin.txt trunk/jvcl/bin/bin.txt trunk/jvcl/build.sh trunk/jvcl/capitalization.txt trunk/jvcl/changelog.txt trunk/jvcl/common/Cfg.pas trunk/jvcl/common/CfgMgr32.pas trunk/jvcl/common/DBT.pas trunk/jvcl/common/Hid.pas trunk/jvcl/common/HidToken.pas trunk/jvcl/common/HidUsage.pas trunk/jvcl/common/JvConsts.pas trunk/jvcl/common/JvGnugettext.pas trunk/jvcl/common/JvGnugettextD5.pas trunk/jvcl/common/JvWin32.pas trunk/jvcl/common/ModuleLoader.pas trunk/jvcl/common/ObjSel.pas trunk/jvcl/common/Ras32.pas trunk/jvcl/common/SetupApi.pas trunk/jvcl/common/VFW.pas trunk/jvcl/common/WinConvTypes.pas trunk/jvcl/common/Winamp.pas trunk/jvcl/common/clxonly.inc trunk/jvcl/common/common.txt trunk/jvcl/common/crossplatform.inc trunk/jvcl/common/jedi.inc trunk/jvcl/common/jvcl.inc trunk/jvcl/common/jvclbase.inc trunk/jvcl/common/jvclc5.inc trunk/jvcl/common/jvclc6.inc trunk/jvcl/common/jvcld10.inc trunk/jvcl/common/jvcld5.inc trunk/jvcl/common/jvcld6.inc trunk/jvcl/common/jvcld7.inc trunk/jvcl/common/jvcld9.inc trunk/jvcl/common/jvclk3.inc trunk/jvcl/common/jvuib.inc trunk/jvcl/common/kylix.inc trunk/jvcl/common/linuxonly.inc trunk/jvcl/common/qjvcl.inc trunk/jvcl/common/vclonly.inc trunk/jvcl/common/windowsonly.inc trunk/jvcl/common/windowsversion.inc trunk/jvcl/converter/DelForExpJVCLCase.txt trunk/jvcl/dcu/dcu.txt trunk/jvcl/design/Jedi.Jvcl.Design.RegisterComponents.pas trunk/jvcl/design/JvAVICaptureEditors.pas trunk/jvcl/design/JvActnResForm.pas trunk/jvcl/design/JvAnimatedEditor.pas trunk/jvcl/design/JvAppFrmReg.pas trunk/jvcl/design/JvAppletEditor.pas trunk/jvcl/design/JvBDEEditors.pas trunk/jvcl/design/JvBDEMemTableEditor.pas trunk/jvcl/design/JvBDEReg.pas trunk/jvcl/design/JvBDESecurityEditor.pas trunk/jvcl/design/JvBackgroundEditForm.pas trunk/jvcl/design/JvBackgroundEditors.pas trunk/jvcl/design/JvBandObjectDLLWizard.pas trunk/jvcl/design/JvBandObjectDLLWizardForm.pas trunk/jvcl/design/JvBandsReg.pas trunk/jvcl/design/JvBaseDlgEditor.pas trunk/jvcl/design/JvBaseDsgnForm.pas trunk/jvcl/design/JvBaseDsgnFrame.pas trunk/jvcl/design/JvBaseDsgnToolbarFrame.pas trunk/jvcl/design/JvBehaviorLabelEditor.pas trunk/jvcl/design/JvChangeNotifyEditor.pas trunk/jvcl/design/JvCheckedItemsForm.pas trunk/jvcl/design/JvCmpReg.pas trunk/jvcl/design/JvColorEditor.pas trunk/jvcl/design/JvColorProviderAddDialogForm.pas trunk/jvcl/design/JvColorProviderDesignerForm.pas trunk/jvcl/design/JvColorProviderDsgnTreeFrame.pas trunk/jvcl/design/JvColorProviderEditors.pas trunk/jvcl/design/JvCommonDialogDEditor.pas trunk/jvcl/design/JvCoreReg.pas trunk/jvcl/design/JvCryptReg.pas trunk/jvcl/design/JvCsvBaseEditor.pas trunk/jvcl/design/JvCsvDataEditor.pas trunk/jvcl/design/JvCsvDataForm.pas trunk/jvcl/design/JvCtrlsReg.pas trunk/jvcl/design/JvCustomReg.pas trunk/jvcl/design/JvDBActnResForm.pas trunk/jvcl/design/JvDBEditors.pas trunk/jvcl/design/JvDBGridControlsEditorForm.pas trunk/jvcl/design/JvDBGridEditors.pas trunk/jvcl/design/JvDBGridExportEditors.pas trunk/jvcl/design/JvDBMemDatasetEditor.pas trunk/jvcl/design/JvDBReg.pas trunk/jvcl/design/JvDataConsumerContextSelectForm.pas trunk/jvcl/design/JvDataConsumerItemSelectForm.pas trunk/jvcl/design/JvDataContextManagerForm.pas trunk/jvcl/design/JvDataEmbeddedEditor.pas trunk/jvcl/design/JvDataProviderDesignerForm.pas trunk/jvcl/design/JvDataProviderEditors.pas trunk/jvcl/design/JvDataProviderItemDesign.pas trunk/jvcl/design/JvDateTimeForm.pas trunk/jvcl/design/JvDesignerUtils.pas trunk/jvcl/design/JvDesktopAlertEditors.pas trunk/jvcl/design/JvDialogActnResForm.pas trunk/jvcl/design/JvDirectoryListForm.pas trunk/jvcl/design/JvDlgsReg.pas trunk/jvcl/design/JvDockPropertyEditors.pas trunk/jvcl/design/JvDockingReg.pas trunk/jvcl/design/JvDotNetCtrlsReg.pas trunk/jvcl/design/JvDsgnConsts.pas trunk/jvcl/design/JvDsgnEditors.pas trunk/jvcl/design/JvDsgnTypes.pas trunk/jvcl/design/JvEDIDBBufferingReg.pas trunk/jvcl/design/JvFooterEditor.pas trunk/jvcl/design/JvFormPropertiesForm.pas trunk/jvcl/design/JvFormWallpaperEditor.pas trunk/jvcl/design/JvFullColorEditors.pas trunk/jvcl/design/JvFullColorListForm.pas trunk/jvcl/design/JvFullColorSpacesEditors.pas trunk/jvcl/design/JvGlobusReg.pas trunk/jvcl/design/JvGradientCaptionForm.pas trunk/jvcl/design/JvGroupHeaderEditor.pas trunk/jvcl/design/JvHLEditEditor.pas trunk/jvcl/design/JvHMIReg.pas trunk/jvcl/design/JvHTHintForm.pas trunk/jvcl/design/JvHtmlParserEditor.pas trunk/jvcl/design/JvID3v2DefineForm.pas trunk/jvcl/design/JvID3v2EditorForm.pas trunk/jvcl/design/JvIDEZoom.pas trunk/jvcl/design/JvIconListForm.pas trunk/jvcl/design/JvImagePreviewForm.pas trunk/jvcl/design/JvInterpreterReg.pas trunk/jvcl/design/JvJVCLAboutEditor.pas trunk/jvcl/design/JvJansReg.pas trunk/jvcl/design/JvLookoutEditor.pas trunk/jvcl/design/JvMMReg.pas trunk/jvcl/design/JvMailEditor.pas trunk/jvcl/design/JvManagedThreadsReg.pas trunk/jvcl/design/JvMinMaxForm.pas trunk/jvcl/design/JvNavPaneEditors.pas trunk/jvcl/design/JvNetReg.pas trunk/jvcl/design/JvOutlookBarEditors.pas trunk/jvcl/design/JvOutlookBarForm.pas trunk/jvcl/design/JvPageLinkEditorForm.pas trunk/jvcl/design/JvPageListEditorForm.pas trunk/jvcl/design/JvPageListEditors.pas trunk/jvcl/design/JvPageListTreeViewReg.pas trunk/jvcl/design/JvPageManagerForm.pas trunk/jvcl/design/JvPaintBoxEditor.pas trunk/jvcl/design/JvPatcherEditor.pas trunk/jvcl/design/JvPerfStatEditor.pas trunk/jvcl/design/JvPictureEditForm.pas trunk/jvcl/design/JvPictureEditors.pas trunk/jvcl/design/JvPluginParamsForm.pas trunk/jvcl/design/JvPluginReg.pas trunk/jvcl/design/JvPluginWizard.pas trunk/jvcl/design/JvPreviewReg.pas trunk/jvcl/design/JvProgressComponentEditor.pas trunk/jvcl/design/JvProgressEditor.pas trunk/jvcl/design/JvProviderToolbarFrame.pas trunk/jvcl/design/JvProviderTreeListDsgnFrame.pas trunk/jvcl/design/JvProviderTreeListFrame.pas trunk/jvcl/design/JvQtKeyEditorForm.pas trunk/jvcl/design/JvRollOutEditor.pas trunk/jvcl/design/JvRuntimeDesignReg.pas trunk/jvcl/design/JvScheduleEditorForm.pas trunk/jvcl/design/JvScheduleEditors.pas trunk/jvcl/design/JvScrollMaxEditor.pas trunk/jvcl/design/JvSegmentedLEDDisplayEditors.pas trunk/jvcl/design/JvSegmentedLEDDisplayMappingForm.pas trunk/jvcl/design/JvSelectDataSetForm.pas trunk/jvcl/design/JvSpeedbarForm.pas trunk/jvcl/design/JvStdCtrlsReg.pas trunk/jvcl/design/JvStdToolbarDsgnFrame.pas trunk/jvcl/design/JvStringsForm.pas trunk/jvcl/design/JvSystemReg.pas trunk/jvcl/design/JvTimeFrameworkReg.pas trunk/jvcl/design/JvTimeLineEditor.pas trunk/jvcl/design/JvTimerListEditor.pas trunk/jvcl/design/JvTipOfDayEditor.pas trunk/jvcl/design/JvTransparentButtonEditors.pas trunk/jvcl/design/JvTreeItemsEditorForm.pas trunk/jvcl/design/JvUIBReg.pas trunk/jvcl/design/JvUrlListGrabberEditors.pas trunk/jvcl/design/JvValidatorsEditorForm.pas trunk/jvcl/design/JvValidatorsReg.pas trunk/jvcl/design/JvVirtualKeyEditorForm.pas trunk/jvcl/design/JvWizardAboutInfoForm.pas trunk/jvcl/design/JvWizardEditorForm.pas trunk/jvcl/design/JvWizardReg.pas trunk/jvcl/design/JvXPCtrlsReg.pas trunk/jvcl/design/JvXPPropertyEditors.pas trunk/jvcl/design/JvgAlignForm.pas trunk/jvcl/design/JvgCompDescription.pas trunk/jvcl/design/JvgCompEditorTemplateForm.pas trunk/jvcl/design/JvgComponentListEditorForm.pas trunk/jvcl/design/JvgHelpPanelEditor.pas trunk/jvcl/design/JvgLabelEditorForm.pas trunk/jvcl/design/JvgLogicItemEditorForm.pas trunk/jvcl/design/JvgLogicsEditorForm.pas trunk/jvcl/design/JvgMultiResourceEditorForm.pas trunk/jvcl/design/JvgMultiResources.pas trunk/jvcl/design/JvgPointEditor.pas trunk/jvcl/design/JvgPropertyCenter.pas trunk/jvcl/design/JvgRTFPreviewForm.pas trunk/jvcl/design/JvgReportEditorForm.pas trunk/jvcl/design/JvgReportParamEditorForm.pas trunk/jvcl/design/JvgReportParamsForm.pas trunk/jvcl/design/JvgShadowEditor.pas trunk/jvcl/design/design.txt trunk/jvcl/devtools/BPRfix/BPRfix.dpr trunk/jvcl/devtools/BPRfix/BPRfixBCB.cpp trunk/jvcl/devtools/BPRfix/BPRfixForm.pas trunk/jvcl/devtools/BPRfix/BPRfixScanForm.pas trunk/jvcl/devtools/BPRfix/FileList.xml trunk/jvcl/devtools/Bpg2Make/Bpg2Make.dpr trunk/jvcl/devtools/Bpg2Make/Bpg2MakeUtils.pas trunk/jvcl/devtools/Common/CRT32.pas trunk/jvcl/devtools/Common/JEDI.INC trunk/jvcl/devtools/Common/JFileSearch.pas trunk/jvcl/devtools/Common/JTools.pas trunk/jvcl/devtools/Common/JVCL.INC trunk/jvcl/devtools/Common/PackageInformation.pas trunk/jvcl/devtools/Common/PackageModels.pas trunk/jvcl/devtools/Common/dpp_PascalParser.pas trunk/jvcl/devtools/CompressDict/CompressDict.dpr trunk/jvcl/devtools/CompressDict/DictMain.pas trunk/jvcl/devtools/CompressDict/readme.txt trunk/jvcl/devtools/DFMCleaner/SkipListD5.txt trunk/jvcl/devtools/DFMCleaner/dc.dpr trunk/jvcl/devtools/DFMCleaner/dc.txt trunk/jvcl/devtools/DFMCleaner/dcUtils.pas trunk/jvcl/devtools/ErrLook/dcu/dcu.txt trunk/jvcl/devtools/ErrLook/help/ErrorMessage.htm trunk/jvcl/devtools/ErrLook/help/ErrorsIni.htm trunk/jvcl/devtools/ErrLook/help/Installation.htm trunk/jvcl/devtools/ErrLook/help/JVCLHome.htm trunk/jvcl/devtools/ErrLook/help/Lookup.htm trunk/jvcl/devtools/ErrLook/help/Modules.htm trunk/jvcl/devtools/ErrLook/help/Overview.htm trunk/jvcl/devtools/ErrLook/help/Value.htm trunk/jvcl/devtools/ErrLook/help/default.css trunk/jvcl/devtools/ErrLook/help/popups.h trunk/jvcl/devtools/ErrLook/src/ErrLook.dpr trunk/jvcl/devtools/ErrLook/src/ErrLook.txt trunk/jvcl/devtools/ErrLook/src/HtmlHlp.inc trunk/jvcl/devtools/ErrLook/src/HtmlHlp.pas trunk/jvcl/devtools/ErrLook/src/MainFrm.pas trunk/jvcl/devtools/ErrLook/src/ModulesFrm.pas trunk/jvcl/devtools/ErrLook/src/popups.inc trunk/jvcl/devtools/FAQBuilder/FAQBuilder.dpr trunk/jvcl/devtools/FAQBuilder/FAQGlobals.pas trunk/jvcl/devtools/FAQBuilder/MainFrm.pas trunk/jvcl/devtools/FAQBuilder/OptionsFrm.pas trunk/jvcl/devtools/FAQBuilder/help.htm trunk/jvcl/devtools/FAQBuilder/styles/default.css trunk/jvcl/devtools/ITEStrip/isu.dpr trunk/jvcl/devtools/ITEStrip/isu.txt trunk/jvcl/devtools/ITEStrip/isuUtils.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Configuration.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Creator/DelphiPkgInstallerCreator.dpr trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Creator/Main.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Creator/PackageLoading/Images/rcCoreIDE.rc trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Creator/PackageLoading/PDHelpers.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Creator/PackageLoading/PDPackageLoader.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Creator/jedi.inc trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/DataModuleMain.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/DelphiPkgInstaller.dpr trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/FrmStartup.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Helpers.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Logging.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Main.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Packages.pas trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Uninstall/DelphiPkgUninstall.dpr trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Uninstall/Main.pas trunk/jvcl/devtools/InstallerTests/Installer/Common/CmdLineUtils.pas trunk/jvcl/devtools/InstallerTests/Installer/Common/DelphiData.pas trunk/jvcl/devtools/InstallerTests/Installer/Common/JCLDetectConsts.pas trunk/jvcl/devtools/InstallerTests/Installer/Common/Utils.pas trunk/jvcl/devtools/InstallerTests/Installer/Common/installer.inc trunk/jvcl/devtools/InstallerTests/Installer/Configurations/ConfigOptions.pas trunk/jvcl/devtools/InstallerTests/Installer/Configurations/ConfigurationBase.pas trunk/jvcl/devtools/InstallerTests/Installer/Configurations/JVCLConfiguration.pas trunk/jvcl/devtools/InstallerTests/Installer/D5Workarounds/Compiler5MissingPropertyFix.pas trunk/jvcl/devtools/InstallerTests/Installer/D5Workarounds/D5CheckLst.pas trunk/jvcl/devtools/InstallerTests/Installer/Installer.dpr trunk/jvcl/devtools/InstallerTests/Installer/Main.pas trunk/jvcl/devtools/InstallerTests/Installer/StdFrames/FrmeDirectoryEdit.pas trunk/jvcl/devtools/InstallerTests/Installer/Translation/InstallerConsts.pas trunk/jvcl/devtools/InstallerTests/Installer/jvcl.inc trunk/jvcl/devtools/JComp/jcomp.dpr trunk/jvcl/devtools/JComp/jcomp.txt trunk/jvcl/devtools/JComp/jcompUtils.pas trunk/jvcl/devtools/JConvert/JConvertUtils.pas trunk/jvcl/devtools/JConvert/jconvert.dpr trunk/jvcl/devtools/JConvert/readme.txt trunk/jvcl/devtools/JTouch/JTouchUtils.pas trunk/jvcl/devtools/JTouch/jtouch.dpr trunk/jvcl/devtools/JVCLConvert/ChangeLog.txt trunk/jvcl/devtools/JVCLConvert/FastTime.pas trunk/jvcl/devtools/JVCLConvert/JVCLConvert.dpr trunk/jvcl/devtools/JVCLConvert/JVCLConvertUtils.pas trunk/jvcl/devtools/JVCLConvert/OptionsFrm.pas trunk/jvcl/devtools/JVCLConvert/Readme.txt trunk/jvcl/devtools/JVCLConvert/fAboutMe.pas trunk/jvcl/devtools/JVCLConvert/fJvclConverterMain.pas trunk/jvcl/devtools/JvAdjustLineBreaks/CRLF.dpr trunk/jvcl/devtools/JvAdjustLineBreaks/crlfutils.pas trunk/jvcl/devtools/JvExCLX/src/JvExButtons.pas trunk/jvcl/devtools/JvExCLX/src/JvExCheckLst.pas trunk/jvcl/devtools/JvExCLX/src/JvExComCtrls.pas trunk/jvcl/devtools/JvExCLX/src/JvExControls.pas trunk/jvcl/devtools/JvExCLX/src/JvExDBCtrls.pas trunk/jvcl/devtools/JvExCLX/src/JvExExtCtrls.pas trunk/jvcl/devtools/JvExCLX/src/JvExForms.pas trunk/jvcl/devtools/JvExCLX/src/JvExGrids.pas trunk/jvcl/devtools/JvExCLX/src/JvExMask.pas trunk/jvcl/devtools/JvExCLX/src/JvExStdCtrls.pas trunk/jvcl/devtools/JvExCLX/src/JvQExButtons.pas trunk/jvcl/devtools/JvExCLX/src/JvQExCheckLst.pas trunk/jvcl/devtools/JvExCLX/src/JvQExComCtrls.pas trunk/jvcl/devtools/JvExCLX/src/JvQExComboEdits.pas trunk/jvcl/devtools/JvExCLX/src/JvQExControls.pas trunk/jvcl/devtools/JvExCLX/src/JvQExDBCtrls.pas trunk/jvcl/devtools/JvExCLX/src/JvQExDBGrids.pas trunk/jvcl/devtools/JvExCLX/src/JvQExExtCtrls.pas trunk/jvcl/devtools/JvExCLX/src/JvQExForms.pas trunk/jvcl/devtools/JvExCLX/src/JvQExGrids.pas trunk/jvcl/devtools/JvExCLX/src/JvQExMask.pas trunk/jvcl/devtools/JvExCLX/src/JvQExStdCtrls.pas trunk/jvcl/devtools/JvExCLX/src/build.pas trunk/jvcl/devtools/JvExCLX/src/qbuild.pas trunk/jvcl/devtools/JvExVCL/Readme.txt trunk/jvcl/devtools/JvExVCL/src/JvExButtons.pas trunk/jvcl/devtools/JvExVCL/src/JvExCheckLst.pas trunk/jvcl/devtools/JvExVCL/src/JvExComCtrls.pas trunk/jvcl/devtools/JvExVCL/src/JvExControls.pas trunk/jvcl/devtools/JvExVCL/src/JvExDBCtrls.pas trunk/jvcl/devtools/JvExVCL/src/JvExDBGrids.pas trunk/jvcl/devtools/JvExVCL/src/JvExExtCtrls.pas trunk/jvcl/devtools/JvExVCL/src/JvExForms.pas trunk/jvcl/devtools/JvExVCL/src/JvExGrids.pas trunk/jvcl/devtools/JvExVCL/src/JvExMask.pas trunk/jvcl/devtools/JvExVCL/src/JvExStdCtrls.pas trunk/jvcl/devtools/JvExVCL/src/build.pas trunk/jvcl/devtools/JvInterpreter/MakeHash/MakeHash.dpr trunk/jvcl/devtools/JvInterpreter/MakeHash/Unit1.pas trunk/jvcl/devtools/JvclVclClx/JvclVclClx.dpr trunk/jvcl/devtools/JvclVclClx/JvclVclClxCvt.pas trunk/jvcl/devtools/JvclVclClx/Main.pas trunk/jvcl/devtools/JvclVclClx/Utils.pas trunk/jvcl/devtools/JvclVclClx/VclClxCvt.pas trunk/jvcl/devtools/JvclVclClx/VclClxCvtUtils.pas trunk/jvcl/devtools/LastModifyRepl/LastModifyRepl.dpr trunk/jvcl/devtools/LastModifyRepl/LastModifyReplUtil.pas trunk/jvcl/devtools/MakeCFG/MakeCFG.dpr trunk/jvcl/devtools/MakeCFG/MakeCFGUtils.pas trunk/jvcl/devtools/MakeDOF/MakeDOF.dpr trunk/jvcl/devtools/MakeDOF/MakeDOFUtils.pas trunk/jvcl/devtools/MakePNG/MakePNG.dpr trunk/jvcl/devtools/MakePNG/MakePNGUtils.pas trunk/jvcl/devtools/MakePNG/pngimage.pas trunk/jvcl/devtools/MakePNG/pnglang.pas trunk/jvcl/devtools/MakePNG/pngzlib.pas trunk/jvcl/devtools/MakeRC/MakeRC.dpr trunk/jvcl/devtools/MakeRC/MakeRCUtils.pas trunk/jvcl/devtools/NoQuotes/NoQuotes.dpr trunk/jvcl/devtools/PackagesCheck/DefineForm.pas trunk/jvcl/devtools/PackagesCheck/MainForm.pas trunk/jvcl/devtools/PackagesCheck/PackageCheck.dpr trunk/jvcl/devtools/PackagesCheck/TargetInfo.pas trunk/jvcl/devtools/PackagesCheck/UsesParser.pas trunk/jvcl/devtools/PackagesCheck/readme.txt trunk/jvcl/devtools/PackagesGenerator/AdvancedOptionsForm.pas trunk/jvcl/devtools/PackagesGenerator/CmdLineUtils.pas trunk/jvcl/devtools/PackagesGenerator/ConditionParser.pas trunk/jvcl/devtools/PackagesGenerator/FileUtils.pas trunk/jvcl/devtools/PackagesGenerator/FormTypeDialog.pas trunk/jvcl/devtools/PackagesGenerator/GenerateUtils.pas trunk/jvcl/devtools/PackagesGenerator/GenerationMessagesForm.pas trunk/jvcl/devtools/PackagesGenerator/KnownTagsForm.pas trunk/jvcl/devtools/PackagesGenerator/MainForm.pas trunk/jvcl/devtools/PackagesGenerator/ModelsForm.pas trunk/jvcl/devtools/PackagesGenerator/TargetDialog.pas trunk/jvcl/devtools/PackagesGenerator/UtilsJcl.pas trunk/jvcl/devtools/PackagesGenerator/pg.dpr trunk/jvcl/devtools/PackagesGenerator/pgEdit.dpr trunk/jvcl/devtools/QCompressDict/DictMain.pas trunk/jvcl/devtools/QCompressDict/QCompressDict.dpr trunk/jvcl/devtools/ReadPalettes/IDEReadPalettes.dpk trunk/jvcl/devtools/ReadPalettes/ReadPalettes.pas trunk/jvcl/devtools/ReadPalettes/usage.txt trunk/jvcl/devtools/Res2Bmp/Res2Bmp.dpr trunk/jvcl/devtools/Res2Bmp/Res2BmpUtils.pas trunk/jvcl/devtools/Res2Bmp/gifimage.pas trunk/jvcl/devtools/Res2Bmp/unitExIcon.pas trunk/jvcl/devtools/Res2Bmp/unitResFile.pas trunk/jvcl/devtools/Res2Bmp/unitResourceDetails.pas trunk/jvcl/devtools/Res2Bmp/unitResourceGraphics.pas trunk/jvcl/devtools/SetPoHeader/SetPoHeader.dpr trunk/jvcl/devtools/SetPoHeader/SetPoHeaderUtils.pas trunk/jvcl/devtools/UPCASE/UPCASE.DPR trunk/jvcl/devtools/UnitVersioning/Main.pas trunk/jvcl/devtools/UnitVersioning/UnitVersioning.dpr trunk/jvcl/devtools/bin/PackageCheck.xml trunk/jvcl/devtools/bin/bin.txt trunk/jvcl/devtools/bin/fixed.xml trunk/jvcl/devtools/bin/pgEdit.xml trunk/jvcl/devtools/bin/skiplistD5.txt trunk/jvcl/devtools/clxgettextResstr/Main.pas trunk/jvcl/devtools/clxgettextResstr/Parser.pas trunk/jvcl/devtools/clxgettextResstr/clxgettextResStr.dpr trunk/jvcl/devtools/dcu/dcu.txt trunk/jvcl/devtools/devtools.txt trunk/jvcl/devtools/dpp32/Main.pas trunk/jvcl/devtools/dpp32/dpp.dpr trunk/jvcl/devtools/dpp32/dpp_FileInfos.pas trunk/jvcl/devtools/dpp32/dpp_Macros.pas trunk/jvcl/devtools/dpp32/dpp_PascalParser.pas trunk/jvcl/devtools/dpp32/dpp_PreProcess.pas trunk/jvcl/devtools/dpp32/dpp_Utils.pas trunk/jvcl/devtools/dpp32/readme.txt trunk/jvcl/devtools/dxgettextResstr/Main.pas trunk/jvcl/devtools/dxgettextResstr/Parser.pas trunk/jvcl/devtools/dxgettextResstr/dxgettextResStr.dpr trunk/jvcl/devtools/makefile.mak trunk/jvcl/devtools/pg2want/p2wantUtils.pas trunk/jvcl/devtools/pg2want/pg2want.dpr trunk/jvcl/devtools/stripCmtPO/stripCmtPO.dpr trunk/jvcl/devtools/stripCmtPO/stripCmtPO.txt trunk/jvcl/devtools/stripCmtPO/stripUtils.pas trunk/jvcl/dict/readme.txt trunk/jvcl/examples/Globus/LanguageLoader/LanguageLoaderExample.dpr trunk/jvcl/examples/Globus/LanguageLoader/LanguageLoaderExampleForm.pas trunk/jvcl/examples/Globus/Visual Components Demo/Gl_demo.dpr trunk/jvcl/examples/Globus/Visual Components Demo/glDemo.pas trunk/jvcl/examples/Globus/Visual Components Demo/glHelpPanel_demo.pas trunk/jvcl/examples/Globus/Visual Components Demo/hshape.pas trunk/jvcl/examples/Globus/XMLSerializer/XMLSerializerMainFormU.pas trunk/jvcl/examples/Globus/XMLSerializer/_glXMLSerializer_demo.dpr trunk/jvcl/examples/Globus/XMLSerializer/test.xml trunk/jvcl/examples/Globus/XMLSerializer/testClasses.pas trunk/jvcl/examples/JVCLMegaDemo/BCB/AnimatedTitleForm.cpp trunk/jvcl/examples/JVCLMegaDemo/BCB/AnimatedTitleForm.h trunk/jvcl/examples/JVCLMegaDemo/BCB/JVCLMegaDemo.cpp trunk/jvcl/examples/JVCLMegaDemo/BCB/JvFormsForm.cpp trunk/jvcl/examples/JVCLMegaDemo/BCB/JvFormsForm.h trunk/jvcl/examples/JVCLMegaDemo/BCB/MainForm.cpp trunk/jvcl/examples/JVCLMegaDemo/BCB/MainForm.h trunk/jvcl/examples/JVCLMegaDemo/BCB/TransparentForm.cpp trunk/jvcl/examples/JVCLMegaDemo/BCB/TransparentForm.h trunk/jvcl/examples/JVCLMegaDemo/BCB/WallpaperForm.cpp trunk/jvcl/examples/JVCLMegaDemo/BCB/WallpaperForm.h trunk/jvcl/examples/JVCLMegaDemo/BCB/WelcomeForm.cpp trunk/jvcl/examples/JVCLMegaDemo/BCB/WelcomeForm.h trunk/jvcl/examples/JVCLMegaDemo/JVCLMegaDemo.dpr trunk/jvcl/examples/JVCLMegaDemo/JvButtonsU.pas trunk/jvcl/examples/JVCLMegaDemo/JvChoosersU.pas trunk/jvcl/examples/JVCLMegaDemo/JvControlsU.pas trunk/jvcl/examples/JVCLMegaDemo/JvDateTimeU.pas trunk/jvcl/examples/JVCLMegaDemo/JvDialogsU.pas trunk/jvcl/examples/JVCLMegaDemo/JvEditsU.pas trunk/jvcl/examples/JVCLMegaDemo/JvFormsU.pas trunk/jvcl/examples/JVCLMegaDemo/JvFrameEmpty.pas trunk/jvcl/examples/JVCLMegaDemo/JvHiddenGems.pas trunk/jvcl/examples/JVCLMegaDemo/JvLabelsU.pas trunk/jvcl/examples/JVCLMegaDemo/JvPanelsU.pas trunk/jvcl/examples/JVCLMegaDemo/JvUtilsU.pas trunk/jvcl/examples/JVCLMegaDemo/JvWinDialogsU.pas trunk/jvcl/examples/JVCLMegaDemo/OtherStandAlone.pas trunk/jvcl/examples/JVCLMegaDemo/RessourcesFormMain.pas trunk/jvcl/examples/JVCLMegaDemo/SearchingForm.pas trunk/jvcl/examples/JVCLMegaDemo/Unitmain.pas trunk/jvcl/examples/JVCLMegaDemo/hello.pas trunk/jvcl/examples/JVCLMegaDemo/jvAnimatedTitelform.pas trunk/jvcl/examples/JVCLMegaDemo/jvAutosizeformdemo.pas trunk/jvcl/examples/JVCLMegaDemo/jvFormanimationdemo.pas trunk/jvcl/examples/JVCLMegaDemo/jvFormplacedemo.pas trunk/jvcl/examples/JVCLMegaDemo/jvGradientformdemo.pas trunk/jvcl/examples/JVCLMegaDemo/jvMagnetformdemo.pas trunk/jvcl/examples/JVCLMegaDemo/jvPerforatedform.pas trunk/jvcl/examples/JVCLMegaDemo/jvTransparentFormd.pas trunk/jvcl/examples/JVCLMegaDemo/jvTrayIconDemo.pas trunk/jvcl/examples/JVCLMegaDemo/jvWallpaperform.pas trunk/jvcl/examples/JVCLMegaDemo/jvanimatedappicondemo.pas trunk/jvcl/examples/JVCLMegaDemo/jvanimatedformicondemo.pas trunk/jvcl/examples/JediSurveyor/Builder/MainFrm.pas trunk/jvcl/examples/JediSurveyor/Builder/jsb.dpr trunk/jvcl/examples/JediSurveyor/Reporter/CommentsFrm.pas trunk/jvcl/examples/JediSurveyor/Reporter/MainFrm.pas trunk/jvcl/examples/JediSurveyor/Reporter/jsr.dpr trunk/jvcl/examples/JediSurveyor/SurveyConvert/sc.dpr trunk/jvcl/examples/JediSurveyor/SurveyConvert/sc.txt trunk/jvcl/examples/JediSurveyor/SurveyConvert/scUtils.pas trunk/jvcl/examples/JediSurveyor/Surveyor/CommentFrm.pas trunk/jvcl/examples/JediSurveyor/Surveyor/MainFrm.pas trunk/jvcl/examples/JediSurveyor/Surveyor/js.dpr trunk/jvcl/examples/JediSurveyor/common/JvSurveyImpl.pas trunk/jvcl/examples/JediSurveyor/common/JvSurveyIntf.pas trunk/jvcl/examples/JediSurveyor/common/JvSurveyUtils.pas trunk/jvcl/examples/JediSurveyor/license.txt trunk/jvcl/examples/JediSurveyor/makefile.mak trunk/jvcl/examples/JediSurveyor/readme.txt trunk/jvcl/examples/JvAni/BCB/JvAni.cpp trunk/jvcl/examples/JvAni/BCB/MainForm.cpp trunk/jvcl/examples/JvAni/BCB/MainForm.h trunk/jvcl/examples/JvAni/JvAniMainFormU.pas trunk/jvcl/examples/JvAni/JvAniProj.dpr trunk/jvcl/examples/JvAppDDECmd/AppDdeCmdExample.dpr trunk/jvcl/examples/JvAppDDECmd/AppDdeCmdMain.pas trunk/jvcl/examples/JvAppDDECmd/AppDdeCmdModal.pas trunk/jvcl/examples/JvAppHotKey/BCB/JvAppHotKeyDemo.cpp trunk/jvcl/examples/JvAppHotKey/BCB/MainForm.cpp trunk/jvcl/examples/JvAppHotKey/BCB/MainForm.h trunk/jvcl/examples/JvAppHotKey/JvAppHotKeyDemo.dpr trunk/jvcl/examples/JvAppHotKey/JvAppHotKeyDemoMainFormU.pas trunk/jvcl/examples/JvAppInstances/BCB/JvAppInstancesDemo.cpp trunk/jvcl/examples/JvAppInstances/BCB/MainForm.cpp trunk/jvcl/examples/JvAppInstances/BCB/MainForm.h trunk/jvcl/examples/JvAppInstances/JvAppInstDemo.dpr trunk/jvcl/examples/JvAppInstances/Main.pas trunk/jvcl/examples/JvAppStorage/Base Example/FilenameRequired.xml trunk/jvcl/examples/JvAppStorage/Base Example/JvAppStorageBaseMainFrmU.pas trunk/jvcl/examples/JvAppStorage/Base Example/JvAppStoreDemo.dpr trunk/jvcl/examples/JvAppStorage/SelectList Example/JvAppStorageSelListMainFrmU.pas trunk/jvcl/examples/JvAppStorage/SelectList Example/JvAppStoreDemoSelList.dpr trunk/jvcl/examples/JvAppStorage/SubStorage Example/AppStorageExample3.xml trunk/jvcl/examples/JvAppStorage/SubStorage Example/JvAppStorageSubStorageMainFrm.pas trunk/jvcl/examples/JvAppStorage/SubStorage Example/JvAppStoreDemoSubStorage.dpr trunk/jvcl/examples/JvArrowButton/ArrowButtonDemo.dpr trunk/jvcl/examples/JvArrowButton/ArrowButtonMainFormU.pas trunk/jvcl/examples/JvArrowButton/BCB/JvArrowButtonDemo.cpp trunk/jvcl/examples/JvArrowButton/BCB/MainForm.cpp trunk/jvcl/examples/JvArrowButton/BCB/MainForm.h trunk/jvcl/examples/JvAviCapture/BCB/JvAviCaptureDemo.cpp trunk/jvcl/examples/JvAviCapture/BCB/MainForm.cpp trunk/jvcl/examples/JvAviCapture/BCB/MainForm.h trunk/jvcl/examples/JvAviCapture/JvAviCapDemo.dpr trunk/jvcl/examples/JvAviCapture/JvAviCapDemoFrmU.pas trunk/jvcl/examples/JvBMPAnimator/BCB/JvBMPAnimatorDemo.cpp trunk/jvcl/examples/JvBMPAnimator/BCB/MainForm.cpp trunk/jvcl/examples/JvBMPAnimator/BCB/MainForm.h trunk/jvcl/examples/JvBMPAnimator/BmpAnimDemo.dpr trunk/jvcl/examples/JvBMPAnimator/BmpAnimMainFormU.pas trunk/jvcl/examples/JvBackground/BackgroundControl/JvBackgroundTreeview.pas trunk/jvcl/examples/JvBackground/BackgroundControl/TVDemo.dpr trunk/jvcl/examples/JvBackground/BackgroundControl/TVDemoMain.pas trunk/jvcl/examples/JvBackground/MDIForm/BkgndDemo.dpr trunk/jvcl/examples/JvBackground/MDIForm/MDIBkgndDemoChld.pas trunk/jvcl/examples/JvBackground/MDIForm/MDIBkgndDemoFrame.pas trunk/jvcl/examples/JvBackground/MDIForm/MDIBkgndDemoMain.pas trunk/jvcl/examples/JvBackground/MDIForm/MDIBkgndDemoSettings.pas trunk/jvcl/examples/JvBalloonHint/BCB/JvBalloonHintDemo.cpp trunk/jvcl/examples/JvBalloonHint/BCB/MainForm.cpp trunk/jvcl/examples/JvBalloonHint/BCB/MainForm.h trunk/jvcl/examples/JvBalloonHint/BalloonPrj.dpr trunk/jvcl/examples/JvBalloonHint/JvBalloonHintMainFormU.pas trunk/jvcl/examples/JvBehaviorLabel/BCB/JvBehaviorLabelDemo.cpp trunk/jvcl/examples/JvBehaviorLabel/BCB/MainForm.cpp trunk/jvcl/examples/JvBehaviorLabel/BCB/MainForm.h trunk/jvcl/examples/JvBehaviorLabel/JvBehaviorLabelDemo.dpr trunk/jvcl/examples/JvBehaviorLabel/JvBehaviorLblMainFrmU.pas trunk/jvcl/examples/JvBrowseFolder/BCB/JvBrowseFolder.cpp trunk/jvcl/examples/JvBrowseFolder/BCB/MainForm.cpp trunk/jvcl/examples/JvBrowseFolder/BCB/MainForm.h trunk/jvcl/examples/JvBrowseFolder/JvBrowseFolderMainFormU.pas trunk/jvcl/examples/JvBrowseFolder/JvBrowserFolder.dpr trunk/jvcl/examples/JvCSVDataSet/CsvDataDemo.dpr trunk/jvcl/examples/JvCSVDataSet/CsvDataSourceDemoFm.pas trunk/jvcl/examples/JvCaptionButton/BCB/JvCaptionButtonDemo.cpp trunk/jvcl/examples/JvCaptionButton/BCB/MainForm.cpp trunk/jvcl/examples/JvCaptionButton/BCB/MainForm.h trunk/jvcl/examples/JvCaptionButton/CaptionBtnMainFormU.pas trunk/jvcl/examples/JvCaptionButton/CaptionButtonDemo.dpr trunk/jvcl/examples/JvChangeNotify/BCB/ChangeDirDlg.cpp trunk/jvcl/examples/JvChangeNotify/BCB/ChangeDirDlg.h trunk/jvcl/examples/JvChangeNotify/BCB/JvChangeNotifyDemo.cpp trunk/jvcl/examples/JvChangeNotify/BCB/MainForm.cpp trunk/jvcl/examples/JvChangeNotify/BCB/MainForm.h trunk/jvcl/examples/JvChangeNotify/ChangeNotificationDirDlgU.pas trunk/jvcl/examples/JvChangeNotify/ChangeNotificationMainFormU.pas trunk/jvcl/examples/JvChangeNotify/ChangeNotifyDemo.dpr trunk/jvcl/examples/JvCharMap/BCB/JvCharMapDemo.cpp trunk/jvcl/examples/JvCharMap/BCB/MainForm.cpp trunk/jvcl/examples/JvCharMap/BCB/MainForm.h trunk/jvcl/examples/JvCharMap/JvCharMapDemo.dpr trunk/jvcl/examples/JvCharMap/JvCharMapMainFrmU.pas trunk/jvcl/examples/JvChartDemo/BCB/JvChartDemo.cpp trunk/jvcl/examples/JvChartDemo/BCB/MainForm.cpp trunk/jvcl/examples/JvChartDemo/BCB/MainForm.h trunk/jvcl/examples/JvChartDemo/BCB/StatClasses.cpp trunk/jvcl/examples/JvChartDemo/BCB/StatClasses.h trunk/jvcl/examples/JvChartDemo/JvChartDemo.dpr trunk/jvcl/examples/JvChartDemo/JvChartDemoFm.pas trunk/jvcl/examples/JvChartDemo/StatsClasses.pas trunk/jvcl/examples/JvCheckBoxRadioButton/BCB/JvCheckBoxRadioButtonDemo.cpp trunk/jvcl/examples/JvCheckBoxRadioButton/BCB/MainForm.cpp trunk/jvcl/examples/JvCheckBoxRadioButton/BCB/MainForm.h trunk/jvcl/examples/JvCheckBoxRadioButton/JvCheckBoxDemo.dpr trunk/jvcl/examples/JvCheckBoxRadioButton/JvCheckBoxRadioBtnFrmU.pas trunk/jvcl/examples/JvCheckTreeView/BCB/JvCheckTreeViewDemo.cpp trunk/jvcl/examples/JvCheckTreeView/BCB/MainForm.cpp trunk/jvcl/examples/JvCheckTreeView/BCB/MainForm.h trunk/jvcl/examples/JvCheckTreeView/CheckTVDemo.dpr trunk/jvcl/examples/JvCheckTreeView/CheckTVDemoFrm.pas trunk/jvcl/examples/JvClipboardViewer/BCB/JvClipboardViewerDemo.cpp trunk/jvcl/examples/JvClipboardViewer/BCB/MainForm.cpp trunk/jvcl/examples/JvClipboardViewer/BCB/MainForm.h trunk/jvcl/examples/JvClipboardViewer/JvClipboardViewerMainFormU.pas trunk/jvcl/examples/JvClipboardViewer/JvClipboardViewerProj.dpr trunk/jvcl/examples/JvColorButton/BCB/JvColorButtonDemo.cpp trunk/jvcl/examples/JvColorButton/BCB/MainForm.cpp trunk/jvcl/examples/JvColorButton/BCB/MainForm.h trunk/jvcl/examples/JvColorButton/ColorButtonDemo.dpr trunk/jvcl/examples/JvColorButton/Main.pas trunk/jvcl/examples/JvColorCombo/BCB/JvColorCombo.cpp trunk/jvcl/examples/JvColorCombo/BCB/MainForm.cpp trunk/jvcl/examples/JvColorCombo/BCB/MainForm.h trunk/jvcl/examples/JvColorCombo/ColorComboDemo.dpr trunk/jvcl/examples/JvColorCombo/JvColorComboDemoMainFormU.pas trunk/jvcl/examples/JvComboListBox/DropFrm.pas trunk/jvcl/examples/JvComboListBox/JvComboListBoxDemo.dpr trunk/jvcl/examples/JvComboListBox/JvComboListBoxDemoForm.pas trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemo.dpr trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemoForm.pas trunk/jvcl/examples/JvContentScroller/ContentScrollerDemo.dpr trunk/jvcl/examples/JvContentScroller/ContentScrollerMainFormU.pas trunk/jvcl/examples/JvControls/ControlsExample.dpr trunk/jvcl/examples/JvControls/ControlsExampleMainFormU.pas trunk/jvcl/examples/JvCreateProcess/ConsoleExample.dpr trunk/jvcl/examples/JvCreateProcess/ConsoleExampleMainFormU.pas trunk/jvcl/examples/JvCreateProcess/CreateProcessExample.dpr trunk/jvcl/examples/JvCreateProcess/CreateProcessExampleMainFormU.pas trunk/jvcl/examples/JvDBActions/JvDBAction.dpr trunk/jvcl/examples/JvDBActions/JvDBActionMainForm.pas trunk/jvcl/examples/JvDBDateTimePicker/DBDTPDemo.dpr trunk/jvcl/examples/JvDBDateTimePicker/JvDBDateTimePickerMainFormU.pas trunk/jvcl/examples/JvDBExplorer/ABOUT.PAS trunk/jvcl/examples/JvDBExplorer/BDEINFO.PAS trunk/jvcl/examples/JvDBExplorer/BDEPROP.PAS trunk/jvcl/examples/JvDBExplorer/Childwin2.pas trunk/jvcl/examples/JvDBExplorer/DBCBREST.PAS trunk/jvcl/examples/JvDBExplorer/DBEXPL32.DPR trunk/jvcl/examples/JvDBExplorer/Desttab.pas trunk/jvcl/examples/JvDBExplorer/EDITPICT.PAS trunk/jvcl/examples/JvDBExplorer/EDITSTR.PAS trunk/jvcl/examples/JvDBExplorer/FILTDLG.PAS trunk/jvcl/examples/JvDBExplorer/HexDump.pas trunk/jvcl/examples/JvDBExplorer/MAIN.PAS trunk/jvcl/examples/JvDBExplorer/OPENDLG.PAS trunk/jvcl/examples/JvDBExplorer/OPTDLG.PAS trunk/jvcl/examples/JvDBExplorer/OPTIONS.PAS trunk/jvcl/examples/JvDBExplorer/RENDLG.PAS trunk/jvcl/examples/JvDBExplorer/SQLMON.PAS trunk/jvcl/examples/JvDBExplorer/SRCTAB.PAS trunk/jvcl/examples/JvDBExplorer/TUTIL.PAS trunk/jvcl/examples/JvDBExplorer/USERHELP.PAS trunk/jvcl/examples/JvDBExplorer/VIEWBLOB.PAS trunk/jvcl/examples/JvDBFindEdit/JvDBFindEditDemo.dpr trunk/jvcl/examples/JvDBFindEdit/JvDBFindEditDemoForm.pas trunk/jvcl/examples/JvDBGridExport/JvDBGridExportDemo.dpr trunk/jvcl/examples/JvDBGridExport/JvDBGridExportDemoMainForm.pas trunk/jvcl/examples/JvDBHTLabel/JvDBHTLabelDemo.dpr trunk/jvcl/examples/JvDBHTLabel/JvDBHTLabelDemoMainForm.pas trunk/jvcl/examples/JvDBImage/JvDBImageDemo.dpr trunk/jvcl/examples/JvDBImage/JvDBImageDemoMainForm.pas trunk/jvcl/examples/JvDBSearch/JvDBSearchDemo.dpr trunk/jvcl/examples/JvDBSearch/JvDBSearchDemoMainForm.pas trunk/jvcl/examples/JvDSADialogs/DSADialogsMainFormU.pas trunk/jvcl/examples/JvDSADialogs/DSAExamples.dpr trunk/jvcl/examples/JvDSADialogs/DSAExamplesCustom1.pas trunk/jvcl/examples/JvDSADialogs/DSAExamplesCustom2.pas trunk/jvcl/examples/JvDSADialogs/DSAExamplesProgressDlg.pas trunk/jvcl/examples/JvDSADialogs/MessageDlgEditor.dpr trunk/jvcl/examples/JvDSADialogs/MessageDlgEditorMain.pas trunk/jvcl/examples/JvDSADialogs/MessageDlgEditorSelectIcon.pas trunk/jvcl/examples/JvDataEmbedded/JvDataEmbeddedMainFormU.pas trunk/jvcl/examples/JvDataEmbedded/JvDataEmbeddedProj.dpr trunk/jvcl/examples/JvDataEmbedded/test.txt trunk/jvcl/examples/JvDbMaskEdit/JvDbMaskEditDemo.dpr trunk/jvcl/examples/JvDbMaskEdit/JvDbMaskEditDemoForm.pas trunk/jvcl/examples/JvDesigner/Design.pas trunk/jvcl/examples/JvDesigner/JvDesignerDemo.dpr trunk/jvcl/examples/JvDesigner/Main.pas trunk/jvcl/examples/JvDesktopAlert/BCB/JvDesktopAlertDemo.cpp trunk/jvcl/examples/JvDesktopAlert/BCB/MainForm.cpp trunk/jvcl/examples/JvDesktopAlert/BCB/MainForm.h trunk/jvcl/examples/JvDesktopAlert/JvDesktopAlertDemo.dpr trunk/jvcl/examples/JvDesktopAlert/JvDesktopAlertDemoForm.pas trunk/jvcl/examples/JvDiagramShape/1. WebSiteScanner/JimParse.pas trunk/jvcl/examples/JvDiagramShape/1. WebSiteScanner/Parser.htm trunk/jvcl/examples/JvDiagramShape/1. WebSiteScanner/WebMapper.dpr trunk/jvcl/examples/JvDiagramShape/1. WebSiteScanner/WebMapperDemoMainForm.pas trunk/jvcl/examples/JvDiagramShape/2. UseCaseEditor/CaptionEditForm.pas trunk/jvcl/examples/JvDiagramShape/2. UseCaseEditor/UseCase.dpr trunk/jvcl/examples/JvDiagramShape/2. UseCaseEditor/UseCaseDemoMainForm.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DepWalk.dpr trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DepWalkConsts.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DepWalkUtils.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DependencyWalker.css trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DependencyWalkerDemoMainForm.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/JclParseUses.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/OptionsFrm.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/PersistForm.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/PersistSettings.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/PrintFrm.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/SkipList.txt trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/StatsFrm.pas trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/readme.txt trunk/jvcl/examples/JvDialogs/JvDialogsDemo.dpr trunk/jvcl/examples/JvDialogs/fDialogs.pas trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/AdvancePro_CB5.cpp trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/AdvancePro_CB6.cpp trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Main.cpp trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Main.h trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Unit1.cpp trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Unit1.h trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Unit2.cpp trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Unit2.h trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Unit3.cpp trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Unit3.h trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Unit4.cpp trunk/jvcl/examples/JvDocking/AdvanceDemo/BCB_Source/Unit4.h trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/AdvancePro.dpr trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/Main.pas trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/BCB/DockOptionDemo.cpp trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/BCB/DockWindowForm.cpp trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/BCB/DockWindowForm.h trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/BCB/MainForm.cpp trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/BCB/MainForm.h trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/DockOptionDemo.dpr trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/DockWindow.pas trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/MainForm.pas trunk/jvcl/examples/JvDocking/DockingInCode/DocFm.pas trunk/jvcl/examples/JvDocking/DockingInCode/DockingInCode.dpr trunk/jvcl/examples/JvDocking/DockingInCode/MainFm.pas trunk/jvcl/examples/JvDocking/HowtoUse/HowToUse.dpr trunk/jvcl/examples/JvDocking/HowtoUse/Project1_CB.cpp trunk/jvcl/examples/JvDocking/HowtoUse/Unit1.pas trunk/jvcl/examples/JvDocking/HowtoUse/Unit2.pas trunk/jvcl/examples/JvDocking/MSDN2002/Bin/msdnstart/msdnstart.htm trunk/jvcl/examples/JvDocking/MSDN2002/Source/ContentsFormUnit.pas trunk/jvcl/examples/JvDocking/MSDN2002/Source/FavoritesFormUnit.pas trunk/jvcl/examples/JvDocking/MSDN2002/Source/IndexFormUnit.pas trunk/jvcl/examples/JvDocking/MSDN2002/Source/IndexResultFormUnit.pas trunk/jvcl/examples/JvDocking/MSDN2002/Source/MSDN2002MainUnit.pas trunk/jvcl/examples/JvDocking/MSDN2002/Source/MSDN2002Pro.dpr trunk/jvcl/examples/JvDocking/MSDN2002/Source/SearchFormUnit.pas trunk/jvcl/examples/JvDocking/MSDN2002/Source/SearchResultFormUnit.pas trunk/jvcl/examples/JvDocking/MSDN2002/Source/XPBarMenu.pas trunk/jvcl/examples/JvDocking/MSDN2002/Source/XPMenu.pas trunk/jvcl/examples/JvDocking/VCDemo/C++ File/MainFrm.cpp trunk/jvcl/examples/JvDocking/VCDemo/C++ File/MainFrm.h trunk/jvcl/examples/JvDocking/VCDemo/C++ File/MyApp.cpp trunk/jvcl/examples/JvDocking/VCDemo/C++ File/MyApp.h trunk/jvcl/examples/JvDocking/VCDemo/C++ File/MyAppDoc.cpp trunk/jvcl/examples/JvDocking/VCDemo/C++ File/MyAppDoc.h trunk/jvcl/examples/JvDocking/VCDemo/C++ File/MyAppView.cpp trunk/jvcl/examples/JvDocking/VCDemo/C++ File/MyAppView.h trunk/jvcl/examples/JvDocking/VCDemo/C++ File/Resource.h trunk/jvcl/examples/JvDocking/VCDemo/C++ File/StdAfx.cpp trunk/jvcl/examples/JvDocking/VCDemo/C++ File/StdAfx.h trunk/jvcl/examples/JvDocking/VCDemo/Source/CallStackUnit.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/Main.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/MemoryUnit.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/OutputUnit.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/RegistersUnit.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/SourceEditUnit.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/Splash.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/VCDemoPro.dpr trunk/jvcl/examples/JvDocking/VCDemo/Source/VariablesUnit.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/WatchUnit.pas trunk/jvcl/examples/JvDocking/VCDemo/Source/WorkSpaceUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/AutosUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/CallStackUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/DefineWindowLayoutUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/DocumentOutlineUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/FindAndReplaceUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/ImmediateUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/LocalsUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/MainFormUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/OutputUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/ProjectExplorerUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/PropertiesUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/RunningDocumentsUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/ScriptOutlineUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/SplashUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/TaskListUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/ThreadsUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/ToolboxUnit.pas trunk/jvcl/examples/JvDocking/VIDDemo/Source/VIDDemoPro.dpr trunk/jvcl/examples/JvDocking/VIDDemo/Source/WatchUnit.pas trunk/jvcl/examples/JvDomainUpDown/JvDomainUpDownDemo.dpr trunk/jvcl/examples/JvDomainUpDown/JvDomainUpDownDemoMainForm.pas trunk/jvcl/examples/JvDotNetCtrls/BCB/DotNetCtrlsDemo.cpp trunk/jvcl/examples/JvDotNetCtrls/BCB/MainForm.cpp trunk/jvcl/examples/JvDotNetCtrls/BCB/MainForm.h trunk/jvcl/examples/JvDotNetCtrls/JvDotNetDemo.dpr trunk/jvcl/examples/JvDotNetCtrls/JvDotNetDemoMainForm.pas trunk/jvcl/examples/JvEDI/AdvantageIBXDemo/ADS70_DM.pas trunk/jvcl/examples/JvEDI/AdvantageIBXDemo/EDIDBBuffering.dpr trunk/jvcl/examples/JvEDI/AdvantageIBXDemo/Interbase6_IBX_DM.pas trunk/jvcl/examples/JvEDI/AdvantageIBXDemo/UnitMain.pas trunk/jvcl/examples/JvEDI/DB_ADS70/ADSCOM.TXT trunk/jvcl/examples/JvEDI/ReadMe.txt trunk/jvcl/examples/JvEdits/JvEdits.dpr trunk/jvcl/examples/JvEdits/fEdits.pas trunk/jvcl/examples/JvEmbeddedForms/DeepEmbeddedFormUnit.pas trunk/jvcl/examples/JvEmbeddedForms/EmbeddedForm.dpr trunk/jvcl/examples/JvEmbeddedForms/EmbeddedFormUnit.pas trunk/jvcl/examples/JvEmbeddedForms/MainFormUnit.pas trunk/jvcl/examples/JvErrorIndicator/JvErrorIndicatorDemo.dpr trunk/jvcl/examples/JvErrorIndicator/JvErrorIndicatorMainDemoForm.pas trunk/jvcl/examples/JvFileListBox/FileDirDemo.dpr trunk/jvcl/examples/JvFileListBox/FileListBoxMainFormU.pas trunk/jvcl/examples/JvFindReplace/FindReplaceDemo.dpr trunk/jvcl/examples/JvFindReplace/FindReplaceMainFormU.pas trunk/jvcl/examples/JvFooterAndGroupHeader/JvFooterAndGroupHeaderDemoForm.pas trunk/jvcl/examples/JvFooterAndGroupHeader/prjControls.dpr trunk/jvcl/examples/JvFullColorCircleDialog/BCB/JvFullColorCircleDialogDemo.cpp trunk/jvcl/examples/JvFullColorCircleDialog/BCB/MainForm.cpp trunk/jvcl/examples/JvFullColorCircleDialog/BCB/MainForm.h trunk/jvcl/examples/JvFullColorCircleDialog/JvFullColorCircleDialogMainForm.pas trunk/jvcl/examples/JvFullColorCircleDialog/JvFullColorCircleDialogPrj.dpr trunk/jvcl/examples/JvFullColorDialog/BCB/JvFullColorDialogDemo.cpp trunk/jvcl/examples/JvFullColorDialog/BCB/MainForm.cpp trunk/jvcl/examples/JvFullColorDialog/BCB/MainForm.h trunk/jvcl/examples/JvFullColorDialog/JvFullColorDialogMainForm.pas trunk/jvcl/examples/JvFullColorDialog/JvFullColorDialogPrj.dpr trunk/jvcl/examples/JvGIFAnimator/About.pas trunk/jvcl/examples/JvGIFAnimator/GIFMAIN.PAS trunk/jvcl/examples/JvGIFAnimator/GIFPAL.PAS trunk/jvcl/examples/JvGIFAnimator/Gifprvw.pas trunk/jvcl/examples/JvGIFAnimator/RxGIFAnm.dpr trunk/jvcl/examples/JvHIDController/BasicDemo/BasicDemo.dpr trunk/jvcl/examples/JvHIDController/BasicDemo/BasicMain.pas trunk/jvcl/examples/JvHIDController/CollectionDemo/CollectionDemo.dpr trunk/jvcl/examples/JvHIDController/CollectionDemo/CollectionMain.pas trunk/jvcl/examples/JvHIDController/CollectionDemo/UsagesInfo.pas trunk/jvcl/examples/JvHIDController/ReadWriteDemo/DevReader.pas trunk/jvcl/examples/JvHIDController/ReadWriteDemo/Info.pas trunk/jvcl/examples/JvHIDController/ReadWriteDemo/SimpleHIDWrite.dpr trunk/jvcl/examples/JvHIDController/UsagesDemo/Info.pas trunk/jvcl/examples/JvHIDController/UsagesDemo/UsagesDemo.dpr trunk/jvcl/examples/JvHIDController/UsagesDemo/UsagesInfo.pas trunk/jvcl/examples/JvHIDController/UsagesDemo/UsagesMain.pas trunk/jvcl/examples/JvHTMLParser/JvHTMLParserMainFormU.pas trunk/jvcl/examples/JvHTMLParser/JvHtmlParserProj.dpr trunk/jvcl/examples/JvHTMLParser/sample.htm trunk/jvcl/examples/JvHTMLParser/sample2.htm trunk/jvcl/examples/JvID3v1/JvID3v1Demo.dpr trunk/jvcl/examples/JvID3v1/JvID3v1MainFormU.pas trunk/jvcl/examples/JvID3v2/JvID3v2Demo.dpr trunk/jvcl/examples/JvID3v2/JvID3v2EditFormU.pas trunk/jvcl/examples/JvID3v2/JvID3v2MainFormU.pas trunk/jvcl/examples/JvInspector/BCB/JvInspectorDemo.cpp trunk/jvcl/examples/JvInspector/BCB/MainForm.cpp trunk/jvcl/examples/JvInspector/BCB/MainForm.h trunk/jvcl/examples/JvInspector/BCB/TestForm.cpp trunk/jvcl/examples/JvInspector/BCB/TestForm.h trunk/jvcl/examples/JvInspector/InspExample.dpr trunk/jvcl/examples/JvInspector/InspectorExampleMain.pas trunk/jvcl/examples/JvInspector/InspectorExampleTestForm.pas trunk/jvcl/examples/JvInspector/InspectorSimpleExample.dpr trunk/jvcl/examples/JvInspector/InspectorSimpleExampleMain.pas trunk/jvcl/examples/JvInspectorDB/InspectorDBExample.dpr trunk/jvcl/examples/JvInspectorDB/JvInspectorDBDemoMainFormU.pas trunk/jvcl/examples/JvInstallLabel/Install2LabelDemo.dpr trunk/jvcl/examples/JvInstallLabel/InstallLabelMainFormU.pas trunk/jvcl/examples/JvItemViewer/JvItemViewerDemo.dpr trunk/jvcl/examples/JvItemViewer/MainFrm.pas trunk/jvcl/examples/JvItemViewer/ViewerFrm.pas trunk/jvcl/examples/JvLED/JvLEDDemo.dpr trunk/jvcl/examples/JvLED/LEDMain.pas trunk/jvcl/examples/JvLinkLabel/CategCh.pas trunk/jvcl/examples/JvLinkLabel/InfoStrings.pas trunk/jvcl/examples/JvLinkLabel/JvLinkLabelDemo.dpr trunk/jvcl/examples/JvLinkLabel/JvLinkLabelMainFormU.pas trunk/jvcl/examples/JvLinkLabel/Play.pas trunk/jvcl/examples/JvListComb/ListCombDemo.dpr trunk/jvcl/examples/JvListComb/ListCombMainFormU.pas trunk/jvcl/examples/JvLogFile/JvLogFileDemo.dpr trunk/jvcl/examples/JvLogFile/JvLogFileMainFormU.pas trunk/jvcl/examples/JvMRUList/JvMruListDemo.dpr trunk/jvcl/examples/JvMRUList/JvMruListMainFormU.pas trunk/jvcl/examples/JvMail/MailExample.dpr trunk/jvcl/examples/JvMail/MailExampleMainFormU.pas trunk/jvcl/examples/JvManagedThreads/Balls/BCB/BallsDemo.cpp trunk/jvcl/examples/JvManagedThreads/Balls/BCB/MainForm.cpp trunk/jvcl/examples/JvManagedThreads/Balls/BCB/MainForm.h trunk/jvcl/examples/JvManagedThreads/Balls/Balls.dpr trunk/jvcl/examples/JvManagedThreads/Balls/fBalls.pas trunk/jvcl/examples/JvManagedThreads/Philosophers/BCB/MainForm.cpp trunk/jvcl/examples/JvManagedThreads/Philosophers/BCB/MainForm.h trunk/jvcl/examples/JvManagedThreads/Philosophers/BCB/PhilisophersDemo.cpp trunk/jvcl/examples/JvManagedThreads/Philosophers/Philosophers.dpr trunk/jvcl/examples/JvManagedThreads/Philosophers/fPhilosophers.pas trunk/jvcl/examples/JvMarkupLabel/JvMarkupLabelDemo.dpr trunk/jvcl/examples/JvMarkupLabel/JvMarkupLabelDemoMainForm.pas trunk/jvcl/examples/JvMenus/BCB/JvMenusExample.cpp trunk/jvcl/examples/JvMenus/BCB/MainForm.cpp trunk/jvcl/examples/JvMenus/BCB/MainForm.h trunk/jvcl/examples/JvMenus/JvMenusExample.dpr trunk/jvcl/examples/JvMenus/JvMenusExampleMainForm.pas trunk/jvcl/examples/JvMouseGesture/JvMouseGestureDemo.dpr trunk/jvcl/examples/JvMouseGesture/uJvMouseGesture.pas trunk/jvcl/examples/JvNTEventLog/EventViewer.dpr trunk/jvcl/examples/JvNTEventLog/JvNTEventLogMainFormU.pas trunk/jvcl/examples/JvNavigationPane/JvNavPaneDemo.dpr trunk/jvcl/examples/JvNavigationPane/JvNavPaneDemoMainForm.pas trunk/jvcl/examples/JvOLEDragCursors/JvOLEDragCursorsDemo.dpr trunk/jvcl/examples/JvOLEDragCursors/MainFrm.pas trunk/jvcl/examples/JvObjectPicker/JvObjPickerDemo.dpr trunk/jvcl/examples/JvObjectPicker/Unit1.pas trunk/jvcl/examples/JvOfficeColorButton/Main.pas trunk/jvcl/examples/JvOfficeColorButton/OfficeColorButtonDemo.dpr trunk/jvcl/examples/JvOutlookBar/OLBarDemo.dpr trunk/jvcl/examples/JvOutlookBar/OLBarMainFormU.pas trunk/jvcl/examples/JvOutlookBarCustomDraw/JvOutlookBarCustomDrawDemo.dpr trunk/jvcl/examples/JvOutlookBarCustomDraw/JvOutlookBarCustomDrawDemoMainForm.pas trunk/jvcl/examples/JvPackageModify/PackageModifierMainForm.pas trunk/jvcl/examples/JvPackageModify/pm.dpr trunk/jvcl/examples/JvPackageModify/readme.txt trunk/jvcl/examples/JvPageListTreeView/JvPageListTreeViewMainForm.pas trunk/jvcl/examples/JvPageListTreeView/PageListDemo.dpr trunk/jvcl/examples/JvPanel/JvPanelDemo.dpr trunk/jvcl/examples/JvPanel/JvPanelDemoFrm.pas trunk/jvcl/examples/JvParameterList/JvDynControlEngineVCLRed.pas trunk/jvcl/examples/JvParameterList/JvParameterListDemo.dpr trunk/jvcl/examples/JvParameterList/JvParameterListMainForm.pas trunk/jvcl/examples/JvPlayList/JvPlayListMainFormU.pas trunk/jvcl/examples/JvPlayList/JvPlayListProj.dpr trunk/jvcl/examples/JvPlugin/1SimplePlugin/PlugInDemo.dpr trunk/jvcl/examples/JvPlugin/1SimplePlugin/PlugInDemoU.pas trunk/jvcl/examples/JvPlugin/1SimplePlugin/SamplePluginOne.dpr trunk/jvcl/examples/JvPlugin/1SimplePlugin/SamplePluginOneU.pas trunk/jvcl/examples/JvPlugin/2MDI/MDIPlugin.dpr trunk/jvcl/examples/JvPlugin/2MDI/MDIPluginFormU.pas trunk/jvcl/examples/JvPlugin/2MDI/MDIPluginU.pas trunk/jvcl/examples/JvPlugin/2MDI/MDISample.dpr trunk/jvcl/examples/JvPlugin/2MDI/MDISampleU.pas trunk/jvcl/examples/JvPlugin/3ChangingProperties/ChangePropertiesPlugin.dpr trunk/jvcl/examples/JvPlugin/3ChangingProperties/ChangePropertiesPluginU.pas trunk/jvcl/examples/JvPlugin/3ChangingProperties/PlugInDemoU.pas trunk/jvcl/examples/JvPlugin/3ChangingProperties/PropertiesPlugInDemo.dpr trunk/jvcl/examples/JvPlugin/4ApplicationHook/ExceptionPlugInDemo.dpr trunk/jvcl/examples/JvPlugin/4ApplicationHook/ExceptionPlugin.dpr trunk/jvcl/examples/JvPlugin/4ApplicationHook/ExceptionPluginU.pas trunk/jvcl/examples/JvPlugin/4ApplicationHook/PlugInDemoU.pas trunk/jvcl/examples/JvPlugin/5DataAware/DataPlugInDemo.dpr trunk/jvcl/examples/JvPlugin/5DataAware/DataPlugin.dpr trunk/jvcl/examples/JvPlugin/5DataAware/DataPluginU.pas trunk/jvcl/examples/JvPlugin/5DataAware/PlugInDemoU.pas trunk/jvcl/examples/JvPlugin/6PluginPackage/JvPlgIntf.pas trunk/jvcl/examples/JvPlugin/6PluginPackage/PlgMainApp/JvPlgMainApp.dpr trunk/jvcl/examples/JvPlugin/6PluginPackage/PlgMainApp/ufrmMain.pas trunk/jvcl/examples/JvPlugin/6PluginPackage/PlgPlugin/PluginTest.pas trunk/jvcl/examples/JvPlugin/6PluginPackage/PlgPlugin/plgTest.dpk trunk/jvcl/examples/JvPlugin/6PluginPackage/PlgPlugin/ufrmPluginForm.pas trunk/jvcl/examples/JvPreviewDocument/JvPrvwDemo.dpr trunk/jvcl/examples/JvPreviewDocument/MainFrm.pas trunk/jvcl/examples/JvProfiler32/BCB/Profiler32MainFormU.cpp trunk/jvcl/examples/JvProfiler32/BCB/Profiler32MainFormU.h trunk/jvcl/examples/JvProfiler32/BCB/ProfilerDemo.cpp trunk/jvcl/examples/JvProfiler32/Profiler32MainFormU.pas trunk/jvcl/examples/JvProfiler32/ProfilerDemo.dpr trunk/jvcl/examples/JvProgramVersionCheck/Main.pas trunk/jvcl/examples/JvProgramVersionCheck/Project1.dpr trunk/jvcl/examples/JvProgressDialog/BCB/JvProgressDialogDemo.cpp trunk/jvcl/examples/JvProgressDialog/BCB/JvProgressDialogMain.cpp trunk/jvcl/examples/JvProgressDialog/BCB/JvProgressDialogMain.h trunk/jvcl/examples/JvProgressDialog/JvProgressDialogDemo.dpr trunk/jvcl/examples/JvProgressDialog/JvProgressDialogMain.pas trunk/jvcl/examples/JvRegistryTreeView/BCB/RegEditDemo.cpp trunk/jvcl/examples/JvRegistryTreeView/BCB/RegTVMainFormU.cpp trunk/jvcl/examples/JvRegistryTreeView/BCB/RegTVMainFormU.h trunk/jvcl/examples/JvRegistryTreeView/RegEditDemo.dpr trunk/jvcl/examples/JvRegistryTreeView/RegTVMainFormU.pas trunk/jvcl/examples/JvRichEdit/EditorDemo.dpr trunk/jvcl/examples/JvRichEdit/EditorDemo.rc trunk/jvcl/examples/JvRichEdit/EditorMainFormU.pas trunk/jvcl/examples/JvRichEdit/MessengerDemo.dpr trunk/jvcl/examples/JvRichEdit/MessengerMainFormU.pas trunk/jvcl/examples/JvRichEdit/ParagraphFormatFormU.pas trunk/jvcl/examples/JvRichEdit/TabsFormU.pas trunk/jvcl/examples/JvRichEdit/XPColorMenuItemPainter.pas trunk/jvcl/examples/JvRollOut/BCB/JvRollOutDemo.cpp trunk/jvcl/examples/JvRollOut/BCB/MainFrm.cpp trunk/jvcl/examples/JvRollOut/BCB/MainFrm.h trunk/jvcl/examples/JvRollOut/JvRollOutDemo.dpr trunk/jvcl/examples/JvRollOut/MainFrm.pas trunk/jvcl/examples/JvRunDll32/BCB/InfoFrm.cpp trunk/jvcl/examples/JvRunDll32/BCB/InfoFrm.h trunk/jvcl/examples/JvRunDll32/BCB/RunDLL32Demo.cpp trunk/jvcl/examples/JvRunDll32/BCB/RunDll32MainFormU.cpp trunk/jvcl/examples/JvRunDll32/BCB/RunDll32MainFormU.h trunk/jvcl/examples/JvRunDll32/InfoFrm.pas trunk/jvcl/examples/JvRunDll32/RunDLL32Demo.dpr trunk/jvcl/examples/JvRunDll32/RunDll32MainFormU.pas trunk/jvcl/examples/JvSHFileOperation/BCB/JvShFileOperationMainFormU.cpp trunk/jvcl/examples/JvSHFileOperation/BCB/JvShFileOperationMainFormU.h trunk/jvcl/examples/JvSHFileOperation/BCB/ShFileOpDemo... [truncated message content] |
From: <ob...@us...> - 2006-06-09 13:27:13
|
Revision: 10688 Author: obones Date: 2006-06-09 06:26:54 -0700 (Fri, 09 Jun 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10688&view=rev Log Message: ----------- Ctl3D and ParentCtl3D have been removed from the components, replaced by Flat and ParentFlat, measures have been taken to ensure that existing DFMs are read correctly Modified Paths: -------------- trunk/jvcl/changelog.txt trunk/jvcl/run/JvBaseEdits.pas trunk/jvcl/run/JvCalc.pas trunk/jvcl/run/JvCheckedMaskEdit.pas trunk/jvcl/run/JvCombobox.pas trunk/jvcl/run/JvDBControls.pas trunk/jvcl/run/JvDBFindEdit.pas trunk/jvcl/run/JvDBLookup.pas trunk/jvcl/run/JvDBSearchComboBox.pas trunk/jvcl/run/JvDBSearchEdit.pas trunk/jvcl/run/JvDatePickerEdit.pas trunk/jvcl/run/JvEdit.pas trunk/jvcl/run/JvExtComponent.pas trunk/jvcl/run/JvFullColorCtrls.pas trunk/jvcl/run/JvMaskEdit.pas trunk/jvcl/run/JvSplit.pas trunk/jvcl/run/JvToolEdit.pas Modified: trunk/jvcl/changelog.txt =================================================================== --- trunk/jvcl/changelog.txt 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/changelog.txt 2006-06-09 13:26:54 UTC (rev 10688) @@ -1,5 +1,8 @@ Changelog for JVCL 3.X ====================== +2006-06-08 +- Ctl3D and ParentCtl3D have been removed from the components, replaced by Flat and ParentFlat // obones + Measures have been taken to ensure that existing DFMs are read correctly. 2006-05-16: - TJvgProcess moved to Archive because TJvCreateProcess is much better // (rom) - moved unused JvgRichEditUtils.pas to Archive. Any user can use it from there. // (rom) Modified: trunk/jvcl/run/JvBaseEdits.pas =================================================================== --- trunk/jvcl/run/JvBaseEdits.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvBaseEdits.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -230,7 +230,7 @@ property DragKind; property Flat; property ParentBiDiMode; - property ParentCtl3D; + property ParentFlat; property ImeMode; property ImeName; property OnEndDock; Modified: trunk/jvcl/run/JvCalc.pas =================================================================== --- trunk/jvcl/run/JvCalc.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvCalc.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -57,7 +57,7 @@ FMemory: Double; FTitle: string; {$IFDEF VCL} - FCtl3D: Boolean; + FFlat: Boolean; {$ENDIF VCL} FPrecision: Byte; FBeepOnError: Boolean; @@ -70,6 +70,9 @@ function GetTitle: string; procedure SetTitle(const Value: string); function TitleStored: Boolean; + procedure ReadCtl3D(Reader: TReader); + function GetCtl3D: Boolean; + procedure SetCtl3D(const Value: Boolean); protected procedure Change; dynamic; procedure CalcKey(var Key: Char); dynamic; @@ -78,13 +81,12 @@ constructor Create(AOwner: TComponent); override; destructor Destroy; override; function Execute: Boolean; override; + procedure DefineProperties(Filer: TFiler);override; + property CalcDisplay: Double read GetDisplay; property Memory: Double read FMemory; published property BeepOnError: Boolean read FBeepOnError write FBeepOnError default True; - {$IFDEF VCL} - property Ctl3D: Boolean read FCtl3D write FCtl3D default True; - {$ENDIF VCL} property HelpContext: THelpContext read FHelpContext write FHelpContext default 0; property Precision: Byte read FPrecision write FPrecision default DefCalcPrecision; property Title: string read GetTitle write SetTitle stored TitleStored; @@ -92,6 +94,9 @@ property OnCalcKey: TKeyPressEvent read FOnCalcKey write FOnCalcKey; property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnDisplayChange: TNotifyEvent read FOnDisplayChange write FOnDisplayChange; + {$IFDEF VCL} + property Flat: Boolean read FFlat write FFlat default False; + {$ENDIF VCL} end; TJvCalculatorForm = class(TJvForm) @@ -477,12 +482,19 @@ inherited Create(AOwner); FTitle := RsCalculatorCaption; {$IFDEF VCL} - FCtl3D := True; + FFlat := False; {$ENDIF VCL} FPrecision := DefCalcPrecision; FBeepOnError := True; end; +procedure TJvCalculator.DefineProperties(Filer: TFiler); +begin + inherited DefineProperties(Filer); + + Filer.DefineProperty('Ctl3D', ReadCtl3D, nil, False); +end; + destructor TJvCalculator.Destroy; begin FOnChange := nil; @@ -517,7 +529,7 @@ with FCalc do try {$IFDEF VCL} - Ctl3D := FCtl3D; + Ctl3D := not FFlat; {$ENDIF VCL} Caption := Self.Title; TJvCalculatorPanel(FCalcPanel).FMemory := Self.FMemory; @@ -546,6 +558,11 @@ end; end; +function TJvCalculator.GetCtl3D: Boolean; +begin + Result := not Flat; +end; + function TJvCalculator.GetDisplay: Double; begin if Assigned(FCalc) then @@ -559,6 +576,16 @@ Result := FTitle; end; +procedure TJvCalculator.ReadCtl3D(Reader: TReader); +begin + Flat := not Reader.ReadBoolean; +end; + +procedure TJvCalculator.SetCtl3D(const Value: Boolean); +begin + Flat := not Value; +end; + procedure TJvCalculator.SetTitle(const Value: string); begin FTitle := Value; Modified: trunk/jvcl/run/JvCheckedMaskEdit.pas =================================================================== --- trunk/jvcl/run/JvCheckedMaskEdit.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvCheckedMaskEdit.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -118,7 +118,7 @@ property ImeName; property OEMConvert; {property ParentBiDiMode;} - property ParentCtl3D; + property ParentFlat; property PasswordChar; property ProtectPassword; property OnKillFocus; Modified: trunk/jvcl/run/JvCombobox.pas =================================================================== --- trunk/jvcl/run/JvCombobox.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvCombobox.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -127,11 +127,19 @@ procedure SetEmptyValue(const Value: string); procedure MaxPixelChanged(Sender: TObject); procedure SetReadOnly(const Value: Boolean); // ain + procedure ReadCtl3D(Reader: TReader); + procedure ReadParentCtl3D(Reader: TReader); procedure CNCommand(var Msg: TWMCommand); message CN_COMMAND; procedure CNMeasureItem(var Msg: TWMMeasureItem); message CN_MEASUREITEM; procedure WMInitDialog(var Msg: TWMInitDialog); message WM_INITDIALOG; procedure WMLButtonDown(var Msg: TWMLButtonDown); message WM_LBUTTONDOWN; // ain - procedure WMLButtonDblClk(var Msg: TWMLButtonDblClk); message WM_LBUTTONDBLCLK; // ain + procedure WMLButtonDblClk(var Msg: TWMLButtonDblClk); message WM_LBUTTONDBLCLK; + {$IFDEF VCL} + function GetFlat: Boolean; + function GetParentFlat: Boolean; + procedure SetFlat(const Value: Boolean); + procedure SetParentFlat(const Value: Boolean); + {$ENDIF VCL} protected function GetText: TCaption; virtual; procedure SetText(const Value: TCaption); reintroduce; virtual; @@ -192,11 +200,16 @@ property Text: TCaption read GetText write SetText; property EmptyValue: string read FEmptyValue write SetEmptyValue; property EmptyFontColor: TColor read FEmptyFontColor write FEmptyFontColor default clGrayText; + {$IFDEF VCL} + property Flat: Boolean read GetFlat write SetFlat default False; + property ParentFlat: Boolean read GetParentFlat write SetParentFlat default True; + {$ENDIF VCL} procedure CreateParams(var Params: TCreateParams); override; procedure DestroyWnd; override; procedure WndProc(var Msg: TMessage); override; // ain function GetItemCount: Integer; {$IFDEF COMPILER6_UP} override; {$ELSE} virtual; {$ENDIF} + procedure DefineProperties(Filer: TFiler);override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -233,6 +246,7 @@ property Enabled; property EmptyValue; property EmptyFontColor; + property Flat; property Font; property ImeMode; property ImeName; @@ -241,6 +255,7 @@ property MeasureStyle; property ParentBiDiMode; property ParentColor; + property ParentFlat; property ParentFont; property ParentShowHint; {$IFNDEF CLR} @@ -359,12 +374,14 @@ property DropDownLines; property Delimiter; - property Ctl3D; property Cursor; property Enabled; + {$IFDEF VCL} + property Flat; + property ParentFlat; + {$ENDIF VCL} property Font; property ParentColor; - property ParentCtl3D; property ParentFont; property ParentShowHint; property ShowHint; @@ -1406,6 +1423,14 @@ DoEmptyValueExit; end; +procedure TJvCustomComboBox.DefineProperties(Filer: TFiler); +begin + inherited DefineProperties(Filer); + + Filer.DefineProperty('Ctl3D', ReadCtl3D, nil, False); + Filer.DefineProperty('ParentCtl3D', ReadParentCtl3D, nil, False); +end; + function TJvCustomComboBox.DeleteExactString(Value: string; All: Boolean; CaseSensitive: Boolean): Integer; begin @@ -1841,6 +1866,16 @@ end; end; +procedure TJvCustomComboBox.ReadCtl3D(Reader: TReader); +begin + Flat := not Reader.ReadBoolean; +end; + +procedure TJvCustomComboBox.ReadParentCtl3D(Reader: TReader); +begin + ParentFlat := Reader.ReadBoolean; +end; + function TJvCustomComboBox.SearchExactString(Value: string; CaseSensitive: Boolean): Integer; begin @@ -1894,6 +1929,28 @@ end; end; +{$IFDEF VCL} +function TJvCustomComboBox.GetFlat: Boolean; +begin + Result := not Ctl3D; +end; + +function TJvCustomComboBox.GetParentFlat: Boolean; +begin + Result := ParentCtl3D; +end; + +procedure TJvCustomComboBox.SetFlat(const Value: Boolean); +begin + Ctl3D := not Value; +end; + +procedure TJvCustomComboBox.SetParentFlat(const Value: Boolean); +begin + ParentCtl3D := Value; +end; +{$ENDIF VCL} + procedure TJvCustomComboBox.SetReadOnly(const Value: Boolean); begin if FReadOnly <> Value then Modified: trunk/jvcl/run/JvDBControls.pas =================================================================== --- trunk/jvcl/run/JvDBControls.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvDBControls.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -135,7 +135,7 @@ property Enabled; {$IFDEF VCL} property Flat; - property ParentCtl3D; + property ParentFlat; {$ENDIF VCL} property Font; property ImeMode; @@ -247,7 +247,7 @@ property Enabled; {$IFDEF VCL} property Flat; - property ParentCtl3D; + property ParentFlat; {$ENDIF VCL} property Font; property ImageIndex; @@ -375,7 +375,7 @@ property DragKind; property Flat; property ParentBiDiMode; - property ParentCtl3D; + property ParentFlat; property ImeMode; property ImeName; property OnEndDock; Modified: trunk/jvcl/run/JvDBFindEdit.pas =================================================================== --- trunk/jvcl/run/JvDBFindEdit.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvDBFindEdit.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -87,15 +87,17 @@ property CharCase; property Color; property Constraints; - property Ctl3D; property DragCursor; property Enabled; + {$IFDEF VCL} + property Flat; + property ParentFlat; + {$ENDIF VCL} property Font; property HideSelection; property MaxLength; Property EditMask; property ParentColor; - property ParentCtl3D; property ParentFont; property ParentShowHint; property PasswordChar; Modified: trunk/jvcl/run/JvDBLookup.pas =================================================================== --- trunk/jvcl/run/JvDBLookup.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvDBLookup.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -578,7 +578,7 @@ property Font; {$IFDEF VCL} property Flat; - property ParentCtl3D; + property ParentFlat; {$ENDIF VCL} property HideSelection; property Anchors; Modified: trunk/jvcl/run/JvDBSearchComboBox.pas =================================================================== --- trunk/jvcl/run/JvDBSearchComboBox.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvDBSearchComboBox.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -108,16 +108,18 @@ property Constraints; property Style; property Color; - property Ctl3D; property DragMode; property DragCursor; property DropDownCount; property Enabled; + {$IFDEF VCL} + property Flat; + property ParentFlat; + {$ENDIF VCL} property Font; property ItemHeight; property MaxLength; property ParentColor; - property ParentCtl3D; property ParentFont; property ParentShowHint; property PopupMenu; Modified: trunk/jvcl/run/JvDBSearchEdit.pas =================================================================== --- trunk/jvcl/run/JvDBSearchEdit.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvDBSearchEdit.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -95,12 +95,12 @@ property CharCase; property Color; {$IFDEF VCL} - property Ctl3D; + property Flat; property DragCursor; property ImeMode; property ImeName; property OEMConvert; - property ParentCtl3D; + property ParentFlat; {$ENDIF VCL} property DragMode; property Enabled; Modified: trunk/jvcl/run/JvDatePickerEdit.pas =================================================================== --- trunk/jvcl/run/JvDatePickerEdit.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvDatePickerEdit.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -249,7 +249,7 @@ property ImeMode; property ImeName; property OEMConvert; - property ParentCtl3D; + property ParentFlat; property OnEndDock; property OnStartDock; {$ENDIF VCL} Modified: trunk/jvcl/run/JvEdit.pas =================================================================== --- trunk/jvcl/run/JvEdit.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvEdit.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -106,6 +106,10 @@ procedure WMPaint(var Msg: TWMPaint); message WM_PAINT; procedure CMHintShow(var Msg: TMessage); message CM_HINTSHOW; function IsFlatStored: Boolean; + procedure ReadCtl3D(Reader: TReader); + procedure ReadParentCtl3D(Reader: TReader); + function GetParentFlat: Boolean; + procedure SetParentFlat(const Value: Boolean); {$ENDIF VCL} procedure SetEmptyValue(const Value: string); procedure SetGroupIndex(Value: Integer); @@ -164,6 +168,7 @@ {$IFDEF VCL} procedure CreateParams(var Params: TCreateParams); override; {$ENDIF VCL} + procedure DefineProperties(Filer: TFiler); override; public function IsEmpty: Boolean; constructor Create(AOwner: TComponent); override; @@ -188,6 +193,7 @@ property DisabledColor: TColor read FDisabledColor write SetDisabledColor default clWindow; {$IFDEF VCL} property Text: TCaption read GetText write SetText; + property ParentFlat: Boolean read GetParentFlat write SetParentFlat default True; {$ENDIF VCL} property UseFixedPopup: Boolean read FUseFixedPopup write FUseFixedPopup default True; property HintColor; @@ -216,7 +222,7 @@ property ImeName; property OEMConvert; property ParentBiDiMode; - property ParentCtl3D; + property ParentFlat; property UseFixedPopup; // asn: clx not implemented yet {$ENDIF VCL} property Caret; @@ -644,6 +650,18 @@ {$ENDIF VisualClx} end; +{$IFDEF VCL} +function TJvCustomEdit.GetParentFlat: Boolean; +begin + Result := ParentCtl3D; +end; + +procedure TJvCustomEdit.SetParentFlat(const Value: Boolean); +begin + ParentCtl3D := Value; +end; +{$ENDIF VCL} + function TJvCustomEdit.GetPasswordChar: Char; begin {$IFDEF VCL} @@ -737,6 +755,28 @@ SelLength := FStreamedSelLength; end; +{$IFDEF VCL} +procedure TJvCustomEdit.ReadCtl3D(Reader: TReader); +begin + Flat := not Reader.ReadBoolean; +end; + +procedure TJvCustomEdit.ReadParentCtl3D(Reader: TReader); +begin + ParentFlat := Reader.ReadBoolean; +end; +{$ENDIF VCL} + +procedure TJvCustomEdit.DefineProperties(Filer: TFiler); +begin + inherited DefineProperties(Filer); + + {$IFDEF VCL} + Filer.DefineProperty('Ctl3D', ReadCtl3D, nil, False); + Filer.DefineProperty('ParentCtl3D', ReadParentCtl3D, nil, False); + {$ENDIF VCL} +end; + procedure TJvCustomEdit.MaxPixelChanged(Sender: TObject); var St: string; Modified: trunk/jvcl/run/JvExtComponent.pas =================================================================== --- trunk/jvcl/run/JvExtComponent.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvExtComponent.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -33,11 +33,29 @@ {$IFDEF UNITVERSIONING} JclUnitVersioning, {$ENDIF UNITVERSIONING} - JvComponentBase, JvComponent, JvExControls, JvExForms, JvExExtCtrls, + Classes, JvComponentBase, JvComponent, JvExControls, JvExForms, JvExExtCtrls, JvExComCtrls; type - TJvCustomPanel = TJvExCustomPanel; + TJvCustomPanel = class(TJvExCustomPanel) + protected + {$IFDEF VCL} + function GetFlat: Boolean; + procedure ReadCtl3D(Reader: TReader); + procedure ReadParentCtl3D(Reader: TReader); + procedure SetFlat(const Value: Boolean); + function GetParentFlat: Boolean; + procedure SetParentFlat(const Value: Boolean); + {$ENDIF VCL} + + procedure DefineProperties(Filer: TFiler); override; + + {$IFDEF VCL} + property Flat: Boolean read GetFlat write SetFlat default False; + property ParentFlat: Boolean read GetParentFlat write SetParentFlat default True; + {$ENDIF VCL} + end; + TJvPubCustomPanel = TJvExPubCustomPanel; TJvCustomTreeView = TJvExCustomTreeView; @@ -53,6 +71,50 @@ implementation +{ TJvCustomPanel } + +{$IFDEF VCL} +function TJvCustomPanel.GetFlat: Boolean; +begin + Result := not Ctl3D; +end; + +function TJvCustomPanel.GetParentFlat: Boolean; +begin + Result := ParentCtl3D; +end; + +procedure TJvCustomPanel.SetFlat(const Value: Boolean); +begin + Ctl3D := not Value; +end; + +procedure TJvCustomPanel.SetParentFlat(const Value: Boolean); +begin + ParentCtl3D := Value; +end; + +procedure TJvCustomPanel.ReadCtl3D(Reader: TReader); +begin + Flat := not Reader.ReadBoolean; +end; + +procedure TJvCustomPanel.ReadParentCtl3D(Reader: TReader); +begin + ParentFlat := Reader.ReadBoolean; +end; +{$ENDIF VCL} + +procedure TJvCustomPanel.DefineProperties(Filer: TFiler); +begin + inherited DefineProperties(Filer); + + {$IFDEF VCL} + Filer.DefineProperty('Ctl3D', ReadCtl3D, nil, False); + Filer.DefineProperty('ParentCtl3D', ReadParentCtl3D, nil, False); + {$ENDIF VCL} +end; + initialization {$IFDEF UNITVERSIONING} RegisterUnitVersion(HInstance, UnitVersioning); Modified: trunk/jvcl/run/JvFullColorCtrls.pas =================================================================== --- trunk/jvcl/run/JvFullColorCtrls.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvFullColorCtrls.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -461,19 +461,21 @@ property BiDiMode; property Color; property Constraints; - property Ctl3D; property DragCursor; property DragKind; property DragMode; property DropDownCount; property Enabled; + {$IFDEF VCL} + property Flat; + property ParentFlat; + {$ENDIF VCL} property Font; property ImeMode; property ImeName; property ItemHeight; property ParentBiDiMode; property ParentColor; - property ParentCtl3D; property ParentFont; property ParentShowHint; property PopupMenu; @@ -544,19 +546,21 @@ property BiDiMode; property Color; property Constraints; - property Ctl3D; property DragCursor; property DragKind; property DragMode; property DropDownCount; property Enabled; + {$IFDEF VCL} + property Flat; + property ParentFlat; + {$ENDIF VCL} property Font; property ImeMode; property ImeName; property ItemHeight; property ParentBiDiMode; property ParentColor; - property ParentCtl3D; property ParentFont; property ParentShowHint; property PopupMenu; Modified: trunk/jvcl/run/JvMaskEdit.pas =================================================================== --- trunk/jvcl/run/JvMaskEdit.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvMaskEdit.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -151,7 +151,7 @@ property GroupIndex; property ImeMode; property ImeName; - property ParentCtl3D; + property ParentFlat; {$ENDIF VCL} property MaxLength; property ParentColor; Modified: trunk/jvcl/run/JvSplit.pas =================================================================== --- trunk/jvcl/run/JvSplit.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvSplit.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -103,8 +103,8 @@ property Enabled; property Color; {$IFDEF VCL} - property Ctl3D default False; - property ParentCtl3D default False; + property Flat default True; + property ParentFlat default False; {$ENDIF VCL} property Cursor read GetCursor stored False; property TopLeftLimit: Integer read FTopLeftLimit write FTopLeftLimit default 20; @@ -163,8 +163,8 @@ FControlFirst := nil; FControlSecond := nil; {$IFDEF VCL} - ParentCtl3D := False; - Ctl3D := False; + ParentFlat := False; + Flat := True; {$ENDIF VCL} end; Modified: trunk/jvcl/run/JvToolEdit.pas =================================================================== --- trunk/jvcl/run/JvToolEdit.pas 2006-06-09 12:43:15 UTC (rev 10687) +++ trunk/jvcl/run/JvToolEdit.pas 2006-06-09 13:26:54 UTC (rev 10688) @@ -260,7 +260,10 @@ procedure SetAlignment(Value: TAlignment); function GetFlat: Boolean; procedure ReadCtl3D(Reader: TReader); + procedure ReadParentCtl3D(Reader: TReader); procedure SetFlat(const Value: Boolean); + function GetParentFlat: Boolean; + procedure SetParentFlat(const Value: Boolean); function IsFlatStored: Boolean; {$ENDIF VCL} function BtnWidthStored: Boolean; @@ -415,6 +418,7 @@ property DisabledTextColor: TColor read FDisabledTextColor write SetDisabledTextColor default clGrayText; // RDB {$IFDEF VCL} property Flat: Boolean read GetFlat write SetFlat {$IFDEF VisualCLX}default False;{$ENDIF VisualCLX}{$IFDEF VCL}stored IsFlatStored;{$ENDIF VCL} + property ParentFlat: Boolean read GetParentFlat write SetParentFlat default True; {$ENDIF VCL} property Glyph: TBitmap read GetGlyph write SetGlyph stored IsCustomGlyph; property GroupIndex: Integer read FGroupIndex write SetGroupIndex default -1; @@ -473,7 +477,7 @@ property ImeName; property OEMConvert; property ParentBiDiMode; - property ParentCtl3D; + property ParentFlat; property OnEndDock; property OnStartDock; {$ENDIF VCL} @@ -662,7 +666,7 @@ property AutoCompleteOptions; property AutoCompleteFileOptions default [acfFileSystem]; property Flat; - property ParentCtl3D; + property ParentFlat; { (rb) Obsolete; added 'stored False', eventually remove } property FileEditStyle: TFileEditStyle read GetFileEditStyle write SetFileEditStyle stored False; {$ENDIF VCL} @@ -769,7 +773,7 @@ property AutoCompleteOptions; property AutoCompleteFileOptions default [acfFileSystem, acfFileSysDirs]; property Flat; - property ParentCtl3D; + property ParentFlat; property DialogOptions: TSelectDirOpts read FOptions write FOptions default [sdAllowCreate]; {$ENDIF VCL} property InitialDir: string read FInitialDir write FInitialDir; @@ -1015,7 +1019,7 @@ property DragKind; property Flat; property ParentBiDiMode; - property ParentCtl3D; + property ParentFlat; property ImeMode; property ImeName; property OnEndDock; @@ -2369,9 +2373,11 @@ procedure TJvCustomComboEdit.DefineProperties(Filer: TFiler); begin inherited DefineProperties(Filer); + Filer.DefineProperty('GlyphKind', ReadGlyphKind, nil, False); {$IFDEF VCL} Filer.DefineProperty('Ctl3D', ReadCtl3D, nil, False); + Filer.DefineProperty('ParentCtl3D', ReadParentCtl3D, nil, False); {$ENDIF VCL} end; @@ -2546,6 +2552,21 @@ begin Result := not Ctl3D; end; + +function TJvCustomComboEdit.GetParentFlat: Boolean; +begin + Result := ParentCtl3D; +end; + +procedure TJvCustomComboEdit.SetFlat(const Value: Boolean); +begin + Ctl3D := not Value; +end; + +procedure TJvCustomComboEdit.SetParentFlat(const Value: Boolean); +begin + ParentCtl3D := Value; +end; {$ENDIF VCL} function TJvCustomComboEdit.GetGlyph: TBitmap; @@ -2932,8 +2953,13 @@ {$IFDEF VCL} procedure TJvCustomComboEdit.ReadCtl3D(Reader: TReader); begin - Ctl3D := Reader.ReadBoolean; + Flat := not Reader.ReadBoolean; end; + +procedure TJvCustomComboEdit.ReadParentCtl3D(Reader: TReader); +begin + ParentFlat := Reader.ReadBoolean; +end; {$ENDIF VCL} procedure TJvCustomComboEdit.ReadGlyphKind(Reader: TReader); @@ -3198,13 +3224,6 @@ end; end; -{$IFDEF VCL} -procedure TJvCustomComboEdit.SetFlat(const Value: Boolean); -begin - Ctl3D := not Value; -end; -{$ENDIF VCL} - procedure TJvCustomComboEdit.SetGlyph(Value: TBitmap); begin ImageKind := ikCustom; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2006-07-02 09:10:18
|
Revision: 10766 Author: ahuser Date: 2006-07-02 02:10:09 -0700 (Sun, 02 Jul 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10766&view=rev Log Message: ----------- Removed quotes from %1, %2, ... Modified Paths: -------------- trunk/jvcl/install.bat trunk/jvcl/makemodified.bat Modified: trunk/jvcl/install.bat =================================================================== --- trunk/jvcl/install.bat 2006-06-30 12:57:26 UTC (rev 10765) +++ trunk/jvcl/install.bat 2006-07-02 09:10:09 UTC (rev 10766) @@ -31,12 +31,12 @@ :: start installer echo [Starting installer...] -start bin\JVCLInstall.exe "%2" "%3" "%4" "%5" "%6" "%7" "%8" "%9" +start bin\JVCLInstall.exe %2 %3 %4 %5 %6 %7 %8 %9 if ERRORLEVEL 1 goto FailStart goto Leave :FailStart -bin\JVCLInstall.exe "%2" "%3" "%4" "%5" "%6" "%7" "%8" "%9" +bin\JVCLInstall.exe %2 %3 %4 %5 %6 %7 %8 %9 goto Leave :Failed Modified: trunk/jvcl/makemodified.bat =================================================================== --- trunk/jvcl/makemodified.bat 2006-06-30 12:57:26 UTC (rev 10765) +++ trunk/jvcl/makemodified.bat 2006-07-02 09:10:09 UTC (rev 10766) @@ -1,2 +1,2 @@ @echo off -install.bat "%1" --autoupdate "%2" "%3" "%4" "%5" "%6" "%7" "%8" "%9" +install.bat %1 --autoupdate %2 %3 %4 %5 %6 %7 %8 %9 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2006-07-09 00:22:01
|
Revision: 10791 Author: ahuser Date: 2006-07-08 17:21:20 -0700 (Sat, 08 Jul 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10791&view=rev Log Message: ----------- Added: TJvDataSource with IJvDataSource interface JvEdit and JvValidateEdit: support for IJvDataSource Modified Paths: -------------- trunk/jvcl/design/JvDBEditors.pas trunk/jvcl/design/JvDBReg.pas trunk/jvcl/makemodified.bat trunk/jvcl/packages/c6/JvCoreC6R.bpk trunk/jvcl/packages/c6/JvCoreC6R.dpk trunk/jvcl/packages/c6/JvDBC6R.bpk trunk/jvcl/packages/c6/JvDBC6R.dpk trunk/jvcl/packages/d10/JvCoreD10R.dpk trunk/jvcl/packages/d10/JvDBD10R.dpk trunk/jvcl/packages/d5/JvCoreD5R.dpk trunk/jvcl/packages/d5/JvDBD5R.dpk trunk/jvcl/packages/d6/JvCoreD6R.dpk trunk/jvcl/packages/d6/JvDBD6R.dpk trunk/jvcl/packages/d7/JvCoreD7R.dpk trunk/jvcl/packages/d7/JvDBD7R.dpk trunk/jvcl/packages/xml/JvCore-R.xml trunk/jvcl/packages/xml/JvDB-R.xml trunk/jvcl/run/JvEdit.pas trunk/jvcl/run/JvValidateEdit.pas Added Paths: ----------- trunk/jvcl/run/JvDataSource.pas trunk/jvcl/run/JvDataSourceIntf.pas Modified: trunk/jvcl/design/JvDBEditors.pas =================================================================== --- trunk/jvcl/design/JvDBEditors.pas 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/design/JvDBEditors.pas 2006-07-09 00:21:20 UTC (rev 10791) @@ -30,12 +30,14 @@ interface uses + SysUtils, Classes, {$IFDEF COMPILER6_UP} - DesignIntf, DesignEditors, VCLEditors; + DesignIntf, DesignEditors, VCLEditors, {$ELSE} - DsgnIntf; + DsgnIntf, {$ENDIF COMPILER6_UP} + JvDataSourceIntf; type {**************** from Delphi2\Lib\DBReg.pas } @@ -104,6 +106,9 @@ Instance: TComponent; PropInfo: PPropInfo; DataSource: TDataSource; + {$IFDEF COMPILER6_UP} + DataSourceIntf: IJvDataSource; + {$ENDIF COMPILER6_UP} begin Instance := TComponent(GetComponent(0)); PropInfo := TypInfo.GetPropInfo(Instance.ClassInfo, GetDataSourcePropName); @@ -120,6 +125,25 @@ DataSource.DataSet.GetFieldNames(List); {$ENDIF COMPILER10_UP} end; + end + else + if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkInterface) then + begin + {$IFDEF COMPILER6_UP} + if Supports(GetInterfaceProp(Instance, PropInfo), IJvDataSource, DataSourceIntf) then + begin + if DataSourceIntf.DataSet <> nil then + begin + {$IFDEF COMPILER10_UP} + {$WARN SYMBOL_DEPRECATED OFF} + DataSourceIntf.GetFieldNames(List); + {$WARN SYMBOL_DEPRECATED ON} + {$ELSE} + DataSourceIntf.GetFieldNames(List); + {$ENDIF COMPILER10_UP} + end; + end; + {$ENDIF COMPILER6_UP} end; end; Modified: trunk/jvcl/design/JvDBReg.pas =================================================================== --- trunk/jvcl/design/JvDBReg.pas 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/design/JvDBReg.pas 2006-07-09 00:21:20 UTC (rev 10791) @@ -53,13 +53,14 @@ JvDBRadioPanel, JvDBGridExport, JvDBLookupComboEdit, JvDBHTLabel, JvDBSearchEdit, JvDBSearchComboBox, JvAppDBStorage, JvDBFindEdit, JvDBImage, JvDBEditors, JvDBMemDatasetEditor, JvDBGridExportEditors, JvDBGridEditors, JvCsvDataEditor, - JvDBActionsEngine, JvDBActions, - JvDBActnResForm; + JvDBActionsEngine, JvDBActions, + JvDBActnResForm, JvDataSource, JvDataSourceIntf; {$R JvDBReg.dcr} procedure Register; const + cDataField = 'DataField'; cKeyField = 'KeyField'; cListField = 'ListField'; cMasterField = 'MasterField'; @@ -74,7 +75,7 @@ cSortMarker = 'SortMarker'; cPanels = 'Panels'; begin - RegisterComponents(RsPaletteDBNonVisual, [TJvMemoryData, + RegisterComponents(RsPaletteDBNonVisual, [TJvDataSource, TJvMemoryData, TJvCsvDataSet {$IFDEF JV_MIDAS}, TJvDBRemoteLogin {$ENDIF}, {$IFDEF USE_3RDPARTY_DOA} TJvOracleDataset, {$ENDIF USE_3RDPARTY_DOA} TJvDBGridWordExport, TJvDBGridExcelExport, TJvDBGridHTMLExport, @@ -88,6 +89,7 @@ TJvDBSearchEdit, TJvDBSearchComboBox, TJvDBFindEdit, TJvDBImage, TJvDBNavigator]); RegisterComponents(RsPalettePersistence, [TJvAppDBStorage]); + RegisterPropertyEditor(TypeInfo(TDataFieldString), TJvDataConnector, cDataField, TJvDataFieldProperty); RegisterPropertyEditor(TypeInfo(string), TJvLookupControl, cLookupField, TJvLookupSourceProperty); RegisterPropertyEditor(TypeInfo(string), TJvDBLookupEdit, cLookupField, TJvLookupSourceProperty); RegisterPropertyEditor(TypeInfo(string), TJvDBTreeView, cItemField, TJvDataFieldProperty); Modified: trunk/jvcl/makemodified.bat =================================================================== --- trunk/jvcl/makemodified.bat 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/makemodified.bat 2006-07-09 00:21:20 UTC (rev 10791) @@ -1,2 +1,10 @@ @echo off +if "%1" == "" goto NEWEST + install.bat %1 --autoupdate %2 %3 %4 %5 %6 %7 %8 %9 +goto LEAVE + +:NEWEST +install.bat newest --autoupdate %2 %3 %4 %5 %6 %7 %8 %9 + +:LEAVE Modified: trunk/jvcl/packages/c6/JvCoreC6R.bpk =================================================================== --- trunk/jvcl/packages/c6/JvCoreC6R.bpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/c6/JvCoreC6R.bpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvCore-R.xml) - Last generated: 14-04-2006 13:26:57 UTC + Last generated: 08-07-2006 23:53:26 UTC ***************************************************************************** --> <PROJECT> @@ -62,6 +62,7 @@ ..\..\lib\c6\JvAutoComplete.obj ..\..\lib\c6\JvBackgrounds.obj ..\..\lib\c6\JvVCL5Utils.obj + ..\..\lib\c6\JvDataSourceIntf.obj "/> <RESFILES value="JvCoreC6R.res"/> <IDLFILES value=""/> @@ -177,6 +178,7 @@ <FILE FILENAME="..\..\run\JvAutoComplete.pas" FORMNAME="" UNITNAME="JvAutoComplete" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvBackgrounds.pas" FORMNAME="" UNITNAME="JvBackgrounds" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvVCL5Utils.pas" FORMNAME="" UNITNAME="JvVCL5Utils" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> + <FILE FILENAME="..\..\run\JvDataSourceIntf.pas" FORMNAME="" UNITNAME="JvDataSourceIntf" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> </FILELIST> <BUILDTOOLS> </BUILDTOOLS> Modified: trunk/jvcl/packages/c6/JvCoreC6R.dpk =================================================================== --- trunk/jvcl/packages/c6/JvCoreC6R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/c6/JvCoreC6R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvCore-R.xml) - Last generated: 14-04-2006 13:26:57 UTC + Last generated: 08-07-2006 23:53:29 UTC ----------------------------------------------------------------------------- } @@ -93,7 +93,8 @@ JvClipbrd in '..\..\run\JvClipbrd.pas' , JvAutoComplete in '..\..\run\JvAutoComplete.pas' , JvBackgrounds in '..\..\run\JvBackgrounds.pas' , - JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' + JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' , + JvDataSourceIntf in '..\..\run\JvDataSourceIntf.pas' ; end. Modified: trunk/jvcl/packages/c6/JvDBC6R.bpk =================================================================== --- trunk/jvcl/packages/c6/JvDBC6R.bpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/c6/JvDBC6R.bpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDB-R.xml) - Last generated: 05-06-2006 08:00:36 UTC + Last generated: 08-07-2006 23:53:26 UTC ***************************************************************************** --> <PROJECT> @@ -48,6 +48,7 @@ ..\..\lib\c6\JvAppDBStorage.obj ..\..\lib\c6\JvDBFindEdit.obj ..\..\lib\c6\JvDBImage.obj + ..\..\lib\c6\JvDataSource.obj ..\..\lib\c6\JvDynControlEngineDB.obj ..\..\lib\c6\JvDynControlEngineDBIntf.obj ..\..\lib\c6\JvDynControlEngineVCLDB.obj @@ -168,6 +169,7 @@ <FILE FILENAME="..\..\run\JvAppDBStorage.pas" FORMNAME="" UNITNAME="JvAppDBStorage" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvDBFindEdit.pas" FORMNAME="" UNITNAME="JvDBFindEdit" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvDBImage.pas" FORMNAME="" UNITNAME="JvDBImage" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> + <FILE FILENAME="..\..\run\JvDataSource.pas" FORMNAME="" UNITNAME="JvDataSource" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvDynControlEngineDB.pas" FORMNAME="" UNITNAME="JvDynControlEngineDB" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvDynControlEngineDBIntf.pas" FORMNAME="" UNITNAME="JvDynControlEngineDBIntf" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvDynControlEngineVCLDB.pas" FORMNAME="" UNITNAME="JvDynControlEngineVCLDB" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6/JvDBC6R.dpk =================================================================== --- trunk/jvcl/packages/c6/JvDBC6R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/c6/JvDBC6R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDB-R.xml) - Last generated: 05-06-2006 08:00:43 UTC + Last generated: 08-07-2006 23:53:29 UTC ----------------------------------------------------------------------------- } @@ -87,6 +87,7 @@ JvAppDBStorage in '..\..\run\JvAppDBStorage.pas' , JvDBFindEdit in '..\..\run\JvDBFindEdit.pas' , JvDBImage in '..\..\run\JvDBImage.pas' , + JvDataSource in '..\..\run\JvDataSource.pas' , JvDynControlEngineDB in '..\..\run\JvDynControlEngineDB.pas' , JvDynControlEngineDBIntf in '..\..\run\JvDynControlEngineDBIntf.pas' , JvDynControlEngineVCLDB in '..\..\run\JvDynControlEngineVCLDB.pas' , Modified: trunk/jvcl/packages/d10/JvCoreD10R.dpk =================================================================== --- trunk/jvcl/packages/d10/JvCoreD10R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/d10/JvCoreD10R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvCore-R.xml) - Last generated: 23-03-2006 11:08:34 UTC + Last generated: 08-07-2006 23:29:30 UTC ----------------------------------------------------------------------------- } @@ -93,7 +93,8 @@ JvClipbrd in '..\..\run\JvClipbrd.pas' , JvAutoComplete in '..\..\run\JvAutoComplete.pas' , JvBackgrounds in '..\..\run\JvBackgrounds.pas' , - JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' + JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' , + JvDataSourceIntf in '..\..\run\JvDataSourceIntf.pas' ; end. Modified: trunk/jvcl/packages/d10/JvDBD10R.dpk =================================================================== --- trunk/jvcl/packages/d10/JvDBD10R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/d10/JvDBD10R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDB-R.xml) - Last generated: 05-06-2006 07:17:00 UTC + Last generated: 08-07-2006 23:29:30 UTC ----------------------------------------------------------------------------- } @@ -87,6 +87,7 @@ JvAppDBStorage in '..\..\run\JvAppDBStorage.pas' , JvDBFindEdit in '..\..\run\JvDBFindEdit.pas' , JvDBImage in '..\..\run\JvDBImage.pas' , + JvDataSource in '..\..\run\JvDataSource.pas' , JvDynControlEngineDB in '..\..\run\JvDynControlEngineDB.pas' , JvDynControlEngineDBIntf in '..\..\run\JvDynControlEngineDBIntf.pas' , JvDynControlEngineVCLDB in '..\..\run\JvDynControlEngineVCLDB.pas' , Modified: trunk/jvcl/packages/d5/JvCoreD5R.dpk =================================================================== --- trunk/jvcl/packages/d5/JvCoreD5R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/d5/JvCoreD5R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvCore-R.xml) - Last generated: 14-04-2006 13:26:58 UTC + Last generated: 08-07-2006 23:26:59 UTC ----------------------------------------------------------------------------- } @@ -91,7 +91,8 @@ JvClipbrd in '..\..\run\JvClipbrd.pas' , JvAutoComplete in '..\..\run\JvAutoComplete.pas' , JvBackgrounds in '..\..\run\JvBackgrounds.pas' , - JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' + JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' , + JvDataSourceIntf in '..\..\run\JvDataSourceIntf.pas' ; end. Modified: trunk/jvcl/packages/d5/JvDBD5R.dpk =================================================================== --- trunk/jvcl/packages/d5/JvDBD5R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/d5/JvDBD5R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDB-R.xml) - Last generated: 05-06-2006 08:00:57 UTC + Last generated: 08-07-2006 23:26:59 UTC ----------------------------------------------------------------------------- } @@ -84,6 +84,7 @@ JvAppDBStorage in '..\..\run\JvAppDBStorage.pas' , JvDBFindEdit in '..\..\run\JvDBFindEdit.pas' , JvDBImage in '..\..\run\JvDBImage.pas' , + JvDataSource in '..\..\run\JvDataSource.pas' , JvDynControlEngineDB in '..\..\run\JvDynControlEngineDB.pas' , JvDynControlEngineDBIntf in '..\..\run\JvDynControlEngineDBIntf.pas' , JvDynControlEngineVCLDB in '..\..\run\JvDynControlEngineVCLDB.pas' , Modified: trunk/jvcl/packages/d6/JvCoreD6R.dpk =================================================================== --- trunk/jvcl/packages/d6/JvCoreD6R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/d6/JvCoreD6R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvCore-R.xml) - Last generated: 14-04-2006 13:26:59 UTC + Last generated: 08-07-2006 23:27:43 UTC ----------------------------------------------------------------------------- } @@ -93,7 +93,8 @@ JvClipbrd in '..\..\run\JvClipbrd.pas' , JvAutoComplete in '..\..\run\JvAutoComplete.pas' , JvBackgrounds in '..\..\run\JvBackgrounds.pas' , - JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' + JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' , + JvDataSourceIntf in '..\..\run\JvDataSourceIntf.pas' ; end. Modified: trunk/jvcl/packages/d6/JvDBD6R.dpk =================================================================== --- trunk/jvcl/packages/d6/JvDBD6R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/d6/JvDBD6R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDB-R.xml) - Last generated: 05-06-2006 08:01:01 UTC + Last generated: 08-07-2006 23:27:43 UTC ----------------------------------------------------------------------------- } @@ -87,6 +87,7 @@ JvAppDBStorage in '..\..\run\JvAppDBStorage.pas' , JvDBFindEdit in '..\..\run\JvDBFindEdit.pas' , JvDBImage in '..\..\run\JvDBImage.pas' , + JvDataSource in '..\..\run\JvDataSource.pas' , JvDynControlEngineDB in '..\..\run\JvDynControlEngineDB.pas' , JvDynControlEngineDBIntf in '..\..\run\JvDynControlEngineDBIntf.pas' , JvDynControlEngineVCLDB in '..\..\run\JvDynControlEngineVCLDB.pas' , Modified: trunk/jvcl/packages/d7/JvCoreD7R.dpk =================================================================== --- trunk/jvcl/packages/d7/JvCoreD7R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/d7/JvCoreD7R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvCore-R.xml) - Last generated: 14-04-2006 13:27:00 UTC + Last generated: 08-07-2006 23:28:39 UTC ----------------------------------------------------------------------------- } @@ -93,7 +93,8 @@ JvClipbrd in '..\..\run\JvClipbrd.pas' , JvAutoComplete in '..\..\run\JvAutoComplete.pas' , JvBackgrounds in '..\..\run\JvBackgrounds.pas' , - JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' + JvVCL5Utils in '..\..\run\JvVCL5Utils.pas' , + JvDataSourceIntf in '..\..\run\JvDataSourceIntf.pas' ; end. Modified: trunk/jvcl/packages/d7/JvDBD7R.dpk =================================================================== --- trunk/jvcl/packages/d7/JvDBD7R.dpk 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/d7/JvDBD7R.dpk 2006-07-09 00:21:20 UTC (rev 10791) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDB-R.xml) - Last generated: 05-06-2006 08:01:05 UTC + Last generated: 08-07-2006 23:28:39 UTC ----------------------------------------------------------------------------- } @@ -87,6 +87,7 @@ JvAppDBStorage in '..\..\run\JvAppDBStorage.pas' , JvDBFindEdit in '..\..\run\JvDBFindEdit.pas' , JvDBImage in '..\..\run\JvDBImage.pas' , + JvDataSource in '..\..\run\JvDataSource.pas' , JvDynControlEngineDB in '..\..\run\JvDynControlEngineDB.pas' , JvDynControlEngineDBIntf in '..\..\run\JvDynControlEngineDBIntf.pas' , JvDynControlEngineVCLDB in '..\..\run\JvDynControlEngineVCLDB.pas' , Modified: trunk/jvcl/packages/xml/JvCore-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvCore-R.xml 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/xml/JvCore-R.xml 2006-07-09 00:21:20 UTC (rev 10791) @@ -100,5 +100,6 @@ <File Name="..\..\run\JvAutoComplete.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvBackgrounds.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvVCL5Utils.pas" Targets="all" Formname="" Condition=""/> + <File Name="..\..\run\JvDataSourceIntf.pas" Targets="all" Formname="" Condition=""/> </Contains> </Package> Modified: trunk/jvcl/packages/xml/JvDB-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvDB-R.xml 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/packages/xml/JvDB-R.xml 2006-07-09 00:21:20 UTC (rev 10791) @@ -100,6 +100,7 @@ <File Name="..\..\run\JvAppDBStorage.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvDBFindEdit.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvDBImage.pas" Targets="DB" Formname="" Condition=""/> + <File Name="..\..\run\JvDataSource.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvDynControlEngineDB.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvDynControlEngineDBIntf.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvDynControlEngineVCLDB.pas" Targets="DB" Formname="" Condition=""/> Added: trunk/jvcl/run/JvDataSource.pas =================================================================== --- trunk/jvcl/run/JvDataSource.pas (rev 0) +++ trunk/jvcl/run/JvDataSource.pas 2006-07-09 00:21:20 UTC (rev 10791) @@ -0,0 +1,557 @@ +{----------------------------------------------------------------------------- +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: JvDataSource.PAS, released on 08-07-2006. + +The Initial Developer of the Original Code is Andreas Hausladen +[Andreas dott Hausladen att gmx dott com] +Portions created by Andreas Hausladen are Copyright (C) 2006 Andreas Hausladen. +All Rights Reserved. + +Contributor(s): + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvDataSource; + +{$I jvcl.inc} + +interface + +uses + SysUtils, Classes, JvDataSourceIntf, DB, DBConsts; + +type + TJvDataSource = class(TDataSource, IJvDataSource, IJvDataSourceConnectorHandler) + private + FDataLink: TDataLink; + FDataConnectors: TList; + function GetDataConnector(Index: Integer): TJvDataConnector; + function GetDataConnectorCount: Integer; + protected + procedure DataConnectorsFreeNotification; + procedure AddDataConnector(DataConnector: TJvDataConnector); + procedure RemoveDataConnector(DataConnector: TJvDataConnector); + + function DataSet: TDataSet; + procedure Notify(Msg: Integer); + + property DataConnectorCount: Integer read GetDataConnectorCount; + property DataConnectors[Index: Integer]: TJvDataConnector read GetDataConnector; default; + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + + { IJvDataSource implementation } + protected + { DataSource } + procedure Edit; // DataSource.Edit + function GetState: TJvDataSetState; + function GetAutoEdit: Boolean; + function GetEnabled: Boolean; + + { DataSet } + public + function GetDataSet: TObject; + procedure DataSetEdit; // DataSet.Edit + function CanModify: Boolean; + procedure First; + procedure Last; + procedure Next; + procedure Prior; + function Eof: Boolean; + function Bof: Boolean; + function RecordCount: Integer; + function FieldByName(const FieldName: TDataFieldString): TObject; + function FindField(const FieldName: TDataFieldString): TObject; + procedure GetFieldNames(List: TStrings); + function RecNo: Integer; + procedure Append; + procedure Insert; + procedure Post; + procedure Cancel; + procedure Delete; + procedure Open; + procedure Close; + + { Fields } + function GetFieldCount: Integer; + function GetField(Index: Integer): TObject; + function GetFieldName(Field: TObject): TDataFieldString; + function GetFieldType(Field: TObject): TJvDBFieldType; + function GetFieldSize(Field: TObject): Integer; + function GetFieldDisplayLabel(Field: TObject): TDataFieldString; + function GetFieldDisplayWidth(Field: TObject): Integer; + procedure SetFieldDisplayWidth(Field: TObject; Value: Integer); + function GetFieldEditMask(Field: TObject): TJvEditMask; + function GetFieldReadOnly(Field: TObject): Boolean; + function GetFieldVisible(Field: TObject): Boolean; + function GetFieldRequired(Field: TObject): Boolean; + procedure FieldClear(Field: TObject); + function GetFieldIsNull(Field: TObject): Boolean; + function GetFieldIsBlob(Field: TObject): Boolean; + function GetFieldCanModify(Field: TObject): Boolean; + + function GetFieldOldValue(Field: TObject): Variant; + function GetFieldValue(Field: TObject): Variant; + procedure SetFieldValue(Field: TObject; const Value: Variant); + function GetFieldString(Field: TObject): string; + procedure SetFieldString(Field: TObject; const Value: string); + function GetFieldWideString(Field: TObject): WideString; + procedure SetFieldWideString(Field: TObject; const Value: WideString); + function GetFieldInteger(Field: TObject): Integer; + procedure SetFieldInteger(Field: TObject; const Value: Integer); + function GetFieldFloat(Field: TObject): Double; + procedure SetFieldFloat(Field: TObject; const Value: Double); + function GetFieldDateTime(Field: TObject): TDateTime; + procedure SetFieldDateTime(Field: TObject; const Value: TDateTime); + function GetFieldBoolean(Field: TObject): Boolean; + procedure SetFieldBoolean(Field: TObject; const Value: Boolean); + + property FieldCount: Integer read GetFieldCount; + property Fields[Index: Integer]: TObject read GetField; + property FieldName[Field: TObject]: TDataFieldString read GetFieldName; + property FieldType[Field: TObject]: TJvDBFieldType read GetFieldType; + property FieldSize[Field: TObject]: Integer read GetFieldSize; + property FieldDisplayLabel[Field: TObject]: TDataFieldString read GetFieldDisplayLabel; + property FieldDisplayWidth[Field: TObject]: Integer read GetFieldDisplayWidth write SetFieldDisplayWidth; + property FieldEditMask[Field: TObject]: TJvEditMask read GetFieldEditMask; + property FieldReadOnly[Field: TObject]: Boolean read GetFieldReadOnly; + property FieldVisible[Field: TObject]: Boolean read GetFieldVisible; + property FieldRequired[Field: TObject]: Boolean read GetFieldRequired; + property FieldIsNull[Field: TObject]: Boolean read GetFieldIsNull; + property FieldIsBlob[Field: TObject]: Boolean read GetFieldIsBlob; + property FieldCanModify[Field: TObject]: Boolean read GetFieldCanModify; + + property FieldOldValue[Field: TObject]: Variant read GetFieldOldValue; + property FieldValue[Field: TObject]: Variant read GetFieldValue write SetFieldValue; + property FieldString[Field: TObject]: string read GetFieldString write SetFieldString; + property FieldWideString[Field: TObject]: WideString read GetFieldWideString write SetFieldWideString; + property FieldInteger[Field: TObject]: Integer read GetFieldInteger write SetFieldInteger; + property FieldFloat[Field: TObject]: Double read GetFieldFloat write SetFieldFloat; + property FieldDataTime[Field: TObject]: TDateTime read GetFieldDateTime write SetFieldDateTime; + property FieldBoolean[Field: TObject]: Boolean read GetFieldBoolean write SetFieldBoolean; + end; + + TJvDataSourceDataLink = class(TDataLink) + private + FDataSource: TJvDataSource; + protected + procedure ActiveChanged; override; + procedure RecordChanged(Field: TField); override; + procedure UpdateData; override; + procedure LayoutChanged; override; + public + constructor Create(ADataSource: TJvDataSource); + end; + +implementation + +{ TJvDataSourceDataLink } + +constructor TJvDataSourceDataLink.Create(ADataSource: TJvDataSource); +begin + inherited Create; + FDataSource := ADataSource +end; + +procedure TJvDataSourceDataLink.LayoutChanged; +begin + //inherited LayoutChanged; + FDataSource.Notify(DC_LAYOUTCHANGED); +end; + +procedure TJvDataSourceDataLink.ActiveChanged; +begin + FDataSource.Notify(DC_ACTIVECHANGED); +end; + +procedure TJvDataSourceDataLink.RecordChanged(Field: TField); +begin + FDataSource.Notify(DC_RECORDCHANGED); +end; + +procedure TJvDataSourceDataLink.UpdateData; +begin + FDataSource.Notify(DC_UPDATEDATA); +end; + +{ TJvDataSource } + +constructor TJvDataSource.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FDataLink := TJvDataSourceDataLink.Create(Self); + FDataConnectors := TList.Create; + FDataLink.DataSource := Self; +end; + +procedure TJvDataSource.DataConnectorsFreeNotification; +var + I: Integer; +begin + { Notify all DataConnectors by setting their DataSource property to NIL } + I := FDataConnectors.Count - 1; + while i >= 0 do + begin + DataConnectors[I].DataSource := nil; + if I >= DataConnectorCount then + I := DataConnectorCount - 1 + else + Dec(I); + end; +end; + +destructor TJvDataSource.Destroy; +begin + DataConnectorsFreeNotification; + FDataLink.Free; + FDataConnectors.Free; + inherited Destroy; +end; + +function TJvDataSource.GetDataConnector(Index: Integer): TJvDataConnector; +begin + Result := TJvDataConnector(FDataConnectors[Index]); +end; + +function TJvDataSource.GetDataConnectorCount: Integer; +begin + Result := FDataConnectors.Count; +end; + +procedure TJvDataSource.Notify(Msg: Integer); +var + M: TDataConnectorMsg; + I: Integer; +begin + M.Msg := Msg; + for I := 0 to DataConnectorCount - 1 do + DataConnectors[I].Dispatch(M); +end; + +procedure TJvDataSource.AddDataConnector(DataConnector: TJvDataConnector); +begin + FDataConnectors.Add(DataConnector); +end; + +procedure TJvDataSource.RemoveDataConnector(DataConnector: TJvDataConnector); +begin + FDataConnectors.Remove(DataConnector); +end; + +procedure TJvDataSource.Edit; +begin + inherited Edit; +end; + +function TJvDataSource.GetState: TJvDataSetState; +begin + Result := TJvDataSetState(State); +end; + +function TJvDataSource.GetAutoEdit: Boolean; +begin + Result := AutoEdit; +end; + +function TJvDataSource.GetEnabled: Boolean; +begin + Result := Enabled; +end; + +function TJvDataSource.DataSet: TDataSet; +begin + Result := inherited DataSet; + if not Assigned(Result) then + raise EDatabaseError.CreateRes(@SDataSetClosed); +end; + +function TJvDataSource.GetDataSet: TObject; +begin + Result := inherited DataSet; +end; + +procedure TJvDataSource.DataSetEdit; +begin + DataSet.Edit; +end; + +function TJvDataSource.CanModify: Boolean; +begin + Result := Assigned(inherited DataSet) and DataSet.CanModify; +end; + +procedure TJvDataSource.First; +begin + DataSet.First; +end; + +procedure TJvDataSource.Last; +begin + DataSet.Last; +end; + +procedure TJvDataSource.Next; +begin + DataSet.Next; +end; + +procedure TJvDataSource.Prior; +begin + DataSet.Prior; +end; + +function TJvDataSource.Eof: Boolean; +begin + Result := DataSet.Eof; +end; + +function TJvDataSource.Bof: Boolean; +begin + Result := DataSet.Bof; +end; + +function TJvDataSource.RecordCount: Integer; +begin + Result := DataSet.RecordCount; +end; + +function TJvDataSource.FieldByName(const FieldName: TDataFieldString): TObject; +begin + Result := DataSet.FieldByName(FieldName); +end; + +function TJvDataSource.FindField(const FieldName: TDataFieldString): TObject; +begin + Result := DataSet.FindField(FieldName); +end; + +procedure TJvDataSource.GetFieldNames(List: TStrings); +begin + {$IFDEF COMPILER10_UP} + {$WARN SYMBOL_DEPRECATED OFF} + DataSet.GetFieldNames(List); + {$WARN SYMBOL_DEPRECATED ON} + {$ELSE} + DataSet.GetFieldNames(List); + {$ENDIF COMPILER10_UP} +end; + +function TJvDataSource.RecNo: Integer; +begin + Result := DataSet.RecNo; +end; + +procedure TJvDataSource.Append; +begin + DataSet.Append; +end; + +procedure TJvDataSource.Insert; +begin + DataSet.Insert; +end; + +procedure TJvDataSource.Post; +begin + DataSet.Post; +end; + +procedure TJvDataSource.Cancel; +begin + DataSet.Cancel; +end; + +procedure TJvDataSource.Delete; +begin + DataSet.Delete; +end; + +procedure TJvDataSource.Open; +begin + DataSet.Open; +end; + +procedure TJvDataSource.Close; +begin + DataSet.Close; +end; + +function TJvDataSource.GetFieldCount: Integer; +begin + Result := DataSet.FieldCount; +end; + +function TJvDataSource.GetField(Index: Integer): TObject; +begin + Result := DataSet.Fields[Index]; +end; + +function TJvDataSource.GetFieldName(Field: TObject): TDataFieldString; +begin + Result := TField(Field).FieldName; +end; + +function TJvDataSource.GetFieldType(Field: TObject): TJvDBFieldType; +begin + Result := TJvDBFieldType(TField(Field).DataType); +end; + +function TJvDataSource.GetFieldSize(Field: TObject): Integer; +begin + Result := TField(Field).Size; +end; + +function TJvDataSource.GetFieldDisplayLabel(Field: TObject): TDataFieldString; +begin + Result := TField(Field).DisplayLabel; +end; + +function TJvDataSource.GetFieldDisplayWidth(Field: TObject): Integer; +begin + Result := TField(Field).DisplayWidth; +end; + +procedure TJvDataSource.SetFieldDisplayWidth(Field: TObject; Value: Integer); +begin + TField(Field).DisplayWidth := Value; +end; + +function TJvDataSource.GetFieldEditMask(Field: TObject): TJvEditMask; +begin + Result := TField(Field).EditMask; +end; + +function TJvDataSource.GetFieldReadOnly(Field: TObject): Boolean; +begin + Result := TField(Field).ReadOnly; +end; + +function TJvDataSource.GetFieldVisible(Field: TObject): Boolean; +begin + Result := TField(Field).Visible; +end; + +function TJvDataSource.GetFieldRequired(Field: TObject): Boolean; +begin + Result := TField(Field).Required; +end; + +procedure TJvDataSource.FieldClear(Field: TObject); +begin + TField(Field).Clear; +end; + +function TJvDataSource.GetFieldIsNull(Field: TObject): Boolean; +begin + Result := TField(Field).IsNull +end; + +function TJvDataSource.GetFieldIsBlob(Field: TObject): Boolean; +begin + Result := TField(Field).IsBlob; +end; + +function TJvDataSource.GetFieldCanModify(Field: TObject): Boolean; +begin + Result := TField(Field).CanModify; +end; + +function TJvDataSource.GetFieldOldValue(Field: TObject): Variant; +begin + Result := TField(Field).OldValue; +end; + +function TJvDataSource.GetFieldValue(Field: TObject): Variant; +begin + Result := TField(Field).AsVariant; +end; + +procedure TJvDataSource.SetFieldValue(Field: TObject; const Value: Variant); +begin + TField(Field).AsVariant := Value; +end; + +function TJvDataSource.GetFieldString(Field: TObject): string; +begin + Result := TField(Field).AsString; +end; + +procedure TJvDataSource.SetFieldString(Field: TObject; const Value: string); +begin + TField(Field).AsString := Value; +end; + +function TJvDataSource.GetFieldWideString(Field: TObject): WideString; +begin + {$IFDEF COMPILER10_UP} + Result := TField(Field).AsWideString; + {$ELSE} + Result := TField(Field).AsString; + {$ENDIF COMPILER10_UP} +end; + +procedure TJvDataSource.SetFieldWideString(Field: TObject; const Value: WideString); +begin + {$IFDEF COMPILER10_UP} + TField(Field).AsWideString := Value; + {$ELSE} + TField(Field).AsString := Value; + {$ENDIF COMPILER10_UP} +end; + +function TJvDataSource.GetFieldInteger(Field: TObject): Integer; +begin + Result := TField(Field).AsInteger; +end; + +procedure TJvDataSource.SetFieldInteger(Field: TObject; const Value: Integer); +begin + TField(Field).AsInteger := Value; +end; + +function TJvDataSource.GetFieldFloat(Field: TObject): Double; +begin + Result := TField(Field).AsFloat; +end; + +procedure TJvDataSource.SetFieldFloat(Field: TObject; const Value: Double); +begin + TField(Field).AsFloat := Value; +end; + +function TJvDataSource.GetFieldDateTime(Field: TObject): TDateTime; +begin + Result := TField(Field).AsDateTime; +end; + +procedure TJvDataSource.SetFieldDateTime(Field: TObject; const Value: TDateTime); +begin + TField(Field).AsDateTime := Value; +end; + +function TJvDataSource.GetFieldBoolean(Field: TObject): Boolean; +begin + Result := TField(Field).AsBoolean; +end; + +procedure TJvDataSource.SetFieldBoolean(Field: TObject; const Value: Boolean); +begin + TField(Field).AsBoolean := Value; +end; + +end. + Added: trunk/jvcl/run/JvDataSourceIntf.pas =================================================================== --- trunk/jvcl/run/JvDataSourceIntf.pas (rev 0) +++ trunk/jvcl/run/JvDataSourceIntf.pas 2006-07-09 00:21:20 UTC (rev 10791) @@ -0,0 +1,726 @@ +{----------------------------------------------------------------------------- +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: JvDataSourceIntf.PAS, released on 08-07-2006. + +The Initial Developer of the Original Code is Andreas Hausladen +[Andreas dott Hausladen att gmx dott com] +Portions created by Andreas Hausladen are Copyright (C) 2006 Andreas Hausladen. +All Rights Reserved. + +Contributor(s): + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvDataSourceIntf; + +{$I jvcl.inc} + +interface + +uses + SysUtils, Classes; + +const + DC_ACTIVECHANGED = 100; + DC_RECORDCHANGED = 101; + DC_UPDATEDATA = 102; + DC_LAYOUTCHANGED = 103; + +type + TJvDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey, + dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead, + dsInternalCalc, dsOpening); + + TJvDBFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, // 0..4 + ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, // 5..11 + ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, // 12..18 + ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, // 19..24 + ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, // 25..31 + ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, // 32..37 + ftFixedWideChar, ftWideMemo, ftOraTimeStamp, ftOraInterval); // 38..41 + + {$IFDEF COMPILER10_UP} + TDataFieldString = WideString; + {$ELSE} + TDataFieldString = string; + {$ENDIF COMPILER10_UP} + TJvEditMask = string; + + TDataConnectorMsg = record + Msg: Integer; + end; + + TJvDataConnector = class; + + IJvDataSourceConnectorHandler = interface + ['{CCAB936A-6CB4-4047-95C8-7EBFC5DC4B9F}'] + procedure AddDataConnector(DataConnector: TJvDataConnector); + procedure RemoveDataConnector(DataConnector: TJvDataConnector); + end; + + IJvDataSource = interface + ['{6F0ECE0E-0B77-4EC1-8E62-1C5ADE76D6B9}'] + + { DataSource } + procedure Edit; // DataSource.Edit + function GetState: TJvDataSetState; + function GetAutoEdit: Boolean; + function GetEnabled: Boolean; + + property State: TJvDataSetState read GetState; + property AutoEdit: Boolean read GetAutoEdit; + property Enabled: Boolean read GetEnabled; + + { DataSet } + function GetDataSet: TObject; + procedure DataSetEdit; // DataSet.Edit + function CanModify: Boolean; + procedure First; + procedure Last; + procedure Next; + procedure Prior; + function Eof: Boolean; + function Bof: Boolean; + function RecordCount: Integer; + function FieldByName(const FieldName: TDataFieldString): TObject; + function FindField(const FieldName: TDataFieldString): TObject; + procedure GetFieldNames(List: TStrings); + function RecNo: Integer; + procedure Append; + procedure Insert; + procedure Post; + procedure Cancel; + procedure Delete; + procedure Open; + procedure Close; + + property DataSet: TObject read GetDataSet; + + { Fields } + function GetFieldCount: Integer; + function GetField(Index: Integer): TObject; + function GetFieldName(Field: TObject): TDataFieldString; + function GetFieldType(Field: TObject): TJvDBFieldType; + function GetFieldSize(Field: TObject): Integer; + function GetFieldDisplayLabel(Field: TObject): TDataFieldString; + function GetFieldDisplayWidth(Field: TObject): Integer; + procedure SetFieldDisplayWidth(Field: TObject; Value: Integer); + function GetFieldEditMask(Field: TObject): TJvEditMask; + function GetFieldReadOnly(Field: TObject): Boolean; + function GetFieldVisible(Field: TObject): Boolean; + function GetFieldRequired(Field: TObject): Boolean; + procedure FieldClear(Field: TObject); + function GetFieldIsNull(Field: TObject): Boolean; + function GetFieldIsBlob(Field: TObject): Boolean; + function GetFieldCanModify(Field: TObject): Boolean; + + function GetFieldOldValue(Field: TObject): Variant; + function GetFieldValue(Field: TObject): Variant; + procedure SetFieldValue(Field: TObject; const Value: Variant); + function GetFieldString(Field: TObject): string; + procedure SetFieldString(Field: TObject; const Value: string); + function GetFieldWideString(Field: TObject): WideString; + procedure SetFieldWideString(Field: TObject; const Value: WideString); + function GetFieldInteger(Field: TObject): Integer; + procedure SetFieldInteger(Field: TObject; const Value: Integer); + function GetFieldFloat(Field: TObject): Double; + procedure SetFieldFloat(Field: TObject; const Value: Double); + function GetFieldDateTime(Field: TObject): TDateTime; + procedure SetFieldDateTime(Field: TObject; const Value: TDateTime); + function GetFieldBoolean(Field: TObject): Boolean; + procedure SetFieldBoolean(Field: TObject; const Value: Boolean); + + property FieldCount: Integer read GetFieldCount; + property Fields[Index: Integer]: TObject read GetField; + property FieldName[Field: TObject]: TDataFieldString read GetFieldName; + property FieldType[Field: TObject]: TJvDBFieldType read GetFieldType; + property FieldSize[Field: TObject]: Integer read GetFieldSize; + property FieldDisplayLabel[Field: TObject]: TDataFieldString read GetFieldDisplayLabel; + property FieldDisplayWidth[Field: TObject]: Integer read GetFieldDisplayWidth write SetFieldDisplayWidth; + property FieldEditMask[Field: TObject]: TJvEditMask read GetFieldEditMask; + property FieldReadOnly[Field: TObject]: Boolean read GetFieldReadOnly; + property FieldVisible[Field: TObject]: Boolean read GetFieldVisible; + property FieldRequired[Field: TObject]: Boolean read GetFieldRequired; + property FieldIsNull[Field: TObject]: Boolean read GetFieldIsNull; + property FieldIsBlob[Field: TObject]: Boolean read GetFieldIsBlob; + property FieldCanModify[Field: TObject]: Boolean read GetFieldCanModify; + + property FieldOldValue[Field: TObject]: Variant read GetFieldOldValue; + property FieldValue[Field: TObject]: Variant read GetFieldValue write SetFieldValue; + property FieldString[Field: TObject]: string read GetFieldString write SetFieldString; + property FieldWideString[Field: TObject]: WideString read GetFieldWideString write SetFieldWideString; + property FieldInteger[Field: TObject]: Integer read GetFieldInteger write SetFieldInteger; + property FieldFloat[Field: TObject]: Double read GetFieldFloat write SetFieldFloat; + property FieldDataTime[Field: TObject]: TDateTime read GetFieldDateTime write SetFieldDateTime; + property FieldBoolean[Field: TObject]: Boolean read GetFieldBoolean write SetFieldBoolean; + end; + + TJvDataConnectorField = class(TObject) + private + FDataSource: IJvDataSource; + FField: TObject; + FFieldName: TDataFieldString; + function GetAsBoolean: Boolean; + function GetAsDateTime: TDateTime; + function GetAsFloat: Double; + function GetAsInt64: Int64; + function GetAsInteger: Integer; + function GetDataType: TJvDBFieldType; + function GetDisplayLabel: TDataFieldString; + function GetDisplayWidth: Integer; + function GetEditMask: TJvEditMask; + function GetIsBlob: Boolean; + function GetIsNull: Boolean; + function GetOldValue: Variant; + function GetReadOnly: Boolean; + function GetRequired: Boolean; + function GetSize: Integer; + function GetValue: Variant; + function GetVisible: Boolean; + procedure SetAsBoolean(const Value: Boolean); + procedure SetAsDateTime(const Value: TDateTime); + procedure SetAsFloat(const Value: Double); + procedure SetAsInt64(const Value: Int64); + procedure SetAsInteger(const Value: Integer); + procedure SetDisplayWidth(const Value: Integer); + procedure SetValue(const Value: Variant); + procedure SetDataSource(const Value: IJvDataSource); + procedure SetFieldName(const Value: TDataFieldString); + function GetAsString: string; + procedure SetAsString(const Value: string); + function GetAsWideString: WideString; + procedure SetAsWideString(const Value: WideString); + function GetIsValid: Boolean; + function GetCanModify: Boolean; + protected + procedure UpdateField; + property DataSource: IJvDataSource read FDataSource write SetDataSource; + public + procedure Clear; + property IsValid: Boolean read GetIsValid; // False if Field = nil + + property Field: TObject read FField; + property FieldName: TDataFieldString read FFieldName write SetFieldName; + property DataType: TJvDBFieldType read GetDataType; + property Size: Integer read GetSize; + property DisplayLabel: TDataFieldString read GetDisplayLabel; + property DisplayWidth: Integer read GetDisplayWidth write SetDisplayWidth; + property EditMask: TJvEditMask read GetEditMask; + property ReadOnly: Boolean read GetReadOnly; + property Visible: Boolean read GetVisible; + property Required: Boolean read GetRequired; + property IsNull: Boolean read GetIsNull; + property IsBlob: Boolean read GetIsBlob; + property CanModify: Boolean read GetCanModify; + + property OldValue: Variant read GetOldValue; + property Value: Variant read GetValue write SetValue; + property AsString: string read GetAsString write SetAsString; + property AsWideString: WideString read GetAsWideString write SetAsWideString; + property AsInteger: Integer read GetAsInteger write SetAsInteger; + property AsFloat: Double read GetAsFloat write SetAsFloat; + property AsDataTime: TDateTime read GetAsDateTime write SetAsDateTime; + property AsBoolean: Boolean read GetAsBoolean write SetAsBoolean; + property AsInt64: Int64 read GetAsInt64 write SetAsInt64; + end; + + TJvDataConnector = class(TPersistent) + private + FDataSource: IJvDataSource; + FLockRecordChange: Integer; + FModified: Boolean; + FActive: Boolean; + + procedure DcRecordChanged(var Msg: TDataConnectorMsg); message DC_RECORDCHANGED; + procedure DcActiveChanged(var Msg: TDataConnectorMsg); message DC_ACTIVECHANGED; + procedure DcUpdateData(var Msg: TDataConnectorMsg); message DC_UPDATEDATA; + procedure DcLayoutChanged(var Msg: TDataConnectorMsg); message DC_LAYOUTCHANGED; + + procedure InvokeRecordChanged; + + procedure SetDataSource(const Value: IJvDataSource); + function GetDataSetConnected: Boolean; + protected + { DataSourceConnected is invoked when a new DataSource is assigned. } + procedure DataSourceConnected; virtual; + { DataSourceDisconnected is invoked when the DataSource is destroyed or + the DataSource is set to a new DataSource or NIL. } + procedure DataSourceDisconnected; virtual; + + procedure ActiveChanged; virtual; + procedure RecordChanged; virtual; + procedure UpdateData; virtual; + procedure LayoutChanged; virtual; + + function CanEdit: Boolean; virtual; + public + destructor Destroy; override; + procedure Edit; + procedure Reset; + procedure UpdateRecord; + procedure Modify; + property DataSetConnected: Boolean read GetDataSetConnected; + property Modified: Boolean read FModified; + property Active: Boolean read FActive write FActive; + published + property DataSource: IJvDataSource read FDataSource write SetDataSource; + end; + + TJvFieldDataConnector = class(TJvDataConnector) + private + FField: TJvDataConnectorField; + procedure SetDataField(const Value: TDataFieldString); + function GetDataField: TDataFieldString; + protected + procedure ActiveChanged; override; + procedure LayoutChanged; override; + procedure DataSourceConnected; override; + procedure DataSourceDisconnected; override; + function CanEdit: Boolean; override; + public + constructor Create; + destructor Destroy; override; + property Field: TJvDataConnectorField read FField; + published + property DataField: TDataFieldString read GetDataField write SetDataField; + end; + +implementation + +{ TJvDataConnector } + +procedure TJvDataConnector.ActiveChanged; +begin + InvokeRecordChanged; +end; + +procedure TJvDataConnector.RecordChanged; +begin +end; + +procedure TJvDataConnector.Reset; +begin + if DataSetConnected and Active then + begin + Active := False; + try + RecordChanged; + finally + Active := True; + end; + FModified := False; + end; +end; + +procedure TJvDataConnector.UpdateData; +begin +end; + +procedure TJvDataConnector.LayoutChanged; +begin + InvokeRecordChanged; +end; + +procedure TJvDataConnector.Modify; +begin + if Active then + begin + Edit; + FModified := True; + end; +end; + +function TJvDataConnector.CanEdit: Boolean; +begin + Result := Active and Assigned(DataSource); +end; + +procedure TJvDataConnector.DataSourceConnected; +begin + FModified := False; + FActive := True; + ActiveChanged; +end; + +procedure TJvDataConnector.DataSourceDisconnected; +begin + ActiveChanged; + FActive := False; + FModified := False; +end; + +procedure TJvDataConnector.DcActiveChanged(var Msg: TDataConnectorMsg); +begin + if FLockRecordChange = 0 then + begin + ActiveChanged; + FModified := False; + end; +end; + +procedure TJvDataConnector.DcLayoutChanged(var Msg: TDataConnectorMsg); +begin + if FLockRecordChange = 0 then + begin + LayoutChanged; + FModified := False; + end; +end; + +procedure TJvDataConnector.DcRecordChanged(var Msg: TDataConnectorMsg); +begin + InvokeRecordChanged; + FModified := False; +end; + +procedure TJvDataConnector.DcUpdateData(var Msg: TDataConnectorMsg); +begin + Inc(FLockRecordChange); + try + UpdateData; + finally + Dec(FLockRecordChange); + end; + FModified := False; +end; + +procedure TJvDataConnector.Edit; +begin + if CanEdit and (FLockRecordChange = 0) then + begin + Inc(FLockRecordChange); + try + DataSource.Edit; + finally + Dec(FLockRecordChange); + end; + end; +end; + +function TJvDataConnector.GetDataSetConnected: Boolean; +begin + Result := Assigned(DataSource) and (DataSource.DataSet <> nil); +end; + +procedure TJvDataConnector.InvokeRecordChanged; +begin + if FLockRecordChange = 0 then + begin + Inc(FLockRecordChange); + try + RecordChanged; + finally + Dec(FLockRecordChange); + end; + FModified := False; + end; +end; + +procedure TJvDataConnector.SetDataSource(const Value: IJvDataSource); +var + Handler: IJvDataSourceConnectorHandler; +begin + if Value <> FDataSource then + begin + if Assigned(FDataSource) then + begin + if Supports(FDataSource, IJvDataSourceConnectorHandler, Handler) then + Handler.RemoveDataConnector(Self); + end; + try + FDataSource := nil; + DataSourceDisconnected; + finally + FDataSource := Value; + if Assigned(FDataSource) then + begin + if Supports(FDataSource, IJvDataSourceConnectorHandler, Handler) then + begin + Handler.AddDataConnector(Self); + DataSourceConnected; + end + else + FDataSource := nil; + end; + end; + end; +end; + +procedure TJvDataConnector.UpdateRecord; +begin + if DataSetConnected and Modified then + begin + Inc(FLockRecordChange); + try + UpdateData; + finally + Dec(FLockRecordChange); + end; + FModified := False; + end; +end; + +destructor TJvDataConnector.Destroy; +var + Handler: IJvDataSourceConnectorHandler; +begin + if Assigned(FDataSource) and Supports(FDataSource, IJvDataSourceConnectorHandler, Handler) then + Handler.RemoveDataConnector(Self); + FDataSource := nil; + inherited Destroy; +end; + +{ TJvFieldDataConnector } + +procedure TJvFieldDataConnector.ActiveChanged; +begin + FField.UpdateField; + inherited ActiveChanged; +end; + +function TJvFieldDataConnector.CanEdit: Boolean; +begin + Result := inherited CanEdit and Field.CanModify; +end; + +constructor TJvFieldDataConnector.Create; +begin + inherited Create; + FField := TJvDataConnectorField.Create; +end; + +procedure TJvFieldDataConnector.DataSourceConnected; +begin + FField.DataSource := DataSource; + inherited DataSourceConnected; +end; + +procedure TJvFieldDataConnector.DataSourceDisconnected; +begin + FField.DataSource := nil; + inherited DataSourceDisconnected; +end; + +destructor TJvFieldDataConnector.Destroy; +begin + FField.Free; + inherited Destroy; +end; + +function TJvFieldDataConnector.GetDataField: TDataFieldString; +begin + Result := FField.FieldName; +end; + +procedure TJvFieldDataConnector.LayoutChanged; +begin + FField.UpdateField; + inherited LayoutChanged; +end; + +procedure TJvFieldDataConnector.SetDataField(const Value: TDataFieldString); +begin + FField.FieldName := Value; + InvokeRecordChanged; +end; + +{ TJvDataConnectorField } + +procedure TJvDataConnectorField.SetDataSource(const Value: IJvDataSource); +begin + if Value <> FDataSource then + begin + FDataSource := Value; + UpdateField; + end; +end; + +procedure TJvDataConnectorField.SetFieldName(const Value: TDataFieldString); +begin + if Value <> FFieldName then + begin + FFieldName := Value; + UpdateField; + end; +end; + +procedure TJvDataConnectorField.UpdateField; +begin + if Assigned(DataSource) and (DataSource.DataSet <> nil) then + FField := DataSource.FindField(FFieldName) + else + FField := nil; +end; + +procedure TJvDataConnectorField.Clear; +begin + DataSource.FieldClear(Field); +end; + +function TJvDataConnectorField.GetAsBoolean: Boolean; +begin + Result := DataSource.FieldBoolean[Field]; +end; + +function TJvDataConnectorField.GetAsDateTime: TDateTime; +begin + Result := DataSource.FieldDataTime[Field]; +end; + +function TJvDataConnectorField.GetAsFloat: Double; +begin + Result := DataSource.FieldFloat[Field]; +end; + +function TJvDataConnectorField.GetAsInt64: Int64; +begin + Result := StrToInt64Def(DataSource.FieldString[Field], 0); +end; + +function TJvDataConnectorField.GetAsInteger: Integer; +begin + Result := DataSource.FieldInteger[Field]; +end; + +function TJvDataConnectorField.GetAsString: string; +begin + Result := DataSource.FieldString[Field]; +end; + +function TJvDataConnectorField.GetAsWideString: WideString; +begin + Result := DataSource.FieldWideString[Field]; +end; + +function TJvDataConnectorField.GetCanModify: Boolean; +begin + Result := IsValid and DataSource.FieldCanModify[Field]; +end; + +function TJvDataConnectorField.GetDataType: TJvDBFieldType; +begin + Result := DataSource.FieldType[Field]; +end; + +function TJvDataConnectorField.GetDisplayLabel: TDataFieldString; +begin + Result := DataSource.FieldDisplayLabel[Field]; +end; + +function TJvDataConnectorField.GetDisplayWidth: Integer; +begin + Result := DataSource.FieldDisplayWidth[Field]; +end; + +function TJvDataConnectorField.GetEditMask: TJvEditMask; +begin + Result := DataSource.FieldEditMask[Field]; +end; + +function TJvDataConnectorField.GetIsBlob: Boolean; +begin + Result := DataSource.FieldIsBlob[Field]; +end; + +function TJvDataConnectorField.GetIsNull: Boolean; +begin + Result := DataSource.FieldIsNull[Field]; +end; + +function TJvDataConnectorField.GetIsValid: Boolean; +begin + if (DataSource <> nil) and (Field = nil) then + UpdateField; + Result := (DataSource <> nil) and (Field <> nil); +end; + +function TJvDataConnectorField.GetOldValue: Variant; +begin + Result := DataSource.FieldOldValue[Field]; +end; + +function TJvDataConnectorField.GetReadOnly: Boolean; +begin + Result := DataSource.FieldReadOnly[Field]; +end; + +function TJvDataConnectorField.GetRequired: Boolean; +begin + Result := DataSource.FieldRequired[Field]; +end; + +function TJvDataConnectorField.GetSize: Integer; +begin + Result := DataSource.FieldSize[Field]; +end; + +function TJvDataConnectorField.GetValue: Variant; +begin + Result := DataSource.FieldValue[Field]; +end; + +function TJvDataConnectorField.GetVisible: Boolean; +begin + Result := DataSource.FieldVisible[Field]; +end; + +procedure TJvDataConnectorField.SetAsBoolean(const Value: Boolean); +begin + DataSource.FieldBoolean[Field] := Value; +end; + +procedure TJvDataConnectorField.SetAsDateTime(const Value: TDateTime); +begin + DataSource.FieldDataTime[Field] := Value; +end; + +procedure TJvDataConnectorField.SetAsFloat(const Value: Double); +begin + DataSource.FieldFloat[Field] := Value; +end; + +procedure TJvDataConnectorField.SetAsInt64(const Value: Int64); +begin + DataSource.FieldString[Field] := IntToStr(Value); +end; + +procedure TJvDataConnectorField.SetAsInteger(const Value: Integer); +begin + DataSource.FieldInteger[Field] := Value; +end; + +procedure TJvDataConnectorField.SetAsString(const Value: string); +begin + DataSource.FieldString[Field] := Value; +end; + +procedure TJvDataConnectorField.SetAsWideString(const Value: WideString); +begin + DataSource.FieldWideString[Field] := Value; +end; + +procedure TJvDataConnectorField.SetDisplayWidth(const Value: Integer); +begin + DataSource.FieldDisplayWidth[Field] := Value; +end; + +procedure TJvDataConnectorField.SetValue(const Value: Variant); +begin + DataSource.FieldValue[Field] := Value; +end; + +end. + Modified: trunk/jvcl/run/JvEdit.pas =================================================================== --- trunk/jvcl/run/JvEdit.pas 2006-07-06 16:49:16 UTC (rev 10790) +++ trunk/jvcl/run/JvEdit.pas 2006-07-09 00:21:20 UTC (rev 10791) @@ -56,7 +56,7 @@ Qt, {$ENDIF VisualCLX} Classes, Graphics, Controls, Menus, - JvCaret, JvMaxPixel, JvTypes, JvExStdCtrls; + JvCaret, JvMaxPixel, JvTypes, JvExStdCtrls, JvDataSourceIntf; {$IFDEF VisualCLX} const @@ -64,6 +64,18 @@ {$ENDIF VisualCLX} type + TJvCustomEdit = class; + + TJvCustomEditDataConnector = class(TJvFieldDataConnector) + private + FEdit: TJvCustomEdit; + protected + procedure RecordChanged; override; + procedure UpdateData; override; + public + constructor Create(AEdit: TJvCustomEdit); + end; + TJvCustomEdit = class(TJvExCustomEdit) private {$IFDEF VisualCLX} @@ -94,6 +106,8 @@ FThemedPassword: Boolean; FThemedFont: TFont; {$ENDIF JVCLThemesEnabled} + FDataConnector: TJvFieldDataConnector; + function GetPasswordChar: Char; function IsPasswordCharStored: Boolean; procedure SetAlignment(Value: TAlignment); @@ -120,6 +134,8 @@ function GetThemedFontHandle: HFONT; {$ENDIF JVCLThemesEnabled} protected + function CreateDataConnector: TJvFieldDataConnector; virtual; + procedure WMCut(var Msg: TMessage); message WM_CUT; procedure WMPaste(var Msg: TMessage); message WM_PASTE; procedure WMClear(var Msg: TMessage); message WM_CLEAR; @@ -131,6 +147,7 @@ procedure CaretChanged(Sender: TObject); dynamic; procedure Change; override; procedure KeyDown(var Key: Word; Shift: TShiftState); override; + procedure KeyPress(var Key: Char); override; procedure MaxPixelChanged(Sender: TObject); procedure SetSelLength(Value: Integer); override; procedure SetSelStart(Value: Integer); override; @@ -153,7 +170,6 @@ procedure InitWidget; override; procedure Paint; override; // procedure TextChanged; override; -// procedure KeyPress(var Key: Char); override; function HintShow(var HintInfo: THintInfo): Boolean; override; {$ENDIF VisualCLX} procedure FocusSet(PrevWnd: THandle); override; @@ -201,6 +217,8 @@ property GroupIndex: Integer read FGroupIndex write SetGroupIndex default -1; property OnParentColorChange; property Flat: Boolean read GetFlat write SetFlat {$IFDEF VisualCLX}default False;{$ENDIF VisualCLX}{$IFDEF VCL}stored IsFlatStored;{$ENDIF VCL} + + property DataConnector: TJvFieldDataConnector read FDataConnector; end; TJvEdit = class(TJvCustomEdit) @@ -295,6 +313,8 @@ property OnMouseMove; property OnMouseUp; property OnStartDrag; + + property DataConnector; end; {$IFDEF UNITVERSIONING} @@ -347,11 +367,44 @@ end; end; +//=== { TJvCustomEditDataConnector } =============================... [truncated message content] |
From: <ob...@us...> - 2006-07-31 08:25:12
|
Revision: 10855 Author: obones Date: 2006-07-31 01:24:21 -0700 (Mon, 31 Jul 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10855&view=rev Log Message: ----------- TJvgBevel has been deprecated and moved to archive, replaced by TJvBevel TJvgSplitter has been deprecated and moved to archive, replaced by TJvNetscapeSplitter TJvgGraphicButton has been deprecated and moved to archive, replaced by TJvTransparentButton Modified Paths: -------------- trunk/jvcl/changelog.txt trunk/jvcl/converter/JVCL3.dat trunk/jvcl/design/JvGlobusReg.pas trunk/jvcl/help/migrating_globus.html trunk/jvcl/packages/c5/JvGlobusC5R.bpk trunk/jvcl/packages/c5/JvGlobusC5R.cpp trunk/jvcl/packages/c5/JvGlobusC5R.dpk trunk/jvcl/packages/c5std/JvGlobusC5R.bpk trunk/jvcl/packages/c5std/JvGlobusC5R.cpp trunk/jvcl/packages/c5std/JvGlobusC5R.dpk trunk/jvcl/packages/c6/JvGlobusC6R.bpk trunk/jvcl/packages/c6/JvGlobusC6R.dpk trunk/jvcl/packages/c6per/JvGlobusC6R.bpk trunk/jvcl/packages/c6per/JvGlobusC6R.dpk trunk/jvcl/packages/d10/JvGlobusD10R.dpk trunk/jvcl/packages/d10per/JvGlobusD10R.dpk trunk/jvcl/packages/d5/JvGlobusD5R.dpk trunk/jvcl/packages/d5std/JvGlobusD5R.dpk trunk/jvcl/packages/d6/JvGlobusD6R.dpk trunk/jvcl/packages/d6per/JvGlobusD6R.dpk trunk/jvcl/packages/d7/JvGlobusD7R.dpk trunk/jvcl/packages/d7per/JvGlobusD7R.dpk trunk/jvcl/packages/d9/JvGlobusD9R.dpk trunk/jvcl/packages/d9per/JvGlobusD9R.dpk trunk/jvcl/packages/xml/JvGlobus-R.xml trunk/jvcl/run/JvBevel.pas trunk/jvcl/run/JvgCrossTable.pas Added Paths: ----------- trunk/jvcl/archive/JvgBevel.pas trunk/jvcl/archive/JvgGraphicButton.pas trunk/jvcl/archive/JvgSplit.pas Removed Paths: ------------- trunk/jvcl/run/JvgBevel.pas trunk/jvcl/run/JvgGraphicButton.pas trunk/jvcl/run/JvgSplit.pas Copied: trunk/jvcl/archive/JvgBevel.pas (from rev 10854, trunk/jvcl/run/JvgBevel.pas) =================================================================== --- trunk/jvcl/archive/JvgBevel.pas (rev 0) +++ trunk/jvcl/archive/JvgBevel.pas 2006-07-31 08:24:21 UTC (rev 10855) @@ -0,0 +1,324 @@ +{----------------------------------------------------------------------------- +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: JvgBevel.PAS, released on 2003-01-15. + +The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] +Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. +All Rights Reserved. + +Contributor(s): +Michael Beck [mbeck att bigfoot dott com]. + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Description: + This unit implements the TJvgBevel component which is an extended + TBevel Delphi component with gradient filling and advanced borders + drawing. + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvgBevel; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF USEJVCL} + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + {$ENDIF USEJVCL} + Windows, Messages, Classes, Controls, Graphics, ExtCtrls, Forms, + {$IFDEF USEJVCL} + JvComponent, + {$ENDIF USEJVCL} + JvgTypes, JvgCommClasses, JvgUtils; + +type + {$IFDEF USEJVCL} + TJvgBevel = class(TJvGraphicControl) + {$ELSE} + TJvgBevel = class(TGraphicControl) + {$ENDIF USEJVCL} + private + FBevelInner: TPanelBevel; + FBevelOuter: TPanelBevel; + FBevelSides: TglSides; + FBevelBold: Boolean; + FBevelPenStyle: TPenStyle; + FBevelPenWidth: Word; + FInteriorOffset: Word; + FGradient: TJvgGradient; + FVertLines: TJvgBevelLines; + FHorLines: TJvgBevelLines; + FExternalCanvas: TCanvas; + procedure SomethingChanged(Sender: TObject); + procedure SetBevelInner(Value: TPanelBevel); + procedure SetBevelOuter(Value: TPanelBevel); + procedure SetBevelSides(Value: TglSides); + procedure SetBevelBold(Value: Boolean); + procedure SetBevelPenStyle(Value: TPenStyle); + procedure SetBevelPenWidth(Value: Word); + procedure SetInteriorOffset(Value: Word); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Paint; override; + property ExternalCanvas: TCanvas read FExternalCanvas write FExternalCanvas stored False; + procedure Loaded; override; + published + property Anchors; + property Align; + property Height default 50; + property ParentShowHint; + property Width default 50; + property ShowHint; + property Visible; + property OnClick; + property OnDblClick; + property OnDragDrop; + property OnDragOver; + property OnEndDrag; + property OnMouseDown; + property OnMouseMove; + property OnMouseUp; + property OnStartDrag; + property DragCursor; + property DragMode; + property BevelInner: TPanelBevel read FBevelInner write SetBevelInner default bvLowered; + property BevelOuter: TPanelBevel read FBevelOuter write SetBevelOuter default bvNone; + property BevelSides: TglSides read FBevelSides write SetBevelSides + default [fsdLeft, fsdTop, fsdRight, fsdBottom]; + property BevelBold: Boolean read FBevelBold write SetBevelBold default False; + property BevelPenStyle: TPenStyle read FBevelPenStyle write SetBevelPenStyle default psSolid; + property BevelPenWidth: Word read FBevelPenWidth write SetBevelPenWidth default 1; + property InteriorOffset: Word read FInteriorOffset write SetInteriorOffset default 0; + property Gradient: TJvgGradient read FGradient write FGradient; + {$IFDEF USEJVCL} + property HintColor; + {$ENDIF USEJVCL} + property VertLines: TJvgBevelLines read FVertLines write FVertLines; + property HorLines: TJvgBevelLines read FHorLines write FHorLines; + {$IFDEF USEJVCL} + property OnMouseEnter; + property OnMouseLeave; + property OnParentColorChange; + {$ENDIF USEJVCL} + end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$URL$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +implementation + +constructor TJvgBevel.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FGradient := TJvgGradient.Create; + FVertLines := TJvgBevelLines.Create; + FHorLines := TJvgBevelLines.Create; + //..defaults + Width := 50; + Height := 50; + FBevelInner := bvLowered; + FBevelOuter := bvNone; + FBevelSides := [fsdLeft, fsdTop, fsdRight, fsdBottom]; + FBevelPenStyle := psSolid; + FBevelPenWidth := 1; + FGradient.OnChanged := SomethingChanged; + FVertLines.OnChanged := SomethingChanged; + FHorLines.OnChanged := SomethingChanged; +end; + +destructor TJvgBevel.Destroy; +begin + FGradient.Free; + FVertLines.Free; + FHorLines.Free; + inherited Destroy; +end; + +procedure TJvgBevel.Loaded; +begin + inherited Loaded; + if FGradient.Active then + ControlStyle := ControlStyle + [csOpaque]; +end; + +procedure TJvgBevel.Paint; +var + R, R_: TRect; + BoxSides: TglSides; + TargetCanvas: TCanvas; + + procedure DrawLines(R_: TRect; Direction: TglLinesDir; Lines: + TJvgBevelLines); + var + I: Integer; + begin + if Direction = fldVertical then + begin + BoxSides := [fsdLeft, fsdRight]; + if Lines.IgnoreBorder then + begin + R_.Top := R.Top; + R_.Bottom := R.Bottom; + end; + end + else + begin + BoxSides := [fsdTop, fsdBottom]; + if Lines.IgnoreBorder then + begin + R_.Left := R.Left; + R_.Right := R.Right; + end; + end; + + for I := 1 to Lines.Count do + begin + case Direction of + fldVertical: + begin + R_.Left := MulDiv(I, Width, Lines.Count + 1); + R_.Right := R_.Left + Lines.Thickness + Ord(Lines.Bold); + end; + else {fldHorizontal:} + begin + R_.Top := MulDiv(I, Height, Lines.Count + 1); + // if I = 1 then Dec( R_.Top, Lines.Thickness ); + R_.Bottom := R_.Top + Lines.Thickness + Ord(Lines.Bold); + end; + end; + if Lines.Style = bvSpace then + BoxSides := [fsdLeft, fsdTop]; + + DrawBoxEx(TargetCanvas.Handle, R_, BoxSides, Lines.Style, bvNone, + Lines.Bold, 0, True); + end; + end; + +begin + if Assigned(ExternalCanvas) then + TargetCanvas := ExternalCanvas + else + TargetCanvas := Canvas; + R := ClientRect; + InflateRect(R, -FInteriorOffset, -FInteriorOffset); + GradientBox(TargetCanvas.Handle, R, Gradient, + Ord(FBevelPenStyle), FBevelPenWidth); + + R := ClientRect; + Dec(R.Right); + Dec(R.Bottom); + TargetCanvas.Pen.Width := FBevelPenWidth; + TargetCanvas.Pen.Style := FBevelPenStyle; + R_ := DrawBoxEx(TargetCanvas.Handle, R, BevelSides, BevelInner, BevelOuter, + FBevelBold, 0, True); + + DrawLines(R_, fldHorizontal, HorLines); + DrawLines(R_, fldVertical, VertLines); +end; + +procedure TJvgBevel.SomethingChanged(Sender: TObject); +begin + Repaint; +end; + +procedure TJvgBevel.SetBevelOuter(Value: TPanelBevel); +begin + if FBevelOuter <> Value then + begin + FBevelOuter := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelInner(Value: TPanelBevel); +begin + if FBevelInner <> Value then + begin + FBevelInner := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelSides(Value: TglSides); +begin + if FBevelSides <> Value then + begin + FBevelSides := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelBold(Value: Boolean); +begin + if FBevelBold <> Value then + begin + FBevelBold := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelPenStyle(Value: TPenStyle); +begin + if FBevelPenStyle <> Value then + begin + FBevelPenStyle := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetBevelPenWidth(Value: Word); +begin + if FBevelPenWidth <> Value then + begin + FBevelPenWidth := Value; + Invalidate; + end; +end; + +procedure TJvgBevel.SetInteriorOffset(Value: Word); +begin + if FInteriorOffset <> Value then + begin + FInteriorOffset := Value; + Invalidate; + end; +end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +end. + Copied: trunk/jvcl/archive/JvgGraphicButton.pas (from rev 10854, trunk/jvcl/run/JvgGraphicButton.pas) =================================================================== --- trunk/jvcl/archive/JvgGraphicButton.pas (rev 0) +++ trunk/jvcl/archive/JvgGraphicButton.pas 2006-07-31 08:24:21 UTC (rev 10855) @@ -0,0 +1,255 @@ +{----------------------------------------------------------------------------- +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: JvgGraphicButton.PAS, released on 2003-01-15. + +The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] +Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. +All Rights Reserved. + +Contributor(s): +Michael Beck [mbeck att bigfoot dott com]. + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvgGraphicButton; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF USEJVCL} + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + {$ENDIF USEJVCL} + Windows, Messages, SysUtils, Classes, Graphics, Controls, + {$IFDEF USEJVCL} + JvComponent, + {$ENDIF USEJVCL} + JvgTypes, JvgUtils; + +type + TJvgButtonState = (bsActive, bsPassive, bsPushed); + + {$IFDEF USEJVCL} + TJvgGraphicButton = class(TJvGraphicControl) + {$ELSE} + TJvgGraphicButton = class(TGraphicControl) + {$ENDIF USEJVCL} + private + FAutoSize: Boolean; + FGlyphActive: TPicture; + FGlyphPassive: TPicture; + FGlyphPushed: TPicture; + FState: TJvgButtonState; + procedure SetGlyphActive(Value: TPicture); + procedure SetGlyphPassive(Value: TPicture); + procedure SetGlyphPushed(Value: TPicture); + protected + procedure MouseDown(Button: TMouseButton; Shift: TShiftState; + X, Y: Integer); override; + procedure MouseUp(Button: TMouseButton; Shift: TShiftState; + X, Y: Integer); override; + // procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; + {$IFDEF USEJVCL} + procedure MouseEnter(Control: TControl); override; + procedure MouseLeave(Control: TControl); override; + {$ENDIF USEJVCL} + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Paint; override; + property Canvas; + published + property Enabled; + property Height default 105; + property PopupMenu; + property ShowHint; + property Visible; + property Width default 105; + property OnClick; + property OnDblClick; + property OnDragDrop; + property OnDragOver; + property OnEndDrag; + property OnMouseDown; + property OnMouseMove; + property OnMouseUp; + property GlyphActive: TPicture read FGlyphActive write SetGlyphActive; + property GlyphPassive: TPicture read FGlyphPassive write SetGlyphPassive; + property GlyphPushed: TPicture read FGlyphPushed write SetGlyphPushed; + {$IFDEF USEJVCL} + property OnMouseEnter; + property OnMouseLeave; + {$ENDIF USEJVCL} + end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$URL$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +implementation + +{$IFDEF USEJVCL} +uses + JvThemes; +{$ENDIF USEJVCL} + +constructor TJvgGraphicButton.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + // ControlStyle := ControlStyle + [{csReplicatable,}csOpaque]; + Width := 105; + Height := 105; + {$IFDEF USEJVCL} + IncludeThemeStyle(Self, [csParentBackground]); + {$ENDIF USEJVCL} + + FGlyphActive := TPicture.Create; + FGlyphPassive := TPicture.Create; + FGlyphPushed := TPicture.Create; + //...defaults + FAutoSize := False; + FState := bsPassive; +end; + +destructor TJvgGraphicButton.Destroy; +begin + FGlyphActive.Free; + FGlyphPassive.Free; + FGlyphPushed.Free; + inherited Destroy; +end; + +procedure TJvgGraphicButton.Paint; +var + Glyph: TPicture; +begin + case FState of + bsActive: + if Assigned(FGlyphActive) then + Glyph := FGlyphActive + else + Glyph := FGlyphPassive; + bsPassive: + Glyph := FGlyphPassive; + else {bsPushed} + begin + if Assigned(FGlyphPushed) then + Glyph := FGlyphPushed + else + Glyph := FGlyphActive; + if not Assigned(Glyph) then + Glyph := FGlyphPassive; + end; + end; + if Assigned(Glyph) then + BitBlt(Canvas.Handle, 0, 0, Glyph.Width, Glyph.Height, + Glyph.Bitmap.Canvas.Handle, 0, 0, SRCCOPY); + if csDesigning in ComponentState then + with Canvas do + begin + Pen.Color := clBlack; + Pen.Style := psDash; + Brush.Style := bsClear; + Rectangle(0, 0, Width, Height); + end; +end; + +procedure TJvgGraphicButton.SetGlyphActive(Value: TPicture); +begin + FGlyphActive.Assign(Value); + Invalidate; +end; + +procedure TJvgGraphicButton.SetGlyphPassive(Value: TPicture); +begin + FGlyphPassive.Assign(Value); + Invalidate; +end; + +procedure TJvgGraphicButton.SetGlyphPushed(Value: TPicture); +begin + FGlyphPushed.Assign(Value); + Invalidate; +end; + +{$IFDEF USEJVCL} + +procedure TJvgGraphicButton.MouseEnter(Control: TControl); +begin + if csDesigning in ComponentState then + Exit; + inherited MouseEnter(Control); + FState := bsActive; + Repaint; +end; + +procedure TJvgGraphicButton.MouseLeave(Control: TControl); +begin + if csDesigning in ComponentState then + Exit; + inherited MouseLeave(Control); + FState := bsPassive; + Repaint; +end; + +{$ENDIF USEJVCL} + +procedure TJvgGraphicButton.MouseDown(Button: TMouseButton; Shift: TShiftState; + X, Y: Integer); +begin + inherited MouseDown(Button, Shift, X, Y); + if (Button <> mbLeft) or (not Enabled) or (FState = bsPassive) then + Exit; + FState := bsPushed; + Invalidate; +end; + +procedure TJvgGraphicButton.MouseUp(Button: TMouseButton; Shift: TShiftState; + X, Y: Integer); +begin + inherited MouseUp(Button, Shift, X, Y); +// if FState = bsPushed then +// Click; // already called + if FState = bsPushed then + FState := bsActive + else + FState := bsPassive; + Invalidate; +end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +end. + Copied: trunk/jvcl/archive/JvgSplit.pas (from rev 10854, trunk/jvcl/run/JvgSplit.pas) =================================================================== --- trunk/jvcl/archive/JvgSplit.pas (rev 0) +++ trunk/jvcl/archive/JvgSplit.pas 2006-07-31 08:24:21 UTC (rev 10855) @@ -0,0 +1,417 @@ +{----------------------------------------------------------------------------- +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: JvgSplit.PAS, released on 2003-01-15. + +The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] +Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. +All Rights Reserved. + +Contributor(s): +Michael Beck [mbeck att bigfoot dott com]. + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvgSplit; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF USEJVCL} + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + Windows, Messages, Classes, Controls, Graphics, ExtCtrls, + JvComponent, JVCLVer; + {$ELSE} + Windows, Messages, Classes, Controls, Graphics, ExtCtrls; + {$ENDIF USEJVCL} + +type + TJvgSplitter = class(TSplitter) + private + {$IFDEF USEJVCL} + FAboutJVCL: TJVCLAboutInfo; + {$ENDIF USEJVCL} + FHotTrack: Boolean; + FTrackCount: Integer; + FActive: Boolean; + FDisplace: Boolean; + FKeepSize: Integer; (* +++ RDB --- *) + procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER; + procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE; + procedure WMMouseDblClick(var Msg: TMessage); message WM_LBUTTONDBLCLK; + procedure SetTrackCount(const Value: Integer); + procedure UpdateControlSize; + function FindControl: TControl; + procedure PrepareMarcs(Align: TAlign; var Pt1, Pt2, Pt3, Pt4, Pt5, Pt6: TPoint); + procedure SetDisplace(const Value: Boolean); + public + constructor Create(AOwner: TComponent); override; + procedure Paint; override; + published + {$IFDEF USEJVCL} + property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; + {$ENDIF USEJVCL} + property Displace: Boolean read FDisplace write SetDisplace default True; + property HotTrack: Boolean read FHotTrack write FHotTrack default True; + property TrackCount: Integer read FTrackCount write SetTrackCount default 20; + property Width default 6; + end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$URL$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +implementation + +{$IFDEF USEJVCL} +uses + JvThemes; +{$ENDIF USEJVCL} + +constructor TJvgSplitter.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + {$IFDEF USEJVCL} + IncludeThemeStyle(Self, [csParentBackground]); + {$ENDIF USEJVCL} + FKeepSize := 0; + //..defaults + Width := 6; + FHotTrack := True; + FDisplace := True; + FTrackCount := 20; +end; + +procedure TJvgSplitter.Paint; +var + I: Integer; + SColor: TColor; + Pt1, Pt2, Pt3, Pt4, Pt5, Pt6: TPoint; + R, R1, R2: TRect; +begin + with Canvas do + begin + Brush.Color := Self.Color; + {$IFDEF USEJVCL} + DrawThemedBackground(Self, Canvas, ClientRect); + {$ELSE} + Canvas.FillRect(ClientRect); + {$ENDIF USEJVCL} + + if (Align = alBottom) or (Align = alTop) then + begin + R1 := Classes.Bounds((Width - FTrackCount * 4) div 2, 0, 3, 3); + R2 := Classes.Bounds((Width - FTrackCount * 4) div 2, 3, 3, 3); + end + else + begin + R1 := Classes.Bounds(0, (Height - FTrackCount * 4) div 2, 3, 3); + R2 := Classes.Bounds(3, (Height - FTrackCount * 4) div 2, 3, 3); + end; + + for I := 0 to FTrackCount - 1 do + begin + {$IFDEF JVCLThemesEnabled} + if FActive and HotTrack and ThemeServices.ThemesEnabled then + SColor := RGB(100, 100, 100) + else + {$ENDIF JVCLThemesEnabled} + if FActive and HotTrack then + SColor := clBlack + else + SColor := clBtnShadow; + + R := R1; + Frame3D(Canvas, R, clBtnHighlight, SColor, 1); + R := R2; + Frame3D(Canvas, R, clBtnHighlight, SColor, 1); + + if (Align = alBottom) or (Align = alTop) then + begin + OffsetRect(R1, 4, 0); + OffsetRect(R2, 4, 0); + end + else + begin + OffsetRect(R1, 0, 4); + OffsetRect(R2, 0, 4); + end; + + end; + if FDisplace then + begin + PrepareMarcs(Align, Pt1, Pt2, Pt3, Pt4, Pt5, Pt6); + if FActive then + Canvas.Brush.Color := clGray + else + Canvas.Brush.Color := clWhite; + Canvas.Polygon([Pt1, Pt2, Pt3]); + Canvas.Polygon([Pt4, Pt5, Pt6]); + end; + end; +end; + +procedure TJvgSplitter.PrepareMarcs(Align: TAlign; var Pt1, Pt2, Pt3, Pt4, Pt5, Pt6: TPoint); +begin + case Align of + alRight: + begin + Pt1.X := 1; + Pt1.Y := (Height - FTrackCount * 4) div 2 - 30; + Pt2.X := 1; + Pt2.Y := Pt1.Y + 6; + Pt3.X := 4; + Pt3.Y := Pt1.Y + 3; + + Pt4.X := 1; + Pt4.Y := (Height - FTrackCount * 4) div 2 + FTrackCount * 4 + 30 - + 7; + Pt5.X := 1; + Pt5.Y := Pt4.Y + 6; + Pt6.X := 4; + Pt6.Y := Pt4.Y + 3; + end; + alLeft: + begin + Pt1.X := 3; + Pt1.Y := (Height - FTrackCount * 4) div 2 - 30; + Pt2.X := 3; + Pt2.Y := Pt1.Y + 6; + Pt3.X := 0; + Pt3.Y := Pt1.Y + 3; + + Pt4.X := 3; + Pt4.Y := (Height - FTrackCount * 4) div 2 + FTrackCount * 4 + 30 - + 7; + Pt5.X := 3; + Pt5.Y := Pt4.Y + 6; + Pt6.X := 0; + Pt6.Y := Pt4.Y + 3; + end; + alTop: + begin + Pt1.X := (Width - FTrackCount * 4) div 2 - 30; + Pt1.Y := 4; + Pt2.X := Pt1.X + 6; + Pt2.Y := 4; + Pt3.X := Pt1.X + 3; + Pt3.Y := 1; + + Pt4.X := (Width - FTrackCount * 4) div 2 + FTrackCount * 4 + 30 - 7; + Pt4.Y := 4; + Pt5.X := Pt4.X + 6; + Pt5.Y := 4; + Pt6.X := Pt4.X + 3; + Pt6.Y := 1; + end; + alBottom: + begin + Pt1.X := (Width - FTrackCount * 4) div 2 - 30; + Pt1.Y := 1; + Pt2.X := Pt1.X + 6; + Pt2.Y := 1; + Pt3.X := Pt1.X + 3; + Pt3.Y := 4; + + Pt4.X := (Width - FTrackCount * 4) div 2 + FTrackCount * 4 + 30 - 7; + Pt4.Y := 1; + Pt5.X := Pt4.X + 6; + Pt5.Y := 1; + Pt6.X := Pt4.X + 3; + Pt6.Y := 4; + end; + end; +end; + +procedure TJvgSplitter.CMMouseEnter(var Msg: TMessage); +begin + inherited; + FActive := True; + Invalidate; +end; + +procedure TJvgSplitter.CMMouseLeave(var Msg: TMessage); +begin + inherited; + FActive := False; + Invalidate; +end; + +procedure TJvgSplitter.SetTrackCount(const Value: Integer); +begin + FTrackCount := Value; + Invalidate; +end; + +procedure TJvgSplitter.WMMouseDblClick(var Msg: TMessage); +begin + if FDisplace then + UpdateControlSize; +end; + +procedure TJvgSplitter.UpdateControlSize; +const + cNewSize = 0; +var + FControl: TControl; +begin + FControl := FindControl; + if not Assigned(FControl) then + Exit; + if FKeepSize = 0 then + begin + case Align of + alLeft: + begin + FKeepSize := FControl.Width; + FControl.Width := cNewSize; + end; + alTop: + begin + FKeepSize := FControl.Height; + FControl.Height := cNewSize; + end; + alRight: + begin + FKeepSize := FControl.Width; + Parent.DisableAlign; + try + FControl.Left := FControl.Left + (FControl.Width - cNewSize); + FControl.Width := cNewSize; + finally + Parent.EnableAlign; + end; + end; + alBottom: + begin + FKeepSize := FControl.Height; + Parent.DisableAlign; + try + FControl.Top := FControl.Top + (FControl.Height - cNewSize); + FControl.Height := cNewSize; + finally + Parent.EnableAlign; + end; + end; + end; + end + else (* ++++ RDB +++ *) + begin + case Align of + alLeft: + FControl.Width := FKeepSize; + alTop: + FControl.Height := FKeepSize; + alRight: + begin + Parent.DisableAlign; + try + FControl.Left := FControl.Left + (FControl.Width - FKeepSize); + FControl.Width := FKeepSize; + finally + Parent.EnableAlign; + end; + end; + alBottom: + begin + Parent.DisableAlign; + try + FControl.Top := FControl.Top + (FControl.Height - FKeepSize); + FControl.Height := FKeepSize; + finally + Parent.EnableAlign; + end; + end; + end; + FKeepSize := 0; (* --- RDB --- *) + end; + Update; + if Assigned(OnMoved) then + OnMoved(Self); +end; + +function TJvgSplitter.FindControl: TControl; +var + P: TPoint; + I: Integer; + R: TRect; +begin + Result := nil; + P := Point(Left, Top); + case Align of + alLeft: + Dec(P.X); + alRight: + Inc(P.X, Width); + alTop: + Dec(P.Y); + alBottom: + Inc(P.Y, Height); + else + Exit; + end; + for I := 0 to Parent.ControlCount - 1 do + begin + Result := Parent.Controls[I]; + if Result.Visible and Result.Enabled then + begin + R := Result.BoundsRect; + if (R.Right - R.Left) = 0 then + if Align in [alTop, alLeft] then + Dec(R.Left) + else + Inc(R.Right); + if (R.Bottom - R.Top) = 0 then + if Align in [alTop, alLeft] then + Dec(R.Top) + else + Inc(R.Bottom); + if PtInRect(R, P) then + Exit; + end; + end; + Result := nil; +end; + +procedure TJvgSplitter.SetDisplace(const Value: Boolean); +begin + FDisplace := Value; + Invalidate; +end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +end. + Modified: trunk/jvcl/changelog.txt =================================================================== --- trunk/jvcl/changelog.txt 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/changelog.txt 2006-07-31 08:24:21 UTC (rev 10855) @@ -1,5 +1,9 @@ Changelog for JVCL 3.X ====================== +2006-07-31 +- TJvgBevel has been deprecated and moved to archive, replaced by TJvBevel // obones +- TJvgSplitter has been deprecated and moved to archive, replaced by TJvNetscapeSplitter // obones +- TJvgGraphicButton has been deprecated and moved to archive, replaced by TJvTransparentButton // obones 2006-07-23 - New Database Components for Logon and Change Password included. Support for database components "Direct Oracle Access Components" Modified: trunk/jvcl/converter/JVCL3.dat =================================================================== (Binary files differ) Modified: trunk/jvcl/design/JvGlobusReg.pas =================================================================== --- trunk/jvcl/design/JvGlobusReg.pas 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/design/JvGlobusReg.pas 2006-07-31 08:24:21 UTC (rev 10855) @@ -51,14 +51,14 @@ JvgScrollBox, JvgShade, JvgDigits, JvgDrawTab, {JvgEdit, } JvgExceptionHandler, JvgShadowEditor, JvgFileIterator, {JvgFileUtils, } JvgFixFont, JvgShadow, {JvgGraph,} - JvgGraphicButton, JvgSingleInstance, {JvgShape, } - JvgSpeedButton, JvgStaticText, JvgHoleShape, JvgSplit, + {JvgGraphicButton, }JvgSingleInstance, {JvgShape, } + JvgSpeedButton, JvgStaticText, JvgHoleShape, {JvgSplit,} {JvgImageGroup, } JvgInspectorGrid, {JvgJump, } JvgSmallFontsDefense, {JvgSysInf, } JvgLogicItemEditorForm, JvgLogics, JvgStringContainer, JvgMailSlots, JvgStringGrid, JvgTabComm, JvgTab, JvgSysRequirements, {JvgProcess, } {JvgProcessUtils, } JvgPropertyCenter, JvgTransparentMemo, JvgTreeView, JvgTypes, JvgUtils, {JvgWinMask, } JvgRTFPreviewForm, - JvgWizardHeader, JvgXMLSerializer, Jvg3DColors, JvgAskListBox, JvgBevel, + JvgWizardHeader, JvgXMLSerializer, Jvg3DColors, JvgAskListBox, {JvgBevel,} JvgButton, JvgCheckBox, JvgCompDescription, JvgComponentListEditorForm, JvgFlyingText, JvgGroupBox, JvgHelpPanel, JvgHelpPanelEditor, JvgHint, JvgImage, @@ -91,8 +91,8 @@ TJvgVertDBSGrid, {$ENDIF !DelphiPersonalEdition} TJvgGridHeaderControl, - {TJvgSysInfo, TJvgMaskEdit, }TJvgBevel, {TJvgBitBtn, }TJvgGraphicButton, - {TJvgGraph,} TJvgTreeView, TJvgCheckTreeView, TJvgSplitter, TJvgShadow, + {TJvgSysInfo, TJvgMaskEdit, TJvgBevel, TJvgBitBtn, TJvgGraphicButton,} + {TJvgGraph,} TJvgTreeView, TJvgCheckTreeView, {TJvgSplitter, }TJvgShadow, TJvgShade, TJvgButton, {TJvgImageGroup,} TJvgProgress, TJvgTransparentMemo, {TJvgWinMask,} TJvgGroupBox, TJvgBitmapImage, TJvgListBox, TJvgCheckListBox, TJvgAskListBox, TJvgScrollBox, TJvgStringGrid, TJvgSpeedButton, Modified: trunk/jvcl/help/migrating_globus.html =================================================================== --- trunk/jvcl/help/migrating_globus.html 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/help/migrating_globus.html 2006-07-31 08:24:21 UTC (rev 10855) @@ -70,7 +70,8 @@ </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">Moved to Archive. Was completely nonfunctional.<br> + <td style="vertical-align: top;">Moved to Archive. Was completely +nonfunctional.<br> </td> </tr> <tr> @@ -243,16 +244,43 @@ </td> </tr> <tr> - <td style="vertical-align: top;">TJvgBevel</td> - <td style="vertical-align: top;"><br> + <td colspan="1" rowspan="4" style="vertical-align: top;">TJvgBevel</td> + <td style="vertical-align: top;">*<br> </td> - <td style="vertical-align: top;"><br> + <td colspan="1" rowspan="4" style="vertical-align: top;">TJvBevel<br> </td> - <td style="vertical-align: top;"><br> + <td style="vertical-align: top;">*<br> </td> - <td style="vertical-align: top;">In progress by OBones</td> + <td style="vertical-align: top;">All properties have been merged +into TJvBevel except for those below<br> + </td> </tr> <tr> + <td style="vertical-align: top;">HorLines<br> + </td> + <td style="vertical-align: top;">HorizontalLines<br> + </td> + <td style="vertical-align: top;">Automatically changed by the +converter<br> + </td> + </tr> + <tr> + <td style="vertical-align: top;">VertLines<br> + </td> + <td style="vertical-align: top;">VerticalLines<br> + </td> + <td style="vertical-align: top;">Automatically changed by the +converter</td> + </tr> + <tr> + <td style="vertical-align: top;">Gradient</td> + <td style="vertical-align: top;">n/a<br> + </td> + <td style="vertical-align: top;">Gradient has not been ported, +use a TJvGradient instead and put it behind.<br> + </td> + </tr> + <tr> <td style="vertical-align: top;">TJvgBitBtn</td> <td style="vertical-align: top;"><br> </td> @@ -268,11 +296,18 @@ <td style="vertical-align: top;">TJvgGraphicButton</td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;"><br> + <td style="vertical-align: top;">TJvTransparentButton<br> </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">In progress by OBones</td> + <td style="vertical-align: top;">Set FrameStyle to fsNone and put +the Glyphs in an image list in this order:<br> +0: GlyphPassive<br> +1: <br> +2: GlyphPushed<br> +3:<br> +4: GlyphActive<br> + </td> </tr> <tr> <td style="vertical-align: top;">TJvgTreeView<br> @@ -299,11 +334,12 @@ <td style="vertical-align: top;">TJvgSplitter</td> <td style="vertical-align: top;"><br> </td> + <td style="vertical-align: top;">TJvNetscapeSplitter<br> + </td> <td style="vertical-align: top;"><br> </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">In progress by OBones</td> </tr> <tr> <td style="vertical-align: top;">TJvgShadow</td> @@ -516,8 +552,7 @@ <td style="vertical-align: top;">TJvgProcess</td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">TJvCreateProcess - </td> + <td style="vertical-align: top;">TJvCreateProcess </td> <td style="vertical-align: top;"><br> </td> <td style="vertical-align: top;">TJvCreateProcess is superior</td> @@ -582,7 +617,8 @@ </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">Not done yet. Recommendation: move unconditionally to Archive</td> + <td style="vertical-align: top;">Not done yet. Recommendation: +move unconditionally to Archive</td> </tr> <tr> <td style="vertical-align: top;">TJvgHoleShape</td> Modified: trunk/jvcl/packages/c5/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:39 UTC ***************************************************************************** --> <PROJECT> @@ -22,7 +22,6 @@ ..\..\lib\c5\JvgSingleInstance.obj ..\..\lib\c5\JvgSmallFontsDefense.obj ..\..\lib\c5\JvgSpeedButton.obj - ..\..\lib\c5\JvgSplit.obj ..\..\lib\c5\JvgStaticText.obj ..\..\lib\c5\JvgStringContainer.obj ..\..\lib\c5\JvgStringGrid.obj @@ -38,7 +37,6 @@ ..\..\lib\c5\Jvg3DColors.obj ..\..\lib\c5\JvgAlignFunction.obj ..\..\lib\c5\JvgAskListBox.obj - ..\..\lib\c5\JvgBevel.obj ..\..\lib\c5\JvgButton.obj ..\..\lib\c5\JvgCaption.obj ..\..\lib\c5\JvgCheckBox.obj @@ -52,7 +50,6 @@ ..\..\lib\c5\JvgExportComponents.obj ..\..\lib\c5\JvgFileIterator.obj ..\..\lib\c5\JvgFlyingText.obj - ..\..\lib\c5\JvgGraphicButton.obj ..\..\lib\c5\JvgGridHeaderControl.obj ..\..\lib\c5\JvgGroupBox.obj ..\..\lib\c5\JvgHelpPanel.obj Modified: trunk/jvcl/packages/c5/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:40 UTC ----------------------------------------------------------------------------- */ @@ -19,7 +19,6 @@ USEUNIT("..\..\run\JvgSingleInstance.pas"); USEUNIT("..\..\run\JvgSmallFontsDefense.pas"); USEUNIT("..\..\run\JvgSpeedButton.pas"); -USEUNIT("..\..\run\JvgSplit.pas"); USEUNIT("..\..\run\JvgStaticText.pas"); USEUNIT("..\..\run\JvgStringContainer.pas"); USEUNIT("..\..\run\JvgStringGrid.pas"); @@ -35,7 +34,6 @@ USEUNIT("..\..\run\Jvg3DColors.pas"); USEUNIT("..\..\run\JvgAlignFunction.pas"); USEUNIT("..\..\run\JvgAskListBox.pas"); -USEUNIT("..\..\run\JvgBevel.pas"); USEUNIT("..\..\run\JvgButton.pas"); USEUNIT("..\..\run\JvgCaption.pas"); USEUNIT("..\..\run\JvgCheckBox.pas"); @@ -49,7 +47,6 @@ USEUNIT("..\..\run\JvgExportComponents.pas"); USEUNIT("..\..\run\JvgFileIterator.pas"); USEUNIT("..\..\run\JvgFlyingText.pas"); -USEUNIT("..\..\run\JvgGraphicButton.pas"); USEUNIT("..\..\run\JvgGridHeaderControl.pas"); USEUNIT("..\..\run\JvgGroupBox.pas"); USEUNIT("..\..\run\JvgHelpPanel.pas"); Modified: trunk/jvcl/packages/c5/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:40 UTC ----------------------------------------------------------------------------- } @@ -56,7 +56,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -72,7 +71,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -86,7 +84,6 @@ JvgExportComponents in '..\..\run\JvgExportComponents.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:39 UTC ***************************************************************************** --> <PROJECT> @@ -22,7 +22,6 @@ ..\..\lib\c5\JvgSingleInstance.obj ..\..\lib\c5\JvgSmallFontsDefense.obj ..\..\lib\c5\JvgSpeedButton.obj - ..\..\lib\c5\JvgSplit.obj ..\..\lib\c5\JvgStaticText.obj ..\..\lib\c5\JvgStringContainer.obj ..\..\lib\c5\JvgStringGrid.obj @@ -37,7 +36,6 @@ ..\..\lib\c5\Jvg3DColors.obj ..\..\lib\c5\JvgAlignFunction.obj ..\..\lib\c5\JvgAskListBox.obj - ..\..\lib\c5\JvgBevel.obj ..\..\lib\c5\JvgButton.obj ..\..\lib\c5\JvgCaption.obj ..\..\lib\c5\JvgCheckBox.obj @@ -47,7 +45,6 @@ ..\..\lib\c5\JvgExceptionHandler.obj ..\..\lib\c5\JvgFileIterator.obj ..\..\lib\c5\JvgFlyingText.obj - ..\..\lib\c5\JvgGraphicButton.obj ..\..\lib\c5\JvgGridHeaderControl.obj ..\..\lib\c5\JvgGroupBox.obj ..\..\lib\c5\JvgHelpPanel.obj Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:40 UTC ----------------------------------------------------------------------------- */ @@ -19,7 +19,6 @@ USEUNIT("..\..\run\JvgSingleInstance.pas"); USEUNIT("..\..\run\JvgSmallFontsDefense.pas"); USEUNIT("..\..\run\JvgSpeedButton.pas"); -USEUNIT("..\..\run\JvgSplit.pas"); USEUNIT("..\..\run\JvgStaticText.pas"); USEUNIT("..\..\run\JvgStringContainer.pas"); USEUNIT("..\..\run\JvgStringGrid.pas"); @@ -34,7 +33,6 @@ USEUNIT("..\..\run\Jvg3DColors.pas"); USEUNIT("..\..\run\JvgAlignFunction.pas"); USEUNIT("..\..\run\JvgAskListBox.pas"); -USEUNIT("..\..\run\JvgBevel.pas"); USEUNIT("..\..\run\JvgButton.pas"); USEUNIT("..\..\run\JvgCaption.pas"); USEUNIT("..\..\run\JvgCheckBox.pas"); @@ -44,7 +42,6 @@ USEUNIT("..\..\run\JvgExceptionHandler.pas"); USEUNIT("..\..\run\JvgFileIterator.pas"); USEUNIT("..\..\run\JvgFlyingText.pas"); -USEUNIT("..\..\run\JvgGraphicButton.pas"); USEUNIT("..\..\run\JvgGridHeaderControl.pas"); USEUNIT("..\..\run\JvgGroupBox.pas"); USEUNIT("..\..\run\JvgHelpPanel.pas"); Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:40 UTC ----------------------------------------------------------------------------- } @@ -55,7 +55,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -70,7 +69,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -80,7 +78,6 @@ JvgExceptionHandler in '..\..\run\JvgExceptionHandler.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/c6/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:43 UTC ***************************************************************************** --> <PROJECT> @@ -22,7 +22,6 @@ ..\..\lib\c6\JvgSingleInstance.obj ..\..\lib\c6\JvgSmallFontsDefense.obj ..\..\lib\c6\JvgSpeedButton.obj - ..\..\lib\c6\JvgSplit.obj ..\..\lib\c6\JvgStaticText.obj ..\..\lib\c6\JvgStringContainer.obj ..\..\lib\c6\JvgStringGrid.obj @@ -38,7 +37,6 @@ ..\..\lib\c6\Jvg3DColors.obj ..\..\lib\c6\JvgAlignFunction.obj ..\..\lib\c6\JvgAskListBox.obj - ..\..\lib\c6\JvgBevel.obj ..\..\lib\c6\JvgButton.obj ..\..\lib\c6\JvgCaption.obj ..\..\lib\c6\JvgCheckBox.obj @@ -52,7 +50,6 @@ ..\..\lib\c6\JvgExportComponents.obj ..\..\lib\c6\JvgFileIterator.obj ..\..\lib\c6\JvgFlyingText.obj - ..\..\lib\c6\JvgGraphicButton.obj ..\..\lib\c6\JvgGridHeaderControl.obj ..\..\lib\c6\JvgGroupBox.obj ..\..\lib\c6\JvgHelpPanel.obj @@ -152,7 +149,6 @@ <FILE FILENAME="..\..\run\JvgSingleInstance.pas" FORMNAME="" UNITNAME="JvgSingleInstance" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSmallFontsDefense.pas" FORMNAME="" UNITNAME="JvgSmallFontsDefense" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSpeedButton.pas" FORMNAME="" UNITNAME="JvgSpeedButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgSplit.pas" FORMNAME="" UNITNAME="JvgSplit" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStaticText.pas" FORMNAME="" UNITNAME="JvgStaticText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringContainer.pas" FORMNAME="" UNITNAME="JvgStringContainer" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringGrid.pas" FORMNAME="" UNITNAME="JvgStringGrid" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> @@ -168,7 +164,6 @@ <FILE FILENAME="..\..\run\Jvg3DColors.pas" FORMNAME="" UNITNAME="Jvg3DColors" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgAlignFunction.pas" FORMNAME="" UNITNAME="JvgAlignFunction" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgAskListBox.pas" FORMNAME="" UNITNAME="JvgAskListBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgBevel.pas" FORMNAME="" UNITNAME="JvgBevel" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgButton.pas" FORMNAME="" UNITNAME="JvgButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgCaption.pas" FORMNAME="" UNITNAME="JvgCaption" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgCheckBox.pas" FORMNAME="" UNITNAME="JvgCheckBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> @@ -182,7 +177,6 @@ <FILE FILENAME="..\..\run\JvgExportComponents.pas" FORMNAME="" UNITNAME="JvgExportComponents" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgFileIterator.pas" FORMNAME="" UNITNAME="JvgFileIterator" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgFlyingText.pas" FORMNAME="" UNITNAME="JvgFlyingText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgGraphicButton.pas" FORMNAME="" UNITNAME="JvgGraphicButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgGridHeaderControl.pas" FORMNAME="" UNITNAME="JvgGridHeaderControl" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgGroupBox.pas" FORMNAME="" UNITNAME="JvgGroupBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgHelpPanel.pas" FORMNAME="" UNITNAME="JvgHelpPanel" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:45 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -74,7 +73,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -88,7 +86,6 @@ JvgExportComponents in '..\..\run\JvgExportComponents.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:43 UTC ***************************************************************************** --> <PROJECT> @@ -22,7 +22,6 @@ ..\..\lib\c6\JvgSingleInstance.obj ..\..\lib\c6\JvgSmallFontsDefense.obj ..\..\lib\c6\JvgSpeedButton.obj - ..\..\lib\c6\JvgSplit.obj ..\..\lib\c6\JvgStaticText.obj ..\..\lib\c6\JvgStringContainer.obj ..\..\lib\c6\JvgStringGrid.obj @@ -37,7 +36,6 @@ ..\..\lib\c6\Jvg3DColors.obj ..\..\lib\c6\JvgAlignFunction.obj ..\..\lib\c6\JvgAskListBox.obj - ..\..\lib\c6\JvgBevel.obj ..\..\lib\c6\JvgButton.obj ..\..\lib\c6\JvgCaption.obj ..\..\lib\c6\JvgCheckBox.obj @@ -47,7 +45,6 @@ ..\..\lib\c6\JvgExceptionHandler.obj ..\..\lib\c6\JvgFileIterator.obj ..\..\lib\c6\JvgFlyingText.obj - ..\..\lib\c6\JvgGraphicButton.obj ..\..\lib\c6\JvgGridHeaderControl.obj ..\..\lib\c6\JvgGroupBox.obj ..\..\lib\c6\JvgHelpPanel.obj @@ -140,7 +137,6 @@ <FILE FILENAME="..\..\run\JvgSingleInstance.pas" FORMNAME="" UNITNAME="JvgSingleInstance" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSmallFontsDefense.pas" FORMNAME="" UNITNAME="JvgSmallFontsDefense" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSpeedButton.pas" FORMNAME="" UNITNAME="JvgSpeedButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgSplit.pas" FORMNAME="" UNITNAME="JvgSplit" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStaticText.pas" FORMNAME="" UNITNAME="JvgStaticText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringContainer.pas" FORMNAME="" UNITNAME="JvgStringContainer" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringGrid.pas" FORMNAME="" UNITNAME="JvgStringGrid" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> @@ -155,7 +151,6 @@ <FILE FILENAME="..\..\run\Jvg3DColors.pas" FORMNAME="" UNITNAME="Jvg3DColors" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgAlignFunction.pas" FORMNAME="" UNITNAME="JvgAlignFunction" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgAskListBox.pas" FORMNAME="" UNITNAME="JvgAskListBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgBevel.pas" FORMNAME="" UNITNAME="JvgBevel" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgButton.pas" FORMNAME="" UNITNAME="JvgButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgCaption.pas" FORMNAME="" UNITNAME="JvgCaption" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgCheckBox.pas" FORMNAME="" UNITNAME="JvgCheckBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> @@ -165,7 +160,6 @@ <FILE FILENAME="..\..\run\JvgExceptionHandler.pas" FORMNAME="" UNITNAME="JvgExceptionHandler" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgFileIterator.pas" FORMNAME="" UNITNAME="JvgFileIterator" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgFlyingText.pas" FORMNAME="" UNITNAME="JvgFlyingText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgGraphicButton.pas" FORMNAME="" UNITNAME="JvgGraphicButton" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgGridHeaderControl.pas" FORMNAME="" UNITNAME="JvgGridHeaderControl" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgGroupBox.pas" FORMNAME="" UNITNAME="JvgGroupBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgHelpPanel.pas" FORMNAME="" UNITNAME="JvgHelpPanel" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 16-05-2006 09:32:21 UTC + Last generated: 31-07-2006 08:18:45 UTC ----------------------------------------------------------------------------- } @@ -56,7 +56,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -71,7 +70,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -81,7 +79,6 @@ JvgExceptionHandler in '..\..\run\JvgExceptionHandler.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/d10/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-07-31 08:24:21 UTC (rev 10855) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 05-06-2006 07:17:01 UTC + Last generated: 31-07-2006 08:18:48 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , JvgSmallFontsDefense in '..\..\run\JvgSmallFontsDefense.pas' , JvgSpeedButton in '..\..\run\JvgSpeedButton.pas' , - JvgSplit in '..\..\run\JvgSplit.pas' , JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , @@ -74,7 +73,6 @@ Jvg3DColors in '..\..\run\Jvg3DColors.pas' , JvgAlignFunction in '..\..\run\JvgAlignFunction.pas' , JvgAskListBox in '..\..\run\JvgAskListBox.pas' , - JvgBevel in '..\..\run\JvgBevel.pas' , JvgButton in '..\..\run\JvgButton.pas' , JvgCaption in '..\..\run\JvgCaption.pas' , JvgCheckBox in '..\..\run\JvgCheckBox.pas' , @@ -88,7 +86,6 @@ JvgExportComponents in '..\..\run\JvgExportComponents.pas' , JvgFileIterator in '..\..\run\JvgFileIterator.pas' , JvgFlyingText in '..\..\run\JvgFlyingText.pas' , - JvgGraphicButton in '..\..\run\JvgGraphicButton.pas' , JvgGridHeaderControl in '..\..\run\JvgGridHeaderControl.pas' , JvgGroupBox in '..\..\run\JvgGroupBox.pas' , JvgHelpPanel in '..\..\run\JvgHelpPanel.pas' , Modified: trunk/jvcl/packages/d10per/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10per/JvGlobusD10R.dpk 2006-07-30 21:51:43 UTC (rev 10854) +++ trunk... [truncated message content] |
From: <ob...@us...> - 2006-08-02 08:12:29
|
Revision: 10859 Author: obones Date: 2006-08-02 01:11:46 -0700 (Wed, 02 Aug 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10859&view=rev Log Message: ----------- JvgScrollBox moved to archive, use JvScroll box instead Modified Paths: -------------- trunk/jvcl/changelog.txt trunk/jvcl/converter/JVCL3.dat trunk/jvcl/design/JvGlobusReg.pas trunk/jvcl/help/migrating_globus.html trunk/jvcl/packages/c5/JvGlobusC5R.bpk trunk/jvcl/packages/c5/JvGlobusC5R.cpp trunk/jvcl/packages/c5/JvGlobusC5R.dpk trunk/jvcl/packages/c5std/JvGlobusC5R.bpk trunk/jvcl/packages/c5std/JvGlobusC5R.cpp trunk/jvcl/packages/c5std/JvGlobusC5R.dpk trunk/jvcl/packages/c6/JvGlobusC6R.bpk trunk/jvcl/packages/c6/JvGlobusC6R.dpk trunk/jvcl/packages/c6per/JvGlobusC6R.bpk trunk/jvcl/packages/c6per/JvGlobusC6R.dpk trunk/jvcl/packages/d10/JvGlobusD10R.dpk trunk/jvcl/packages/d10per/JvGlobusD10R.dpk trunk/jvcl/packages/d5/JvGlobusD5R.dpk trunk/jvcl/packages/d5std/JvGlobusD5R.dpk trunk/jvcl/packages/d6/JvGlobusD6R.dpk trunk/jvcl/packages/d6per/JvGlobusD6R.dpk trunk/jvcl/packages/d7/JvGlobusD7R.dpk trunk/jvcl/packages/d7per/JvGlobusD7R.dpk trunk/jvcl/packages/d9/JvGlobusD9R.dpk trunk/jvcl/packages/d9per/JvGlobusD9R.dpk trunk/jvcl/packages/xml/JvGlobus-R.xml trunk/jvcl/run/JvScrollBox.pas Added Paths: ----------- trunk/jvcl/archive/JvgScrollBox.pas Removed Paths: ------------- trunk/jvcl/run/JvgScrollBox.pas Copied: trunk/jvcl/archive/JvgScrollBox.pas (from rev 10858, trunk/jvcl/run/JvgScrollBox.pas) =================================================================== --- trunk/jvcl/archive/JvgScrollBox.pas (rev 0) +++ trunk/jvcl/archive/JvgScrollBox.pas 2006-08-02 08:11:46 UTC (rev 10859) @@ -0,0 +1,205 @@ +{----------------------------------------------------------------------------- +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: JvgScrollBox.PAS, released on 2003-01-15. + +The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] +Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. +All Rights Reserved. + +Contributor(s): +Michael Beck [mbeck att bigfoot dott com]. + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvgScrollBox; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF USEJVCL} + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + {$ENDIF USEJVCL} + Windows, Messages, Classes, SysUtils, Controls, Graphics, Forms, ExtCtrls, + {$IFDEF USEJVCL} + JVCLVer, + {$ENDIF USEJVCL} + JvgTypes, JvgCommClasses, JvgUtils; + +type + TOnEraseBkgndEvent = procedure(Sender: TObject; DC: HDC) of object; + + TJvgScrollBox = class(TScrollBox) + private + {$IFDEF USEJVCL} + FAboutJVCL: TJVCLAboutInfo; + {$ENDIF USEJVCL} + FBackground: TBitmap; + FBuffer: TBitmap; + FBufferedDraw: Boolean; + FOnEraseBkgndEvent: TOnEraseBkgndEvent; + procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND; + procedure SetBackground(Value: TBitmap); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure ApplyBuffer(DC: HDC); + published + {$IFDEF USEJVCL} + property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; + {$ENDIF USEJVCL} + property Background: TBitmap read FBackground write SetBackground; + property BufferedDraw: Boolean read FBufferedDraw write FBufferedDraw; + property OnEraseBkgndEvent: TOnEraseBkgndEvent read FOnEraseBkgndEvent write FOnEraseBkgndEvent; + end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$URL$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +implementation + +constructor TJvgScrollBox.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FBackground := TBitmap.Create; + { FBackground.Width := 8; FBackground.Height := 8; + FBackground.Canvas.Brush.Color := clWhite;//clWindow; + FBackground.Canvas.FillRect( Rect(0,0,8,8) ); + FBackground.Canvas.Pixels[7,7] := 0;} +end; + +destructor TJvgScrollBox.Destroy; +begin + FBackground.Free; + FBuffer.Free; + inherited Destroy; +end; + +procedure TJvgScrollBox.WMEraseBkgnd(var Msg: TWMEraseBkgnd); +var + DC: HDC; + R: TRect; + IHeight, IWidth, SavedIHeight, x_, y_, XOffset, YOffset, SavedYOffset: Integer; +begin + if csDestroying in ComponentState then + Exit; + if BufferedDraw and (FBuffer = nil) then + FBuffer := TBitmap.Create; + + if Assigned(FBuffer) then + begin + FBuffer.Width := Width; + FBuffer.Height := Height; + end; + + if BufferedDraw then + DC := FBuffer.Canvas.Handle + else + DC := Msg.DC; + + try + if FBackground.Empty then + Exit; + + if FBackground.Width <= 8 then + with TCanvas.Create do + try + Handle := Msg.DC; + // Pen.Color := clWindow; + // Brush.Color := clWindow; + // Brush.Style := bsCross; + Brush.Bitmap := FBackground; + FillRect(ClientRect); + Handle := 0; + Msg.Result := 1; + finally + Free; + end + else + begin + // SendMessage(Self.Handle, WM_SETREDRAW, 0, 0); + // BitBlt( Msg.DC, x_, y_, 100, 100, FBackground.Canvas.Handle, 0, 0, SRCCOPY); + R := ClientRect; + x_ := R.Left; + y_ := R.Top; + IHeight := FBackground.Height; + IWidth := FBackground.Width; + SavedIHeight := IHeight; + + XOffset := HorzScrollBar.Position - Trunc(HorzScrollBar.Position / IWidth) * IWidth; + YOffset := VertScrollBar.Position - Trunc(VertScrollBar.Position / IHeight) * IHeight; + SavedYOffset := YOffset; + while x_ < R.Right do + begin + //if x_+IWidth > R.right then IWidth := R.right-x_; + while y_ < R.Bottom do + begin + IHeight := SavedIHeight; + //if y_+IHeight-YOffset > R.bottom then IHeight := R.bottom-y_; + BitBlt(DC, x_, y_, IWidth - XOffset, IHeight - YOffset, + FBackground.Canvas.Handle, XOffset, YOffset, SRCCOPY); + Inc(y_, IHeight - YOffset); + YOffset := 0; + end; + Inc(x_, IWidth - XOffset); + y_ := R.Top; + XOffset := 0; + YOffset := SavedYOffset; + end; + end; + finally + if Assigned(FOnEraseBkgndEvent) then + FOnEraseBkgndEvent(Self, DC); + if BufferedDraw then + ApplyBuffer(Msg.DC); + end; +end; + +procedure TJvgScrollBox.SetBackground(Value: TBitmap); +begin + FBackground.Assign(Value); + Invalidate; +end; + +procedure TJvgScrollBox.ApplyBuffer(DC: HDC); +begin + BitBlt(DC, 0, 0, Width, Height, FBuffer.Canvas.Handle, 0, 0, SRCCOPY); +end; + +{$IFDEF USEJVCL} +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +{$ENDIF USEJVCL} + +end. + Modified: trunk/jvcl/changelog.txt =================================================================== --- trunk/jvcl/changelog.txt 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/changelog.txt 2006-08-02 08:11:46 UTC (rev 10859) @@ -1,5 +1,7 @@ Changelog for JVCL 3.X ====================== +2006-08-02 +- TJvgScrollBox has been deprecated and moved to archive, replaced by TJvScrollBox // obones 2006-07-31 - TJvgBevel has been deprecated and moved to archive, replaced by TJvBevel // obones - TJvgSplitter has been deprecated and moved to archive, replaced by TJvNetscapeSplitter // obones Modified: trunk/jvcl/converter/JVCL3.dat =================================================================== (Binary files differ) Modified: trunk/jvcl/design/JvGlobusReg.pas =================================================================== --- trunk/jvcl/design/JvGlobusReg.pas 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/design/JvGlobusReg.pas 2006-08-02 08:11:46 UTC (rev 10859) @@ -48,7 +48,7 @@ JvgReportEditorForm, JvgAlignForm, JvgAlignFunction, JvgReportParamEditorForm, {JvgBitBtn, } JvgRuler, JvgReport, JvgCaption, JvgReportParamsEditor, JvgReportParamsForm, {JvgRichEditUtils, } JvgCommClasses, {JvgRttiUtils, } - JvgScrollBox, JvgShade, JvgDigits, + {JvgScrollBox, }JvgShade, JvgDigits, JvgDrawTab, {JvgEdit, } JvgExceptionHandler, JvgShadowEditor, JvgFileIterator, {JvgFileUtils, } JvgFixFont, JvgShadow, {JvgGraph,} {JvgGraphicButton, }JvgSingleInstance, {JvgShape, } @@ -95,7 +95,7 @@ {TJvgGraph,} TJvgTreeView, TJvgCheckTreeView, {TJvgSplitter, }TJvgShadow, TJvgShade, TJvgButton, {TJvgImageGroup,} TJvgProgress, TJvgTransparentMemo, {TJvgWinMask,} TJvgGroupBox, TJvgBitmapImage, TJvgListBox, TJvgCheckListBox, - TJvgAskListBox, TJvgScrollBox, TJvgStringGrid, TJvgSpeedButton, + TJvgAskListBox, {TJvgScrollBox, }TJvgStringGrid, TJvgSpeedButton, TJvgExtSpeedButton, TJvgWizardHeader, TJvgCaption]); RegisterComponents(RsPaletteGlobusComponents2, [TJvgCheckBox, Modified: trunk/jvcl/help/migrating_globus.html =================================================================== --- trunk/jvcl/help/migrating_globus.html 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/help/migrating_globus.html 2006-08-02 08:11:46 UTC (rev 10859) @@ -449,11 +449,13 @@ <td style="vertical-align: top;">TJvgScrollBox</td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;"><br> + <td style="vertical-align: top;">TJvScrollBox<br> </td> <td style="vertical-align: top;"><br> </td> - <td style="vertical-align: top;">Not done yet</td> + <td style="vertical-align: top;">Background is now a TGraphic, +migration is silent.<br> + </td> </tr> <tr> <td style="vertical-align: top;">TJvgStringGrid</td> Modified: trunk/jvcl/packages/c5/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:39 UTC + Last generated: 02-08-2006 08:07:37 UTC ***************************************************************************** --> <PROJECT> @@ -16,7 +16,6 @@ ..\..\lib\c5\JvGlobusC5R.obj ..\..\lib\c5\JvgReportParamsEditor.obj ..\..\lib\c5\JvgRuler.obj - ..\..\lib\c5\JvgScrollBox.obj ..\..\lib\c5\JvgShade.obj ..\..\lib\c5\JvgShadow.obj ..\..\lib\c5\JvgSingleInstance.obj Modified: trunk/jvcl/packages/c5/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:40 UTC + Last generated: 02-08-2006 08:07:37 UTC ----------------------------------------------------------------------------- */ @@ -13,7 +13,6 @@ USERES("JvGlobusC5R.res"); USEUNIT("..\..\run\JvgReportParamsEditor.pas"); USEUNIT("..\..\run\JvgRuler.pas"); -USEUNIT("..\..\run\JvgScrollBox.pas"); USEUNIT("..\..\run\JvgShade.pas"); USEUNIT("..\..\run\JvgShadow.pas"); USEUNIT("..\..\run\JvgSingleInstance.pas"); Modified: trunk/jvcl/packages/c5/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:40 UTC + Last generated: 02-08-2006 08:07:38 UTC ----------------------------------------------------------------------------- } @@ -50,7 +50,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:39 UTC + Last generated: 02-08-2006 08:07:37 UTC ***************************************************************************** --> <PROJECT> @@ -16,7 +16,6 @@ ..\..\lib\c5\JvGlobusC5R.obj ..\..\lib\c5\JvgReportParamsEditor.obj ..\..\lib\c5\JvgRuler.obj - ..\..\lib\c5\JvgScrollBox.obj ..\..\lib\c5\JvgShade.obj ..\..\lib\c5\JvgShadow.obj ..\..\lib\c5\JvgSingleInstance.obj Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:40 UTC + Last generated: 02-08-2006 08:07:37 UTC ----------------------------------------------------------------------------- */ @@ -13,7 +13,6 @@ USERES("JvGlobusC5R.res"); USEUNIT("..\..\run\JvgReportParamsEditor.pas"); USEUNIT("..\..\run\JvgRuler.pas"); -USEUNIT("..\..\run\JvgScrollBox.pas"); USEUNIT("..\..\run\JvgShade.pas"); USEUNIT("..\..\run\JvgShadow.pas"); USEUNIT("..\..\run\JvgSingleInstance.pas"); Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:40 UTC + Last generated: 02-08-2006 08:07:38 UTC ----------------------------------------------------------------------------- } @@ -49,7 +49,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/c6/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:43 UTC + Last generated: 02-08-2006 08:07:40 UTC ***************************************************************************** --> <PROJECT> @@ -16,7 +16,6 @@ ..\..\lib\c6\JvGlobusC6R.obj ..\..\lib\c6\JvgReportParamsEditor.obj ..\..\lib\c6\JvgRuler.obj - ..\..\lib\c6\JvgScrollBox.obj ..\..\lib\c6\JvgShade.obj ..\..\lib\c6\JvgShadow.obj ..\..\lib\c6\JvgSingleInstance.obj @@ -143,7 +142,6 @@ <FILE FILENAME="bdertl.bpi" FORMNAME="" UNITNAME="bdertl" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgReportParamsEditor.pas" FORMNAME="" UNITNAME="JvgReportParamsEditor" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgRuler.pas" FORMNAME="" UNITNAME="JvgRuler" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgScrollBox.pas" FORMNAME="" UNITNAME="JvgScrollBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgShade.pas" FORMNAME="" UNITNAME="JvgShade" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgShadow.pas" FORMNAME="" UNITNAME="JvgShadow" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSingleInstance.pas" FORMNAME="" UNITNAME="JvgSingleInstance" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:45 UTC + Last generated: 02-08-2006 08:07:43 UTC ----------------------------------------------------------------------------- } @@ -52,7 +52,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:43 UTC + Last generated: 02-08-2006 08:07:40 UTC ***************************************************************************** --> <PROJECT> @@ -16,7 +16,6 @@ ..\..\lib\c6\JvGlobusC6R.obj ..\..\lib\c6\JvgReportParamsEditor.obj ..\..\lib\c6\JvgRuler.obj - ..\..\lib\c6\JvgScrollBox.obj ..\..\lib\c6\JvgShade.obj ..\..\lib\c6\JvgShadow.obj ..\..\lib\c6\JvgSingleInstance.obj @@ -131,7 +130,6 @@ <FILE FILENAME="vclx.bpi" FORMNAME="" UNITNAME="vclx" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgReportParamsEditor.pas" FORMNAME="" UNITNAME="JvgReportParamsEditor" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgRuler.pas" FORMNAME="" UNITNAME="JvgRuler" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgScrollBox.pas" FORMNAME="" UNITNAME="JvgScrollBox" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgShade.pas" FORMNAME="" UNITNAME="JvgShade" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgShadow.pas" FORMNAME="" UNITNAME="JvgShadow" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgSingleInstance.pas" FORMNAME="" UNITNAME="JvgSingleInstance" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:45 UTC + Last generated: 02-08-2006 08:07:43 UTC ----------------------------------------------------------------------------- } @@ -50,7 +50,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d10/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:48 UTC + Last generated: 02-08-2006 08:07:45 UTC ----------------------------------------------------------------------------- } @@ -52,7 +52,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d10per/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10per/JvGlobusD10R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d10per/JvGlobusD10R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:48 UTC + Last generated: 02-08-2006 08:07:45 UTC ----------------------------------------------------------------------------- } @@ -50,7 +50,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d5/JvGlobusD5R.dpk =================================================================== --- trunk/jvcl/packages/d5/JvGlobusD5R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d5/JvGlobusD5R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:48 UTC + Last generated: 02-08-2006 08:07:46 UTC ----------------------------------------------------------------------------- } @@ -50,7 +50,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d5std/JvGlobusD5R.dpk =================================================================== --- trunk/jvcl/packages/d5std/JvGlobusD5R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d5std/JvGlobusD5R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:48 UTC + Last generated: 02-08-2006 08:07:46 UTC ----------------------------------------------------------------------------- } @@ -49,7 +49,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d6/JvGlobusD6R.dpk =================================================================== --- trunk/jvcl/packages/d6/JvGlobusD6R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d6/JvGlobusD6R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:50 UTC + Last generated: 02-08-2006 08:07:48 UTC ----------------------------------------------------------------------------- } @@ -52,7 +52,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d6per/JvGlobusD6R.dpk =================================================================== --- trunk/jvcl/packages/d6per/JvGlobusD6R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d6per/JvGlobusD6R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:50 UTC + Last generated: 02-08-2006 08:07:48 UTC ----------------------------------------------------------------------------- } @@ -50,7 +50,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d7/JvGlobusD7R.dpk =================================================================== --- trunk/jvcl/packages/d7/JvGlobusD7R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d7/JvGlobusD7R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:53 UTC + Last generated: 02-08-2006 08:07:50 UTC ----------------------------------------------------------------------------- } @@ -52,7 +52,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d7per/JvGlobusD7R.dpk =================================================================== --- trunk/jvcl/packages/d7per/JvGlobusD7R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d7per/JvGlobusD7R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:53 UTC + Last generated: 02-08-2006 08:07:50 UTC ----------------------------------------------------------------------------- } @@ -50,7 +50,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d9/JvGlobusD9R.dpk =================================================================== --- trunk/jvcl/packages/d9/JvGlobusD9R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d9/JvGlobusD9R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:58 UTC + Last generated: 02-08-2006 08:07:56 UTC ----------------------------------------------------------------------------- } @@ -52,7 +52,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/d9per/JvGlobusD9R.dpk =================================================================== --- trunk/jvcl/packages/d9per/JvGlobusD9R.dpk 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/d9per/JvGlobusD9R.dpk 2006-08-02 08:11:46 UTC (rev 10859) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 31-07-2006 08:18:58 UTC + Last generated: 02-08-2006 08:07:56 UTC ----------------------------------------------------------------------------- } @@ -50,7 +50,6 @@ contains JvgReportParamsEditor in '..\..\run\JvgReportParamsEditor.pas' , JvgRuler in '..\..\run\JvgRuler.pas' , - JvgScrollBox in '..\..\run\JvgScrollBox.pas' , JvgShade in '..\..\run\JvgShade.pas' , JvgShadow in '..\..\run\JvgShadow.pas' , JvgSingleInstance in '..\..\run\JvgSingleInstance.pas' , Modified: trunk/jvcl/packages/xml/JvGlobus-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvGlobus-R.xml 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/packages/xml/JvGlobus-R.xml 2006-08-02 08:11:46 UTC (rev 10859) @@ -40,7 +40,6 @@ <Contains> <File Name="..\..\run\JvgReportParamsEditor.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgRuler.pas" Targets="VCL" Formname="" Condition=""/> - <File Name="..\..\run\JvgScrollBox.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgShade.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgShadow.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgSingleInstance.pas" Targets="VCL" Formname="" Condition=""/> Modified: trunk/jvcl/run/JvScrollBox.pas =================================================================== --- trunk/jvcl/run/JvScrollBox.pas 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/run/JvScrollBox.pas 2006-08-02 08:11:46 UTC (rev 10859) @@ -35,11 +35,13 @@ JclUnitVersioning, {$ENDIF UNITVERSIONING} Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, - JvExControls, JvExForms; + JvExControls, JvExForms, JvJVCLUtils; type TEraseBackgroundEvent = procedure(Sender: TObject; Canvas: TCanvas; var Result: Boolean) of object; + TJvScrollBoxFillMode = (sfmTile, sfmStretch, sfmNone); + TJvScrollBox = class(TJvExScrollBox) private FHotTrack: Boolean; @@ -48,10 +50,15 @@ FOnPaint: TNotifyEvent; FCanvas: TCanvas; FOnEraseBackground: TEraseBackgroundEvent; + FBackground: TJvPicture; + FBackgroundFillMode: TJvScrollBoxFillMode; procedure SetHotTrack(const Value: Boolean); procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL; procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL; procedure WMPaint(var Msg: TWMPaint); message WM_PAINT; + procedure SetBackground(const Value: TPicture); + procedure SetBackgroundFillMode(const Value: TJvScrollBoxFillMode); + function GetBackground: TPicture; protected procedure GetDlgCode(var Code: TDlgCodes); override; procedure MouseEnter(Control: TControl); override; @@ -61,11 +68,14 @@ procedure PaintWindow(DC: HDC); override; procedure Paint; virtual; function DoEraseBackground(Canvas: TCanvas; Param: Integer): Boolean; override; + procedure PaintBackground; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; property Canvas: TCanvas read FCanvas; published + property Background: TPicture read GetBackground write SetBackground; + property BackgroundFillMode: TJvScrollBoxFillMode read FBackgroundFillMode write SetBackgroundFillMode default sfmTile; property HotTrack: Boolean read FHotTrack write SetHotTrack default False; property HintColor; property OnMouseEnter; @@ -104,11 +114,17 @@ IncludeThemeStyle(Self, [csNeedsBorderPaint]); FCanvas := TControlCanvas.Create; TControlCanvas(FCanvas).Control := Self; + + // We use a TJvPicture to allow silent migration from TJvgScrollBox + // where background was a TBitmap. + FBackground := TJvPicture.Create; + FBackgroundFillMode := sfmTile; end; destructor TJvScrollBox.Destroy; begin FCanvas.Free; + FBackground.Free; inherited Destroy; end; @@ -155,6 +171,28 @@ Ctl3D := False; end; +procedure TJvScrollBox.SetBackground(const Value: TPicture); +begin + FBackground.Assign(Value); + Invalidate; +end; + +procedure TJvScrollBox.SetBackgroundFillMode(const Value: TJvScrollBoxFillMode); +begin + if FBackgroundFillMode <> Value then + begin + FBackgroundFillMode := Value; + Invalidate; + end; +end; + +function TJvScrollBox.GetBackground: TPicture; +begin + // Required because FBackground is a TJvPicture and as such cannot be + // used directly in the property declaration. + Result := FBackground; +end; + procedure TJvScrollBox.GetDlgCode(var Code: TDlgCodes); begin Code := [dcWantAllKeys, dcWantArrows]; @@ -234,6 +272,8 @@ FOnEraseBackground(Self, Canvas, Result); if not Result then Result := inherited DoEraseBackground(Canvas, Param); + + PaintBackground; end; procedure TJvScrollBox.Paint; @@ -242,6 +282,64 @@ FOnPaint(Self); end; +procedure TJvScrollBox.PaintBackground; +var + R: TRect; + X: Integer; + Y: Integer; + BackgroundHeight: Integer; + BackgroundWidth: Integer; + XOffset: Integer; + YOffset: Integer; + SavedYOffset: Integer; +begin + if Assigned(Background.Graphic) and not Background.Graphic.Empty then + begin + case BackgroundFillMode of + sfmTile: + begin + R := ClientRect; + BackgroundHeight := FBackground.Height; + BackgroundWidth := FBackground.Width; + + XOffset := HorzScrollBar.Position - Trunc(HorzScrollBar.Position / BackgroundWidth) * BackgroundWidth; + YOffset := VertScrollBar.Position - Trunc(VertScrollBar.Position / BackgroundHeight) * BackgroundHeight; + SavedYOffset := YOffset; + X := R.Left; + while X < R.Right do + begin + Y := R.Top; + while Y < R.Bottom do + begin + Canvas.Draw(X - XOffset, Y - YOffset, Background.Graphic); + + Inc(Y, BackgroundHeight - YOffset); + YOffset := 0; + end; + Inc(X, BackgroundWidth - XOffset); + XOffset := 0; + YOffset := SavedYOffset; + end; + end; + sfmStretch: + begin + R := ClientRect; + if HorzScrollBar.Range > R.Right then + R.Right := HorzScrollBar.Range - R.Left; + if VertScrollBar.Range > R.Bottom then + R.Bottom := VertScrollBar.Range - R.Top; + OffsetRect(R, -HorzScrollBar.Position, -VertScrollBar.Position); + + Canvas.StretchDraw(R, Background.Graphic); + end; + sfmNone: + begin + Canvas.Draw(0, 0, Background.Graphic); + end; + end; + end; +end; + {$IFDEF UNITVERSIONING} initialization Deleted: trunk/jvcl/run/JvgScrollBox.pas =================================================================== --- trunk/jvcl/run/JvgScrollBox.pas 2006-08-02 07:05:48 UTC (rev 10858) +++ trunk/jvcl/run/JvgScrollBox.pas 2006-08-02 08:11:46 UTC (rev 10859) @@ -1,205 +0,0 @@ -{----------------------------------------------------------------------------- -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: JvgScrollBox.PAS, released on 2003-01-15. - -The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] -Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. -All Rights Reserved. - -Contributor(s): -Michael Beck [mbeck att bigfoot dott com]. - -You may retrieve the latest version of this file at the Project JEDI's JVCL home page, -located at http://jvcl.sourceforge.net - -Known Issues: ------------------------------------------------------------------------------} -// $Id$ - -unit JvgScrollBox; - -{$I jvcl.inc} - -interface - -uses - {$IFDEF USEJVCL} - {$IFDEF UNITVERSIONING} - JclUnitVersioning, - {$ENDIF UNITVERSIONING} - {$ENDIF USEJVCL} - Windows, Messages, Classes, SysUtils, Controls, Graphics, Forms, ExtCtrls, - {$IFDEF USEJVCL} - JVCLVer, - {$ENDIF USEJVCL} - JvgTypes, JvgCommClasses, JvgUtils; - -type - TOnEraseBkgndEvent = procedure(Sender: TObject; DC: HDC) of object; - - TJvgScrollBox = class(TScrollBox) - private - {$IFDEF USEJVCL} - FAboutJVCL: TJVCLAboutInfo; - {$ENDIF USEJVCL} - FBackground: TBitmap; - FBuffer: TBitmap; - FBufferedDraw: Boolean; - FOnEraseBkgndEvent: TOnEraseBkgndEvent; - procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND; - procedure SetBackground(Value: TBitmap); - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - procedure ApplyBuffer(DC: HDC); - published - {$IFDEF USEJVCL} - property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; - {$ENDIF USEJVCL} - property Background: TBitmap read FBackground write SetBackground; - property BufferedDraw: Boolean read FBufferedDraw write FBufferedDraw; - property OnEraseBkgndEvent: TOnEraseBkgndEvent read FOnEraseBkgndEvent write FOnEraseBkgndEvent; - end; - -{$IFDEF USEJVCL} -{$IFDEF UNITVERSIONING} -const - UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$URL$'; - Revision: '$Revision$'; - Date: '$Date$'; - LogPath: 'JVCL\run' - ); -{$ENDIF UNITVERSIONING} -{$ENDIF USEJVCL} - -implementation - -constructor TJvgScrollBox.Create(AOwner: TComponent); -begin - inherited Create(AOwner); - FBackground := TBitmap.Create; - { FBackground.Width := 8; FBackground.Height := 8; - FBackground.Canvas.Brush.Color := clWhite;//clWindow; - FBackground.Canvas.FillRect( Rect(0,0,8,8) ); - FBackground.Canvas.Pixels[7,7] := 0;} -end; - -destructor TJvgScrollBox.Destroy; -begin - FBackground.Free; - FBuffer.Free; - inherited Destroy; -end; - -procedure TJvgScrollBox.WMEraseBkgnd(var Msg: TWMEraseBkgnd); -var - DC: HDC; - R: TRect; - IHeight, IWidth, SavedIHeight, x_, y_, XOffset, YOffset, SavedYOffset: Integer; -begin - if csDestroying in ComponentState then - Exit; - if BufferedDraw and (FBuffer = nil) then - FBuffer := TBitmap.Create; - - if Assigned(FBuffer) then - begin - FBuffer.Width := Width; - FBuffer.Height := Height; - end; - - if BufferedDraw then - DC := FBuffer.Canvas.Handle - else - DC := Msg.DC; - - try - if FBackground.Empty then - Exit; - - if FBackground.Width <= 8 then - with TCanvas.Create do - try - Handle := Msg.DC; - // Pen.Color := clWindow; - // Brush.Color := clWindow; - // Brush.Style := bsCross; - Brush.Bitmap := FBackground; - FillRect(ClientRect); - Handle := 0; - Msg.Result := 1; - finally - Free; - end - else - begin - // SendMessage(Self.Handle, WM_SETREDRAW, 0, 0); - // BitBlt( Msg.DC, x_, y_, 100, 100, FBackground.Canvas.Handle, 0, 0, SRCCOPY); - R := ClientRect; - x_ := R.Left; - y_ := R.Top; - IHeight := FBackground.Height; - IWidth := FBackground.Width; - SavedIHeight := IHeight; - - XOffset := HorzScrollBar.Position - Trunc(HorzScrollBar.Position / IWidth) * IWidth; - YOffset := VertScrollBar.Position - Trunc(VertScrollBar.Position / IHeight) * IHeight; - SavedYOffset := YOffset; - while x_ < R.Right do - begin - //if x_+IWidth > R.right then IWidth := R.right-x_; - while y_ < R.Bottom do - begin - IHeight := SavedIHeight; - //if y_+IHeight-YOffset > R.bottom then IHeight := R.bottom-y_; - BitBlt(DC, x_, y_, IWidth - XOffset, IHeight - YOffset, - FBackground.Canvas.Handle, XOffset, YOffset, SRCCOPY); - Inc(y_, IHeight - YOffset); - YOffset := 0; - end; - Inc(x_, IWidth - XOffset); - y_ := R.Top; - XOffset := 0; - YOffset := SavedYOffset; - end; - end; - finally - if Assigned(FOnEraseBkgndEvent) then - FOnEraseBkgndEvent(Self, DC); - if BufferedDraw then - ApplyBuffer(Msg.DC); - end; -end; - -procedure TJvgScrollBox.SetBackground(Value: TBitmap); -begin - FBackground.Assign(Value); - Invalidate; -end; - -procedure TJvgScrollBox.ApplyBuffer(DC: HDC); -begin - BitBlt(DC, 0, 0, Width, Height, FBuffer.Canvas.Handle, 0, 0, SRCCOPY); -end; - -{$IFDEF USEJVCL} -{$IFDEF UNITVERSIONING} -initialization - RegisterUnitVersion(HInstance, UnitVersioning); - -finalization - UnregisterUnitVersion(HInstance); -{$ENDIF UNITVERSIONING} -{$ENDIF USEJVCL} - -end. - This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2006-09-03 12:11:02
|
Revision: 10928 http://svn.sourceforge.net/jvcl/?rev=10928&view=rev Author: obones Date: 2006-09-03 05:10:53 -0700 (Sun, 03 Sep 2006) Log Message: ----------- TJvDBGrid.IsBooleanField is now called OnIsBooleanField as it is an even. Migration should be silent Modified Paths: -------------- trunk/jvcl/changelog.txt trunk/jvcl/run/JvDBGrid.pas Modified: trunk/jvcl/changelog.txt =================================================================== --- trunk/jvcl/changelog.txt 2006-09-02 12:11:21 UTC (rev 10927) +++ trunk/jvcl/changelog.txt 2006-09-03 12:10:53 UTC (rev 10928) @@ -1,5 +1,7 @@ Changelog for JVCL 3.X ====================== +2006-09-03 +- TJvDBGrid.IsBooleanField is now called OnIsBooleanField as it is an even. Migration should be silent. // obones 2006-08-17 - Fixed Bug in JvTabBar: ScrollButtons meight disappear // ahuser - Added Repeated Click to the JvTabBar's ScrollButtons // ahuser Modified: trunk/jvcl/run/JvDBGrid.pas =================================================================== --- trunk/jvcl/run/JvDBGrid.pas 2006-09-02 12:11:21 UTC (rev 10927) +++ trunk/jvcl/run/JvDBGrid.pas 2006-09-03 12:10:53 UTC (rev 10928) @@ -242,7 +242,7 @@ FOldControlWndProc: TWndMethod; FBooleanFieldToEdit: TField; FBooleanEditor: Boolean; - FIsBoolField: TJvDBIsBoolFieldEvent; + FOnIsBoolField: TJvDBIsBoolFieldEvent; FWordWrap: Boolean; FAutoSizeRows: Boolean; @@ -313,6 +313,7 @@ function DoKeyPress(var Msg: TWMChar): Boolean; procedure SetWordWrap(Value: Boolean); procedure NotifyLayoutChange(const Kind: TJvDBGridLayoutChangeKind); + procedure ReadIsBooleanField(Reader: TReader); protected FCurrentDrawRow: Integer; procedure MouseLeave(Control: TControl); override; @@ -495,8 +496,8 @@ property ShowMemos: Boolean read FShowMemos write SetShowMemos default True; { BooleanEditor: if true, a checkbox is used to edit boolean fields } property BooleanEditor: Boolean read FBooleanEditor write SetBooleanEditor default True; - { IsBooleanField: event used to treat integer fields as boolean fields } - property IsBooleanField: TJvDBIsBoolFieldEvent read FIsBoolField write FIsBoolField; + { OnIsBooleanField: event used to treat integer fields as boolean fields } + property OnIsBooleanField: TJvDBIsBoolFieldEvent read FOnIsBoolField write FOnIsBoolField; { OnColumnResized: event triggered each time a column is resized with the mouse } property OnColumnResized: TJvDBColumnResizeEvent read FOnColumnResized write FOnColumnResized; end; @@ -966,11 +967,11 @@ if FBooleanEditor then begin Result := Field.DataType = ftBoolean; - if not Result and Assigned(FIsBoolField) then + if not Result and Assigned(FOnIsBoolField) then begin case Field.DataType of ftSmallint, ftInteger, ftWord: - Result := FIsBoolField(Self, Field); + Result := FOnIsBoolField(Self, Field); ftString: begin Err := 0; @@ -979,7 +980,7 @@ Val(Field.AsString, Value, Err); if Value <> 0 then ; // prevent compiler hint end; - Result := (Err = 0) and FIsBoolField(Self, Field); + Result := (Err = 0) and FOnIsBoolField(Self, Field); end; end; end; @@ -3254,8 +3255,24 @@ inherited DefineProperties(Filer); Filer.DefineProperty('AlternRowColor', ReadAlternateRowColor, nil, False); Filer.DefineProperty('AlternRowFontColor', ReadAlternateRowFontColor, nil, False); + Filer.DefineProperty('IsBooleanField', ReadIsBooleanField, nil, False); end; +// This type and the ReadIsBooleanField procedure are here to allow silent +// migration from the wrongly named "IsBooleanField" event to the new and +// correct event named "OnIsBooleanField". We thus call TReader.ReadPropValue +// that knows how to handle a property of type tkMethod. +// We could have reproduced the code here, but calling ReadPropValue ensures +// easy compatibility with the different versions of Delphi. +type + TReaderAccess = class(TReader) + end; + +procedure TJvDBGrid.ReadIsBooleanField(Reader: TReader); +begin + TReaderAccess(Reader).ReadPropValue(Self, GetPropInfo(Self, 'OnIsBooleanField')); +end; + procedure TJvDBGrid.ReadAlternateRowColor(Reader: TReader); begin if Reader.ReadBoolean then This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ou...@us...> - 2006-09-13 17:33:18
|
Revision: 10936 http://svn.sourceforge.net/jvcl/?rev=10936&view=rev Author: outchy Date: 2006-09-13 10:32:43 -0700 (Wed, 13 Sep 2006) Log Message: ----------- Fixed possible DEP issues Modified Paths: -------------- trunk/jvcl/devtools/InstallerTests/Installer/D5Workarounds/Compiler5MissingPropertyFix.pas trunk/jvcl/install/JVCLInstall/Compiler5MissingPropertyFix.pas trunk/jvcl/qcommon/QWindows.pas trunk/jvcl/run/JvDSADialogs.pas trunk/jvcl/run/JvImageList.pas trunk/jvcl/run/JvThemes.pas trunk/jvcl/run/JvVCL5Utils.pas Modified: trunk/jvcl/devtools/InstallerTests/Installer/D5Workarounds/Compiler5MissingPropertyFix.pas =================================================================== --- trunk/jvcl/devtools/InstallerTests/Installer/D5Workarounds/Compiler5MissingPropertyFix.pas 2006-09-13 14:14:06 UTC (rev 10935) +++ trunk/jvcl/devtools/InstallerTests/Installer/D5Workarounds/Compiler5MissingPropertyFix.pas 2006-09-13 17:32:43 UTC (rev 10936) @@ -72,7 +72,7 @@ var Jump: TJump; DestP, OldP: Pointer; - OldProt: Cardinal; + OldProt, Dummy: Cardinal; begin if IsLibrary then raise Exception.Create('Not allowed in a DLL'); @@ -81,10 +81,10 @@ DestP := @TNativeBitBtn.CreateParams; OldP := @TOpenBitBtn.CreateParams; Jump.Offset := Integer(DestP) - Integer(OldP) - SizeOf(TJump); - if VirtualProtect(OldP, SizeOf(TJump), PAGE_READWRITE, @OldProt) then + if VirtualProtect(OldP, SizeOf(TJump), PAGE_EXECUTE_READWRITE, @OldProt) then begin Move(Jump, OldP^, SizeOf(TJump)); - VirtualProtect(OldP, SizeOf(TJump), OldProt, nil); + VirtualProtect(OldP, SizeOf(TJump), OldProt, Dummy); end; end; @@ -145,13 +145,13 @@ procedure ReplaceVmtField(Vmt: PVmt; VmtOffset: Integer; Value: Pointer); var Index: Integer; - OldProt: Cardinal; + OldProt, Dummy: Cardinal; begin Index := VmtOffset div SizeOf(Pointer); - if VirtualProtect(@vmt[Index], SizeOf(Pointer), PAGE_READWRITE, @OldProt) then + if VirtualProtect(@vmt[Index], SizeOf(Pointer), PAGE_EXECUTE_READWRITE, @OldProt) then begin Vmt[Index] := Value; - VirtualProtect(@Vmt[Index], SizeOf(Pointer), OldProt, nil); + VirtualProtect(@Vmt[Index], SizeOf(Pointer), OldProt, Dummy); end; end; {$R+} Modified: trunk/jvcl/install/JVCLInstall/Compiler5MissingPropertyFix.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Compiler5MissingPropertyFix.pas 2006-09-13 14:14:06 UTC (rev 10935) +++ trunk/jvcl/install/JVCLInstall/Compiler5MissingPropertyFix.pas 2006-09-13 17:32:43 UTC (rev 10936) @@ -64,7 +64,7 @@ var Jump: TJump; DestP, OldP: Pointer; - OldProt: Cardinal; + OldProt, Dummy: Cardinal; begin if IsLibrary then raise Exception.Create('Not allowed in a DLL'); @@ -73,10 +73,10 @@ DestP := @TNativeBitBtn.CreateParams; OldP := @TOpenBitBtn.CreateParams; Jump.Offset := Integer(DestP) - Integer(OldP) - SizeOf(TJump); - if VirtualProtect(OldP, SizeOf(TJump), PAGE_READWRITE, @OldProt) then + if VirtualProtect(OldP, SizeOf(TJump), PAGE_EXECUTE_READWRITE, @OldProt) then begin Move(Jump, OldP^, SizeOf(TJump)); - VirtualProtect(OldP, SizeOf(TJump), OldProt, nil); + VirtualProtect(OldP, SizeOf(TJump), OldProt, Dummy); end; end; @@ -141,13 +141,13 @@ procedure ReplaceVmtField(Vmt: PVmt; VmtOffset: Integer; Value: Pointer); var Index: Integer; - OldProt: Cardinal; + OldProt, Dummy: Cardinal; begin Index := VmtOffset div SizeOf(Pointer); - if VirtualProtect(@vmt[Index], SizeOf(Pointer), PAGE_READWRITE, @OldProt) then + if VirtualProtect(@vmt[Index], SizeOf(Pointer), PAGE_EXECUTE_READWRITE, @OldProt) then begin Vmt[Index] := Value; - VirtualProtect(@Vmt[Index], SizeOf(Pointer), OldProt, nil); + VirtualProtect(@Vmt[Index], SizeOf(Pointer), OldProt, Dummy); end; end; {$R+} Modified: trunk/jvcl/qcommon/QWindows.pas =================================================================== --- trunk/jvcl/qcommon/QWindows.pas 2006-09-13 14:14:06 UTC (rev 10935) +++ trunk/jvcl/qcommon/QWindows.pas 2006-09-13 17:32:43 UTC (rev 10936) @@ -6797,7 +6797,7 @@ function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: LongWord; var lpNumberOfBytesRead: Cardinal): LongBool; var - Prot: Cardinal; + OldProt, Dummy: Cardinal; begin Result := False; lpNumberOfBytesRead := 0; @@ -6806,7 +6806,7 @@ if nSize = 0 then Result := True else - if VirtualProtect(lpBaseAddress, nSize, PAGE_READWRITE, Prot) then + if VirtualProtect(lpBaseAddress, nSize, PAGE_EXECUTE_READWRITE, OldProt) then begin try Move(lpBaseAddress^, lpBuffer^, nSize); @@ -6815,7 +6815,7 @@ except Result := False; end; - VirtualProtect(lpBaseAddress, nSize, Prot, nil); + VirtualProtect(lpBaseAddress, nSize, OldProt, Dummy); end; end; end; @@ -6823,7 +6823,7 @@ function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: LongWord; var lpNumberOfBytesWritten: Longword): LongBool; var - Prot: Cardinal; + OldProt, Dummy: Cardinal; begin Result := False; lpNumberOfBytesWritten := 0; @@ -6832,7 +6832,7 @@ if nSize = 0 then Result := True else - if VirtualProtect(lpBaseAddress, nSize, PAGE_READWRITE, Prot) then + if VirtualProtect(lpBaseAddress, nSize, PAGE_EXECUTE_READWRITE, OldProt) then begin try Move(lpBuffer^, lpBaseAddress^, nSize); @@ -6841,7 +6841,7 @@ except Result := False; end; - VirtualProtect(lpBaseAddress, nSize, Prot, nil); + VirtualProtect(lpBaseAddress, nSize, OldProt, Dummy); end; end; end; Modified: trunk/jvcl/run/JvDSADialogs.pas =================================================================== --- trunk/jvcl/run/JvDSADialogs.pas 2006-09-13 14:14:06 UTC (rev 10935) +++ trunk/jvcl/run/JvDSADialogs.pas 2006-09-13 17:32:43 UTC (rev 10936) @@ -2189,13 +2189,13 @@ procedure SetVirtualMethodInstance(Instance: TObject; const VMTIdx: Integer; const MethodPtr: Pointer); var - OldProt: Cardinal; + OldProt, Dummy: Cardinal; begin VirtualProtect(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)), SizeOf(Pointer), PAGE_READWRITE, OldProt); try PInteger(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)))^ := Integer(MethodPtr); finally - VirtualProtect(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)), SizeOf(Pointer), OldProt, OldProt); + VirtualProtect(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)), SizeOf(Pointer), OldProt, Dummy); end; end; Modified: trunk/jvcl/run/JvImageList.pas =================================================================== --- trunk/jvcl/run/JvImageList.pas 2006-09-13 14:14:06 UTC (rev 10935) +++ trunk/jvcl/run/JvImageList.pas 2006-09-13 17:32:43 UTC (rev 10936) @@ -301,6 +301,7 @@ Jump: Byte; Offset: Integer; end; + PJumpCode = ^TJumpCode; var HandleNeededHookInstalled: Boolean = False; @@ -327,16 +328,19 @@ procedure UninstallHandleNeededHook; var OrgProc: Pointer; - n: Cardinal; + OldProtect, Dummy: Cardinal; begin if HandleNeededHookInstalled then begin OrgProc := @TCustomImageListAccessProtected.HandleNeeded; - if WriteProcessMemory(GetCurrentProcess, OrgProc, @SavedNeededHookCode, SizeOf(SavedNeededHookCode), n) then - begin + if VirtualProtect(OrgProc, SizeOf(SavedNeededHookCode), PAGE_EXECUTE_READWRITE, OldProtect) then + try + PJumpCode(OrgProc)^ := SavedNeededHookCode; + FlushInstructionCache(GetCurrentProcess, OrgProc, SizeOf(SavedNeededHookCode)); HandleNeededHookInstalled := False; - FlushInstructionCache(GetCurrentProcess, OrgProc, SizeOf(SavedNeededHookCode)); + finally + VirtualProtect(OrgProc, SizeOf(SavedNeededHookCode), OldProtect, Dummy); end; end; end; @@ -346,7 +350,7 @@ OrgProc: Pointer; NewProc: Pointer; Code: TJumpCode; - n: Cardinal; + OldProtect, Dummy: Cardinal; begin if not HandleNeededHookInstalled then begin @@ -356,12 +360,17 @@ Code.Jump := $E9; Code.Offset := Integer(NewProc) - Integer(OrgProc) - SizeOf(Code); - if ReadProcessMemory(GetCurrentProcess, OrgProc, @SavedNeededHookCode, SizeOf(SavedNeededHookCode), n) then - if WriteProcessMemory(GetCurrentProcess, OrgProc, @Code, SizeOf(Code), n) then - begin + if ReadProcessMemory(GetCurrentProcess, OrgProc, @SavedNeededHookCode, SizeOf(SavedNeededHookCode), Dummy) and + VirtualProtect(OrgProc, SizeOf(SavedNeededHookCode), PAGE_EXECUTE_READWRITE, OldProtect) then + begin + try + PJumpCode(OrgProc)^ := Code; HandleNeededHookInstalled := True; FlushInstructionCache(GetCurrentProcess, OrgProc, SizeOf(Code)); + finally + VirtualProtect(OrgProc, SizeOf(SavedNeededHookCode), OldProtect, Dummy); end; + end; end; end; Modified: trunk/jvcl/run/JvThemes.pas =================================================================== --- trunk/jvcl/run/JvThemes.pas 2006-09-13 14:14:06 UTC (rev 10935) +++ trunk/jvcl/run/JvThemes.pas 2006-09-13 17:32:43 UTC (rev 10936) @@ -1729,6 +1729,7 @@ Jmp: Byte; // jmp Offset Offset: Integer; end; + PJumpCode = ^TJumpCode; var SavedWinControlCode: TJumpCode; @@ -1737,7 +1738,7 @@ var Code: TJumpCode; P: procedure; - N: Cardinal; + N, OldProtect, Dummy: Cardinal; begin if WinControlHookInstalled then Exit; @@ -1757,16 +1758,18 @@ (Integer(@P) + 1) - SizeOf(Code); if ReadProcessMemory(GetCurrentProcess, Pointer(Cardinal(@P) + 1), - @SavedWinControlCode, SizeOf(SavedWinControlCode), N) then + @SavedWinControlCode, SizeOf(SavedWinControlCode), N) + and VirtualProtect(Pointer(Cardinal(@P) + 1), SizeOf(Code), PAGE_EXECUTE_READWRITE, OldProtect) then begin - { The strange thing is that WriteProcessMemory does not want @P or something - overrides the $e9 with a "PUSH xxx"} - if WriteProcessMemory(GetCurrentProcess, Pointer(Cardinal(@P) + 1), @Code, - SizeOf(Code), N) then - begin + try + // (outchy) to be verified without WriteProcessMemory + { The strange thing is that the $e9 cannot be overriden with a "PUSH xxx" } + PJumpCode(Cardinal(@P) + 1)^ := Code; WinControlHookInstalled := True; ThemeHooks.FEraseBkgndHooked := True; - FlushInstructionCache(GetCurrentProcess, @P, SizeOf(Code)); + FlushInstructionCache(GetCurrentProcess, Pointer(Cardinal(@P) + 1), SizeOf(Code)); + finally + VirtualProtect(Pointer(Cardinal(@P) + 1), SizeOf(Code), OldProtect, Dummy); end; end; end; @@ -1775,7 +1778,7 @@ procedure UninstallWinControlHook; var P: procedure; - N: Cardinal; + OldProtect, Dummy: Cardinal; begin if not WinControlHookInstalled then Exit; @@ -1783,11 +1786,13 @@ P := GetDynamicMethod(TWinControl, WM_ERASEBKGND); if Assigned(P) then begin - if WriteProcessMemory(GetCurrentProcess, Pointer(Cardinal(@P) + 1), - @SavedWinControlCode, SizeOf(SavedWinControlCode), N) then - begin + if VirtualProtect(Pointer(Cardinal(@P) + 1), SizeOf(SavedWinControlCode), PAGE_EXECUTE_READWRITE, OldProtect) then + try + PJumpCode(Cardinal(@P) + 1)^ := SavedWinControlCode; WinControlHookInstalled := False; FlushInstructionCache(GetCurrentProcess, @P, SizeOf(SavedWinControlCode)); + finally + VirtualProtect(Pointer(Cardinal(@P) + 1), SizeOf(SavedWinControlCode), OldProtect, Dummy); end; end; end; @@ -1885,14 +1890,20 @@ var NewProc: Pointer; Proc: PPointer; - N: Cardinal; + OldProtect, Dummy: Cardinal; begin Proc := FindWMPrintClient(); if Proc <> nil then begin OrgWinControlWMPrintClient := Proc^; NewProc := @FixedWMPrintClient; - WriteProcessMemory(GetCurrentProcess, Proc, @NewProc, SizeOf(NewProc), N); + + if VirtualProtect(Proc, SizeOf(NewProc), PAGE_EXECUTE_READWRITE, OldProtect) then + try + Proc^ := NewProc; + finally + VirtualProtect(Proc, SizeOf(NewProc), OldProtect, Dummy); + end; end; end; @@ -1900,13 +1911,19 @@ var NewProc: Pointer; Proc: PPointer; - N: Cardinal; + OldProtect, Dummy: Cardinal; begin Proc := FindWMPrintClient; if Proc <> nil then begin NewProc := @OrgWinControlWMPrintClient; - WriteProcessMemory(GetCurrentProcess, Proc, @NewProc, SizeOf(NewProc), N); + + if VirtualProtect(Proc, SizeOf(NewProc), PAGE_EXECUTE_READWRITE, OldProtect) then + try + Proc^ := NewProc; + finally + VirtualProtect(Proc, SizeOf(NewProc), OldProtect, Dummy); + end; end; end; Modified: trunk/jvcl/run/JvVCL5Utils.pas =================================================================== --- trunk/jvcl/run/JvVCL5Utils.pas 2006-09-13 14:14:06 UTC (rev 10935) +++ trunk/jvcl/run/JvVCL5Utils.pas 2006-09-13 17:32:43 UTC (rev 10936) @@ -671,10 +671,15 @@ function WriteProtectedMemory(Address: Pointer; const Buffer; Count: Cardinal): Boolean; var - N: Cardinal; + OldProtect, Dummy: Cardinal; begin - Result := WriteProcessMemory(GetCurrentProcess, Address, @Buffer, Count, N); - Result := Result and (N = Count); + Result := VirtualProtect(Address, Count, PAGE_EXECUTE_READWRITE, OldProtect); + if Result then + try + Move(Buffer, Address^, Count); + finally + VirtualProtect(Address, Count, OldProtect, Dummy); + end; end; type This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2006-09-25 17:57:26
|
Revision: 10946 http://svn.sourceforge.net/jvcl/?rev=10946&view=rev Author: jfudickar Date: 2006-09-25 10:57:06 -0700 (Mon, 25 Sep 2006) Log Message: ----------- New Component TJvBaseDatasetThreadHandler to create Threaded Dataset Descendants of "any" TDataset-Component with low efforts. Two sample implementations : TJvOracleDataset and TJvOdacSmartQuery. There some smaller compatibility issues with TJvOracleDataset: some property names are renamed to be more generic. Modified Paths: -------------- trunk/jvcl/changelog.txt trunk/jvcl/packages/xml/JvDB-R.xml trunk/jvcl/run/JvOracleDataSet.pas Added Paths: ----------- trunk/jvcl/run/JvBaseDBThreadedDataset.pas trunk/jvcl/run/JvOdacSmartQuery.pas Modified: trunk/jvcl/changelog.txt =================================================================== --- trunk/jvcl/changelog.txt 2006-09-25 09:26:25 UTC (rev 10945) +++ trunk/jvcl/changelog.txt 2006-09-25 17:57:06 UTC (rev 10946) @@ -1,5 +1,9 @@ Changelog for JVCL 3.X ====================== +2006-09-25 +- New Component TJvBaseDatasetThreadHandler to create Threaded Dataset Descendants of "any" TDataset-Component with + low efforts. Two sample implementations : TJvOracleDataset and TJvOdacSmartQuery. + There some smaller compatibility issues with TJvOracleDataset: some property names are renamed to be more generic. 2006-09-03 - TJvDBGrid.IsBooleanField is now called OnIsBooleanField as it is an even. Migration should be silent. // obones 2006-08-17 Modified: trunk/jvcl/packages/xml/JvDB-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvDB-R.xml 2006-09-25 09:26:25 UTC (rev 10945) +++ trunk/jvcl/packages/xml/JvDB-R.xml 2006-09-25 17:57:06 UTC (rev 10946) @@ -82,6 +82,7 @@ <File Name="..\..\run\JvDBDateTimePicker.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvDBLookup.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvDBLookupComboEdit.pas" Targets="DB" Formname="" Condition=""/> + <File Name="..\..\run\JvBaseDBThreadedDataset.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvBaseDBDialog.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvBaseDBPasswordDialog.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvBaseDBLogonDialog.pas" Targets="DB" Formname="" Condition=""/> @@ -117,5 +118,6 @@ <File Name="..\..\run\JvDynControlEngineVCLDB.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvDynControlEngineJVCLDB.pas" Targets="DB" Formname="" Condition=""/> <File Name="..\..\run\JvOracleDataset.pas" Targets="DB" Formname="" Condition="USE_3RDPARTY_DOA"/> - </Contains> + <File Name="..\..\run\JvOdacSmartQuery.pas" Targets="DB" Formname="" Condition="USE_3RDPARTY_CORELAB_ODAC"/> +</Contains> </Package> Added: trunk/jvcl/run/JvBaseDBThreadedDataset.pas =================================================================== --- trunk/jvcl/run/JvBaseDBThreadedDataset.pas (rev 0) +++ trunk/jvcl/run/JvBaseDBThreadedDataset.pas 2006-09-25 17:57:06 UTC (rev 10946) @@ -0,0 +1,1373 @@ +{----------------------------------------------------------------------------- +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: JvBaseDBThreadedDataset.PAS, released on 2002-05-26. + +The Initial Developer of the Original Code is Jens Fudickar +All Rights Reserved. + +Contributor(s): + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Description: + Oracle Dataset with Threaded Functions + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvBaseDBThreadedDataset; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + SysUtils, Classes, StdCtrls, ExtCtrls, Forms, Controls, + DB, + JvThread, JvThreadDialog, JvDynControlEngine; + +type + TJvThreadedDatasetOperation = (tdoOpen, tdoFetch, tdoLast, tdoRefresh, tdoNothing); + TJvThreadedDatasetAction = (tdaOpen, tdaFetch, tdaNothing); + + TJvThreadedDatasetFetchMode = (tdfmFetch, tdfmBreak, tdfmStop); + + TJvThreadedDatasetContinueCheckResult = (tdccrContinue, tdccrPause, tdccrStop, tdccrAll, tdccrCancel); + + TJvThreadedDatasetContinueAllowButton = (tdcaPause, tdcaStop, tdcaAll); + TJvThreadedDatasetContinueAllowButtons = set of TJvThreadedDatasetContinueAllowButton; + + TJvBaseDatasetThreadHandler = class; + + TJvThreadedDatasetThreadEvent = procedure(DataSet: TDataset; + Operation: TJvThreadedDatasetOperation) of object; + + IJvThreadedDatasetInterface = interface + ['{220CC94D-AA41-4195-B90C-ECA24BAD3CDB}'] + procedure BreakExecution; + function CurrentFetchDuration: TDateTime; + function CurrentOpenDuration: TDateTime; + procedure doInheritedInternalLast; + procedure doInheritedInternalRefresh; + procedure doInheritedSetActive(Active: Boolean); + procedure doInternalOpen; + function IsThreadAllowed: Boolean; + function ThreadIsActive: Boolean; + procedure DoInheritedBeforeOpen; + procedure DoInheritedAfterOpen; + procedure DoInheritedBeforeRefresh; + procedure DoInheritedAfterRefresh; + function ErrorMessage: string; + function GetDatasetFetchAllRecords: Boolean; + procedure SetDatasetFetchAllRecords(const Value: Boolean); + property DatasetFetchAllRecords: Boolean read GetDatasetFetchAllRecords write + SetDatasetFetchAllRecords; + end; + + + TJvThreadedDatasetDialogOptions = class(TJvCustomThreadDialogOptions) + private + FCaption: string; + FDynControlEngine: TJvDynControlEngine; + FEnableCancelButton: Boolean; + FFormStyle: TFormStyle; + FShowCancelButton: Boolean; + FShowRowsLabel: Boolean; + FShowTimeLabel: Boolean; + procedure SetCaption(const Value: string); + procedure SetDynControlEngine(const Value: TJvDynControlEngine); + procedure SetEnableCancelButton(const Value: Boolean); + procedure SetFormStyle(const Value: TFormStyle); + procedure SetShowCancelButton(const Value: Boolean); + procedure SetShowRowsLabel(const Value: Boolean); + procedure SetShowTimeLabel(const Value: Boolean); + public + constructor Create(AOwner: TJvCustomThreadDialog); override; + destructor Destroy; override; + published + property Caption: string read FCaption write SetCaption; + property DynControlEngine: TJvDynControlEngine read FDynControlEngine write SetDynControlEngine; + property EnableCancelButton: Boolean read FEnableCancelButton write SetEnableCancelButton default True; + property FormStyle: TFormStyle read FFormStyle write SetFormStyle; + property ShowCancelButton: Boolean read FShowCancelButton write SetShowCancelButton default True; + property ShowRowsLabel: Boolean read FShowRowsLabel write SetShowRowsLabel default True; + property ShowTimeLabel: Boolean read FShowTimeLabel write SetShowTimeLabel default True; + end; + + TJvThreadedDatasetThreadOptions = class(TPersistent) + private + FLastInThread: Boolean; + FOpenInThread: Boolean; + FPriority: TThreadPriority; + FRefreshInThread: Boolean; + FShowExceptionMessage: Boolean; + public + constructor Create; + published + property LastInThread: Boolean read FLastInThread write FLastInThread default False; + property OpenInThread: Boolean read FOpenInThread write FOpenInThread default False; + property Priority: TThreadPriority read FPriority write FPriority default tpIdle; + property RefreshInThread: Boolean read FRefreshInThread write FRefreshInThread default False; + property ShowExceptionMessage: Boolean read FShowExceptionMessage + write FShowExceptionMessage default True; + end; + + TJvThreadedDatasetCapitalizeLabelOptions = class(TPersistent) + private + FAutoExecuteAfterOpen: Boolean; + FTrimToFirstBlank: Boolean; + public + constructor Create; virtual; + published + property AutoExecuteAfterOpen: Boolean read FAutoExecuteAfterOpen + write FAutoExecuteAfterOpen default False; + property TrimToFirstBlank: Boolean read FTrimToFirstBlank write FTrimToFirstBlank default False; + end; + + TJvBaseThreadedDatasetAllowedContinueRecordFetchOptions = class(TPersistent) + private + FAll: Boolean; + FPause: Boolean; + FCancel: Boolean; + protected + property Pause: Boolean read FPause write FPause default false; + property Cancel: Boolean read FCancel write FCancel default false; + public + constructor Create; virtual; + published + property All: Boolean read FAll write FAll default false; + end; + + TJvBaseThreadedDatasetEnhancedOptions = class(TPersistent) + private + FAllowedContinueRecordFetchOptions: + TJvBaseThreadedDatasetAllowedContinueRecordFetchOptions; + FCapitalizeLabelOptions: TJvThreadedDatasetCapitalizeLabelOptions; + FFetchRowsCheck: Integer; + FFetchRowsFirst: Integer; + FRefreshAsOpenClose: Boolean; + FRefreshLastPosition: Boolean; + procedure SetCapitalizeLabelOptions(const Value: TJvThreadedDatasetCapitalizeLabelOptions); + procedure SetFetchRowsCheck(const Value: Integer); + procedure SetFetchRowsFirst(const Value: Integer); + procedure SetRefreshAsOpenClose(Value: Boolean); + procedure SetRefreshLastPosition(const Value: Boolean); + protected + function CreateAllowedContinueRecordFetchOptions: + TJvBaseThreadedDatasetAllowedContinueRecordFetchOptions; virtual; + public + constructor Create; virtual; + destructor Destroy; override; + published + property AllowedContinueRecordFetchOptions: + TJvBaseThreadedDatasetAllowedContinueRecordFetchOptions read + FAllowedContinueRecordFetchOptions write FAllowedContinueRecordFetchOptions; + property CapitalizeLabelOptions: TJvThreadedDatasetCapitalizeLabelOptions read + FCapitalizeLabelOptions write SetCapitalizeLabelOptions; + property FetchRowsCheck: Integer read FFetchRowsCheck write SetFetchRowsCheck + default 2000; + property FetchRowsFirst: Integer read FFetchRowsFirst write SetFetchRowsFirst + default 1000; + property RefreshAsOpenClose: Boolean read FRefreshAsOpenClose + write SetRefreshAsOpenClose default False; + property RefreshLastPosition: Boolean read FRefreshLastPosition + write SetRefreshLastPosition default False; + end; + + TJvDatasetThreadDialogForm = class(TJvCustomThreadDialogForm) + private + FRowsLabel: TControl; + FTimeLabel: TControl; + FRowsStaticText: TWinControl; + FTimeStaticText: TWinControl; + FCancelBtn: TButton; + FCancelButtonPanel: TWinControl; + FRowsPanel: TWinControl; + FTimePanel: TWinControl; + FDialogOptions: TJvThreadedDatasetDialogOptions; + FDynControlEngine: TJvDynControlEngine; + procedure CreateTextPanel(AOwner: TComponent; AParent: TWinControl; + var Panel: TWinControl; var LabelCtrl: TControl; var StaticText: TWinControl; + const BaseName: string); + function GetConnectedDataset: TDataset; + function GetConnectedDatasetHandler: TJvBaseDatasetThreadHandler; + function GetDialogOptions: TJvThreadedDatasetDialogOptions; + procedure SetDialogOptions(const Value: TJvThreadedDatasetDialogOptions); + procedure SetDynControlEngine(const Value: TJvDynControlEngine); + protected + procedure FillDialogData; + procedure UpdateFormContents; override; + public + constructor Create(AOwner: TComponent); override; + procedure CreateFormControls; + procedure TransferDialogOptions; override; + property ConnectedDataset: TDataset read GetConnectedDataset; + property ConnectedDatasetHandler: TJvBaseDatasetThreadHandler read + GetConnectedDatasetHandler; + property DynControlEngine: TJvDynControlEngine read FDynControlEngine write SetDynControlEngine; + published + property DialogOptions: TJvThreadedDatasetDialogOptions read GetDialogOptions write SetDialogOptions; + end; + + TJvDatasetThreadDialog = class(TJvCustomThreadDialog) + private + function GetDialogOptions: TJvThreadedDatasetDialogOptions; + procedure SetDialogOptions(const Value: TJvThreadedDatasetDialogOptions); + protected + function CreateDialogOptions: TJvCustomThreadDialogOptions; override; + public + function CreateThreadDialogForm(ConnectedThread: TJvThread): TJvCustomThreadDialogForm; override; + published + property DialogOptions: TJvThreadedDatasetDialogOptions read GetDialogOptions write SetDialogOptions; + end; + + TJvBaseDatasetThread = class(TJvThread) + private + FConnectedDataset: TDataset; + FConnectedDatasetInterface: IJvThreadedDatasetInterface; + FConnectedDatasetThreadHandler: TJvBaseDatasetThreadHandler; + procedure SetConnectedDataset(const Value: TDataset); + procedure SetConnectedDatasetThreadHandler(const Value: + TJvBaseDatasetThreadHandler); + protected + procedure intAfterCreateDialogForm(DialogForm: TJvCustomThreadDialogForm); override; + property ConnectedDatasetInterface: IJvThreadedDatasetInterface read + FConnectedDatasetInterface; + property ConnectedDataset: TDataset read FConnectedDataset; + public + procedure CancelExecute; override; + property ConnectedDatasetThreadHandler: TJvBaseDatasetThreadHandler read + FConnectedDatasetThreadHandler write SetConnectedDatasetThreadHandler; + end; + + TJvBaseDatasetThreadHandler = class(TComponent) + private + FAfterThreadExecution: TJvThreadedDatasetThreadEvent; + FBeforeThreadExecution: TJvThreadedDatasetThreadEvent; + FCurrentAction: TJvThreadedDatasetAction; + FCurrentFetchDuration: TDateTime; + FCurrentOpenDuration: TDateTime; + FCurrentOperation: TJvThreadedDatasetOperation; + FCurrentOperationStart: TDateTime; + FCurrentRow: Integer; + FDataset: TDataset; + FEnhancedOptions: TJvBaseThreadedDatasetEnhancedOptions; + FErrorMessage: string; + FExecuteThread: TJvBaseDatasetThread; + FFetchMode: TJvThreadedDatasetFetchMode; + FIntDatasetWasFiltered: Boolean; + FIntDatasetFetchAllRecords: Boolean; + FIntRowCheckEnabled: Boolean; + FIThreadedDatasetInterface: IJvThreadedDatasetInterface; + FLastRowChecked: Integer; + FMoveToRecordAfterOpen: Longint; + FOperationWasHandledInThread: Boolean; + FSynchMessageDlgBtn: Word; + FSynchMessageDlgMsg: string; + FThreadDialog: TJvDatasetThreadDialog; + FThreadOptions: TJvThreadedDatasetThreadOptions; + function GetCurrentAction: TJvThreadedDatasetAction; + function GetCurrentFetchDuration: TDateTime; + function GetCurrentOpenDuration: TDateTime; + function GetCurrentOperation: TJvThreadedDatasetOperation; + function GetCurrentOperationAction: string; + function GetDatasetFetchAllRecords: Boolean; + function GetDialogOptions: TJvThreadedDatasetDialogOptions; + function GetFetchMode: TJvThreadedDatasetFetchMode; + procedure HandleAfterOpenRefresh; + procedure SetCurrentAction(const Value: TJvThreadedDatasetAction); + procedure SetCurrentFetchDuration(const Value: TDateTime); + procedure SetCurrentOpenDuration(const Value: TDateTime); + procedure SetDatasetFetchAllRecords(const Value: Boolean); + procedure SetDialogOptions(Value: TJvThreadedDatasetDialogOptions); + procedure SetEnhancedOptions(Value: TJvBaseThreadedDatasetEnhancedOptions); + procedure SetFetchMode(const Value: TJvThreadedDatasetFetchMode); + procedure SetThreadOptions(const Value: TJvThreadedDatasetThreadOptions); + procedure SynchAfterFetchRecord; + procedure SynchAfterThreadExecution; + procedure SynchBeforeThreadExecution; + procedure SynchContinueFetchMessageDlg; + procedure SynchErrorMessageDlg; + property DatasetFetchAllRecords: Boolean read GetDatasetFetchAllRecords write + SetDatasetFetchAllRecords; + property OperationWasHandledInThread: Boolean read FOperationWasHandledInThread + write FOperationWasHandledInThread; + protected + procedure BreakExecution; + function CreateEnhancedOptions: TJvBaseThreadedDatasetEnhancedOptions; virtual; + procedure DoThreadLast; + procedure DoThreadOpen; + procedure DoThreadRefresh; + function ExecuteThreadIsActive: Boolean; + procedure ExecuteThreadSynchronize(Method: TThreadMethod); + procedure HandleAfterOpenRefreshThread; + procedure HandleBeforeOpenRefresh; + procedure IntAfterThreadExecution(DataSet: TDataset; Operation: + TJvThreadedDatasetOperation); + procedure IntBeforeThreadExecution(DataSet: TDataset; Operation: + TJvThreadedDatasetOperation); + procedure IntSynchAfterOpen; + procedure IntSynchAfterRefresh; + procedure IntSynchBeforeOpen; + procedure IntSynchBeforeRefresh; + procedure SetErrorMessage(const Value: string); + function SupportsBreakExecution: Boolean; virtual; + procedure ThreadExecute(Sender: TObject; Params: Pointer); + property CurrentOperation: TJvThreadedDatasetOperation read GetCurrentOperation; + property ExecuteThread: TJvBaseDatasetThread read FExecuteThread; + property FetchMode: TJvThreadedDatasetFetchMode read GetFetchMode write + SetFetchMode; + property IntRowCheckEnabled: Boolean read FIntRowCheckEnabled write + FIntRowCheckEnabled; + property IThreadedDatasetInterface: IJvThreadedDatasetInterface read + FIThreadedDatasetInterface; + property ThreadDialog: TJvDatasetThreadDialog read FThreadDialog; + public + constructor Create(AOwner: TComponent; ADataset: TDataset); reintroduce; + virtual; + destructor Destroy; override; + procedure AfterOpen; + procedure AfterRefresh; + procedure BeforeOpen; + procedure BeforeRefresh; + procedure CapitalizeDatasetLabels; + function CheckContinueRecordFetch: TJvThreadedDatasetContinueCheckResult; + procedure InternalLast; virtual; + procedure InternalRefresh; virtual; + procedure MoveTo(Position: Integer); + procedure SetActive(Value: Boolean); virtual; + function ThreadIsActive: Boolean; + property CurrentAction: TJvThreadedDatasetAction read GetCurrentAction write + SetCurrentAction; + property CurrentFetchDuration: TDateTime read GetCurrentFetchDuration write + SetCurrentFetchDuration; + property CurrentOpenDuration: TDateTime read GetCurrentOpenDuration write + SetCurrentOpenDuration; + property CurrentOperationAction: string read GetCurrentOperationAction; + property CurrentRow: Integer read FCurrentRow; + property Dataset: TDataset read FDataset; + property ErrorMessage: string read FErrorMessage write SetErrorMessage; + published + property DialogOptions: TJvThreadedDatasetDialogOptions read GetDialogOptions + write SetDialogOptions; + property EnhancedOptions: TJvBaseThreadedDatasetEnhancedOptions read + FEnhancedOptions write SetEnhancedOptions; + property ThreadOptions: TJvThreadedDatasetThreadOptions read FThreadOptions write + SetThreadOptions; + property AfterThreadExecution: TJvThreadedDatasetThreadEvent read + FAfterThreadExecution write FAfterThreadExecution; + property BeforeThreadExecution: TJvThreadedDatasetThreadEvent read + FBeforeThreadExecution write FBeforeThreadExecution; + end; + + +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$URL$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} + +implementation + +uses + Dialogs, + JvDynControlEngineIntf, JvDSADialogs, JvResources; + +function TJvDatasetThreadDialog.CreateDialogOptions: TJvCustomThreadDialogOptions; +begin + Result := TJvThreadedDatasetDialogOptions.Create(Self); +end; + +function TJvDatasetThreadDialog.CreateThreadDialogForm(ConnectedThread: TJvThread): TJvCustomThreadDialogForm; +var + ThreadDialogForm: TJvDatasetThreadDialogForm; +begin + if DialogOptions.ShowDialog then + begin + if Assigned(ConnectedThread.Owner) and (ConnectedThread.Owner is TWinControl) then + ThreadDialogForm := TJvDatasetThreadDialogForm.CreateNewFormStyle(ConnectedThread, + DialogOptions.FormStyle, TWinControl(ConnectedThread.Owner)) + else + if Assigned(ConnectedThread.Owner) and Assigned(ConnectedThread.Owner.Owner) and + (ConnectedThread.Owner.Owner is TWinControl) then + ThreadDialogForm := TJvDatasetThreadDialogForm.CreateNewFormStyle(ConnectedThread, + DialogOptions.FormStyle, TWinControl(ConnectedThread.Owner.Owner)) + else + ThreadDialogForm := TJvDatasetThreadDialogForm.CreateNewFormStyle(ConnectedThread, + DialogOptions.FormStyle); + ThreadDialogForm.DialogOptions := DialogOptions; + ThreadDialogForm.CreateFormControls; + Result := ThreadDialogForm; + end + else + Result := nil; +end; + +function TJvDatasetThreadDialog.GetDialogOptions: TJvThreadedDatasetDialogOptions; +begin + Result := TJvThreadedDatasetDialogOptions(inherited DialogOptions); +end; + +procedure TJvDatasetThreadDialog.SetDialogOptions(const Value: TJvThreadedDatasetDialogOptions); +begin + inherited DialogOptions.Assign(Value); +end; + +//=== { TJvDatasetThreadDialogForm } =================================== + +constructor TJvDatasetThreadDialogForm.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + DynControlEngine := nil; + InternalTimerInterval := 100; +end; + +procedure TJvDatasetThreadDialogForm.CreateFormControls; +var + MainPanel: TWinControl; + ITmpPanel: IJvDynControlPanel; + ITmpControl: IJvDynControl; +begin + MainPanel := DynControlEngine.CreatePanelControl(Self, Self, 'MainPanel', '', alClient); + if not Supports(MainPanel, IJvDynControlPanel, ITmpPanel) then + raise EIntfCastError.CreateRes(@RsEIntfCastError); + with ITmpPanel do + ControlSetBorder(bvNone, bvNone, 0, bsNone, 5); + + CreateTextPanel(Self, MainPanel, FTimePanel, FTimeLabel, FTimeStaticText, 'Time'); + if Supports(FTimeLabel, IJvDynControl, ITmpControl) then + ITmpControl.ControlSetCaption(SODSOpenFetch); + CreateTextPanel(Self, MainPanel, FRowsPanel, FRowsLabel, FRowsStaticText, 'Rows'); + if Supports(FRowsLabel, IJvDynControl, ITmpControl) then + ITmpControl.ControlSetCaption(SODSCurrentRecord); + FCancelButtonPanel := DynControlEngine.CreatePanelControl(Self, MainPanel, 'ButtonPanel', '', alTop); + FCancelBtn := DynControlEngine.CreateButton(Self, FCancelButtonPanel, + 'CancelBtn', RsButtonCancelCaption, '', DefaultCancelBtnClick, True, True); + with FCancelBtn do + begin + Anchors := [akTop]; + Top := 2; + FCancelButtonPanel.Height := FCancelBtn.Height + 3; + end; + + BorderIcons := []; + BorderStyle := bsDialog; + if DialogOptions.Caption <> '' then + Caption := DialogOptions.Caption + else + Caption := ' '; + FormStyle := DialogOptions.FormStyle; + OldCreateOrder := False; + {$IFDEF COMPILER7_UP} + Position := poOwnerFormCenter; + {$ELSE} + Position := poScreenCenter; + {$ENDIF COMPILER7_UP} + PixelsPerInch := 96; +end; + +procedure TJvDatasetThreadDialogForm.CreateTextPanel(AOwner: TComponent; + AParent: TWinControl; var Panel: TWinControl; var LabelCtrl: TControl; + var StaticText: TWinControl; const BaseName: string); +var + ITmpPanel: IJvDynControlPanel; + ITmpAutoSize: IJvDynControlAutoSize; + ITmpAlignment: IJvDynControlAlignment; +begin + Panel := DynControlEngine.CreatePanelControl(AOwner, AParent, BaseName + 'Panel', '', alTop); + if not Supports(Panel, IJvDynControlPanel, ITmpPanel) then + raise EIntfCastError.CreateRes(@RsEIntfCastError); + with ITmpPanel do + ControlSetBorder(bvNone, bvNone, 0, bsNone, 3); + LabelCtrl := DynControlEngine.CreateLabelControl(AOwner, Panel, BaseName + 'Label', '', nil); + with LabelCtrl do + begin + Top := 1; + Left := 1; + Width := 90; + end; + StaticText := DynControlEngine.CreateStaticTextControl(AOwner, Panel, BaseName + 'StaticText', ''); + if Supports(StaticText, IJvDynControlAutoSize, ITmpAutoSize) then + ITmpAutoSize.ControlSetAutoSize(False); + if Supports(StaticText, IJvDynControlAlignment, ITmpAlignment) then + ITmpAlignment.ControlSetAlignment(taCenter); + with StaticText do + begin + Top := 1; + Left := 95; + Height := 18; + Panel.Height := Height + 6; + end; +end; + +procedure TJvDatasetThreadDialogForm.FillDialogData; +var + ITmpControl: IJvDynControl; +begin + if Assigned(ConnectedDatasetHandler) then + with ConnectedDatasetHandler do + begin + if DialogOptions.Caption <> '' then + Caption := DialogOptions.Caption +' - '+CurrentOperationAction + else + Caption := CurrentOperationAction; + if Supports(FRowsStaticText, IJvDynControl, ITmpControl) then + ITmpControl.ControlSetCaption(IntToStr(CurrentRow)); + if Supports(FTimeStaticText, IJvDynControl, ITmpControl) then + ITmpControl.ControlSetCaption( + FormatDateTime('hh:nn:ss', CurrentOpenDuration) + ' / ' + + FormatDateTime('hh:nn:ss', CurrentFetchDuration)); + end + else + begin + if DialogOptions.Caption <> '' then + Caption := DialogOptions.Caption +' - ' + else + Caption := ''; + if Supports(FRowsStaticText, IJvDynControl, ITmpControl) then + ITmpControl.ControlSetCaption(IntToStr(0)); + if Supports(FTimeStaticText, IJvDynControl, ITmpControl) then + ITmpControl.ControlSetCaption( + FormatDateTime('hh:nn:ss', 0) + ' / ' + + FormatDateTime('hh:nn:ss', 0)); + end; + FRowsStaticText.Width:= FRowsPanel.Width - FRowsLabel.Width; + FTimeStaticText.Width:= FTimePanel.Width - FTimeLabel.Width; +end; + +function TJvDatasetThreadDialogForm.GetConnectedDataset: TDataset; +begin + if Assigned(ConnectedDatasetHandler) then + Result := ConnectedDatasetHandler.Dataset + else + Result := nil; +end; + +function TJvDatasetThreadDialogForm.GetConnectedDatasetHandler: + TJvBaseDatasetThreadHandler; +begin + if Assigned(ConnectedDataComponent) and (ConnectedDataComponent is TJvBaseDatasetThreadHandler) then + Result := TJvBaseDatasetThreadHandler(ConnectedDataComponent) + else + Result := nil; +end; + +function TJvDatasetThreadDialogForm.GetDialogOptions: TJvThreadedDatasetDialogOptions; +begin + Result := FDialogOptions; +end; + +procedure TJvDatasetThreadDialogForm.SetDialogOptions(const Value: TJvThreadedDatasetDialogOptions); +begin + FDialogOptions := Value; + DynControlEngine := DialogOptions.DynControlEngine; +end; + +procedure TJvDatasetThreadDialogForm.SetDynControlEngine(const Value: TJvDynControlEngine); +begin + if not Assigned(Value) then + FDynControlEngine := DefaultDynControlEngine + else + FDynControlEngine := Value; +end; + +procedure TJvDatasetThreadDialogForm.TransferDialogOptions; +var + H: Integer; +begin + ClientWidth := 220; + FCancelButtonPanel.Visible := DialogOptions.ShowCancelButton; + FCancelBtn.Enabled := DialogOptions.EnableCancelButton; + FCancelBtn.Left := Round((FCancelButtonPanel.Width - FCancelBtn.Width) / 2); + FRowsPanel.Visible := DialogOptions.ShowRowsLabel; + FTimePanel.Visible := DialogOptions.ShowTimeLabel; + H := 10; + if FRowsPanel.Visible then + H := H + FRowsPanel.Height; + if FTimePanel.Visible then + H := H + FTimePanel.Height; + if FCancelButtonPanel.Visible then + H := H + FCancelButtonPanel.Height; + ClientHeight := H; +end; + +procedure TJvDatasetThreadDialogForm.UpdateFormContents; +begin + inherited UpdateFormContents; + FillDialogData; +end; + +//=== { TJvThreadedDatasetDialogOptions } ====================================== +constructor TJvThreadedDatasetDialogOptions.Create(AOwner: TJvCustomThreadDialog); +begin + inherited Create(AOwner); + FEnableCancelButton := True; + FShowCancelButton := True; + FShowRowsLabel := True; + FShowTimeLabel := True; +end; + +destructor TJvThreadedDatasetDialogOptions.Destroy; +begin + inherited Destroy; +end; + +procedure TJvThreadedDatasetDialogOptions.SetCaption(const Value: string); +begin + FCaption := Value; +end; + +procedure TJvThreadedDatasetDialogOptions.SetDynControlEngine(const Value: TJvDynControlEngine); +begin + FDynControlEngine := Value; +end; + +procedure TJvThreadedDatasetDialogOptions.SetEnableCancelButton(const Value: Boolean); +begin + FEnableCancelButton := Value; +end; + +procedure TJvThreadedDatasetDialogOptions.SetFormStyle(const Value: TFormStyle); +begin + FFormStyle := Value; +end; + +procedure TJvThreadedDatasetDialogOptions.SetShowCancelButton(const Value: Boolean); +begin + FShowCancelButton := Value; +end; + +procedure TJvThreadedDatasetDialogOptions.SetShowRowsLabel(const Value: Boolean); +begin + FShowRowsLabel := Value; +end; + +procedure TJvThreadedDatasetDialogOptions.SetShowTimeLabel(const Value: Boolean); +begin + FShowTimeLabel := Value; +end; + +procedure TJvBaseDatasetThread.intAfterCreateDialogForm(DialogForm: TJvCustomThreadDialogForm); +begin + DialogForm.ConnectedDataComponent := ConnectedDatasetThreadHandler; +end; + +procedure TJvBaseDatasetThread.CancelExecute; +begin + if ConnectedDatasetThreadHandler.SupportsBreakExecution then + ConnectedDatasetThreadHandler.BreakExecution + else + inherited CancelExecute; +end; + +procedure TJvBaseDatasetThread.SetConnectedDataset(const Value: TDataset); +begin + FConnectedDataset := Value; + if Assigned(Value) then + if not Supports(Value, IJvThreadedDatasetInterface, FConnectedDatasetInterface) then + raise EIntfCastError.CreateRes(@RsEIntfCastError) + else + else + FConnectedDatasetInterface := nil; + +end; + +procedure TJvBaseDatasetThread.SetConnectedDatasetThreadHandler(const Value: + TJvBaseDatasetThreadHandler); +begin + FConnectedDatasetThreadHandler := Value; + if Assigned(Value) then + SetConnectedDataset (ConnectedDatasetThreadHandler.Dataset) + else + SetConnectedDataset (nil); +end; + +// { TJvThreadedDatasetThreadOptions } ========================================= + +constructor TJvThreadedDatasetThreadOptions.Create; +begin + inherited Create; + FLastInThread := False; + FOpenInThread := False; + FPriority := tpIdle; + FRefreshInThread := False; + FShowExceptionMessage := True; +end; + +//=== { TJvThreadedDatasetEnhancedOptions } ==================================== + +constructor TJvBaseThreadedDatasetEnhancedOptions.Create; +begin + inherited Create; + FRefreshAsOpenClose := False; + FRefreshLastPosition := False; + FCapitalizeLabelOptions := TJvThreadedDatasetCapitalizeLabelOptions.Create; + FAllowedContinueRecordFetchOptions := CreateAllowedContinueRecordFetchOptions; + FFetchRowsCheck := 2000; + FFetchRowsFirst := 1000; +end; + +destructor TJvBaseThreadedDatasetEnhancedOptions.Destroy; +begin + FreeAndNil(FAllowedContinueRecordFetchOptions); + FreeAndNil(FCapitalizeLabelOptions); + inherited Destroy; +end; + +function + TJvBaseThreadedDatasetEnhancedOptions.CreateAllowedContinueRecordFetchOptions: + TJvBaseThreadedDatasetAllowedContinueRecordFetchOptions; +begin + Result := TJvBaseThreadedDatasetAllowedContinueRecordFetchOptions.Create; +end; + +procedure TJvBaseThreadedDatasetEnhancedOptions.SetCapitalizeLabelOptions(const Value: TJvThreadedDatasetCapitalizeLabelOptions); +begin + FCapitalizeLabelOptions.Assign(Value); +end; + +procedure TJvBaseThreadedDatasetEnhancedOptions.SetFetchRowsCheck(const Value: + Integer); +begin + FFetchRowsCheck := Value; +end; + +procedure TJvBaseThreadedDatasetEnhancedOptions.SetFetchRowsFirst(const Value: + Integer); +begin + FFetchRowsFirst := Value; +end; + +procedure TJvBaseThreadedDatasetEnhancedOptions.SetRefreshAsOpenClose(Value: Boolean); +begin + FRefreshAsOpenClose := Value; +end; + +procedure TJvBaseThreadedDatasetEnhancedOptions.SetRefreshLastPosition(const Value: Boolean); +begin + FRefreshLastPosition := Value; +end; + +//=== { TJvThreadedDatasetCapitalizeLabelOptions } ============================= + +constructor TJvThreadedDatasetCapitalizeLabelOptions.Create; +begin + inherited Create; + FAutoExecuteAfterOpen := False; + FTrimToFirstBlank := False; +end; + +constructor TJvBaseDatasetThreadHandler.Create(AOwner: TComponent; ADataset: + TDataset); +begin + inherited Create (AOwner); + FDataset := ADataset; + if not Supports(ADataset, IJvThreadedDatasetInterface, FIThreadedDatasetInterface) then + raise EIntfCastError.CreateRes(@RsEIntfCastError); + + FThreadOptions := TJvThreadedDatasetThreadOptions.Create; + FExecuteThread := TJvBaseDatasetThread.Create(Self); + FThreadDialog := TJvDatasetThreadDialog.Create(Self); + FExecuteThread.Exclusive := True; + FExecuteThread.OnExecute := ThreadExecute; + FExecuteThread.ConnectedDatasetThreadHandler := self; + FExecuteThread.ThreadDialog := ThreadDialog; + FEnhancedOptions := CreateEnhancedOptions; +end; + +destructor TJvBaseDatasetThreadHandler.Destroy; +begin + FreeAndNil(FEnhancedOptions); + FreeAndNil(FThreadDialog); + FreeAndNil(FExecuteThread); + FreeAndNil(FThreadOptions); + inherited Destroy; +end; + +procedure TJvBaseDatasetThreadHandler.AfterOpen; +begin + if not ExecuteThreadIsActive and not OperationWasHandledInThread and (CurrentOperation <> tdoRefresh) then + HandleAfterOpenRefresh; + ExecuteThreadSynchronize(IntSynchAfterOpen); +end; + +procedure TJvBaseDatasetThreadHandler.AfterRefresh; +begin + if not ExecuteThreadIsActive and not OperationWasHandledInThread then + HandleAfterOpenRefresh; + ExecuteThreadSynchronize(IntSynchAfterRefresh); +end; + +procedure TJvBaseDatasetThreadHandler.BeforeOpen; +begin + if (CurrentOperation <> tdoRefresh) then + begin + FMoveToRecordAfterOpen := -1; + HandleBeforeOpenRefresh; + end; + ExecuteThreadSynchronize(IntSynchBeforeOpen); +end; + +procedure TJvBaseDatasetThreadHandler.BeforeRefresh; +begin + if EnhancedOptions.RefreshLastPosition then + FMoveToRecordAfterOpen := Dataset.RecNo + else + FMoveToRecordAfterOpen := -1; + HandleBeforeOpenRefresh; + ExecuteThreadSynchronize(IntSynchBeforeRefresh); +end; + +procedure TJvBaseDatasetThreadHandler.BreakExecution; +begin + IThreadedDatasetInterface.BreakExecution; + if FetchMode = tdfmFetch then + FetchMode := tdfmBreak; + IntRowCheckEnabled := False; +end; + +procedure TJvBaseDatasetThreadHandler.CapitalizeDatasetLabels; +var + I, J: Integer; + S: string; + Upper: Boolean; +begin + With Dataset do + if Active then + for I := 0 to FieldCount - 1 do + begin + S := LowerCase(Fields[I].DisplayLabel); + Upper := True; + for J := 1 to Length(S) do + if S[J] in ['_', '$', ' '] then + begin + Upper := True; + S[J] := ' '; + end + else if Upper then + begin + S[J] := UpCase(S[J]); + Upper := False; + end; + if EnhancedOptions.CapitalizeLabelOptions.TrimToFirstBlank then + begin + J := Pos(' ', S); + if J > 0 then + S := Copy(S, J + 1, Length(S) - J); + end; + Fields[I].DisplayLabel := S; + end; +end; + +function TJvBaseDatasetThreadHandler.CheckContinueRecordFetch: + TJvThreadedDatasetContinueCheckResult; +begin + Result := tdccrContinue; + FCurrentRow := Dataset.RecordCount; + case FetchMode of + tdfmBreak: + begin + Result := tdccrPause; + FetchMode := tdfmFetch; + Exit; + end; + tdfmStop: + begin + Result := tdccrStop; + Exit; + end; + end; + if (EnhancedOptions.FetchRowsCheck > 0) and IntRowCheckEnabled then + if CurrentRow >= FLastRowChecked + EnhancedOptions.FetchRowsCheck then + begin + fCurrentFetchDuration := fCurrentFetchDuration + Now - FCurrentOperationStart; + CurrentAction := tdaNothing; + FLastRowChecked := CurrentRow; + FSynchMessageDlgMsg := Format(SODSRowsFetchedContinue, [CurrentRow]); + ExecuteThreadSynchronize(SynchContinueFetchMessageDlg); + case FSynchMessageDlgBtn of + mrYes: + Result := tdccrContinue; + mrAll: + begin + Result := tdccrContinue; + IntRowCheckEnabled := False; + end; + mrAbort: + Result := tdccrCancel; + mrCancel: + Result := tdccrPause; + mrNo: + Result := tdccrStop; + else + Result := tdccrStop; + end; + CurrentAction := tdaFetch; + FCurrentOperationStart := Now; + end; +end; + +function TJvBaseDatasetThreadHandler.CreateEnhancedOptions: + TJvBaseThreadedDatasetEnhancedOptions; +begin + Result := TJvBaseThreadedDatasetEnhancedOptions.Create; +end; + +procedure TJvBaseDatasetThreadHandler.DoThreadLast; +begin + IThreadedDatasetInterface.doInheritedInternalLast; +end; + +procedure TJvBaseDatasetThreadHandler.DoThreadOpen; +begin + try + IThreadedDatasetInterface.doInheritedSetActive(True); + finally + HandleAfterOpenRefreshThread; + end; +end; + +procedure TJvBaseDatasetThreadHandler.DoThreadRefresh; +begin + try + if not EnhancedOptions.RefreshAsOpenClose then + begin + IThreadedDatasetInterface.doInheritedInternalRefresh; + end + else + begin + Dataset.Close; + IThreadedDatasetInterface.doInternalOpen; + end; + finally + HandleAfterOpenRefreshThread; + end; +end; + +function TJvBaseDatasetThreadHandler.ExecuteThreadIsActive: Boolean; +begin + Result := Not ExecuteThread.Terminated; +end; + +procedure TJvBaseDatasetThreadHandler.ExecuteThreadSynchronize(Method: TThreadMethod); +begin + if ExecuteThreadIsActive then + ExecuteThread.Synchronize(Method) + else + Method; +end; + +function TJvBaseDatasetThreadHandler.GetCurrentAction: TJvThreadedDatasetAction; +begin + Result := FCurrentAction; +end; + +function TJvBaseDatasetThreadHandler.GetCurrentFetchDuration: TDateTime; +begin + case CurrentAction of + tdaOpen: + Result := 0; + tdaNothing: + Result := FCurrentFetchDuration; + tdaFetch: + Result := FCurrentFetchDuration + (Now - FCurrentOperationStart); + else + Result := 0; + end; +end; + +function TJvBaseDatasetThreadHandler.GetCurrentOpenDuration: TDateTime; +begin + if CurrentAction = tdaOpen then + Result := Now - FCurrentOperationStart + else + Result := FCurrentOpenDuration; +end; + +function TJvBaseDatasetThreadHandler.GetCurrentOperation: TJvThreadedDatasetOperation; +begin + Result := FCurrentOperation; +end; + +function TJvBaseDatasetThreadHandler.GetCurrentOperationAction: string; +begin + case CurrentOperation of + tdoOpen: + case CurrentAction of + tdaOpen: + Result := SODSOpenQuery; + tdaFetch: + Result := SODSOpenQueryFetchRecords; + end; + tdoRefresh: + case CurrentAction of + tdaOpen: + Result := SODSRefreshQuery; + tdaFetch: + Result := SODSRefreshQueryFetchRecords; + end; + tdoFetch: + Result := SODSFetchRecords; + tdoLast: + Result := SODSGotoLastFetchRecords; + end; +end; + +function TJvBaseDatasetThreadHandler.GetDatasetFetchAllRecords: Boolean; +begin + if Assigned(IThreadedDatasetInterface) then + Result := IThreadedDatasetInterface.DatasetFetchAllRecords + else + Result := false; +end; + +function TJvBaseDatasetThreadHandler.GetDialogOptions: + TJvThreadedDatasetDialogOptions; +begin + Result := ThreadDialog.DialogOptions; +end; + +function TJvBaseDatasetThreadHandler.GetFetchMode: TJvThreadedDatasetFetchMode; +begin + Result := FFetchMode; +end; + +procedure TJvBaseDatasetThreadHandler.HandleAfterOpenRefresh; +begin + CurrentOpenDuration := Now - FCurrentOperationStart; + FCurrentOperationStart := Now; + DatasetFetchAllRecords := FIntDatasetFetchAllRecords; + CurrentFetchDuration := 0; + CurrentAction := tdaFetch; + if Dataset.Active then + begin + Dataset.First; + if DatasetFetchAllRecords then + IThreadedDatasetInterface.doInheritedInternalLast + else + if (EnhancedOptions.FetchRowsFirst > Dataset.RecordCount) or (FMoveToRecordAfterOpen > Dataset.RecordCount) then + if FMoveToRecordAfterOpen > EnhancedOptions.FetchRowsFirst then + Dataset.MoveBy(FMoveToRecordAfterOpen - 1) + else + Dataset.MoveBy(EnhancedOptions.FetchRowsFirst - 1); + end; + try + Dataset.Filtered := FIntDatasetWasFiltered; + if Dataset.Active then + if FMoveToRecordAfterOpen > 0 then + MoveTo(FMoveToRecordAfterOpen) + else + Dataset.First; + CurrentAction := tdaNothing; + finally + ExecuteThreadSynchronize(Dataset.EnableControls); + end; +end; + +procedure TJvBaseDatasetThreadHandler.HandleAfterOpenRefreshThread; +begin + HandleAfterOpenRefresh; +// if Dataset.Active and Assigned(FAfterOpen) and (CurrentOperation <> tdoRefresh) then +// ExecuteThreadSynchronize(IntSynchAfterOpen); +end; + +procedure TJvBaseDatasetThreadHandler.HandleBeforeOpenRefresh; +begin + OperationWasHandledInThread := False; + ExecuteThreadSynchronize(Dataset.DisableControls); + CurrentOpenDuration := 0; + CurrentFetchDuration := 0; + IntRowCheckEnabled := True; + FCurrentRow := 0; + FCurrentOperationStart := Now; + CurrentAction := tdaOpen; + FIntDatasetFetchAllRecords := DatasetFetchAllRecords; + FIntDatasetWasFiltered := Dataset.Filtered; + FLastRowChecked := 0; + Dataset.Filtered := False; + DatasetFetchAllRecords := False; +end; + +procedure TJvBaseDatasetThreadHandler.IntAfterThreadExecution(DataSet: TDataset; + Operation: TJvThreadedDatasetOperation); +begin + if Assigned(FAfterThreadExecution) then + FAfterThreadExecution(DataSet, Operation); +end; + +procedure TJvBaseDatasetThreadHandler.IntBeforeThreadExecution(DataSet: TDataset; + Operation: TJvThreadedDatasetOperation); +begin + if Assigned(FBeforeThreadExecution) then + FBeforeThreadExecution(DataSet, Operation); +end; + +procedure TJvBaseDatasetThreadHandler.InternalLast; +var + ShowModal :Boolean; +begin + FCurrentOperation := tdoLast; + if not ThreadOptions.LastInThread or ThreadIsActive or (csDesigning in ComponentState) then + begin + IThreadedDatasetInterface.doInheritedInternalLast; + FCurrentOperation := tdoNothing; + end + else + begin + if Assigned(ExecuteThread.ThreadDialog) then + begin + showModal := ExecuteThread.ThreadDialog.DialogOptions.ShowModal; + ExecuteThread.ThreadDialog.DialogOptions.ShowModal := True; + end + else + ShowModal := False; + ExecuteThread.ExecuteWithDialog(nil); + if Assigned(ExecuteThread.ThreadDialog) then + ExecuteThread.ThreadDialog.DialogOptions.ShowModal := showModal; + end; +end; + +procedure TJvBaseDatasetThreadHandler.InternalRefresh; +begin + FCurrentOperation := tdoRefresh; + if not ThreadOptions.RefreshInThread or not IThreadedDatasetInterface.IsThreadAllowed or + ThreadIsActive or (csDesigning in ComponentState) then + begin + IThreadedDatasetInterface.doInheritedInternalRefresh; + FCurrentOperation := tdoNothing; + end + else + ExecuteThread.ExecuteWithDialog(nil); +end; + +procedure TJvBaseDatasetThreadHandler.IntSynchAfterOpen; +begin + if EnhancedOptions.CapitalizeLabelOptions.AutoExecuteAfterOpen then + CapitalizeDatasetLabels; + IThreadedDatasetInterface.DoInheritedAfterOpen; +end; + +procedure TJvBaseDatasetThreadHandler.IntSynchAfterRefresh; +begin + IThreadedDatasetInterface.DoInheritedAfterRefresh; +end; + +procedure TJvBaseDatasetThreadHandler.IntSynchBeforeOpen; +begin + IThreadedDatasetInterface.DoInheritedBeforeOpen; +end; + +procedure TJvBaseDatasetThreadHandler.IntSynchBeforeRefresh; +begin + IThreadedDatasetInterface.DoInheritedBeforeRefresh; +end; + +procedure TJvBaseDatasetThreadHandler.MoveTo(Position: Integer); +begin + Dataset.MoveBy(Position - Dataset.RecNo); +end; + +procedure TJvBaseDatasetThreadHandler.SetActive(Value: Boolean); +begin + if not Value then + begin + CurrentOpenDuration := 0; + CurrentFetchDuration := 0; + IThreadedDatasetInterface.doInheritedSetActive(Value); + end + else + begin + if CurrentOperation <> tdoRefresh then + FCurrentOperation := tdoOpen; + if not ThreadOptions.OpenInThread or ThreadIsActive or (csDesigning in ComponentState) then + begin + IThreadedDatasetInterface.doInheritedSetActive(Value); + if CurrentOperation <> tdoRefresh then + FCurrentOperation := tdoNothing; + end + else + ExecuteThread.ExecuteWithDialog(nil); + end; +end; + +procedure TJvBaseDatasetThreadHandler.SetCurrentAction(const Value: + TJvThreadedDatasetAction); +begin + FCurrentAction := Value; +end; + +procedure TJvBaseDatasetThreadHandler.SetCurrentFetchDuration(const Value: TDateTime); +begin + FCurrentFetchDuration := Value; +end; + +procedure TJvBaseDatasetThreadHandler.SetCurrentOpenDuration(const Value: TDateTime); +begin + FCurrentOpenDuration := Value; +end; + +procedure TJvBaseDatasetThreadHandler.SetDatasetFetchAllRecords(const Value: + Boolean); +begin + if Assigned(IThreadedDatasetInterface) then + IThreadedDatasetInterface.DatasetFetchAllRecords := Value; +end; + +procedure TJvBaseDatasetThreadHandler.SetDialogOptions(Value: + TJvThreadedDatasetDialogOptions); +begin + ThreadDialog.DialogOptions.Assign(Value); +end; + +procedure TJvBaseDatasetThreadHandler.SetEnhancedOptions(Value: + TJvBaseThreadedDatasetEnhancedOptions); +begin + FEnhancedOptions.Assign(Value); +end; + +procedure TJvBaseDatasetThreadHandler.SetErrorMessage(const Value: string); +begin + FErrorMessage := Value; +end; + +procedure TJvBaseDatasetThreadHandler.SetFetchMode(const Value: + TJvThreadedDatasetFetchMode); +begin + FFetchMode := Value; +end; + +procedure TJvBaseDatasetThreadHandler.SetThreadOptions(const Value: + TJvThreadedDatasetThreadOptions); +begin + FThreadOptions.Assign(Value); +end; + +function TJvBaseDatasetThreadHandler.SupportsBreakExecution: Boolean; +begin + Result := True; +end; + +procedure TJvBaseDatasetThreadHandler.SynchAfterFetchRecord; +begin +// if Assigned(FAfterFetchRecord) then +// FAfterFetchRecord(FSynchAfterFetchSender, FSynchAfterFetchFilterAccept, FSynchAfterFetchAction); +end; + +procedure TJvBaseDatasetThreadHandler.SynchAfterThreadExecution; +begin + IntAfterThreadExecution(Dataset, CurrentOperation); +end; + +procedure TJvBaseDatasetThreadHandler.SynchBeforeThreadExecution; +begin + IntBeforeThreadExecution(Dataset, CurrentOperation); +end; + +procedure TJvBaseDatasetThreadHandler.SynchContinueFetchMessageDlg; +var + Buttons: array of string; + Results: array of Integer; + L: Integer; + + procedure AddButton(Caption: string; ResultValue: Integer); + begin + Inc(L); + SetLength (Buttons, L); + SetLength (Results, L); + Buttons[L-1] := Caption; + Results[L-1] := ResultValue; + end; + +begin + L := 0; + AddButton(SODSContinueYes, Integer(mrYes)); + if EnhancedOptions.AllowedContinueRecordFetchOptions.Pause then + AddButton(SODSContinuePause, Integer(mrCancel)); + AddButton(SODSContinueNo, Integer(mrNo)); + if EnhancedOptions.AllowedContinueRecordFetchOptions.All then + AddButton(SODSContinueAll, Integer(mrAll)); + if EnhancedOptions.AllowedContinueRecordFetchOptions.Cancel then + AddButton(SODSContinueClose, Integer(mrAbort)); + FSynchMessageDlgBtn := JvDSADialogs.MessageDlgEx(FSynchMessageDlgMsg, + mtConfirmation, Buttons, Results, 0, dckActiveForm, 0, + 0, 1, -1, DialogOptions.DynControlEngine); +end; + +procedure TJvBaseDatasetThreadHandler.SynchErrorMessageDlg; +begin + FSynchMessageDlgBtn := JvDSADialogs.MessageDlg(FSynchMessageDlgMsg, + mtError, [mbOK], 0, dckScreen, 0, + mbDefault, mbDefault, mbHelp, DialogOptions.DynControlEngine); +end; + +procedure TJvBaseDatasetThreadHandler.ThreadExecute(Sender: TObject; Params: Pointer); +begin + OperationWasHandledInThread := True; + try + SetErrorMessage(''); + ExecuteThreadSynchronize(SynchBeforeThreadExecution); + try + case FCurrentOperation of + tdoOpen: + DoThreadOpen; + tdoRefresh: + DoThreadRefresh; + tdoLast: + DoThreadLast; + end; + except + on E: Exception do + begin + SetErrorMessage(E.Message); + if ThreadOptions.ShowExceptionMessage then + begin + FSynchMessageDlgMsg := E.Message; + ExecuteThreadSynchronize(SynchErrorMessageDlg); + end; + end; + end; + ExecuteThreadSynchronize(SynchAfterThreadExecution); + finally + FCurrentOperation := tdoNothing; + end; +end; + +function TJvBaseDatasetThreadHandler.ThreadIsActive: Boolean; +begin + Result := not ExecuteThread.Terminated; +end; + +constructor TJvBaseThreadedDatasetAllowedContinueRecordFetchOptions.Create; +begin + inherited Create; + FAll := false; + FCancel := false; + FPause := false; +end; + +{$IFDEF UNITVERSIONING} +initialization + RegisterUnitVersion(HInstance, UnitVersioning); + +finalization + UnregisterUnitVersion(HInstance); +{$ENDIF UNITVERSIONING} +end. + Property changes on: trunk/jvcl/run/JvBaseDBThreadedDataset.pas ___________________________________________________________________ Name: svn:mime-type + text/plain Name: svn:keywords + Id LastChangedDate LastChangedBy LastChangedRevision URL Name: svn:eol-style + native Added: trunk/jvcl/run/JvOdacSmartQuery.pas =================================================================== --- trunk/jvcl/run/JvOdacSmartQuery.pas (rev 0) +++ trunk/jvcl/run/JvOdacSmartQuery.pas 2006-09-25 17:57:06 UTC (rev 10946) @@ -0,0 +1,401 @@ +{----------------------------------------------------------------------------- +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: JvOdacSmartQuery.PAS, released on 2002-05-26. + +The Initial Developer of the Original Code is Jens Fudickar +All Rights Reserved. + +Contributor(s): + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Description: + Oracle Dataset with Threaded Functions + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvOdacSmartQuery; + +{$I jvcl.inc} + +interface + +uses + {$IFDEF UNITVERSIONING} + JclUnitVersioning, + {$ENDIF UNITVERSIONING} + SysUtils, Classes, StdCtrls, ExtCtrls, Forms, Controls, + DB, + OraSmart, Ora, + JvThread, JvThreadDialog, JvDynControlEngine, DBaccess, + JvBaseDBThreadedDataset; + +type + + TJvOdacThreadedDatasetAllowedContinueRecordFetchOptions = Class (TJvBaseThreadedDatasetAllowedContinueRecordFetchOptions) + + public + constructor Create; override; + published + property All; + End; + + TJvOdacThreadedDatasetEnhancedOptions = Class(TJvBaseThreadedDatasetEnhancedOptions) + private + function GetAllowedContinueRecordFetchOptions: + TJvOdacThreadedDatasetAllowedContinueRecordFetchOptions; + procedure SetAllowedContinueRecordFetchOptions(const Value: + TJvOdacThreadedDatasetAllowedContinueRecordFetchOptions); + protected + function CreateAllowedContinueRecordFetchOptions: + TJvBaseThreadedDatasetAllowedContinueRecordFetchOptions; override; + published + property AllowedContinueRecordFetchOptions: + TJvOdacThreadedDatasetAllowedContinueRecordFetchOptions read + GetAllowedContinueRecordFetchOptions write + SetAllowedContinueRecordFetchOptions; + End; + + TJvOdacDatasetThreadHandler = Class(TJvBaseDatasetThreadHandler) + protected + function CreateEnhancedOptions: TJvBaseThreadedDatasetEnhancedOptions; override; + End; + + TJvOdacSmartQuery = class(TSmartQuery, IJvThreadedDatasetInterface) + procedure BreakExecution; + procedure DoInheritedAfterOpen; + procedure DoInheritedAfterRefresh; + procedure DoInheritedBeforeOpen; + procedure DoInheritedBeforeRefresh; + procedure doInheritedInternalLast; + procedure doInheritedInternalRefresh; + procedure doInheritedSetActive(Active: Boolean); + procedure doInternalOpen; + function GetDatasetFetchAllRecords: Boolean; + function IsThreadAllowed: Boolean; + procedure SetDatasetFetchAllRecords(const Value: Boolean); + private + FBeforeFetch: TBeforeFetchEvent; + FThreadHandler: TJvBaseDatasetThreadHandler; + function GetBeforeThreadExecution1: TJvThreadedDatasetThreadEvent; + function GetDialogOptions: TJvThreadedDatasetDialogOptions; + function GetEnhancedOptions: TJvOdacThreadedDatasetEnhancedOptions; + function GetThreadOptions: TJvThreadedDatasetThreadOptions; + procedure SetBeforeThreadExecution1(const Value: TJvThreadedDatasetThreadEvent); + procedure SetDialogOptions(Value: TJvThreadedDatasetDialogOptions); + procedure SetEnhancedOptions(const Value: + TJvOdacThreadedDatasetEnhancedOptions); + procedure SetThreadOptions(const Value: TJvThreadedDatasetThreadOptions); + property ThreadHandler: TJvBaseDatasetThreadHandler read FThreadHandler; + protected + procedure DoAfterOpen; override; + procedure DoAfterRefresh; override; + procedure DoBeforeOpen; override; + procedure DoBeforeRefresh; override; + procedure InternalLast; override; + procedure InternalRefresh; override; + procedure ReplaceBeforeFetch(Dataset: TCustomDADataSet; var Cancel: boolean); + procedure SetActive(Value: Boolean); override; + public + constructor Create(AOwner : TComponent); override; + destructor Destroy; override; + function CurrentFetchDuration: TDateTime; + function CurrentOpenDuration: TDateTime; + function ErrorMessage: string; + function ThreadIsActive: Boolean; + published + property BeforeFetch: TBeforeFetchEvent read FBeforeFetch write FBeforeFetch; + property BeforeThreadExecution1: TJvThreadedDatasetThreadEvent read + GetBeforeThreadExecution1 write SetBeforeThreadExecution1; + property DialogOptions: TJvThreadedDatasetDialogOptions read GetDialogOptions + write SetDialogOptions; + property EnhancedOptions: TJvOdacThreadedDatasetEnhancedOptions read + GetEnhancedOptions write SetEnhancedOptions; + property ThreadOptions: TJvThreadedDatasetThreadOptions read GetThreadOptions + write SetThreadOptions; + end; + +{$IFDEF UNITVERSIONING} +const + UnitVersioning: TUnitVersionInfo = ( + RCSfile: '$RCSfile$'; + Revision: '$Revision$'; + Date: '$Date$'; + LogPath: 'JVCL\run' + ); +{$ENDIF UNITVERSIONING} + +implementation + +constructor TJvOdacSmartQuery.Create(AOwner : TComponent); +begin + inherited Create (AOwner); + FThreadHandler := TJvOdacDatasetThreadHandler.Create(Self, Self); + Inherited BeforeFetch := ReplaceBeforeFetch; +end; + +destructor TJvOdacSmartQuery.Destroy; +begin + FreeAndNil(FThreadHandler); + inherited Destroy; +end; + +procedure TJvOdacSmartQuery.BreakExecution; +begin + BreakExec; +end; + +function TJvOdacSmartQuery.CurrentFetchDuration: TDateTime; +begin + if Assigned(ThreadHandler) then + Result := ThreadHandler.CurrentFetchDuration + else + Result := 0; +end; + +function TJvOdacSmartQuery.CurrentOpenDuration: TDateTime; +begin + if Assigned(ThreadHandler) then + Result := ThreadHandler.CurrentOpenDuration + else + Result := 0; +end; + +procedure TJvOdacSmartQuery.DoAfterOpen; +begin + ThreadHandler.AfterOpen; +end; + +procedure TJvOdacSmartQuery.DoAfterRefresh; +begin + ThreadHandler.AfterRefresh; +end; + +procedure TJvOdacSmartQuery.DoBeforeOpen; +begin + ThreadHandler.BeforeOpen; +end; + +procedure TJvOdacSmartQuery.DoBeforeRefresh; +begin + ThreadHandler.BeforeRefresh; +end; + +procedure TJvOdacSmartQuery.DoInheritedAfterOpen; +begin + Inherited DoAfterOpen; +end; + +procedure TJvOdacSmartQuery.DoInheritedAfterRefresh; +begin + Inherited DoAfterRefresh; +end; + +procedure TJvOdacSmartQuery.DoInheritedBeforeOpen; +begin + Inherited DoBeforeOpen; +end; + +procedure TJvOdacSmartQuery.DoInheritedBeforeRefresh; +begin + Inherited DoBeforeRefresh; +end; + +procedure TJvOdacSmartQuery.doInheritedInternalLast; +begin + Inherited InternalLast; +end; + +procedure TJvOdacSmartQuery.doInheritedInternalRefresh; +begin + Inherited InternalRefresh; +end; + +procedure TJvOdacSmartQuery.doInheritedSetActive(Active: Boolean); +begin + Inherited SetActive(Active); +end; + +procedure TJvOdacSmartQuery.doInternalOpen; +begin + InternalOpen; +end; + +function TJvOdacSmartQuery.ErrorMessage: string; +begin + if Assigned(ThreadHandler) then + Result := ThreadHandler.ErrorMessage + else + Result := ''; +end; + +function TJvOdacSmartQuery.GetBeforeThreadExecution1: + TJvThreadedDatasetThreadEvent; +begin + if Assigned(ThreadHandler) then + Result := ThreadHandler.BeforeThreadExecution + else + Result := nil; +end; + +function TJvOdacSmartQuery.GetDatasetFetchAllRecords: Boolean; +begin + Result := FetchAll; +end; + +function TJvOdacSmartQuery.GetDialogOptions: TJvThreadedDatasetDialogOptions; +begin + if Assigned(ThreadHandler) then + Result := ThreadHandler.DialogOptions + else + Result := nil; +end; + +function TJvOdacSmartQuery.GetEnhancedOptions: + TJvOdacThreadedDatasetEnhancedOptions; +begin + if Assigned(ThreadHandler) then + Result := TJvOdacThreadedDatasetEnhancedOptions(ThreadHandler.EnhancedOptions) + else + Result := nil; +end; + +function TJvOdacSmartQuery.GetThreadOptions: TJvThreadedDatasetThreadOptions; +begin + if Assigned(ThreadHandler) then + Result := ThreadHandler.ThreadOptions + else + Result := nil; +end; + +procedure TJvOdacSmartQuery.InternalLast; +begin + if Assigned(ThreadHandler) then + ThreadHandler.InternalLast; +end; + +procedure TJvOdacSmartQuery.InternalRefresh; +begin + if Assigned(ThreadHandler) then + ThreadHandler.InternalRefresh; +end; + +function TJvOdacSmartQuery.IsThreadAllowed: Boolean; +begin + if Assigned(MasterSource) and Assigned(MasterSource.Dataset) and (MasterSource.Dataset is TJvOdacSmartQuery) then + Result := not TJvOdacSmartQuery(MasterSource.Dataset).ThreadHandler.ThreadIsActive + else + Result := True; +end; + +procedure TJvOdacSmartQuery.ReplaceBeforeFetch(Dataset: TCustomDADataSet; var + Cancel: boolean); +begin + if Assigned(ThreadHandler) then + Cancel := ThreadHandler.CheckContinueRecordFetch <> tdccrContinue; + if Assigned(BeforeFetch) then + BeforeFetch(Dataset, Cancel); +end; + +procedure TJvOdacSmartQuery.SetActive(Value: Boolean); +begin + if Assigned(ThreadHandler) then + ThreadHandler.SetActive(Value); +end; + +procedure TJvOdacSmartQuery.SetBeforeThreadExecution1(const Value: + TJvThreadedDatasetThreadEvent); +begin + if Assigned(ThreadHandler) then + ThreadHandler.BeforeThreadExecution := Value; +end; + +procedure TJvOdacSmartQuery.SetDatasetFetchAllRecords(const Value: Boolean); +begin + FetchAll := Value; +end; + +procedure TJvOdacSmartQuery.SetDialogOptions(Value: + TJvThreadedDatasetDialogOptions); +begin + if Assigned(ThreadHandler) then + ThreadHandler.DialogOptions.Assign(Value); +end; + +procedure TJvOdacSmartQuery.SetEnhancedOptions(const Value: + TJvOdacThreadedDatasetEnhancedOptions); +begin + if Assigned(ThreadHandler) then + ThreadHandler.EnhancedOptions.Assign(Value); +end; + +procedure TJvOdacSmartQuery.SetThreadOptions(const Value: + TJvThreadedDatasetThreadOptions); +begin + if Assigned(ThreadHandler) then + ThreadHandler.ThreadOptions.Assign(Value); +end; + +function TJvOdacSmartQuery.ThreadIsActive: Boolean; +begin + if Assigned(ThreadHandler) then + Result := ThreadHandler.ThreadIsActive + else + Result := False; +end; + +function TJvOdacDatasetThreadHandler.CreateEnhancedOptions: + TJvBaseThr... [truncated message content] |
From: <ah...@us...> - 2006-10-28 17:33:30
|
Revision: 10997 http://svn.sourceforge.net/jvcl/?rev=10997&view=rev Author: ahuser Date: 2006-10-28 10:33:02 -0700 (Sat, 28 Oct 2006) Log Message: ----------- - Added map to jdbg file compression - JVCL Installer can now compile with JCL units (dcc32ex.exe change) - Added missing property fix for BDS 2006's ExplicitXxxx properties Modified Paths: -------------- trunk/jvcl/install/JVCLInstall/Compile.pas trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.dfm trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.pas trunk/jvcl/install/JVCLInstall/InstallerConsts.pas trunk/jvcl/install/JVCLInstall/Intf.pas trunk/jvcl/install/JVCLInstall/JVCLData.pas trunk/jvcl/install/JVCLInstall/JVCLInstall.dpr trunk/jvcl/install.bat Added Paths: ----------- trunk/jvcl/install/JVCLInstall/MissingPropertyFix.pas Removed Paths: ------------- trunk/jvcl/install/JVCLInstall/Compiler5MissingPropertyFix.pas Modified: trunk/jvcl/install/JVCLInstall/Compile.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Compile.pas 2006-10-28 17:17:50 UTC (rev 10996) +++ trunk/jvcl/install/JVCLInstall/Compile.pas 2006-10-28 17:33:02 UTC (rev 10997) @@ -1619,7 +1619,7 @@ // ***************************************************************** {**}DoProjectProgress(RsPostCompilationOperations + DebugProgress, GetProjectIndex, ProjectMaxProgress); - if TargetConfig.GenerateMapFiles and TargetConfig.LinkMapFiles then + if TargetConfig.GenerateMapFiles and (TargetConfig.LinkMapFiles or TargetConfig.CreateJdbgFiles) then begin CaptureLine(sLinkingMapFiles, FAborted); for i := 0 to ProjectGroup.Count - 1 do @@ -1685,7 +1685,7 @@ begin CaptureLine(Format('Linking %s inside %s', [ExtractFileName(MapFileName), ExtractFileName(BplFileName)]), FAborted); - if not TargetConfig.LinkMapFile(BplFileName, MapFileName, + if TargetConfig.LinkMapFiles and not TargetConfig.LinkMapFile(BplFileName, MapFileName, MapFileSize, JclDebugDataSize) then begin CaptureLine(Format('Error: Unable to link %s', [ExtractFileName(MapFileName)]), FAborted); @@ -1693,6 +1693,13 @@ Exit; end; + if TargetConfig.CreateJdbgFiles and not TargetConfig.CompressMapFileToJdbg(MapFileName) then + begin + CaptureLine(Format('Error: Unable to link %s', [ExtractFileName(MapFileName)]), FAborted); + AbortReason := RsErrorLinkingMapFiles; + Exit; + end; + if TargetConfig.DeleteMapFiles then begin CaptureLine(Format('Deleting file %s', [ExtractFileName(MapFileName)]), FAborted); Deleted: trunk/jvcl/install/JVCLInstall/Compiler5MissingPropertyFix.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Compiler5MissingPropertyFix.pas 2006-10-28 17:17:50 UTC (rev 10996) +++ trunk/jvcl/install/JVCLInstall/Compiler5MissingPropertyFix.pas 2006-10-28 17:33:02 UTC (rev 10997) @@ -1,171 +0,0 @@ -{----------------------------------------------------------------------------- -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: Compiler5MissingPropertyFix.pas, released on 2004-03-31. - -The Initial Developer of the Original Code is Andreas Hausladen -(Andreas dott Hausladen att gmx dott de) -Portions created by Andreas Hausladen are Copyright (C) 2004 Andreas Hausladen. -All Rights Reserved. - -Contributor(s): - - -You may retrieve the latest version of this file at the Project JEDI's JVCL -home page, located at http://jvcl.sourceforge.net - -Known Issues: ------------------------------------------------------------------------------} -// $Id$ - -unit Compiler5MissingPropertyFix; - -{$I jvcl.inc} - -interface - -uses - Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Buttons; - -implementation - -{$IFNDEF COMPILER7_UP} - -type - TNativeBitBtn = class(TBitBtn) - protected - procedure CreateParams(var Params: TCreateParams); override; - end; - -type - TOpenButton = class(TButton); - TOpenBitBtn = class(TBitBtn); - -procedure TNativeBitBtn.CreateParams(var Params: TCreateParams); -var - p: procedure(Instance: TObject; var Params: TCreateParams); -begin - p := @TOpenButton.CreateParams; - p(Self, Params); -end; - -procedure HookBitBtn; -type - TJump = packed record - Jmp: Byte; // $E9; - Offset: Integer; - end; -var - Jump: TJump; - DestP, OldP: Pointer; - OldProt, Dummy: Cardinal; -begin - if IsLibrary then - raise Exception.Create('Not allowed in a DLL'); - Jump.Jmp := $E9; - - DestP := @TNativeBitBtn.CreateParams; - OldP := @TOpenBitBtn.CreateParams; - Jump.Offset := Integer(DestP) - Integer(OldP) - SizeOf(TJump); - if VirtualProtect(OldP, SizeOf(TJump), PAGE_EXECUTE_READWRITE, @OldProt) then - begin - Move(Jump, OldP^, SizeOf(TJump)); - VirtualProtect(OldP, SizeOf(TJump), OldProt, Dummy); - end; -end; - -{$ENDIF !COMPILER7_UP} - -{$IFDEF COMPILER5} - -type - TCompiler5MissingPropertyFix = class(TReader) - private - FPropDefined: Boolean; - protected - procedure DefineProperty(const Name: string; - ReadData: TReaderProc; WriteData: TWriterProc; - HasData: Boolean); override; - protected - procedure ReadWinControlDesignSize(Reader: TReader); - procedure DefineProperties(Filer: TFiler); - end; - -procedure TCompiler5MissingPropertyFix.ReadWinControlDesignSize(Reader: TReader); -begin - Reader.ReadListBegin; - Reader.ReadInteger; - Reader.ReadInteger; - Reader.ReadListEnd; -end; - -procedure TCompiler5MissingPropertyFix.DefineProperties(Filer: TFiler); -begin - if Root is TWinControl then - Filer.DefineProperty('DesignSize', ReadWinControlDesignSize, nil, False); -end; - -procedure TCompiler5MissingPropertyFix.DefineProperty(const Name: string; - ReadData: TReaderProc; WriteData: TWriterProc; - HasData: Boolean); -begin - if not FPropDefined then - begin - FPropDefined := True; - try - DefineProperties(Self); - finally - FPropDefined := False; - end; - end; - inherited DefineProperty(Name, ReadData, WriteData, HasData); -end; - - -function NewInstanceHook(ReaderClass: TClass): TObject; -begin - Result := TCompiler5MissingPropertyFix.NewInstance; -end; - -type - PVmt = ^TVmt; - TVmt = array[0..MaxWord - 1] of Pointer; - -{$R-} -procedure ReplaceVmtField(Vmt: PVmt; VmtOffset: Integer; Value: Pointer); -var - Index: Integer; - OldProt, Dummy: Cardinal; -begin - Index := VmtOffset div SizeOf(Pointer); - if VirtualProtect(@vmt[Index], SizeOf(Pointer), PAGE_EXECUTE_READWRITE, @OldProt) then - begin - Vmt[Index] := Value; - VirtualProtect(@Vmt[Index], SizeOf(Pointer), OldProt, Dummy); - end; -end; -{$R+} - -procedure ReplaceDefineProperty; -begin - ReplaceVmtField(PVmt(TReader), vmtNewInstance, @NewInstanceHook); -end; - -{$ENDIF COMPILER5} - -initialization -{$IFDEF COMPILER5} - ReplaceDefineProperty; -{$ENDIF COMPILER5} - -{$IFNDEF COMPILER7_UP} - HookBitBtn; -{$ENDIF !COMPILER7_UP} - -end. Modified: trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.dfm =================================================================== --- trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.dfm 2006-10-28 17:17:50 UTC (rev 10996) +++ trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.dfm 2006-10-28 17:33:02 UTC (rev 10997) @@ -49,9 +49,9 @@ end object GroupBoxJvclInc: TGroupBox Left = 279 - Top = 33 + Top = 31 Width = 234 - Height = 160 + Height = 157 Caption = ' JVCL Options ' TabOrder = 1 object CheckBoxXPTheming: TCheckBox @@ -77,7 +77,7 @@ end object CheckBoxRegisterGlobalDesignEditors: TCheckBox Left = 8 - Top = 40 + Top = 39 Width = 223 Height = 17 Hint = @@ -91,7 +91,7 @@ end object CheckBoxDxgettextSupport: TCheckBox Left = 8 - Top = 64 + Top = 62 Width = 223 Height = 17 Hint = @@ -108,7 +108,7 @@ end object CheckBoxRegisterJvGif: TCheckBox Left = 8 - Top = 88 + Top = 85 Width = 223 Height = 17 Hint = @@ -122,7 +122,7 @@ end object CheckBoxUseJVCL: TCheckBox Left = 8 - Top = 112 + Top = 108 Width = 223 Height = 17 Hint = @@ -136,7 +136,7 @@ end object CheckBoxUnitVersioning: TCheckBox Left = 8 - Top = 136 + Top = 131 Width = 223 Height = 17 Hint = @@ -159,7 +159,7 @@ TabOrder = 0 object CheckBoxDeveloperInstall: TCheckBox Left = 8 - Top = 88 + Top = 85 Width = 254 Height = 17 Hint = @@ -175,7 +175,7 @@ end object CheckBoxCleanPalettes: TCheckBox Left = 24 - Top = 64 + Top = 59 Width = 238 Height = 17 Hint = @@ -206,7 +206,7 @@ end object CheckBoxIDERegister: TCheckBox Left = 8 - Top = 40 + Top = 39 Width = 254 Height = 17 Hint = @@ -224,7 +224,7 @@ Top = 203 Width = 261 Height = 49 - TabOrder = 8 + TabOrder = 9 TabStop = True Visible = False inherited LblCaption: TLabel @@ -233,7 +233,7 @@ Caption = 'BP&L Directory:' end inherited Bevel: TBevel - Width = 309 + Width = 261 Visible = False end inherited EditDirectory: TEdit @@ -250,16 +250,16 @@ Top = 251 Width = 261 Height = 49 - TabOrder = 9 + TabOrder = 10 TabStop = True Visible = False inherited LblCaption: TLabel Left = 7 - Width = 70 + Width = 71 Caption = '&DCP Directory:' end inherited Bevel: TBevel - Width = 309 + Width = 261 Visible = False end inherited EditDirectory: TEdit @@ -275,7 +275,7 @@ Top = 307 Width = 261 Height = 49 - TabOrder = 10 + TabOrder = 11 TabStop = True Visible = False inherited LblCaption: TLabel @@ -285,7 +285,7 @@ ParentShowHint = False end inherited Bevel: TBevel - Width = 309 + Width = 261 Visible = False end inherited EditDirectory: TEdit @@ -303,7 +303,7 @@ end object CheckBoxGenerateMapFiles: TCheckBox Left = 8 - Top = 138 + Top = 131 Width = 254 Height = 17 Hint = @@ -320,7 +320,7 @@ end object CheckBoxDebugUnits: TCheckBox Left = 24 - Top = 112 + Top = 105 Width = 238 Height = 17 Hint = @@ -336,36 +336,53 @@ end object CheckBoxLinkMapFiles: TCheckBox Left = 24 - Top = 161 + Top = 151 Width = 238 Height = 17 Hint = 'Activate this option if the installer should link detailled'#13#10'map' + - ' informations as a resource of the binary it is describing.'#13#10#13#10'T' + - 'he redistribution of the binary and Map file is'#13#10'simplified to t' + - 'he redistribution of the binary.'#13#10#13#10'JclDebug can use these infor' + - 'mations.' + ' information as a resource of the binary it is describing.'#13#10#13#10'Th' + + 'e redistribution of the binary and Map file is'#13#10'simplified to th' + + 'e redistribution of the binary.'#13#10#13#10'JclDebug can use these inform' + + 'ation.' Caption = '&Link Map files in binaries' + ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = CheckBoxDeveloperInstallClick end object CheckBoxDeleteMapFiles: TCheckBox - Left = 40 - Top = 183 - Width = 222 + Left = 24 + Top = 185 + Width = 201 Height = 17 Hint = 'Activate this option if the installer should delete'#13#10'detailed ma' + - 'p-file after they are linked in the binary.' - Caption = '&Delete after linking' + 'p-files after they are linked in the binary'#13#10'or the jdbg files w' + + 'ere created.' + Caption = '&Delete after linking/compression' + ParentShowHint = False ShowHint = True - TabOrder = 7 + TabOrder = 8 OnClick = CheckBoxDeveloperInstallClick end + object CheckBoxCreateJdbgFiles: TCheckBox + Left = 24 + Top = 168 + Width = 238 + Height = 17 + Hint = + 'Activate this option if the installer should compress detailled'#13 + + #10'map information to jdbg files.'#13#10#13#10'JclDebug can use these inform' + + 'ation.' + Caption = 'Compress Map files to .jdbg' + ParentShowHint = False + ShowHint = True + TabOrder = 7 + end end object CheckBoxVerbose: TCheckBox - Left = 287 + Left = 279 Top = 199 Width = 223 Height = 17 @@ -379,7 +396,7 @@ OnClick = CheckBoxCompileJclDcpClick end object CheckBoxIgnoreMakeErrors: TCheckBox - Left = 287 + Left = 279 Top = 222 Width = 223 Height = 17 @@ -425,7 +442,7 @@ object LblOptionsFor: TLabel Left = 8 Top = 4 - Width = 54 + Width = 58 Height = 13 Caption = '&Options for:' FocusControl = ComboBoxTargetIDE @@ -436,7 +453,7 @@ Top = 260 Width = 220 Height = 17 - Caption = 'Add BPL Directory to PATH' + Caption = 'Add BPL directory to PATH' TabOrder = 4 Visible = False OnClick = CheckBoxDeveloperInstallClick Modified: trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.pas 2006-10-28 17:17:50 UTC (rev 10996) +++ trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.pas 2006-10-28 17:33:02 UTC (rev 10997) @@ -68,6 +68,7 @@ CheckBoxDeleteMapFiles: TCheckBox; LblEnvPathWarning: TLabel; CheckBoxAddBplDirToPath: TCheckBox; + CheckBoxCreateJdbgFiles: TCheckBox; procedure FrameDirEditBrowseBPLEditDirectoryChange(Sender: TObject); procedure CheckBoxDeveloperInstallClick(Sender: TObject); procedure CheckBoxXPThemingClick(Sender: TObject); @@ -215,7 +216,9 @@ CheckBoxDebugUnits.Enabled := not CheckBoxDeveloperInstall.Checked; CheckBoxCleanPalettes.Enabled := CheckBoxIDERegister.Checked; CheckBoxLinkMapFiles.Enabled := CheckBoxGenerateMapFiles.Checked; - CheckBoxDeleteMapFiles.Enabled := CheckBoxLinkMapFiles.Checked and CheckBoxGenerateMapFiles.Checked; + CheckBoxCreateJdbgFiles.Enabled := CheckBoxGenerateMapFiles.Checked; + CheckBoxDeleteMapFiles.Enabled := CheckBoxGenerateMapFiles.Checked and + (CheckBoxLinkMapFiles.Checked or CheckBoxCreateJdbgFiles.Checked); if ComboBoxTargetIDE.ItemIndex <= 0 then begin @@ -233,6 +236,8 @@ Installer.Data.GenerateMapFiles := Integer(CheckBoxGenerateMapFiles.Checked) else if Sender = CheckBoxLinkMapFiles then Installer.Data.LinkMapFiles := Integer(CheckBoxLinkMapFiles.Checked) + else if Sender = CheckBoxCreateJdbgFiles then + Installer.Data.CreateJdbgFiles := Integer(CheckBoxCreateJdbgFiles.Checked) else if Sender = CheckBoxDeleteMapFiles then Installer.Data.DeleteMapFiles := Integer(CheckBoxDeleteMapFiles.Checked) ; @@ -254,6 +259,8 @@ TargetConfig.GenerateMapFiles := CheckBoxGenerateMapFiles.Checked else if Sender = CheckBoxLinkMapFiles then TargetConfig.LinkMapFiles := CheckBoxLinkMapFiles.Checked + else if Sender = CheckBoxCreateJdbgFiles then + TargetConfig.CreateJdbgFiles := CheckBoxCreateJdbgFiles.Checked else if Sender = CheckBoxDeleteMapFiles then TargetConfig.DeleteMapFiles := CheckBoxDeleteMapFiles.Checked else if Sender = CheckBoxAddBplDirToPath then // only for SelTargetConfig @@ -409,6 +416,7 @@ end; CheckBoxGenerateMapFiles.State := TCheckBoxState(Installer.Data.GenerateMapFiles); CheckBoxLinkMapFiles.State := TCheckBoxState(Installer.Data.LinkMapFiles); + CheckBoxCreateJdbgFiles.State := TCheckBoxState(Installer.Data.CreateJdbgFiles); CheckBoxDeleteMapFiles.State := TCheckBoxState(Installer.Data.DeleteMapFiles); CheckBoxDebugUnits.State := TCheckBoxState(Installer.Data.DebugUnits); @@ -429,6 +437,7 @@ CheckBoxIDERegister.Checked := not TargetConfig.CompileOnly; CheckBoxGenerateMapFiles.Checked := TargetConfig.GenerateMapFiles; CheckBoxLinkMapFiles.Checked := TargetConfig.LinkMapFiles; + CheckBoxCreateJdbgFiles.Checked := TargetConfig.CreateJdbgFiles; CheckBoxDeleteMapFiles.Checked := TargetConfig.DeleteMapFiles; FrameDirEditBrowseBPL.EditDirectory.Text := TargetConfig.BplDir; Modified: trunk/jvcl/install/JVCLInstall/InstallerConsts.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/InstallerConsts.pas 2006-10-28 17:17:50 UTC (rev 10996) +++ trunk/jvcl/install/JVCLInstall/InstallerConsts.pas 2006-10-28 17:33:02 UTC (rev 10997) @@ -28,8 +28,14 @@ interface -resourcestring +const + // sJVCLMacroXxx are displayed in the Summary page. They are not used by code. + sJVCLMacroCommonDir = '$(JVCL)\common'; // do not localize + sJVCLMacroRunDir = '$(JVCL)\run'; // do not localize + sJVCLMacroResourcesDir = '$(JVCL)\Resources'; // do not localize + sJVCLMacroClxDirs = '$(JVCL)\qcommon;$(JVCL)\qrun;$(JVCL)\Resources'; // do not localize +resourcestring // JVCL3Install.pas SWelcomeText = 'The JEDI Visual Component Library (JVCL) consists of a huge collection (currently ca. 500)'#10 + @@ -141,19 +147,7 @@ RsJVCLDirsFromPathLists = 'JVCL directories from path lists'; RsJVCLPackages = 'JVCL 3 packages'; RsJVCLFiles = 'JVCL 3 files'; - - RsMissingJCLForDelphi = - 'JCL is not installed for %s. Please install the JCL before installing the JVCL.'#10 + - 'JCLD%d0.bpl not found in %s'; - -const - // sJVCLMacroXxx are displayed in the Summary page. They are not used by code. - sJVCLMacroCommonDir = '$(JVCL)\common'; // do not localize - sJVCLMacroRunDir = '$(JVCL)\run'; // do not localize - sJVCLMacroResourcesDir = '$(JVCL)\Resources'; // do not localize - sJVCLMacroClxDirs = '$(JVCL)\qcommon;$(JVCL)\qrun;$(JVCL)\Resources'; // do not localize - - + // PgConfig.pas resourcestring RsConfigPageTitle = 'Configuration'; Modified: trunk/jvcl/install/JVCLInstall/Intf.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Intf.pas 2006-10-28 17:17:50 UTC (rev 10996) +++ trunk/jvcl/install/JVCLInstall/Intf.pas 2006-10-28 17:33:02 UTC (rev 10997) @@ -64,9 +64,11 @@ function GetInstance: TObject; // returns the TTargetConfig instance - function GetBpgFilename(ForcePersonal: Boolean; Kind: TPackageGroupKind): string; function LinkMapFile(const BinaryFileName, MapFileName: string; var MapFileSize, JclDebugDataSize: Integer): Boolean; + function CompressMapFileToJdbg(const MapFileName: string): Boolean; + + function GetBpgFilename(ForcePersonal: Boolean; Kind: TPackageGroupKind): string; function VersionedJclDcp(const Name: string): string; function VersionedJclBpl(const Name: string): string; function VersionedJVCLXmlDcp(const Name: string): string; @@ -87,6 +89,7 @@ function GetGenerateMapFiles: Boolean; function GetLinkMapfiles: Boolean; function GetDeleteMapFiles: Boolean; + function GetCreateJdbgFiles: Boolean; function GetCleanPalettes: Boolean; function GetAddBplDirToPath: Boolean; @@ -125,6 +128,7 @@ property DeveloperInstall: Boolean read GetDeveloperInstall; property GenerateMapFiles: Boolean read GetGenerateMapFiles; property LinkMapFiles: Boolean read GetLinkMapFiles; + property CreateJdbgFiles: Boolean read GetCreateJdbgFiles; property DeleteMapFiles: Boolean read GetDeleteMapFiles; property CleanPalettes: Boolean read GetCleanPalettes; property AddBplDirToPath: Boolean read GetAddBplDirToPath; Modified: trunk/jvcl/install/JVCLInstall/JVCLData.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/JVCLData.pas 2006-10-28 17:17:50 UTC (rev 10996) +++ trunk/jvcl/install/JVCLInstall/JVCLData.pas 2006-10-28 17:33:02 UTC (rev 10997) @@ -33,7 +33,8 @@ uses Windows, Registry, SysUtils, Classes, Contnrs, JVCLConfiguration, DelphiData, PackageUtils, Intf, GenerateUtils, - IniFiles, JCLData, JVCLVer; + IniFiles, JCLData, JVCLVer, + JclDebug; const sPackageGeneratorFile = 'devtools\bin\pgEdit.xml'; @@ -82,6 +83,7 @@ FFrameworks: TFrameworks; FGenerateMapFiles: Boolean; FLinkMapFiles: Boolean; + FCreateJdbgFiles: Boolean; FDeleteMapFiles: Boolean; FJVCLConfig: TJVCLConfig; @@ -91,6 +93,7 @@ function GetDeveloperInstall: Boolean; function GetGenerateMapFiles: Boolean; function GetLinkMapFiles: Boolean; + function GetCreateJdbgFiles: Boolean; function GetDeleteMapFiles: Boolean; function GetCleanPalettes: Boolean; function GetJVCLConfig: TJVCLConfig; @@ -192,6 +195,9 @@ var MapFileSize, JclDebugDataSize: Integer): Boolean; // link the map file in the binary file + function CompressMapFileToJdbg(const MapFileName: string): Boolean; + // compresses the map file to a jdbg file + property TargetSymbol: string read GetTargetSymbol; // TargetSymbol returns the symbol that is used in the xml files for this // target. @@ -260,12 +266,14 @@ // if GenerateMapFiles is True the compiler generates .map files for each package property LinkMapFiles: Boolean read GetLinkMapFiles write FLinkMapFiles; - // if LinkMapFiles is True the compiler link the map file as a resource of the binary - // this is JCL debug data + // if LinkMapFiles is True the the map files are linked as a resource of the binary + property CreateJdbgFiles: Boolean read GetCreateJdbgFiles write FCreateJdbgFiles; + // if CreateJdbgFiles is True the map files will be compressed to jdbg files + property DeleteMapFiles: Boolean read GetDeleteMapFiles write FDeleteMapFiles; - // if DeleteMapFiles is True the compiler delete the map files after they - // were linked in the binaries + // if DeleteMapFiles is True the the map files are deleted after they + // were linked in the binaries or compressed to jdbg files property Build: Boolean read GetBuild write FBuild; // if Build is True the packages are built instead of make. @@ -320,29 +328,13 @@ function GetTargetConfig(Index: Integer): TTargetConfig; function GetJVCLDir: string; - function GetCleanPalettes: Integer; - procedure SetCleanPalettes(Value: Integer); - function GetDeveloperInstall: Integer; - procedure SetDeveloperInstall(Value: Integer); function GetJVCLPackagesDir: string; function GetJVCLPackagesXmlDir: string; - function GetBuild: Integer; - procedure SetBuild(Value: Integer); - function GetCompileOnly: Integer; - procedure SetCompileOnly(const Value: Integer); function GetOptionState(Index: Integer): Integer; - function GetGenerateMapFiles: Integer; - procedure SetGenerateMapFiles(const Value: Integer); - function GetLinkMapFiles: Integer; - procedure SetLinkMapFiles(const Value: Integer); - function GetDeleteMapFiles: Integer; - procedure SetDeleteMapFiles(const Value: Integer); - function GetDebugUnits: Integer; - procedure SetDebugUnits(const Value: Integer); + procedure SetOptionState(Index: Integer; const Value: Integer); protected function JvclIncFilename: string; procedure Init; virtual; - procedure LoadLinkMapFileLibrary; public constructor Create; destructor Destroy; override; @@ -354,6 +346,7 @@ function IsJVCLInstalledAnywhere(MinVersion: Integer): Boolean; function LinkMapFile(const BinaryFileName, MapFileName: string; var MapFileSize, JclDebugDataSize: Integer): Boolean; + function CompressMapFileToJdbg(const MapFileName: string): Boolean; property DxgettextDir: string read FDxgettextDir; property IsDxgettextInstalled: Boolean read FIsDxgettextInstalled; @@ -362,14 +355,15 @@ property JVCLPackagesDir: string read GetJVCLPackagesDir; property JVCLPackagesXmlDir: string read GetJVCLPackagesXmlDir; - property DeveloperInstall: Integer read GetDeveloperInstall write SetDeveloperInstall; - property DebugUnits: Integer read GetDebugUnits write SetDebugUnits; - property CleanPalettes: Integer read GetCleanPalettes write SetCleanPalettes; - property Build: Integer read GetBuild write SetBuild; - property CompileOnly: Integer read GetCompileOnly write SetCompileOnly; - property GenerateMapFiles: Integer read GetGenerateMapFiles write SetGenerateMapFiles; - property LinkMapFiles: Integer read GetLinkMapFiles write SetLinkMapFiles; - property DeleteMapFiles: Integer read GetDeleteMapFiles write SetDeleteMapFiles; + property DeveloperInstall: Integer index 3 read GetOptionState write SetOptionState; + property DebugUnits: Integer index 4 read GetOptionState write SetOptionState; + property CleanPalettes: Integer index 1 read GetOptionState write SetOptionState; + property Build: Integer index 0 read GetOptionState write SetOptionState; + property CompileOnly: Integer index 2 read GetOptionState write SetOptionState; + property GenerateMapFiles: Integer index 5 read GetOptionState write SetOptionState; + property LinkMapFiles: Integer index 6 read GetOptionState write SetOptionState; + property CreateJdbgFiles: Integer index 8 read GetOptionState write SetOptionState; + property DeleteMapFiles: Integer index 7 read GetOptionState write SetOptionState; property DeleteFilesOnUninstall: Boolean read FDeleteFilesOnUninstall write FDeleteFilesOnUninstall default True; property Verbose: Boolean read FVerbose write FVerbose default False; @@ -394,7 +388,6 @@ RsUnregisteringPackages = 'Unregistering packages...'; RsDeletingFiles = 'Deleting files...'; RsComplete = 'Complete.'; - JclLinkMapFileExportName = '@Jcldebug@InsertDebugDataIntoExecutableFile$qqrpct1rit3'; function ReadRegString(RootKey: HKEY; const Key, Name: string): string; var @@ -464,48 +457,6 @@ inherited Destroy; end; -procedure TJVCLData.LoadLinkMapFileLibrary; -var - I: Integer; - Filename: string; - PackageLoad: procedure; -begin - if FJclLibrary <> Cardinal(-1) then - Exit; - - FJclLibrary := 0; - FJclLinkMapFile := nil; - for I := FTargets.Count - 1 downto 0 do - begin - //repeat - //Filename := 'Jcl' + IntToStr(Trunc(CompilerVersion) - 8) + '0.bpl'; - Filename := TargetConfig[I].VersionedJclBpl('Jcl.bpl'); - FJclLibrary := LoadLibrary(PChar(Filename)); - if FJclLibrary <> 0 then - begin - FJclLinkMapFile := GetProcAddress(FJclLibrary, PChar(JclLinkMapFileExportName)); - if Assigned(FJclLinkMapFile) then - begin - PackageLoad := GetProcAddress(FJclLibrary, 'Initialize'); //Do not localize - if Assigned(PackageLoad) then - begin - try - PackageLoad; - except - FreeLibrary(FJclLibrary); - // everything is lost - FJclLibrary := 0; // => access violation - end; - Break; - end; - end; - FreeLibrary(FJclLibrary); - FJclLibrary := 0; - end; - end; - //until True; -end; - function TJVCLData.FindTargetConfig(const TargetSymbol: string): TTargetConfig; var i: Integer; @@ -519,92 +470,6 @@ Result := nil; end; -function TJVCLData.GetOptionState(Index: Integer): Integer; -var - i: Integer; - b: Boolean; -begin - Result := 0; // false - for i := 0 to Targets.Count - 1 do - begin - if TargetConfig[i].InstallJVCL then - begin - case Index of - 0: b := TargetConfig[i].Build; - 1: b := TargetConfig[i].CleanPalettes; - 2: b := TargetConfig[i].CompileOnly; - 3: b := TargetConfig[i].DeveloperInstall; - 4: b := TargetConfig[i].DebugUnits; - 5: b := TargetConfig[i].GenerateMapFiles; - 6: b := TargetConfig[i].LinkMapFiles; - 7: b := TargetConfig[i].DeleteMapFiles; - else - b := False; - end; - if b then - begin - if Result = 3 then - begin - Result := 2; - Exit; - end; - Result := 1 // true - end - else - begin - if Result = 1 then - begin - Result := 2; // mixed - Exit; - end; - Result := 3; - end; - end; - end; - if Result = 3 then - Result := 0; -end; - -function TJVCLData.GetBuild: Integer; -begin - Result := GetOptionState(0); -end; - -function TJVCLData.GetCleanPalettes: Integer; -begin - Result := GetOptionState(1); -end; - -function TJVCLData.GetCompileOnly: Integer; -begin - Result := GetOptionState(2); -end; - -function TJVCLData.GetDeveloperInstall: Integer; -begin - Result := GetOptionState(3); -end; - -function TJVCLData.GetDebugUnits: Integer; -begin - Result := GetOptionState(4); -end; - -function TJVCLData.GetGenerateMapFiles: Integer; -begin - Result := GetOptionState(5); -end; - -function TJVCLData.GetLinkMapFiles: Integer; -begin - Result := GetOptionState(6); -end; - -function TJVCLData.GetDeleteMapFiles: Integer; -begin - Result := GetOptionState(7); -end; - function TTargetConfig.GetJVCLConfig: TJVCLConfig; begin Result := FJVCLConfig; @@ -691,17 +556,26 @@ function TJVCLData.LinkMapFile(const BinaryFileName, MapFileName: string; var MapFileSize, JclDebugDataSize: Integer): Boolean; +var + LinkerBugUnit: string; begin try - if FJclLibrary = Cardinal(-1) then - LoadLinkMapFileLibrary; - Result := Assigned(FJclLinkMapFile) and FJclLinkMapFile(PChar(BinaryFileName), - PChar(MapFileName), MapFileSize, JclDebugDataSize); + Result := InsertDebugDataIntoExecutableFile(BinaryFileName, MapFileName, + LinkerBugUnit, MapFileSize, JclDebugDataSize); except Result := False; end; end; +function TJVCLData.CompressMapFileToJdbg(const MapFileName: string): Boolean; +begin + try + Result := ConvertMapFileToJdbgFile(MapFileName); + except + Result := False; + end; +end; + procedure TJVCLData.Reinit; var i: Integer; @@ -718,70 +592,73 @@ TargetConfig[i].Save; end; -procedure TJVCLData.SetBuild(Value: Integer); +function TJVCLData.GetOptionState(Index: Integer): Integer; var i: Integer; + b: Boolean; begin + Result := 0; // false for i := 0 to Targets.Count - 1 do - TargetConfig[I].Build := Value <> 0; + begin + if TargetConfig[i].InstallJVCL then + begin + case Index of + 0: b := TargetConfig[i].Build; + 1: b := TargetConfig[i].CleanPalettes; + 2: b := TargetConfig[i].CompileOnly; + 3: b := TargetConfig[i].DeveloperInstall; + 4: b := TargetConfig[i].DebugUnits; + 5: b := TargetConfig[i].GenerateMapFiles; + 6: b := TargetConfig[i].LinkMapFiles; + 7: b := TargetConfig[i].DeleteMapFiles; + 8: b := TargetConfig[i].CreateJdbgFiles; + else + b := False; + end; + if b then + begin + if Result = 3 then + begin + Result := 2; + Exit; + end; + Result := 1 // true + end + else + begin + if Result = 1 then + begin + Result := 2; // mixed + Exit; + end; + Result := 3; + end; + end; + end; + if Result = 3 then + Result := 0; end; -procedure TJVCLData.SetCleanPalettes(Value: Integer); +procedure TJVCLData.SetOptionState(Index: Integer; const Value: Integer); var i: Integer; begin for i := 0 to Targets.Count - 1 do - TargetConfig[I].CleanPalettes := Value <> 0; + begin + case Index of + 0: TargetConfig[i].Build := Value <> 0; + 1: TargetConfig[i].CleanPalettes := Value <> 0; + 2: TargetConfig[i].CompileOnly := Value <> 0; + 3: TargetConfig[i].DeveloperInstall := Value <> 0; + 4: TargetConfig[i].DebugUnits := Value <> 0; + 5: TargetConfig[i].GenerateMapFiles := Value <> 0; + 6: TargetConfig[i].LinkMapFiles := Value <> 0; + 7: TargetConfig[i].DeleteMapFiles := Value <> 0; + 8: TargetConfig[i].CreateJdbgFiles := Value <> 0; + end; + end; end; -procedure TJVCLData.SetCompileOnly(const Value: Integer); -var - i: Integer; -begin - for i := 0 to Targets.Count - 1 do - TargetConfig[i].CompileOnly := Value <> 0; -end; - -procedure TJVCLData.SetDeveloperInstall(Value: Integer); -var - i: Integer; -begin - for i := 0 to Targets.Count - 1 do - TargetConfig[i].DeveloperInstall := Value <> 0; -end; - -procedure TJVCLData.SetGenerateMapFiles(const Value: Integer); -var - i: Integer; -begin - for i := 0 to Targets.Count - 1 do - TargetConfig[i].GenerateMapFiles := Value <> 0; -end; - -procedure TJVCLData.SetLinkMapFiles(const Value: Integer); -var - i: Integer; -begin - for i := 0 to Targets.Count - 1 do - TargetConfig[i].LinkMapFiles := Value <> 0; -end; - -procedure TJVCLData.SetDeleteMapFiles(const Value: Integer); -var - i: Integer; -begin - for i := 0 to Targets.Count - 1 do - TargetConfig[i].DeleteMapFiles := Value <> 0; -end; - -procedure TJVCLData.SetDebugUnits(const Value: Integer); -var - i: Integer; -begin - for i := 0 to Targets.Count - 1 do - TargetConfig[i].DebugUnits := Value <> 0; -end; - { TTargetConfig } constructor TTargetConfig.Create(AOwner: TJVCLData; ATarget: TCompileTarget); @@ -1038,6 +915,11 @@ JclDebugDataSize); end; +function TTargetConfig.CompressMapFileToJdbg(const MapFileName: string): Boolean; +begin + Result := Owner.CompressMapFileToJdbg(MapFileName); +end; + procedure TTargetConfig.RegisterJVCLVersionInfo; begin InstallJediRegInformation(Target.RegistryKey, 'JVCL', @@ -1286,6 +1168,11 @@ Result := FLinkMapFiles; end; +function TTargetConfig.GetCreateJdbgFiles: Boolean; +begin + Result := FCreateJdbgFiles; +end; + function TTargetConfig.GetDeleteMapFiles: Boolean; begin Result := FDeleteMapFiles; Modified: trunk/jvcl/install/JVCLInstall/JVCLInstall.dpr =================================================================== --- trunk/jvcl/install/JVCLInstall/JVCLInstall.dpr 2006-10-28 17:17:50 UTC (rev 10996) +++ trunk/jvcl/install/JVCLInstall/JVCLInstall.dpr 2006-10-28 17:33:02 UTC (rev 10997) @@ -62,7 +62,7 @@ CapExec in 'Helpers\CapExec.pas', PgPackageSelection in 'Pages\PgPackageSelection.pas', HtHint in 'Helpers\HtHint.pas', - Compiler5MissingPropertyFix in 'Compiler5MissingPropertyFix.pas', + MissingPropertyFix in 'MissingPropertyFix.pas', FrmInstall in 'Frames\FrmInstall.pas' {FrameInstall: TFrame}, PgInstall in 'Pages\PgInstall.pas', PgUninstall in 'Pages\PgUninstall.pas', Copied: trunk/jvcl/install/JVCLInstall/MissingPropertyFix.pas (from rev 10991, trunk/jvcl/install/JVCLInstall/Compiler5MissingPropertyFix.pas) =================================================================== --- trunk/jvcl/install/JVCLInstall/MissingPropertyFix.pas (rev 0) +++ trunk/jvcl/install/JVCLInstall/MissingPropertyFix.pas 2006-10-28 17:33:02 UTC (rev 10997) @@ -0,0 +1,202 @@ +{----------------------------------------------------------------------------- +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: Compiler5MissingPropertyFix.pas, released on 2004-03-31. + +The Initial Developer of the Original Code is Andreas Hausladen +(Andreas dott Hausladen att gmx dott de) +Portions created by Andreas Hausladen are Copyright (C) 2004 Andreas Hausladen. +All Rights Reserved. + +Contributor(s): - + +You may retrieve the latest version of this file at the Project JEDI's JVCL +home page, located at http://jvcl.sourceforge.net + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit MissingPropertyFix; + +{$I jvcl.inc} + +interface + +uses + Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Buttons; + +implementation + +{$IFNDEF COMPILER7_UP} + +type + TNativeBitBtn = class(TBitBtn) + protected + procedure CreateParams(var Params: TCreateParams); override; + end; + +type + TOpenButton = class(TButton); + TOpenBitBtn = class(TBitBtn); + +procedure TNativeBitBtn.CreateParams(var Params: TCreateParams); +var + p: procedure(Instance: TObject; var Params: TCreateParams); +begin + p := @TOpenButton.CreateParams; + p(Self, Params); +end; + +procedure HookBitBtn; +type + TJump = packed record + Jmp: Byte; // $E9; + Offset: Integer; + end; +var + Jump: TJump; + DestP, OldP: Pointer; + OldProt, Dummy: Cardinal; +begin + if IsLibrary then + raise Exception.Create('Not allowed in a DLL'); + Jump.Jmp := $E9; + + DestP := @TNativeBitBtn.CreateParams; + OldP := @TOpenBitBtn.CreateParams; + Jump.Offset := Integer(DestP) - Integer(OldP) - SizeOf(TJump); + if VirtualProtect(OldP, SizeOf(TJump), PAGE_EXECUTE_READWRITE, @OldProt) then + begin + Move(Jump, OldP^, SizeOf(TJump)); + VirtualProtect(OldP, SizeOf(TJump), OldProt, Dummy); + end; +end; + +{$ENDIF !COMPILER7_UP} + +{$IFNDEF COMPILER10_UP} + +type + TMissingPropertyFix = class(TReader) + private + FPropDefined: Boolean; + protected + procedure DefineProperty(const Name: string; + ReadData: TReaderProc; WriteData: TWriterProc; + HasData: Boolean); override; + protected + {$IFDEF COMPILER5} + procedure ReadWinControlDesignSize(Reader: TReader); + {$ENDIF COMPILER5} + {$IFNDEF COMPILER10_UP} + procedure ReadControlExplicitProp(Reader: TReader); + {$ENDIF ~COMPILER10_UP} + procedure DefineProperties(Filer: TFiler); + end; + +{$IFDEF COMPILER5} +procedure TMissingPropertyFix.ReadWinControlDesignSize(Reader: TReader); +begin + Reader.ReadListBegin; + Reader.ReadInteger; + Reader.ReadInteger; + Reader.ReadListEnd; +end; +{$ENDIF COMPILER5} + +{$IFNDEF COMPILER10_UP} +procedure TMissingPropertyFix.ReadControlExplicitProp(Reader: TReader); +begin + Reader.ReadInteger; +end; +{$ENDIF ~COMPILER10_UP} + +procedure TMissingPropertyFix.DefineProperties(Filer: TFiler); +begin + {$IFDEF COMPILER5} + if Root is TWinControl then + Filer.DefineProperty('DesignSize', ReadWinControlDesignSize, nil, False); + {$ENDIF COMPILER5} + {$IFNDEF COMPILER10_UP} + if Root is TControl then + begin + Filer.DefineProperty('ExplicitLeft', ReadControlExplicitProp, nil, False); + Filer.DefineProperty('ExplicitTop', ReadControlExplicitProp, nil, False); + Filer.DefineProperty('ExplicitWidth', ReadControlExplicitProp, nil, False); + Filer.DefineProperty('ExplicitHeight', ReadControlExplicitProp, nil, False); + end; + {$ENDIF ~COMPILER10_UP} +end; + +procedure TMissingPropertyFix.DefineProperty(const Name: string; + ReadData: TReaderProc; WriteData: TWriterProc; + HasData: Boolean); +begin + if not FPropDefined then + begin + FPropDefined := True; + try + DefineProperties(Self); + finally + FPropDefined := False; + end; + end; + inherited DefineProperty(Name, ReadData, WriteData, HasData); +end; + + +function NewInstanceHook(ReaderClass: TClass): TObject; +begin + Result := TMissingPropertyFix.NewInstance; +end; + +type + PVmt = ^TVmt; + TVmt = array[0..MaxWord - 1] of Pointer; + +{$R-} +procedure ReplaceVmtField(Vmt: PVmt; VmtOffset: Integer; Value: Pointer); +var + Index: Integer; + OldProt, Dummy: Cardinal; +begin + Index := VmtOffset div SizeOf(Pointer); + if VirtualProtect(@vmt[Index], SizeOf(Pointer), PAGE_EXECUTE_READWRITE, @OldProt) then + begin + Vmt[Index] := Value; + VirtualProtect(@Vmt[Index], SizeOf(Pointer), OldProt, Dummy); + end; +end; +{$R+} + +procedure ReplaceDefineProperty; +begin + {$IFDEF COMPILER6_UP} + {$WARNINGS OFF} + {$ENDIF COMPILER6_UP} + ReplaceVmtField(PVmt(TReader), vmtNewInstance, @NewInstanceHook); + {$IFDEF COMPILER6_UP} + {$WARNINGS ON} + {$ENDIF COMPILER6_UP} +end; + +{$ENDIF ~COMPILER10_UP} + +initialization + {$IFNDEF COMPILER10_UP} + ReplaceDefineProperty; + {$ENDIF ~COMPILER10_UP} + + {$IFNDEF COMPILER7_UP} + HookBitBtn; + {$ENDIF !COMPILER7_UP} + +end. Modified: trunk/jvcl/install.bat =================================================================== --- trunk/jvcl/install.bat 2006-10-28 17:17:50 UTC (rev 10996) +++ trunk/jvcl/install.bat 2006-10-28 17:33:02 UTC (rev 10997) @@ -6,7 +6,7 @@ echo [Compiling installer...] cd install\JVCLInstall if EXIST JVCLInstall.cfg del JVCLInstall.cfg -..\..\packages\bin\dcc32ex.exe -Q -B -DJVCLINSTALLER -DUSE_DXGETTEXT -E..\..\bin -I.;..\..\common -U..\..\common;..\..\run -n..\..\dcu JVCLInstall.dpr +..\..\packages\bin\dcc32ex.exe --requires-jcl -Q -B -DJVCLINSTALLER -DUSE_DXGETTEXT -E..\..\bin -I.;..\..\common -U..\..\common;..\..\run -n..\..\dcu JVCLInstall.dpr if ERRORLEVEL 1 goto Failed cd ..\.. This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2006-11-09 23:07:19
|
Revision: 11009 http://svn.sourceforge.net/jvcl/?rev=11009&view=rev Author: jfudickar Date: 2006-11-09 15:07:07 -0800 (Thu, 09 Nov 2006) Log Message: ----------- Added property TJvCustomPropertyStore.SynchronizeStoreProperties Modified Paths: -------------- trunk/jvcl/packages/xml/JvCore-R.xml trunk/jvcl/packages/xml/JvJans-R.xml trunk/jvcl/run/JvPropertyStore.pas trunk/jvcl/run/JvResources.pas Modified: trunk/jvcl/packages/xml/JvCore-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvCore-R.xml 2006-11-09 09:06:36 UTC (rev 11008) +++ trunk/jvcl/packages/xml/JvCore-R.xml 2006-11-09 23:07:07 UTC (rev 11009) @@ -88,6 +88,7 @@ <File Name="..\..\run\JvProgressUtils.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvPropertyStore.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvPropertyStorage.pas" Targets="all" Formname="" Condition=""/> + <File Name="..\..\run\JvStrings.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvThemes.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvTypes.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvVersionInfo.pas" Targets="VCL" Formname="" Condition=""/> Modified: trunk/jvcl/packages/xml/JvJans-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvJans-R.xml 2006-11-09 09:06:36 UTC (rev 11008) +++ trunk/jvcl/packages/xml/JvJans-R.xml 2006-11-09 23:07:07 UTC (rev 11009) @@ -46,7 +46,6 @@ <File Name="..\..\run\JvSimScope.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvSpellerForm.pas" Targets="all" Formname="JvSpellerForm" Condition=""/> <File Name="..\..\run\JvSticker.pas" Targets="VCL" Formname="" Condition=""/> - <File Name="..\..\run\JvStrings.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvTracker.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvTurtle.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\run\JvXmlTree.pas" Targets="all" Formname="" Condition=""/> Modified: trunk/jvcl/run/JvPropertyStore.pas =================================================================== --- trunk/jvcl/run/JvPropertyStore.pas 2006-11-09 09:06:36 UTC (rev 11008) +++ trunk/jvcl/run/JvPropertyStore.pas 2006-11-09 23:07:07 UTC (rev 11009) @@ -61,6 +61,7 @@ FOnAfterLoadProperties: TNotifyEvent; FOnBeforeStoreProperties: TNotifyEvent; FOnAfterStoreProperties: TNotifyEvent; + FSynchronizeStoreProperties: Boolean; procedure SetAutoLoad(Value: Boolean); function GetIgnoreProperties: TJvIgnorePropertiesStringList; procedure SetIgnoreProperties(Value: TJvIgnorePropertiesStringList); @@ -100,6 +101,11 @@ property OnAfterLoadProperties: TNotifyEvent read FOnAfterLoadProperties write FOnAfterLoadProperties; property OnBeforeStoreProperties: TNotifyEvent read FOnBeforeStoreProperties write FOnBeforeStoreProperties; property OnAfterStoreProperties: TNotifyEvent read FOnAfterStoreProperties write FOnAfterStoreProperties; + //1 Synchronize the StoreProperties procedure + /// Defines if the execution of the StoreProperties procedure for the current + /// AppStoragePath should be synchronized via a global mutex + property SynchronizeStoreProperties: Boolean read FSynchronizeStoreProperties + write FSynchronizeStoreProperties default False; property Tag; end; @@ -163,13 +169,14 @@ {$IFDEF HAS_UNIT_RTLCONSTS} RTLConsts, {$ENDIF HAS_UNIT_RTLCONSTS} - Consts, SysUtils, TypInfo; + Consts, SysUtils, TypInfo, JclSynch, JvStrings, JvResources; const cLastSaveTime = 'Last Save Time'; cObject = 'Object'; cItem = 'Item'; + //=== { TCombinedStrings } =================================================== type @@ -331,6 +338,7 @@ FCombinedIgnoreProperties := TCombinedStrings.Create; for I := Low(IgnorePropertyList) to High(IgnorePropertyList) do FIntIgnoreProperties.Add(IgnorePropertyList[I]); + FSynchronizeStoreProperties := False; end; destructor TJvCustomPropertyStore.Destroy; @@ -593,6 +601,31 @@ procedure TJvCustomPropertyStore.StoreProperties; var SaveProperties: Boolean; + JclMutex : TJclMutex; + + procedure ExecuteStoreProperties; + begin + AppStorage.BeginUpdate; + try + UpdateChildPaths; + DisableAutoLoadDown; + SaveProperties := IgnoreLastLoadTime or (GetLastSaveTime < FLastLoadTime); + if DeleteBeforeStore then + AppStorage.DeleteSubTree(AppStoragePath); + if not IgnoreLastLoadTime then + AppStorage.WriteString(AppStorage.ConcatPaths([AppStoragePath, cLastSaveTime]), DateTimeToStr(Now)); + if Assigned(FOnBeforeStoreProperties) then + FOnBeforeStoreProperties(Self); + if SaveProperties then + StoreData; + AppStorage.WritePersistent(AppStoragePath, Self, True, CombinedIgnoreProperties); + if Assigned(FOnAfterStoreProperties) then + FOnAfterStoreProperties(Self); + finally + AppStorage.EndUpdate; + end; + end; + begin if not Enabled then Exit; @@ -600,25 +633,26 @@ Exit; if not Assigned(AppStorage) then Exit; - AppStorage.BeginUpdate; - try - UpdateChildPaths; - DisableAutoLoadDown; - SaveProperties := IgnoreLastLoadTime or (GetLastSaveTime < FLastLoadTime); - if DeleteBeforeStore then - AppStorage.DeleteSubTree(AppStoragePath); - if not IgnoreLastLoadTime then - AppStorage.WriteString(AppStorage.ConcatPaths([AppStoragePath, cLastSaveTime]), DateTimeToStr(Now)); - if Assigned(FOnBeforeStoreProperties) then - FOnBeforeStoreProperties(Self); - if SaveProperties then - StoreData; - AppStorage.WritePersistent(AppStoragePath, Self, True, CombinedIgnoreProperties); - if Assigned(FOnAfterStoreProperties) then - FOnAfterStoreProperties(Self); - finally - AppStorage.EndUpdate; - end; + + if SynchronizeStoreProperties then + begin + JclMutex := TJclMutex.Create(nil, False, B64Encode(RsJvPropertyStoreMutexStorePropertiesProcedureName+AppStoragePath)); + try + if JclMutex.WaitForever = wrSignaled then + try + ExecuteStoreProperties; + finally + JclMutex.Release; + end + else + raise Exception.Create(RsJvPropertyStoreEnterMutexTimeout); + finally + FreeAndNil(JclMutex); + end; + end + else + ExecuteStoreProperties + end; procedure TJvCustomPropertyStore.LoadData; Modified: trunk/jvcl/run/JvResources.pas =================================================================== --- trunk/jvcl/run/JvResources.pas 2006-11-09 09:06:36 UTC (rev 11008) +++ trunk/jvcl/run/JvResources.pas 2006-11-09 23:07:07 UTC (rev 11009) @@ -1775,6 +1775,11 @@ 'Do you want to close and install?'; RsPVInfoButtonCaption = 'Info'; +//=== JvPropertyStore.pas ==================================================== +resourcestring + RsJvPropertyStoreMutexStorePropertiesProcedureName = 'TJvCustomPropertyStore.StoreProperties:'; + RsJvPropertyStoreEnterMutexTimeout = 'TJvCustomPropertyStore.StoreProperties: Mutex Timeout'; + //=== JvPrvwRender.pas ======================================================= resourcestring RsEAPrintPreviewComponentMustBeAssigne = 'A PrintPreview component must be assigned in CreatePreview!'; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-11-24 08:32:17
|
Revision: 11033 http://svn.sourceforge.net/jvcl/?rev=11033&view=rev Author: marquardt Date: 2006-11-24 00:32:14 -0800 (Fri, 24 Nov 2006) Log Message: ----------- applied CleanJVCL.BAT Modified Paths: -------------- trunk/jvcl/design/JvgCompEditorTemplateForm.dfm trunk/jvcl/design/JvgReportEditorForm.dfm trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/FrmStartup.dfm trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Main.dfm trunk/jvcl/examples/JvDBActions/JvDBActionMainForm.dfm trunk/jvcl/examples/JvDesktopAlert/JvDesktopAlertDemoForm.dfm trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/OptionsFrm.dfm trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/BCB/MainForm.dfm trunk/jvcl/examples/JvEmbeddedForms/MainFormUnit.dfm trunk/jvcl/examples/JvInspectorDB/JvInspectorDBDemoMainFormU.dfm trunk/jvcl/examples/JvItemViewer/MainFrm.dfm trunk/jvcl/examples/JvShellHook/BCB/JvShellHookDemoMainFormU.dfm trunk/jvcl/examples/JvThumbnail/JvThumbnailMainFormU.dfm trunk/jvcl/examples/JvTransparentButton/TransBtnFormMainU.dfm trunk/jvcl/examples/JvUrlListGrabber/BCB/MainForm.dfm trunk/jvcl/run/JvHLEditorPropertyForm.dfm trunk/jvcl/run/JvPatchForm.dfm Modified: trunk/jvcl/design/JvgCompEditorTemplateForm.dfm =================================================================== --- trunk/jvcl/design/JvgCompEditorTemplateForm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/design/JvgCompEditorTemplateForm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -28,7 +28,6 @@ Height = 353 ActivePage = tabMain Align = alClient - TabIndex = 0 TabOrder = 0 TabStop = False object tabMain: TTabSheet Modified: trunk/jvcl/design/JvgReportEditorForm.dfm =================================================================== --- trunk/jvcl/design/JvgReportEditorForm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/design/JvgReportEditorForm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -183,7 +183,6 @@ Font.Style = [] ParentFont = False TabHeight = 22 - TabIndex = 0 TabOrder = 0 TabStop = False TabWidth = 18 Modified: trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/FrmStartup.dfm =================================================================== --- trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/FrmStartup.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/FrmStartup.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -25,9 +25,6 @@ Align = alClient ParentBackground = False TabOrder = 0 - DesignSize = ( - 416 - 121) object Image: TImage Left = 1 Top = 1 @@ -52,9 +49,6 @@ Anchors = [akLeft, akRight, akBottom] BevelOuter = bvLowered TabOrder = 1 - DesignSize = ( - 401 - 81) object LblComponents: TLabel Left = 8 Top = 32 Modified: trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Main.dfm =================================================================== --- trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Main.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/devtools/InstallerTests/DelphiPkgInstaller/Main.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -51,9 +51,6 @@ ShowRouteMap = True OnCancelButtonClick = JvWizardCancelButtonClick OnActivePageChanged = JvWizardActivePageChanged - DesignSize = ( - 730 - 499) object JvWizardPageChooseDirectories: TJvWizardInteriorPage Header.Height = 50 Header.Title.Color = clNone Modified: trunk/jvcl/examples/JvDBActions/JvDBActionMainForm.dfm =================================================================== --- trunk/jvcl/examples/JvDBActions/JvDBActionMainForm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvDBActions/JvDBActionMainForm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -12,9 +12,6 @@ Font.Style = [] OldCreateOrder = False OnCreate = FormCreate - DesignSize = ( - 862 - 606) PixelsPerInch = 96 TextHeight = 13 object DBGrid1: TDBGrid Modified: trunk/jvcl/examples/JvDesktopAlert/JvDesktopAlertDemoForm.dfm =================================================================== --- trunk/jvcl/examples/JvDesktopAlert/JvDesktopAlertDemoForm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvDesktopAlert/JvDesktopAlertDemoForm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -15,9 +15,6 @@ OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate - DesignSize = ( - 359 - 425) PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Modified: trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/OptionsFrm.dfm =================================================================== --- trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/OptionsFrm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/OptionsFrm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -45,7 +45,6 @@ Height = 315 ActivePage = tabGeneral Anchors = [akLeft, akTop, akRight, akBottom] - TabIndex = 0 TabOrder = 0 object tabGeneral: TTabSheet Caption = 'General' Modified: trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/BCB/MainForm.dfm =================================================================== --- trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/BCB/MainForm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvDocking/DockOptionDemo/Source/BCB/MainForm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -23,7 +23,6 @@ Height = 137 ActivePage = TabSheet1 Align = alTop - TabIndex = 0 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Conjoin Style' Modified: trunk/jvcl/examples/JvEmbeddedForms/MainFormUnit.dfm =================================================================== --- trunk/jvcl/examples/JvEmbeddedForms/MainFormUnit.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvEmbeddedForms/MainFormUnit.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -22,7 +22,6 @@ Height = 427 ActivePage = TabSheet1 Align = alClient - TabIndex = 0 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Example 1' Modified: trunk/jvcl/examples/JvInspectorDB/JvInspectorDBDemoMainFormU.dfm =================================================================== --- trunk/jvcl/examples/JvInspectorDB/JvInspectorDBDemoMainFormU.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvInspectorDB/JvInspectorDBDemoMainFormU.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -17,9 +17,6 @@ Position = poScreenCenter Scaled = False OnShow = FormShow - DesignSize = ( - 596 - 454) PixelsPerInch = 96 TextHeight = 13 object JvInspector1: TJvInspector Modified: trunk/jvcl/examples/JvItemViewer/MainFrm.dfm =================================================================== --- trunk/jvcl/examples/JvItemViewer/MainFrm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvItemViewer/MainFrm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -113,7 +113,6 @@ Height = 381 ActivePage = tabIFViewer Align = alClient - TabIndex = 0 TabOrder = 2 OnChange = pgViewersChange object tabIFViewer: TTabSheet Modified: trunk/jvcl/examples/JvShellHook/BCB/JvShellHookDemoMainFormU.dfm =================================================================== --- trunk/jvcl/examples/JvShellHook/BCB/JvShellHookDemoMainFormU.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvShellHook/BCB/JvShellHookDemoMainFormU.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -11,9 +11,6 @@ Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False - DesignSize = ( - 537 - 255) PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Modified: trunk/jvcl/examples/JvThumbnail/JvThumbnailMainFormU.dfm =================================================================== --- trunk/jvcl/examples/JvThumbnail/JvThumbnailMainFormU.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvThumbnail/JvThumbnailMainFormU.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -26,7 +26,6 @@ Height = 596 ActivePage = TabSheet1 Align = alClient - TabIndex = 0 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'ThumbView Component' Modified: trunk/jvcl/examples/JvTransparentButton/TransBtnFormMainU.dfm =================================================================== --- trunk/jvcl/examples/JvTransparentButton/TransBtnFormMainU.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvTransparentButton/TransBtnFormMainU.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -62,7 +62,6 @@ Height = 293 ActivePage = TabSheet2 Anchors = [akLeft, akTop, akRight, akBottom] - TabIndex = 1 TabOrder = 0 OnChange = PageControl1Change object TabSheet1: TTabSheet Modified: trunk/jvcl/examples/JvUrlListGrabber/BCB/MainForm.dfm =================================================================== --- trunk/jvcl/examples/JvUrlListGrabber/BCB/MainForm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/examples/JvUrlListGrabber/BCB/MainForm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -13,9 +13,6 @@ OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate - DesignSize = ( - 535 - 411) PixelsPerInch = 96 TextHeight = 13 object lblExpl: TLabel Modified: trunk/jvcl/run/JvHLEditorPropertyForm.dfm =================================================================== --- trunk/jvcl/run/JvHLEditorPropertyForm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/run/JvHLEditorPropertyForm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -23,7 +23,6 @@ Width = 419 Height = 321 ActivePage = tsColors - TabIndex = 1 TabOrder = 0 object tsEditor: TTabSheet Caption = 'Editor' Modified: trunk/jvcl/run/JvPatchForm.dfm =================================================================== --- trunk/jvcl/run/JvPatchForm.dfm 2006-11-24 08:05:37 UTC (rev 11032) +++ trunk/jvcl/run/JvPatchForm.dfm 2006-11-24 08:32:14 UTC (rev 11033) @@ -14,9 +14,6 @@ OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy - DesignSize = ( - 401 - 144) PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox @@ -26,9 +23,6 @@ Height = 97 Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 0 - DesignSize = ( - 392 - 97) object Label1: TLabel Left = 9 Top = 18 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-11-24 09:00:09
|
Revision: 11034 http://svn.sourceforge.net/jvcl/?rev=11034&view=rev Author: marquardt Date: 2006-11-24 01:00:08 -0800 (Fri, 24 Nov 2006) Log Message: ----------- palette image for TJvTranslateString Modified Paths: -------------- trunk/jvcl/images/JvCoreReg.rc trunk/jvcl/resources/JvCoreReg.dcr Added Paths: ----------- trunk/jvcl/images/TJVTRANSLATESTRING.BMP Modified: trunk/jvcl/images/JvCoreReg.rc =================================================================== --- trunk/jvcl/images/JvCoreReg.rc 2006-11-24 08:32:14 UTC (rev 11033) +++ trunk/jvcl/images/JvCoreReg.rc 2006-11-24 09:00:08 UTC (rev 11034) @@ -10,4 +10,5 @@ TJVLOOKUPAUTOCOMPLETE BITMAP "TJVLOOKUPAUTOCOMPLETE.BMP" TJVPOWEREDBYJCL BITMAP "TJVPOWEREDBYJCL.BMP" TJVPOWEREDBYJVCL BITMAP "TJVPOWEREDBYJVCL.BMP" +TJVTRANSLATESTRING BITMAP "TJVTRANSLATESTRING.BMP" JVCLSPLASH BITMAP "JVCLSPLASH.BMP" \ No newline at end of file Added: trunk/jvcl/images/TJVTRANSLATESTRING.BMP =================================================================== (Binary files differ) Property changes on: trunk/jvcl/images/TJVTRANSLATESTRING.BMP ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/jvcl/resources/JvCoreReg.dcr =================================================================== (Binary files differ) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-11-24 16:22:49
|
Revision: 11036 http://svn.sourceforge.net/jvcl/?rev=11036&view=rev Author: marquardt Date: 2006-11-24 08:22:35 -0800 (Fri, 24 Nov 2006) Log Message: ----------- TJvSettingsTreeView palette icon entry was in wrong .rc file Modified Paths: -------------- trunk/jvcl/images/JvPageListTreeViewReg.rc trunk/jvcl/images/JvStdCtrlsReg.rc trunk/jvcl/resources/JvPageListTreeViewReg.dcr trunk/jvcl/resources/JvStdCtrlsReg.dcr Modified: trunk/jvcl/images/JvPageListTreeViewReg.rc =================================================================== --- trunk/jvcl/images/JvPageListTreeViewReg.rc 2006-11-24 15:51:53 UTC (rev 11035) +++ trunk/jvcl/images/JvPageListTreeViewReg.rc 2006-11-24 16:22:35 UTC (rev 11036) @@ -7,4 +7,5 @@ TJVNAVPANELDIVIDER BITMAP "TJVNAVPANELDIVIDER.BMP" TJVNAVPANELHEADER BITMAP "TJVNAVPANELHEADER.BMP" TJVNAVPANESTYLEMANAGER BITMAP "TJVNAVPANESTYLEMANAGER.BMP" -TJVNAVPANETOOLPANEL BITMAP "TJVNAVPANETOOLPANEL.BMP" \ No newline at end of file +TJVNAVPANETOOLPANEL BITMAP "TJVNAVPANETOOLPANEL.BMP" +TJVSETTINGSTREEVIEW BITMAP "TJVSETTINGSTREEVIEW.BMP" Modified: trunk/jvcl/images/JvStdCtrlsReg.rc =================================================================== --- trunk/jvcl/images/JvStdCtrlsReg.rc 2006-11-24 15:51:53 UTC (rev 11035) +++ trunk/jvcl/images/JvStdCtrlsReg.rc 2006-11-24 16:22:35 UTC (rev 11036) @@ -40,7 +40,6 @@ TJVPAGECONTROL BITMAP "TJVPAGECONTROL.BMP" TJVTREEVIEW BITMAP "TJVTREEVIEW.BMP" TJVCHECKTREEVIEW BITMAP "TJVCHECKTREEVIEW.BMP" -TJVSETTINGSTREEVIEW BITMAP "TJVSETTINGSTREEVIEW.BMP" TJVTRACKBAR BITMAP "TJVTRACKBAR.BMP" TJVCONTROLBAR BITMAP "TJVCONTROLBAR.BMP" TJVCOOLBAR BITMAP "TJVCOOLBAR.BMP" Modified: trunk/jvcl/resources/JvPageListTreeViewReg.dcr =================================================================== (Binary files differ) Modified: trunk/jvcl/resources/JvStdCtrlsReg.dcr =================================================================== (Binary files differ) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-11-25 06:37:21
|
Revision: 11038 http://svn.sourceforge.net/jvcl/?rev=11038&view=rev Author: marquardt Date: 2006-11-24 22:37:20 -0800 (Fri, 24 Nov 2006) Log Message: ----------- add palette images to TJvDesign family Modified Paths: -------------- trunk/jvcl/images/JvCoreReg.rc trunk/jvcl/resources/JvCoreReg.dcr Added Paths: ----------- trunk/jvcl/images/TJVDESIGNPANEL.BMP trunk/jvcl/images/TJVDESIGNSCROLLBOX.BMP trunk/jvcl/images/TJVDESIGNSURFACE.BMP Modified: trunk/jvcl/images/JvCoreReg.rc =================================================================== --- trunk/jvcl/images/JvCoreReg.rc 2006-11-24 16:23:28 UTC (rev 11037) +++ trunk/jvcl/images/JvCoreReg.rc 2006-11-25 06:37:20 UTC (rev 11038) @@ -11,4 +11,7 @@ TJVPOWEREDBYJCL BITMAP "TJVPOWEREDBYJCL.BMP" TJVPOWEREDBYJVCL BITMAP "TJVPOWEREDBYJVCL.BMP" TJVTRANSLATESTRING BITMAP "TJVTRANSLATESTRING.BMP" +TJVDESIGNSURFACE BITMAP "TJVDESIGNSURFACE.BMP" +TJVDESIGNSCROLLBOX BITMAP "TJVDESIGNSCROLLBOX.BMP" +TJVDESIGNPANEL BITMAP "TJVDESIGNPANEL.BMP" JVCLSPLASH BITMAP "JVCLSPLASH.BMP" \ No newline at end of file Added: trunk/jvcl/images/TJVDESIGNPANEL.BMP =================================================================== (Binary files differ) Property changes on: trunk/jvcl/images/TJVDESIGNPANEL.BMP ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/jvcl/images/TJVDESIGNSCROLLBOX.BMP =================================================================== (Binary files differ) Property changes on: trunk/jvcl/images/TJVDESIGNSCROLLBOX.BMP ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/jvcl/images/TJVDESIGNSURFACE.BMP =================================================================== (Binary files differ) Property changes on: trunk/jvcl/images/TJVDESIGNSURFACE.BMP ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/jvcl/resources/JvCoreReg.dcr =================================================================== (Binary files differ) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-11-25 15:49:54
|
Revision: 11040 http://svn.sourceforge.net/jvcl/?rev=11040&view=rev Author: marquardt Date: 2006-11-25 07:49:51 -0800 (Sat, 25 Nov 2006) Log Message: ----------- some style cleaning Modified Paths: -------------- trunk/jvcl/design/Jedi.Jvcl.Design.RegisterComponents.pas trunk/jvcl/run/JvDBSpinEdit.pas trunk/jvcl/run/JvInterpreterParser.pas trunk/jvcl/run/JvPropertyStore.pas trunk/jvcl/run/JvToolBar.pas trunk/jvcl/run/JvValidateEdit.pas Modified: trunk/jvcl/design/Jedi.Jvcl.Design.RegisterComponents.pas =================================================================== --- trunk/jvcl/design/Jedi.Jvcl.Design.RegisterComponents.pas 2006-11-25 10:28:45 UTC (rev 11039) +++ trunk/jvcl/design/Jedi.Jvcl.Design.RegisterComponents.pas 2006-11-25 15:49:51 UTC (rev 11040) @@ -1,3 +1,28 @@ +{----------------------------------------------------------------------------- +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: Jedi.Jvcl.Design.RegisterComponents.PAS, released on 2006-04-19. + +The Initial Developers of the Original Code are: ahuser +All Rights Reserved. + +Contributor(s): + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +description : + +Known Issues: +-----------------------------------------------------------------------------} + unit Jedi.Jvcl.Design.RegisterComponents; interface @@ -12,6 +37,7 @@ {$R JvCoreReg.dcr} uses + DbClient, // Core Jedi.Jvcl.JvPoweredBy, Jedi.Jvcl.JvAppStorage, @@ -24,10 +50,9 @@ Jedi.Jvcl.JvConverter, Jedi.Jvcl.JvDataEmbedded, Jedi.Jvcl.JvEnterTab, - Jedi.Jvcl.JvMergeManager, DbClient + Jedi.Jvcl.JvMergeManager, Jedi.Jvcl.JvPageManager; - resourcestring RsPaletteNonVisible = 'JVCL.NET Components'; RsPaletteControls = 'JVCL.NET Controls'; @@ -36,20 +61,14 @@ begin // Core RegisterComponents(RsPaletteNonVisible, [TJvPoweredByJCL, TJvPoweredByJVCL]); - RegisterComponents(RsPaletteNonVisible, [TJvAppStorage, TJvAppIniFileStorage, TJvAppStorageSelectList, TJvAppXMLFileStorage]); - RegisterComponents(RsPaletteNonVisible, [TJvLookupAutoComplete]); - // Components RegisterComponents(RsPaletteNonVisual, [TJvAlarms, TJvConverter, TJvDataEmbedded, TJvEnterAsTab, TJvMergeManager, TJvPageManager{, TJvStrHolder, TJvMultiStringHolder}]); - - - end; {$IFDEF RTL170_UP} @@ -62,7 +81,7 @@ var ProductImage: HBITMAP; begin - Supports(BorlandIDEServices,IOTAAboutBoxServices,AboutBoxServices); + Supports(BorlandIDEServices,IOTAAboutBoxServices, AboutBoxServices); Assert(Assigned(AboutBoxServices), RsENoAboutServices); ProductImage := LoadBitmap(FindResourceHInstance(HInstance), 'JVCLSPLASH'); AboutBoxIndex := AboutBoxServices.AddProductInfo(RsAboutDialogTitle, @@ -86,8 +105,8 @@ begin Assert(Assigned(SplashScreenServices), RsENoSplashServices); ProductImage := LoadBitmap(FindResourceHInstance(HInstance), 'JVCLSPLASH'); - SplashScreenServices.AddProductBitmap(RsAboutDialogTitle,ProductImage, - False,RsAboutLicenceStatus); + SplashScreenServices.AddProductBitmap(RsAboutDialogTitle, ProductImage, + False, RsAboutLicenceStatus); end; initialization Modified: trunk/jvcl/run/JvDBSpinEdit.pas =================================================================== --- trunk/jvcl/run/JvDBSpinEdit.pas 2006-11-25 10:28:45 UTC (rev 11039) +++ trunk/jvcl/run/JvDBSpinEdit.pas 2006-11-25 15:49:51 UTC (rev 11040) @@ -229,7 +229,7 @@ function TJvDBSpinEdit.ExecuteAction(Action: TBasicAction): Boolean; begin Result := inherited ExecuteAction(Action) or - (Assigned(FDataLink) and FDataLink.ExecuteAction(Action)); + (Assigned(FDataLink) and FDataLink.ExecuteAction(Action)); end; function TJvDBSpinEdit.GetDataField: string; { Returns data field name. } @@ -277,10 +277,8 @@ inherited Notification(AComponent, Operation); if Operation = opRemove then - begin if Assigned(FDataLink) and (AComponent = DataSource) then - DataSource := nil; - end; + DataSource := nil; end; procedure TJvDBSpinEdit.ReadReadOnlyField(Reader: TReader); @@ -351,7 +349,7 @@ function TJvDBSpinEdit.UpdateAction(Action: TBasicAction): Boolean; begin Result := inherited UpdateAction(Action) or - (Assigned(FDataLink) and FDataLink.ExecuteAction(Action)); + (Assigned(FDataLink) and FDataLink.ExecuteAction(Action)); end; procedure TJvDBSpinEdit.UpdateData(Sender: TObject); Modified: trunk/jvcl/run/JvInterpreterParser.pas =================================================================== --- trunk/jvcl/run/JvInterpreterParser.pas 2006-11-25 10:28:45 UTC (rev 11039) +++ trunk/jvcl/run/JvInterpreterParser.pas 2006-11-25 15:49:51 UTC (rev 11040) @@ -31,7 +31,6 @@ - peter schraut added shl, shr and xor support } - unit JvInterpreterParser; {$I jvcl.inc} @@ -387,7 +386,7 @@ // Mantis 3333 (ivan_ra): optimized version function PaTokenizeTag(const TokenStr: string): TTokenKind; var - Len,i: Integer; + Len, I: Integer; HVal: Integer; begin Result := P_UNKNOWN; @@ -397,9 +396,10 @@ if (MIN_WORD_LENGTH <= Len) and (Len <= MAX_WORD_LENGTH) then begin HVal := Len; - for i:=1 to Len do begin - HVal := HVal + AssoIndices[(Byte(TokenStr[i]) - Byte('a')) and $1F]; - if i=3 then + for I:=1 to Len do + begin + HVal := HVal + AssoIndices[(Byte(TokenStr[I]) - Byte('a')) and $1F]; + if I = 3 then Break; end; HVal := HVal + AssoIndices[(Byte(TokenStr[Len]) - Byte('a')) and $1F]; @@ -408,10 +408,8 @@ end; if HVal <> -1 then - begin if Cmp(WordList[HVal].Token, TokenStr) then Result := WordList[HVal].TTyp; - end; end; const Modified: trunk/jvcl/run/JvPropertyStore.pas =================================================================== --- trunk/jvcl/run/JvPropertyStore.pas 2006-11-25 10:28:45 UTC (rev 11039) +++ trunk/jvcl/run/JvPropertyStore.pas 2006-11-25 15:49:51 UTC (rev 11040) @@ -169,14 +169,15 @@ {$IFDEF HAS_UNIT_RTLCONSTS} RTLConsts, {$ENDIF HAS_UNIT_RTLCONSTS} - Consts, SysUtils, TypInfo, JclSynch, JvStrings, JvResources; + Consts, SysUtils, TypInfo, + JclSynch, + JvStrings, JvResources; const cLastSaveTime = 'Last Save Time'; cObject = 'Object'; cItem = 'Item'; - //=== { TCombinedStrings } =================================================== type @@ -402,6 +403,10 @@ end; procedure TJvCustomPropertyStore.CloneClass(Src, Dest: TPersistent); +var + Index: Integer; + SrcPropInfo: PPropInfo; + DestPropInfo: PPropInfo; function GetPropKind(PropInfo: PPropInfo): TTypeKind; begin @@ -412,10 +417,6 @@ {$ENDIF CLR} end; -var - Index: Integer; - SrcPropInfo: PPropInfo; - DestPropInfo: PPropInfo; begin for Index := 0 to GetPropCount(Src) - 1 do if CompareText(GetPropName(Src, Index), 'Name') <> 0 then @@ -507,6 +508,7 @@ begin PropName := GetPropName(Self, Index); VisPropName := AppStorage.TranslatePropertyName(Self, PropName, False); + // (rom) very bad style. Better stacked if chain like the other ones. if IgnoreProperties.IndexOf(PropName) >= 0 then Continue; if FIntIgnoreProperties.IndexOf(PropName) >= 0 then @@ -543,6 +545,7 @@ for Index := 0 to GetPropCount(Self) - 1 do begin PropName := GetPropName(Self, Index); + // (rom) very bad style. Better stacked if chain like the other ones. if IgnoreProperties.IndexOf(PropName) >= 0 then Continue; if FIntIgnoreProperties.IndexOf(PropName) >= 0 then @@ -602,7 +605,7 @@ procedure TJvCustomPropertyStore.StoreProperties; var SaveProperties: Boolean; - JclMutex : TJclMutex; + JclMutex: TJclMutex; procedure ExecuteStoreProperties; begin @@ -637,7 +640,8 @@ if SynchronizeStoreProperties then begin - JclMutex := TJclMutex.Create(nil, False, B64Encode(RsJvPropertyStoreMutexStorePropertiesProcedureName+AppStoragePath)); + JclMutex := TJclMutex.Create(nil, False, + B64Encode(RsJvPropertyStoreMutexStorePropertiesProcedureName + AppStoragePath)); try if JclMutex.WaitForever = wrSignaled then try @@ -652,8 +656,7 @@ end; end else - ExecuteStoreProperties - + ExecuteStoreProperties; end; procedure TJvCustomPropertyStore.LoadData; @@ -837,8 +840,8 @@ Strings[Index] := Sender.ReadString(Sender.ConcatPaths([Path, ItemName + IntToStr(Index)])); end; -procedure TJvCustomPropertyListStore.WriteSLOItem(Sender: TJvCustomAppStorage; const Path: string; const List: TObject; - const Index: Integer; const ItemName: string); +procedure TJvCustomPropertyListStore.WriteSLOItem(Sender: TJvCustomAppStorage; + const Path: string; const List: TObject; const Index: Integer; const ItemName: string); begin if Assigned(Objects[Index]) then begin Modified: trunk/jvcl/run/JvToolBar.pas =================================================================== --- trunk/jvcl/run/JvToolBar.pas 2006-11-25 10:28:45 UTC (rev 11039) +++ trunk/jvcl/run/JvToolBar.pas 2006-11-25 15:49:51 UTC (rev 11040) @@ -85,7 +85,6 @@ implementation - constructor TJvToolBar.Create(AOwner: TComponent); begin inherited Create(AOwner); @@ -98,9 +97,7 @@ destructor TJvToolBar.Destroy; begin if (Menu <> nil) and (Menu is TJvMainMenu) then - begin TJvMainMenu(Menu).UnregisterChanges(FChangeLink); - end; FChangeLink.Free; inherited Destroy; end; @@ -162,18 +159,14 @@ Exit; if Assigned(Menu) and (Menu is TJvMainMenu) then - begin // if the current menu is a TJvMainMenu, we must // unregister us from being told the changes TJvMainMenu(Menu).UnregisterChanges(FChangeLink); - end; if Value is TJvMainMenu then - begin // if the new menu is a TJvMainMenu then we register a link // with the menu to get informed when it has changed TJvMainMenu(Value).RegisterChanges(FChangeLink); - end; // and we set the inherited value, so that the inherited // methods can deal with the menu too, the most obvious @@ -267,7 +260,7 @@ // we process the WM_NOTIFY message ourselves to be able to // display a dropdown JvMenu instead of a regular one. // However, we do that only if the menu is a TJvMainMenu and - // if the code in WM_NOTIFY is TBN_DROPDOW. Anything else + // if the code in WM_NOTIFY is TBN_DROPDOWN. Anything else // is given back to the inherited method. // The code is mostly inspired from the Delphi 6 VCL source code, // the major change being the creation of a TJvPopupMenu Modified: trunk/jvcl/run/JvValidateEdit.pas =================================================================== --- trunk/jvcl/run/JvValidateEdit.pas 2006-11-25 10:28:45 UTC (rev 11039) +++ trunk/jvcl/run/JvValidateEdit.pas 2006-11-25 15:49:51 UTC (rev 11040) @@ -334,8 +334,7 @@ {$ENDIF HAS_UNIT_VARIANTS} JclStrings, JvJCLUtils, JvResources; -function IsGreater(Value, MaxValue: Double; - MaxValueIncluded: Boolean): Boolean; +function IsGreater(Value, MaxValue: Double; MaxValueIncluded: Boolean): Boolean; begin if MaxValueIncluded then Result := Value >= MaxValue @@ -343,8 +342,7 @@ Result := Value > MaxValue; end; -function IsLower(Value, MinValue: Double; - MinValueIncluded: Boolean): Boolean; +function IsLower(Value, MinValue: Double; MinValueIncluded: Boolean): Boolean; begin if MinValueIncluded then Result := Value <= MinValue @@ -422,7 +420,6 @@ end; end; - //=== { TJvCustomValidateEdit } ============================================== constructor TJvCustomValidateEdit.Create(AOwner: TComponent); @@ -562,11 +559,10 @@ EditText := FEditText; end; -procedure TJvCustomValidateEdit.SetDisplayFormat(NewValue: - TJvValidateEditDisplayFormat); +procedure TJvCustomValidateEdit.SetDisplayFormat(NewValue: TJvValidateEditDisplayFormat); const - ALPHABET = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; - NUMBERS = '0123456789'; + Alphabet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; + Numbers = '0123456789'; var OldFormat: TJvValidateEditDisplayFormat; begin @@ -577,13 +573,13 @@ case FDisplayFormat of dfAlphabetic: begin - FCheckChars := ALPHABET; + FCheckChars := Alphabet; if FAutoAlignment then Alignment := taLeftJustify; end; dfAlphaNumeric: begin - FCheckChars := ALPHABET + NUMBERS; + FCheckChars := Alphabet + Numbers; if FAutoAlignment then Alignment := taLeftJustify; end; @@ -605,7 +601,7 @@ end; dfCurrency: begin - FCheckChars := NUMBERS + DecimalSeparator; + FCheckChars := Numbers + DecimalSeparator; if FAutoAlignment then Alignment := taRightJustify; if not (csLoading in ComponentState) then @@ -614,19 +610,19 @@ end; dfFloat, dfFloatGeneral, dfPercent: begin - FCheckChars := NUMBERS + DecimalSeparator; + FCheckChars := Numbers + DecimalSeparator; if FAutoAlignment then Alignment := taRightJustify; end; dfHex: begin - FCheckChars := NUMBERS + 'ABCDEFabcdef'; + FCheckChars := Numbers + 'ABCDEFabcdef'; if FAutoAlignment then Alignment := taRightJustify; end; dfInteger: begin - FCheckChars := NUMBERS; + FCheckChars := Numbers; if FAutoAlignment then Alignment := taRightJustify; end; @@ -638,13 +634,13 @@ end; dfScientific: begin - FCheckChars := NUMBERS + 'Ee' + DecimalSeparator; + FCheckChars := Numbers + 'Ee' + DecimalSeparator; if FAutoAlignment then Alignment := taRightJustify; end; dfYear: begin - FCheckChars := NUMBERS; + FCheckChars := Numbers; if FAutoAlignment then Alignment := taRightJustify; MaxLength := 4; @@ -949,24 +945,27 @@ ExpectedNegPos := 1; ExpectedNegChar := '('; end; - 1, 5, 8, 9: ExpectedNegPos := 1; - 2: ExpectedNegPos := 2; - 3, 7, 10, 11: ExpectedNegPos := Length(S); - 6: ExpectedNegPos := Length(S)-1; - 12: ExpectedNegPos := 3; - 13: ExpectedNegPos := Length(S)-2; + 1, 5, 8, 9: + ExpectedNegPos := 1; + 2: + ExpectedNegPos := 2; + 3, 7, 10, 11: + ExpectedNegPos := Length(S); + 6: + ExpectedNegPos := Length(S)-1; + 12: + ExpectedNegPos := 3; + 13: + ExpectedNegPos := Length(S)-2; end; if (Key = '(') and (Posn = 1) and (NegCurrFormat in [0, 4, 14, 15]) then - begin Key := '-'; - end; - + Result := (Pos(Key, FCheckChars) > 0) or ((Key = DecimalSeparator) and (Pos(DecimalSeparator, S) = 0)) or ((Key = '+') and (Posn = 1) and ((Pos('+', S) = 0) or (SelLength > 0))) or ((Key = '-') and (Posn = ExpectedNegPos) and ((Pos(ExpectedNegChar, S) = 0) or (SelLength > 0))); - end; dfNonCheckChars: Result := Pos(Key, FCheckChars) = 0; @@ -1085,7 +1084,7 @@ procedure TJvCustomValidateEdit.FocusKilled(NextWnd: THandle); var - DisplayedText : string; + DisplayedText: string; begin if not (csDestroying in ComponentState) then begin @@ -1107,10 +1106,10 @@ Ps := 0; if TrimDecimals then begin - I := Pos('e',LowerCase(NewValue)); + I := Pos('e', LowerCase(NewValue)); if (DisplayFormat = dfScientific) and (I <> 0) then begin - Exponent := Copy(NewValue,I,Length(NewValue)); + Exponent := Copy(NewValue, I, Length(NewValue)); Dec(I); end else begin @@ -1141,7 +1140,8 @@ // The number types need to be formatted if FAllowEmpty and (FEditText = '') then ChangeText('') - else if (FDisplayFormat in [dfBinary, dfCurrency, dfFloat, dfFloatGeneral, dfInteger, dfOctal, dfPercent, dfScientific, dfYear]) and + else + if (FDisplayFormat in [dfBinary, dfCurrency, dfFloat, dfFloatGeneral, dfInteger, dfOctal, dfPercent, dfScientific, dfYear]) and (AsFloat = 0) and FZeroEmpty then ChangeText('') else @@ -1167,9 +1167,7 @@ // is directly shown correctly. (Mantis 3493) if (FCriticalPoints.CheckPoints <> cpNone) and (FDisplayFormat in [dfBinary, dfCurrency, dfFloat, dfFloatGeneral, dfHex, dfInteger, dfOctal, dfPercent, dfScientific, dfYear]) then - begin SetFontColor; - end; end; end; @@ -1228,7 +1226,7 @@ procedure TJvCustomValidateEdit.Change; var - DisplayedText : string; + DisplayedText: string; begin // Update FEditText for User changes, so that the AsInteger, etc, // functions work while editing @@ -1283,7 +1281,7 @@ Result := IsGreater(AsFloat, FCriticalPoints.MinValue, FCriticalPoints.MinValueIncluded); cpBoth: Result := IsLower(AsFloat, FCriticalPoints.MaxValue, FCriticalPoints.MaxValueIncluded) and - IsGreater(AsFloat, FCriticalPoints.MinValue, FCriticalPoints.MinValueIncluded); + IsGreater(AsFloat, FCriticalPoints.MinValue, FCriticalPoints.MinValueIncluded); end; if Assigned(FOnIsValid) then FOnIsValid(Self, Result); @@ -1450,9 +1448,8 @@ Result := (FColorBelow <> FDefColorBelow); end; -procedure TJvValidateEditCriticalPoints.SetDefaults( - ACheckPoints: TJvValidateEditCriticalPointsCheck; AColorAbove, - AColorBelow: TColor); +procedure TJvValidateEditCriticalPoints.SetDefaults(ACheckPoints: TJvValidateEditCriticalPointsCheck; + AColorAbove, AColorBelow: TColor); begin FDefCheckPoints := ACheckPoints; FCheckPoints := ACheckPoints; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ou...@us...> - 2006-11-27 22:26:44
|
Revision: 11051 http://svn.sourceforge.net/jvcl/?rev=11051&view=rev Author: outchy Date: 2006-11-27 14:26:43 -0800 (Mon, 27 Nov 2006) Log Message: ----------- Replacing sequences of VirtualProtect/Write/VirtualProtect by call to JclSysUtils.WriteProtectedMemory. Modified Paths: -------------- trunk/jvcl/design/JvDataProviderItemDesign.pas trunk/jvcl/install/JVCLInstall/MissingPropertyFix.pas trunk/jvcl/run/JvDSADialogs.pas trunk/jvcl/run/JvImageList.pas trunk/jvcl/run/JvThemes.pas trunk/jvcl/run/JvVCL5Utils.pas Modified: trunk/jvcl/design/JvDataProviderItemDesign.pas =================================================================== --- trunk/jvcl/design/JvDataProviderItemDesign.pas 2006-11-27 21:42:41 UTC (rev 11050) +++ trunk/jvcl/design/JvDataProviderItemDesign.pas 2006-11-27 22:26:43 UTC (rev 11051) @@ -63,6 +63,7 @@ QWindows, {$ENDIF VisualCLX} ImgList, + JclSysUtils, JvDsgnConsts, JvJCLUtils, JvVCL5Utils; type @@ -218,7 +219,7 @@ var VMTTypeInfo: PPTypeInfo; NewTypeInfo: PTypeInfo; - OldProtect, Dummy: Cardinal; + WrittenBytes: Cardinal; begin VMTTypeInfo := VMTTypeInfoFromClass(AClass); { Below the typeinfo is cloned, while an additional 2048 bytes are reserved at the end. This 2048 @@ -227,44 +228,21 @@ properties to be appended to the existing property list. } // (rom) is there some security so we do not blow up everything by exceeding the 2048 bytes? NewTypeInfo := CloneTypeInfo(VMTTypeInfo^, 2048); - {$IFDEF MSWINDOWS} - if VirtualProtect(VMTTypeInfo, SizeOf(NewTypeInfo), PAGE_EXECUTE_WRITECOPY, OldProtect) then - begin - try - VMTTypeInfo^ := NewTypeInfo; - finally - VirtualProtect(VMTTypeInfo, SizeOf(NewTypeInfo), OldProtect, Dummy); - end; - end - else + if not WriteProtectedMemory(VMTTypeInfo, @NewTypeInfo, SizeOf(NewTypeInfo), WrittenBytes) then FreeTypeInfo(NewTypeInfo); - {$ENDIF MSWINDOWS} - {$IFDEF LINUX} - WriteProcessMemory(GetCurrentProcess, VMTTypeInfo, NewTypeInfo, SizeOf(NewTypeInfo), OldProtect); // asn ??? - {$ENDIF LINUX} end; procedure ClearTypeInfo(const AClass: TClass); var VMTTypeInfo: PPTypeInfo; OldTypeInfo, NewTypeInfo: PTypeInfo; - OldProtect, Dummy: Cardinal; + WrittenBytes: Cardinal; begin VMTTypeInfo := VMTTypeInfoFromClass(AClass); OldTypeInfo := VMTTypeInfo^; NewTypeInfo := GetOrgTypeInfo(OldTypeInfo); - {$IFDEF MSWINDOWS} - if VirtualProtect(VMTTypeInfo, SizeOf(NewTypeInfo), PAGE_EXECUTE_WRITECOPY, OldProtect) then - try - VMTTypeInfo^ := NewTypeInfo; - finally - VirtualProtect(VMTTypeInfo, SizeOf(NewTypeInfo), OldProtect, Dummy); - end; - {$ENDIF MSWINDOWS} - {$IFDEF LINUX} - WriteProcessMemory(GetCurrentProcess, VMTTypeInfo, NewTypeInfo, SizeOf(NewTypeInfo), OldProtect); // asn ??? - {$ENDIF LINUX} + WriteProtectedMemory(VMTTypeInfo, @NewTypeInfo, SizeOf(NewTypeInfo), WrittenBytes); FreeTypeInfo(OldTypeInfo); end; Modified: trunk/jvcl/install/JVCLInstall/MissingPropertyFix.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/MissingPropertyFix.pas 2006-11-27 21:42:41 UTC (rev 11050) +++ trunk/jvcl/install/JVCLInstall/MissingPropertyFix.pas 2006-11-27 22:26:43 UTC (rev 11051) @@ -35,6 +35,9 @@ implementation +uses + JclSysUtils; + {$IFNDEF COMPILER7_UP} type @@ -64,7 +67,7 @@ var Jump: TJump; DestP, OldP: Pointer; - OldProt, Dummy: Cardinal; + WrittenBytes: Cardinal; begin if IsLibrary then raise Exception.Create('Not allowed in a DLL'); @@ -73,11 +76,7 @@ DestP := @TNativeBitBtn.CreateParams; OldP := @TOpenBitBtn.CreateParams; Jump.Offset := Integer(DestP) - Integer(OldP) - SizeOf(TJump); - if VirtualProtect(OldP, SizeOf(TJump), PAGE_EXECUTE_READWRITE, @OldProt) then - begin - Move(Jump, OldP^, SizeOf(TJump)); - VirtualProtect(OldP, SizeOf(TJump), OldProt, Dummy); - end; + WriteProtectedMemory(OldP, @Jump, SizeOf(TJump), WrittenBytes); end; {$ENDIF !COMPILER7_UP} Modified: trunk/jvcl/run/JvDSADialogs.pas =================================================================== --- trunk/jvcl/run/JvDSADialogs.pas 2006-11-27 21:42:41 UTC (rev 11050) +++ trunk/jvcl/run/JvDSADialogs.pas 2006-11-27 22:26:43 UTC (rev 11051) @@ -2189,14 +2189,9 @@ procedure SetVirtualMethodInstance(Instance: TObject; const VMTIdx: Integer; const MethodPtr: Pointer); var - OldProt, Dummy: Cardinal; + WrittenBytes: Cardinal; begin - VirtualProtect(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)), SizeOf(Pointer), PAGE_EXECUTE_READWRITE, OldProt); - try - PInteger(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)))^ := Integer(MethodPtr); - finally - VirtualProtect(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)), SizeOf(Pointer), OldProt, Dummy); - end; + WriteProtectedMemory(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)), @MethodPtr, SizeOf(Pointer), WrittenBytes); end; //=== { TPatchedForm } ======================================================= Modified: trunk/jvcl/run/JvImageList.pas =================================================================== --- trunk/jvcl/run/JvImageList.pas 2006-11-27 21:42:41 UTC (rev 11050) +++ trunk/jvcl/run/JvImageList.pas 2006-11-27 22:26:43 UTC (rev 11051) @@ -265,6 +265,7 @@ {$IFDEF VCL} ActiveX, {$ENDIF VCL} + JclSysUtils, JvJclUtils, // SameFileName() for Delphi 5 JvJVCLUtils, JvResources; @@ -328,20 +329,14 @@ procedure UninstallHandleNeededHook; var OrgProc: Pointer; - OldProtect, Dummy: Cardinal; + WrittenBytes: Cardinal; begin if HandleNeededHookInstalled then begin OrgProc := @TCustomImageListAccessProtected.HandleNeeded; - if VirtualProtect(OrgProc, SizeOf(SavedNeededHookCode), PAGE_EXECUTE_READWRITE, OldProtect) then - try - PJumpCode(OrgProc)^ := SavedNeededHookCode; - FlushInstructionCache(GetCurrentProcess, OrgProc, SizeOf(SavedNeededHookCode)); + if WriteProtectedMemory(OrgProc, @SavedNeededHookCode, SizeOf(SavedNeededHookCode), WrittenBytes) then HandleNeededHookInstalled := False; - finally - VirtualProtect(OrgProc, SizeOf(SavedNeededHookCode), OldProtect, Dummy); - end; end; end; @@ -350,7 +345,7 @@ OrgProc: Pointer; NewProc: Pointer; Code: TJumpCode; - OldProtect, Dummy: Cardinal; + N: Cardinal; begin if not HandleNeededHookInstalled then begin @@ -360,17 +355,9 @@ Code.Jump := $E9; Code.Offset := Integer(NewProc) - Integer(OrgProc) - SizeOf(Code); - if ReadProcessMemory(GetCurrentProcess, OrgProc, @SavedNeededHookCode, SizeOf(SavedNeededHookCode), Dummy) and - VirtualProtect(OrgProc, SizeOf(SavedNeededHookCode), PAGE_EXECUTE_READWRITE, OldProtect) then - begin - try - PJumpCode(OrgProc)^ := Code; + if ReadProcessMemory(GetCurrentProcess, OrgProc, @SavedNeededHookCode, SizeOf(SavedNeededHookCode), N) and + WriteProtectedMemory(OrgProc, @Code, SizeOf(Code), N) then HandleNeededHookInstalled := True; - FlushInstructionCache(GetCurrentProcess, OrgProc, SizeOf(Code)); - finally - VirtualProtect(OrgProc, SizeOf(SavedNeededHookCode), OldProtect, Dummy); - end; - end; end; end; Modified: trunk/jvcl/run/JvThemes.pas =================================================================== --- trunk/jvcl/run/JvThemes.pas 2006-11-27 21:42:41 UTC (rev 11050) +++ trunk/jvcl/run/JvThemes.pas 2006-11-27 22:26:43 UTC (rev 11051) @@ -825,6 +825,8 @@ implementation +uses + JclSysUtils; procedure DrawThemedBackground(Control: TControl; Canvas: TCanvas; const R: TRect; NeedsParentBackground: Boolean = True); @@ -1738,7 +1740,7 @@ var Code: TJumpCode; P: procedure; - N, OldProtect, Dummy: Cardinal; + N: Cardinal; begin if WinControlHookInstalled then Exit; @@ -1757,20 +1759,13 @@ Code.Offset := Integer(@WMEraseBkgndHook) - (Integer(@P) + 1) - SizeOf(Code); + { The strange thing is that the $e9 cannot be overriden with a "PUSH xxx" } if ReadProcessMemory(GetCurrentProcess, Pointer(Cardinal(@P) + 1), @SavedWinControlCode, SizeOf(SavedWinControlCode), N) - and VirtualProtect(Pointer(Cardinal(@P) + 1), SizeOf(Code), PAGE_EXECUTE_READWRITE, OldProtect) then + and WriteProtectedMemory(Pointer(Cardinal(@P) + 1), @Code, SizeOf(Code), N) then begin - try - // (outchy) to be verified without WriteProcessMemory - { The strange thing is that the $e9 cannot be overriden with a "PUSH xxx" } - PJumpCode(Cardinal(@P) + 1)^ := Code; - WinControlHookInstalled := True; - ThemeHooks.FEraseBkgndHooked := True; - FlushInstructionCache(GetCurrentProcess, Pointer(Cardinal(@P) + 1), SizeOf(Code)); - finally - VirtualProtect(Pointer(Cardinal(@P) + 1), SizeOf(Code), OldProtect, Dummy); - end; + WinControlHookInstalled := True; + ThemeHooks.FEraseBkgndHooked := True; end; end; end; Modified: trunk/jvcl/run/JvVCL5Utils.pas =================================================================== --- trunk/jvcl/run/JvVCL5Utils.pas 2006-11-27 21:42:41 UTC (rev 11050) +++ trunk/jvcl/run/JvVCL5Utils.pas 2006-11-27 22:26:43 UTC (rev 11051) @@ -280,7 +280,8 @@ {$IFDEF COMPILER5} uses - CommCtrl; + CommCtrl, + JclSysUtils; var GlobalCollectionHooked: Boolean = False; @@ -669,19 +670,6 @@ Result := Result and (N = Count); end; -function WriteProtectedMemory(Address: Pointer; const Buffer; Count: Cardinal): Boolean; -var - OldProtect, Dummy: Cardinal; -begin - Result := VirtualProtect(Address, Count, PAGE_EXECUTE_READWRITE, OldProtect); - if Result then - try - Move(Buffer, Address^, Count); - finally - VirtualProtect(Address, Count, OldProtect, Dummy); - end; -end; - type TJumpCode = packed record Jmp: Byte; // jmp Offset This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-11-28 08:54:31
|
Revision: 11053 http://svn.sourceforge.net/jvcl/?rev=11053&view=rev Author: marquardt Date: 2006-11-28 00:54:29 -0800 (Tue, 28 Nov 2006) Log Message: ----------- palette icon was non-visual instead of visual Modified Paths: -------------- trunk/jvcl/images/TJVSEGMENTEDLEDDISPLAY.BMP trunk/jvcl/resources/JvHMIReg.dcr Modified: trunk/jvcl/images/TJVSEGMENTEDLEDDISPLAY.BMP =================================================================== (Binary files differ) Modified: trunk/jvcl/resources/JvHMIReg.dcr =================================================================== (Binary files differ) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-12-01 06:49:00
|
Revision: 11063 http://svn.sourceforge.net/jvcl/?rev=11063&view=rev Author: marquardt Date: 2006-11-30 22:48:57 -0800 (Thu, 30 Nov 2006) Log Message: ----------- added TJvFindReplaceEditor which is a companion to TJvFidReplace but for TJvCustomEditor descendants Modified Paths: -------------- trunk/jvcl/design/JvDlgsReg.pas trunk/jvcl/images/JvDlgsReg.rc trunk/jvcl/resources/JvDlgsReg.dcr trunk/jvcl/run/JvFindReplace.pas Added Paths: ----------- trunk/jvcl/images/TJVFINDREPLACEEDITOR.BMP Modified: trunk/jvcl/design/JvDlgsReg.pas =================================================================== --- trunk/jvcl/design/JvDlgsReg.pas 2006-11-30 19:25:04 UTC (rev 11062) +++ trunk/jvcl/design/JvDlgsReg.pas 2006-12-01 06:48:57 UTC (rev 11063) @@ -79,7 +79,7 @@ RegisterComponents(RsPaletteDialog, [TOpenPictureDialog, TSavePictureDialog, TPrinterSetupDialog]); {$ENDIF VisualCLX} RegisterComponents(RsPaletteDialog, [TJvSelectDirectory, TJvTipOfDay, - TJvFindReplace, TJvDSADialog]); + TJvFindReplace, TJvFindReplaceEditor, TJvDSADialog]); {$IFDEF VCL} RegisterComponents(RsPaletteDialog, [TJvPageSetupDialog, TJvPageSetupTitledDialog, TJvColorDialog, TJvAppletDialog]); Modified: trunk/jvcl/images/JvDlgsReg.rc =================================================================== --- trunk/jvcl/images/JvDlgsReg.rc 2006-11-30 19:25:04 UTC (rev 11062) +++ trunk/jvcl/images/JvDlgsReg.rc 2006-12-01 06:48:57 UTC (rev 11063) @@ -26,6 +26,7 @@ TJVDUALLISTDIALOG BITMAP "TJVDUALLISTDIALOG.BMP" TJVTIPOFDAY BITMAP "TJVTIPOFDAY.BMP" TJVFINDREPLACE BITMAP "TJVFINDREPLACE.BMP" +TJVFINDREPLACEEDITOR BITMAP "TJVFINDREPLACEEDITOR.BMP" TJVIMAGEDIALOG BITMAP "TJVIMAGEDIALOG.BMP" TJVDSADIALOG BITMAP "TJVDSADIALOG.BMP" TJVLOGINDIALOG BITMAP "TJVLOGINDIALOG.BMP" Added: trunk/jvcl/images/TJVFINDREPLACEEDITOR.BMP =================================================================== (Binary files differ) Property changes on: trunk/jvcl/images/TJVFINDREPLACEEDITOR.BMP ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/jvcl/resources/JvDlgsReg.dcr =================================================================== (Binary files differ) Modified: trunk/jvcl/run/JvFindReplace.pas =================================================================== --- trunk/jvcl/run/JvFindReplace.pas 2006-11-30 19:25:04 UTC (rev 11062) +++ trunk/jvcl/run/JvFindReplace.pas 2006-12-01 06:48:57 UTC (rev 11063) @@ -40,7 +40,7 @@ JclUnitVersioning, {$ENDIF UNITVERSIONING} SysUtils, Classes, Windows, Messages, Controls, Dialogs, StdCtrls, - JvComponentBase; + JvComponentBase, JvEditor; type TJvReplaceProgressEvent = procedure(Sender: TObject; Position: Integer; @@ -154,6 +154,33 @@ property HelpContext; end; + TJvFindReplaceEditor = class(TJvFindReplaceBase) + private + FEditControl: TJvCustomEditor; + procedure SetEditControl(Value: TJvCustomEditor); + protected + procedure Notification(AComponent: TComponent; Operation: TOperation); override; + function GetEditText: string; override; + function GetEditSelText: string; override; + function GetEditSelStart: Integer; override; + function GetEditSelLength: Integer; override; + function GetEditHandle: HWND; override; + procedure TestEditAssigned; override; + procedure SetEditText(const Text: string); override; + procedure SetEditSelText(const Text: string); override; + procedure SetEditSelStart(Start: Integer); override; + procedure SetEditSelLength(Length: Integer); override; + procedure SetEditFocus; override; + published + property EditControl: TJvCustomEditor read FEditControl write SetEditControl; + property Fast; + property Options; + property FindText; + property ReplaceText; + property ShowDialogs; + property HelpContext; + end; + {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( @@ -395,6 +422,78 @@ FEditControl.SetFocus; end; +//=== { TJvFindReplaceEditor } =============================================== + +procedure TJvFindReplaceEditor.Notification(AComponent: TComponent; Operation: TOperation); +begin + inherited Notification(AComponent, Operation); + if (Operation = opRemove) and (AComponent = FEditControl) then + FEditControl := nil; +end; + +procedure TJvFindReplaceEditor.SetEditControl(Value: TJvCustomEditor); +begin + FEditControl := Value; + if Value <> nil then + Value.FreeNotification(Self); +end; + +procedure TJvFindReplaceEditor.TestEditAssigned; +begin + if not Assigned(FEditControl) then + raise EJVCLException.CreateRes(@RsENoEditAssigned); +end; + +function TJvFindReplaceEditor.GetEditText: string; +begin + Result := FEditControl.Lines.Text; +end; + +function TJvFindReplaceEditor.GetEditSelText: string; +begin + Result := FEditControl.SelText; +end; + +function TJvFindReplaceEditor.GetEditSelStart: Integer; +begin + Result := FEditControl.SelStart; +end; + +function TJvFindReplaceEditor.GetEditSelLength: Integer; +begin + Result := FEditControl.SelLength; +end; + +function TJvFindReplaceEditor.GetEditHandle: HWND; +begin + Result := 0; +end; + +procedure TJvFindReplaceEditor.SetEditText(const Text: string); +begin + FEditControl.Lines.Text := Text; +end; + +procedure TJvFindReplaceEditor.SetEditSelText(const Text: string); +begin + FEditControl.SelText := Text; +end; + +procedure TJvFindReplaceEditor.SetEditSelStart(Start: Integer); +begin + FEditControl.SelStart := Start; +end; + +procedure TJvFindReplaceEditor.SetEditSelLength(Length: Integer); +begin + FEditControl.SelLength := Length; +end; + +procedure TJvFindReplaceEditor.SetEditFocus; +begin + FEditControl.SetFocus; +end; + //=== { TJvFindReplaceBase } ================================================= constructor TJvFindReplaceBase.Create(AOwner: TComponent); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-12-02 07:06:53
|
Revision: 11065 http://svn.sourceforge.net/jvcl/?rev=11065&view=rev Author: marquardt Date: 2006-12-01 23:06:50 -0800 (Fri, 01 Dec 2006) Log Message: ----------- new component TJvFindReplaceEditor merged into TJvFindReplace Modified Paths: -------------- trunk/jvcl/design/JvDlgsReg.pas trunk/jvcl/design/JvWizardEditorForm.dfm trunk/jvcl/design/JvWizardEditorForm.pas trunk/jvcl/images/JvDlgsReg.rc trunk/jvcl/packages/c5/JvDlgsC5D.bpk trunk/jvcl/packages/c5/JvDlgsC5D.cpp trunk/jvcl/packages/c5/JvDlgsC5D.dpk trunk/jvcl/packages/c6/JvDlgsC6D.bpk trunk/jvcl/packages/c6/JvDlgsC6D.dpk trunk/jvcl/packages/d10/JvDlgsD10D.dpk trunk/jvcl/packages/d5/JvDlgsD5D.dpk trunk/jvcl/packages/d6/JvDlgsD6D.dpk trunk/jvcl/packages/d7/JvDlgsD7D.dpk trunk/jvcl/packages/d7clx/JvQDlgsD7D.dpk trunk/jvcl/packages/d9/JvDlgsD9D.dpk trunk/jvcl/packages/k3/JvQDlgsK3D.dpk trunk/jvcl/packages/xml/JvDlgs-D.xml trunk/jvcl/resources/JvDlgsReg.dcr trunk/jvcl/run/JvFindReplace.pas Added Paths: ----------- trunk/jvcl/design/JvFindReplaceEditor.pas Removed Paths: ------------- trunk/jvcl/images/TJVFINDREPLACEEDITOR.BMP Modified: trunk/jvcl/design/JvDlgsReg.pas =================================================================== --- trunk/jvcl/design/JvDlgsReg.pas 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/design/JvDlgsReg.pas 2006-12-02 07:06:50 UTC (rev 11065) @@ -63,7 +63,7 @@ JvBaseDlg, JvFindReplace, JvDSADialogs, JvTipOfDay, JvCommonExecDlg, JvDesktopAlert, JvDesktopAlertEditors, JvProgressComponent, JvSelectDirectory, JvImageDlg, JvLoginForm, JvDualList, JvProgressDialog, JvBaseDlgEditor, - JvTipOfDayEditor, JvProgressComponentEditor; + JvTipOfDayEditor, JvProgressComponentEditor, JvFindReplaceEditor; {$R JvDlgsReg.dcr} @@ -79,7 +79,7 @@ RegisterComponents(RsPaletteDialog, [TOpenPictureDialog, TSavePictureDialog, TPrinterSetupDialog]); {$ENDIF VisualCLX} RegisterComponents(RsPaletteDialog, [TJvSelectDirectory, TJvTipOfDay, - TJvFindReplace, TJvFindReplaceEditor, TJvDSADialog]); + TJvFindReplace, TJvDSADialog]); {$IFDEF VCL} RegisterComponents(RsPaletteDialog, [TJvPageSetupDialog, TJvPageSetupTitledDialog, TJvColorDialog, TJvAppletDialog]); @@ -95,12 +95,12 @@ {$ENDIF USEWINDOWS} RegisterComponents(RsPaletteDialog, [TJvLoginDialog, TJvProgressDialog, TJvProgressComponent]); {$IFDEF USEWINDOWS} - RegisterComponents(RsPaletteDialog, [TJvDiskPrompt, TJvCopyError, - TJvDeleteError, TJvRenameError]); + RegisterComponents(RsPaletteDialog, [TJvDiskPrompt, TJvCopyError, TJvDeleteError, TJvRenameError]); {$ENDIF USEWINDOWS} - RegisterComponents(RsPaletteDialog, [TJvDesktopAlert, TJvDesktopAlertStack, - TJvDualListDialog]); - RegisterPropertyEditor(TypeInfo(TJvCustomDesktopAlertStyleHandler), TJvDesktopAlert, '', TJvCustomDesktopAlertStyleHandlerEditor); + RegisterComponents(RsPaletteDialog, [TJvDesktopAlert, TJvDesktopAlertStack, TJvDualListDialog]); + RegisterPropertyEditor(TypeInfo(TJvCustomDesktopAlertStyleHandler), TJvDesktopAlert, '', + TJvCustomDesktopAlertStyleHandlerEditor); + RegisterPropertyEditor(TypeInfo(TJvEditControlName), TJvFindReplace, 'EditControl', TJvFindReplaceProperty); {$IFDEF VCL} RegisterPropertyEditor(TypeInfo(string), TJvAppletDialog, cAppletName, TJvAppletNameProperty); RegisterPropertyEditor(TypeInfo(Integer), TJvAppletDialog, cAppletIndex, TJvAppletIndexProperty); Added: trunk/jvcl/design/JvFindReplaceEditor.pas =================================================================== --- trunk/jvcl/design/JvFindReplaceEditor.pas (rev 0) +++ trunk/jvcl/design/JvFindReplaceEditor.pas 2006-12-02 07:06:50 UTC (rev 11065) @@ -0,0 +1,72 @@ +{----------------------------------------------------------------------------- +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: JvFindReplaceEditor.pas, released on 2006-12-02. + +The Initial Developer of the Original Code is Robert Marquardt [robert_marquardt att gmx dott de]. +Portions created by Robert Marquardt are Copyright (C) 2003 Robert Marquardt. +All Rights Reserved. + +Contributor(s): + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.sourceforge.net + +Known Issues: +-----------------------------------------------------------------------------} +// $Id$ + +unit JvFindReplaceEditor; + +{$I jvcl.inc} + +interface + +uses + Classes, SysUtils, + {$IFDEF COMPILER6_UP} + DesignEditors, DesignIntf; + {$ELSE} + DsgnIntf; + {$ENDIF COMPILER6_UP} + +type + TJvFindReplaceProperty = class(TComponentProperty) + public + function GetAttributes: TPropertyAttributes; override; + procedure GetValues(Proc: TGetStrProc); override; + end; + +implementation + +uses + StdCtrls, + JvFindReplace, JvEditor, JvDsgnTypes; + +function TJvFindReplaceProperty.GetAttributes: TPropertyAttributes; +begin + Result := [paValueList]; +end; + +procedure TJvFindReplaceProperty.GetValues(Proc: TGetStrProc); +var + I: Integer; + Component: TComponent; +begin + for I := 0 to Designer.GetRoot.ComponentCount - 1 do + begin + Component := Designer.GetRoot.Components[I]; + if (Component.Name <> '') and ((Component is TJvCustomEditor) or (Component is TCustomEdit)) then + Proc(Component.Name); + end; +end; + +end. + Modified: trunk/jvcl/design/JvWizardEditorForm.dfm =================================================================== --- trunk/jvcl/design/JvWizardEditorForm.dfm 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/design/JvWizardEditorForm.dfm 2006-12-02 07:06:50 UTC (rev 11065) @@ -1,8 +1,8 @@ object JvWizardPageListEditor: TJvWizardPageListEditor Left = 192 Top = 107 - ClientWidth = 184 - ClientHeight = 273 + Width = 192 + Height = 304 Caption = 'K Wizard Page Editor' Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -37,12 +37,12 @@ Style = tbsDropDown end object btnDeletePages: TToolButton - Left = 38 + Left = 40 Top = 0 Action = actDeletePages end object ToolButton1: TToolButton - Left = 61 + Left = 63 Top = 0 Width = 8 Caption = 'ToolButton1' @@ -50,12 +50,12 @@ Style = tbsSeparator end object tbMoveUp: TToolButton - Left = 69 + Left = 71 Top = 0 Action = acMoveUp end object tbMoveDown: TToolButton - Left = 92 + Left = 94 Top = 0 Action = acMoveDown end @@ -64,7 +64,7 @@ Left = 0 Top = 23 Width = 184 - Height = 256 + Height = 250 Align = alClient ItemHeight = 13 TabOrder = 1 Modified: trunk/jvcl/design/JvWizardEditorForm.pas =================================================================== --- trunk/jvcl/design/JvWizardEditorForm.pas 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/design/JvWizardEditorForm.pas 2006-12-02 07:06:50 UTC (rev 11065) @@ -110,10 +110,9 @@ procedure lbxWizardPagesClick(Sender: TObject); procedure lbxWizardPagesMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); - procedure lbxWizardPagesDragOver(Sender, Source: TObject; X, - Y: Integer; State: TDragState; var Accept: Boolean); - procedure lbxWizardPagesDragDrop(Sender, Source: TObject; X, - Y: Integer); + procedure lbxWizardPagesDragOver(Sender, Source: TObject; X, Y: Integer; + State: TDragState; var Accept: Boolean); + procedure lbxWizardPagesDragDrop(Sender, Source: TObject; X, Y: Integer); procedure actWizardPagesUpdate(Action: TBasicAction; var Handled: Boolean); procedure acMoveUpExecute(Sender: TObject); @@ -127,8 +126,7 @@ procedure AddPage(Page: TJvWizardCustomPage); procedure AddWelcomePage; procedure AddInteriorPage; - property Wizard: TJvWizard - read FWizard write SetWizard; + property Wizard: TJvWizard read FWizard write SetWizard; public procedure Activated; override; {$IFDEF COMPILER6_UP} Modified: trunk/jvcl/images/JvDlgsReg.rc =================================================================== --- trunk/jvcl/images/JvDlgsReg.rc 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/images/JvDlgsReg.rc 2006-12-02 07:06:50 UTC (rev 11065) @@ -26,7 +26,6 @@ TJVDUALLISTDIALOG BITMAP "TJVDUALLISTDIALOG.BMP" TJVTIPOFDAY BITMAP "TJVTIPOFDAY.BMP" TJVFINDREPLACE BITMAP "TJVFINDREPLACE.BMP" -TJVFINDREPLACEEDITOR BITMAP "TJVFINDREPLACEEDITOR.BMP" TJVIMAGEDIALOG BITMAP "TJVIMAGEDIALOG.BMP" TJVDSADIALOG BITMAP "TJVDSADIALOG.BMP" TJVLOGINDIALOG BITMAP "TJVLOGINDIALOG.BMP" Deleted: trunk/jvcl/images/TJVFINDREPLACEEDITOR.BMP =================================================================== (Binary files differ) Modified: trunk/jvcl/packages/c5/JvDlgsC5D.bpk =================================================================== --- trunk/jvcl/packages/c5/JvDlgsC5D.bpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/c5/JvDlgsC5D.bpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:10 UTC + Last generated: 02-12-2006 06:33:25 UTC ***************************************************************************** --> <PROJECT> @@ -19,6 +19,7 @@ ..\..\lib\c5\JvCommonDialogDEditor.obj ..\..\lib\c5\JvDesktopAlertEditors.obj ..\..\lib\c5\JvProgressComponentEditor.obj + ..\..\lib\c5\JvFindReplaceEditor.obj ..\..\lib\c5\JvDlgsReg.obj ..\..\lib\c5\JvDialogActnResForm.obj "/> Modified: trunk/jvcl/packages/c5/JvDlgsC5D.cpp =================================================================== --- trunk/jvcl/packages/c5/JvDlgsC5D.cpp 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/c5/JvDlgsC5D.cpp 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:10 UTC + Last generated: 02-12-2006 06:33:26 UTC ----------------------------------------------------------------------------- */ @@ -16,6 +16,7 @@ USEUNIT("..\..\design\JvCommonDialogDEditor.pas"); USEUNIT("..\..\design\JvDesktopAlertEditors.pas"); USEUNIT("..\..\design\JvProgressComponentEditor.pas"); +USEUNIT("..\..\design\JvFindReplaceEditor.pas"); USEUNIT("..\..\design\JvDlgsReg.pas"); USEUNIT("..\..\design\JvDialogActnResForm.pas"); USEPACKAGE("JvCoreC5R.bpi"); Modified: trunk/jvcl/packages/c5/JvDlgsC5D.dpk =================================================================== --- trunk/jvcl/packages/c5/JvDlgsC5D.dpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/c5/JvDlgsC5D.dpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:10 UTC + Last generated: 02-12-2006 06:33:27 UTC ----------------------------------------------------------------------------- } @@ -51,6 +51,7 @@ JvCommonDialogDEditor in '..\..\design\JvCommonDialogDEditor.pas' , JvDesktopAlertEditors in '..\..\design\JvDesktopAlertEditors.pas' , JvProgressComponentEditor in '..\..\design\JvProgressComponentEditor.pas' , + JvFindReplaceEditor in '..\..\design\JvFindReplaceEditor.pas' , JvDlgsReg in '..\..\design\JvDlgsReg.pas' , JvDialogActnResForm in '..\..\design\JvDialogActnResForm.pas' {JvDialogActions: TDataModule} ; Modified: trunk/jvcl/packages/c6/JvDlgsC6D.bpk =================================================================== --- trunk/jvcl/packages/c6/JvDlgsC6D.bpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/c6/JvDlgsC6D.bpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:11 UTC + Last generated: 02-12-2006 06:33:29 UTC ***************************************************************************** --> <PROJECT> @@ -19,6 +19,7 @@ ..\..\lib\c6\JvCommonDialogDEditor.obj ..\..\lib\c6\JvDesktopAlertEditors.obj ..\..\lib\c6\JvProgressComponentEditor.obj + ..\..\lib\c6\JvFindReplaceEditor.obj ..\..\lib\c6\JvDlgsReg.obj ..\..\lib\c6\JvDialogActnResForm.obj "/> @@ -97,6 +98,7 @@ <FILE FILENAME="..\..\design\JvCommonDialogDEditor.pas" FORMNAME="" UNITNAME="JvCommonDialogDEditor" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\design\JvDesktopAlertEditors.pas" FORMNAME="" UNITNAME="JvDesktopAlertEditors" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\design\JvProgressComponentEditor.pas" FORMNAME="" UNITNAME="JvProgressComponentEditor" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> + <FILE FILENAME="..\..\design\JvFindReplaceEditor.pas" FORMNAME="" UNITNAME="JvFindReplaceEditor" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\design\JvDlgsReg.pas" FORMNAME="" UNITNAME="JvDlgsReg" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\design\JvDialogActnResForm.pas" FORMNAME="JvDialogActions" UNITNAME="JvDialogActnResForm" CONTAINERID="PascalCompiler" DESIGNCLASS="TDataModule" LOCALCOMMAND=""/> </FILELIST> Modified: trunk/jvcl/packages/c6/JvDlgsC6D.dpk =================================================================== --- trunk/jvcl/packages/c6/JvDlgsC6D.dpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/c6/JvDlgsC6D.dpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:12 UTC + Last generated: 02-12-2006 06:33:30 UTC ----------------------------------------------------------------------------- } @@ -53,6 +53,7 @@ JvCommonDialogDEditor in '..\..\design\JvCommonDialogDEditor.pas' , JvDesktopAlertEditors in '..\..\design\JvDesktopAlertEditors.pas' , JvProgressComponentEditor in '..\..\design\JvProgressComponentEditor.pas' , + JvFindReplaceEditor in '..\..\design\JvFindReplaceEditor.pas' , JvDlgsReg in '..\..\design\JvDlgsReg.pas' , JvDialogActnResForm in '..\..\design\JvDialogActnResForm.pas' {JvDialogActions: TDataModule} ; Modified: trunk/jvcl/packages/d10/JvDlgsD10D.dpk =================================================================== --- trunk/jvcl/packages/d10/JvDlgsD10D.dpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/d10/JvDlgsD10D.dpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:38:36 UTC + Last generated: 02-12-2006 06:33:33 UTC ----------------------------------------------------------------------------- } @@ -53,6 +53,7 @@ JvCommonDialogDEditor in '..\..\design\JvCommonDialogDEditor.pas' , JvDesktopAlertEditors in '..\..\design\JvDesktopAlertEditors.pas' , JvProgressComponentEditor in '..\..\design\JvProgressComponentEditor.pas' , + JvFindReplaceEditor in '..\..\design\JvFindReplaceEditor.pas' , JvDlgsReg in '..\..\design\JvDlgsReg.pas' , JvDialogActnResForm in '..\..\design\JvDialogActnResForm.pas' {JvDialogActions: TDataModule} ; Modified: trunk/jvcl/packages/d5/JvDlgsD5D.dpk =================================================================== --- trunk/jvcl/packages/d5/JvDlgsD5D.dpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/d5/JvDlgsD5D.dpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:14 UTC + Last generated: 02-12-2006 06:33:34 UTC ----------------------------------------------------------------------------- } @@ -51,6 +51,7 @@ JvCommonDialogDEditor in '..\..\design\JvCommonDialogDEditor.pas' , JvDesktopAlertEditors in '..\..\design\JvDesktopAlertEditors.pas' , JvProgressComponentEditor in '..\..\design\JvProgressComponentEditor.pas' , + JvFindReplaceEditor in '..\..\design\JvFindReplaceEditor.pas' , JvDlgsReg in '..\..\design\JvDlgsReg.pas' , JvDialogActnResForm in '..\..\design\JvDialogActnResForm.pas' {JvDialogActions: TDataModule} ; Modified: trunk/jvcl/packages/d6/JvDlgsD6D.dpk =================================================================== --- trunk/jvcl/packages/d6/JvDlgsD6D.dpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/d6/JvDlgsD6D.dpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:15 UTC + Last generated: 02-12-2006 06:33:35 UTC ----------------------------------------------------------------------------- } @@ -53,6 +53,7 @@ JvCommonDialogDEditor in '..\..\design\JvCommonDialogDEditor.pas' , JvDesktopAlertEditors in '..\..\design\JvDesktopAlertEditors.pas' , JvProgressComponentEditor in '..\..\design\JvProgressComponentEditor.pas' , + JvFindReplaceEditor in '..\..\design\JvFindReplaceEditor.pas' , JvDlgsReg in '..\..\design\JvDlgsReg.pas' , JvDialogActnResForm in '..\..\design\JvDialogActnResForm.pas' {JvDialogActions: TDataModule} ; Modified: trunk/jvcl/packages/d7/JvDlgsD7D.dpk =================================================================== --- trunk/jvcl/packages/d7/JvDlgsD7D.dpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/d7/JvDlgsD7D.dpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:16 UTC + Last generated: 02-12-2006 06:33:35 UTC ----------------------------------------------------------------------------- } @@ -53,6 +53,7 @@ JvCommonDialogDEditor in '..\..\design\JvCommonDialogDEditor.pas' , JvDesktopAlertEditors in '..\..\design\JvDesktopAlertEditors.pas' , JvProgressComponentEditor in '..\..\design\JvProgressComponentEditor.pas' , + JvFindReplaceEditor in '..\..\design\JvFindReplaceEditor.pas' , JvDlgsReg in '..\..\design\JvDlgsReg.pas' , JvDialogActnResForm in '..\..\design\JvDialogActnResForm.pas' {JvDialogActions: TDataModule} ; Modified: trunk/jvcl/packages/d7clx/JvQDlgsD7D.dpk =================================================================== --- trunk/jvcl/packages/d7clx/JvQDlgsD7D.dpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/d7clx/JvQDlgsD7D.dpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:17 UTC + Last generated: 02-12-2006 06:33:37 UTC ----------------------------------------------------------------------------- } @@ -50,6 +50,7 @@ contains JvQTipOfDayEditor in '..\..\qdesign\JvQTipOfDayEditor.pas' , JvQProgressComponentEditor in '..\..\qdesign\JvQProgressComponentEditor.pas' , + JvQFindReplaceEditor in '..\..\qdesign\JvQFindReplaceEditor.pas' , JvQDlgsReg in '..\..\qdesign\JvQDlgsReg.pas' ; Modified: trunk/jvcl/packages/d9/JvDlgsD9D.dpk =================================================================== --- trunk/jvcl/packages/d9/JvDlgsD9D.dpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/d9/JvDlgsD9D.dpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:17 UTC + Last generated: 02-12-2006 06:33:38 UTC ----------------------------------------------------------------------------- } @@ -53,6 +53,7 @@ JvCommonDialogDEditor in '..\..\design\JvCommonDialogDEditor.pas' , JvDesktopAlertEditors in '..\..\design\JvDesktopAlertEditors.pas' , JvProgressComponentEditor in '..\..\design\JvProgressComponentEditor.pas' , + JvFindReplaceEditor in '..\..\design\JvFindReplaceEditor.pas' , JvDlgsReg in '..\..\design\JvDlgsReg.pas' , JvDialogActnResForm in '..\..\design\JvDialogActnResForm.pas' {JvDialogActions: TDataModule} ; Modified: trunk/jvcl/packages/k3/JvQDlgsK3D.dpk =================================================================== --- trunk/jvcl/packages/k3/JvQDlgsK3D.dpk 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/k3/JvQDlgsK3D.dpk 2006-12-02 07:06:50 UTC (rev 11065) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvDlgs-D.xml) - Last generated: 18-04-2006 11:55:18 UTC + Last generated: 02-12-2006 06:33:39 UTC ----------------------------------------------------------------------------- } @@ -46,6 +46,7 @@ contains JvQTipOfDayEditor in '../../qdesign/JvQTipOfDayEditor.pas' , JvQProgressComponentEditor in '../../qdesign/JvQProgressComponentEditor.pas' , + JvQFindReplaceEditor in '../../qdesign/JvQFindReplaceEditor.pas' , JvQDlgsReg in '../../qdesign/JvQDlgsReg.pas' ; Modified: trunk/jvcl/packages/xml/JvDlgs-D.xml =================================================================== --- trunk/jvcl/packages/xml/JvDlgs-D.xml 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/packages/xml/JvDlgs-D.xml 2006-12-02 07:06:50 UTC (rev 11065) @@ -32,6 +32,7 @@ <File Name="..\..\design\JvCommonDialogDEditor.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\design\JvDesktopAlertEditors.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\design\JvProgressComponentEditor.pas" Targets="all" Formname="" Condition=""/> + <File Name="..\..\design\JvFindReplaceEditor.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\design\JvDlgsReg.pas" Targets="all" Formname="" Condition=""/> <File Name="..\..\design\JvDialogActnResForm.pas" Targets="VCL" Formname="JvDialogActions: TDataModule" Condition=""/> </Contains> Modified: trunk/jvcl/resources/JvDlgsReg.dcr =================================================================== (Binary files differ) Modified: trunk/jvcl/run/JvFindReplace.pas =================================================================== --- trunk/jvcl/run/JvFindReplace.pas 2006-12-01 18:10:05 UTC (rev 11064) +++ trunk/jvcl/run/JvFindReplace.pas 2006-12-02 07:06:50 UTC (rev 11065) @@ -127,10 +127,16 @@ property OnProgress: TJvReplaceProgressEvent read FOnProgress write FOnProgress; end; + // for custom property editor + TJvEditControlName = TWinControl; + + TJvFindReplaceEditKind = (etEmpty, etCustomEdit, etJvCustomEditor); + TJvFindReplace = class(TJvFindReplaceBase) private - FEditControl: TCustomEdit; - procedure SetEditControl(Value: TCustomEdit); + FEditControl: TJvEditControlName; + FEditKind: TJvFindReplaceEditKind; + procedure SetEditControl(Value: TJvEditControlName); protected procedure Notification(AComponent: TComponent; Operation: TOperation); override; function GetEditText: string; override; @@ -145,7 +151,7 @@ procedure SetEditSelLength(Length: Integer); override; procedure SetEditFocus; override; published - property EditControl: TCustomEdit read FEditControl write SetEditControl; + property EditControl: TJvEditControlName read FEditControl write SetEditControl; property Fast; property Options; property FindText; @@ -154,33 +160,6 @@ property HelpContext; end; - TJvFindReplaceEditor = class(TJvFindReplaceBase) - private - FEditControl: TJvCustomEditor; - procedure SetEditControl(Value: TJvCustomEditor); - protected - procedure Notification(AComponent: TComponent; Operation: TOperation); override; - function GetEditText: string; override; - function GetEditSelText: string; override; - function GetEditSelStart: Integer; override; - function GetEditSelLength: Integer; override; - function GetEditHandle: HWND; override; - procedure TestEditAssigned; override; - procedure SetEditText(const Text: string); override; - procedure SetEditSelText(const Text: string); override; - procedure SetEditSelStart(Start: Integer); override; - procedure SetEditSelLength(Length: Integer); override; - procedure SetEditFocus; override; - published - property EditControl: TJvCustomEditor read FEditControl write SetEditControl; - property Fast; - property Options; - property FindText; - property ReplaceText; - property ShowDialogs; - property HelpContext; - end; - {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( @@ -359,11 +338,18 @@ FEditControl := nil; end; -procedure TJvFindReplace.SetEditControl(Value: TCustomEdit); +procedure TJvFindReplace.SetEditControl(Value: TJvEditControlName); begin FEditControl := Value; if Value <> nil then Value.FreeNotification(Self); + if Value is TCustomEdit then + FEditKind := etCustomEdit + else + if Value is TJvCustomEditor then + FEditKind := etJvCustomEditor + else + FEditKind := etEmpty; end; procedure TJvFindReplace.TestEditAssigned; @@ -374,126 +360,112 @@ function TJvFindReplace.GetEditText: string; begin - Result := FEditControl.Text; + case FEditKind of + etCustomEdit: + Result := TCustomEdit(FEditControl).Text; + etJvCustomEditor: + Result := TJvCustomEditor(FEditControl).Lines.Text; + else + Result := ''; + end; end; function TJvFindReplace.GetEditSelText: string; begin - Result := FEditControl.SelText; + case FEditKind of + etCustomEdit: + Result := TCustomEdit(FEditControl).SelText; + etJvCustomEditor: + Result := TJvCustomEditor(FEditControl).SelText; + else + Result := ''; + end; end; function TJvFindReplace.GetEditSelStart: Integer; begin - Result := FEditControl.SelStart; + case FEditKind of + etCustomEdit: + Result := TCustomEdit(FEditControl).SelStart; + etJvCustomEditor: + Result := TJvCustomEditor(FEditControl).SelStart; + else + Result := 0; + end; end; function TJvFindReplace.GetEditSelLength: Integer; begin - Result := FEditControl.SelLength; + case FEditKind of + etCustomEdit: + Result := TCustomEdit(FEditControl).SelLength; + etJvCustomEditor: + Result := TJvCustomEditor(FEditControl).SelLength; + else + Result := 0; + end; end; function TJvFindReplace.GetEditHandle: HWND; begin - Result := FEditControl.Handle; + case FEditKind of + etCustomEdit: + Result := TCustomEdit(FEditControl).Handle; + else + Result := HWND(0); + end; end; procedure TJvFindReplace.SetEditText(const Text: string); begin - FEditControl.Text := Text; + case FEditKind of + etCustomEdit: + TCustomEdit(FEditControl).Text := Text; + etJvCustomEditor: + TJvCustomEditor(FEditControl).Lines.Text := Text; + end; end; procedure TJvFindReplace.SetEditSelText(const Text: string); begin - FEditControl.SelText := Text; + case FEditKind of + etCustomEdit: + TCustomEdit(FEditControl).SelText := Text; + etJvCustomEditor: + TJvCustomEditor(FEditControl).SelText := Text; + end; end; procedure TJvFindReplace.SetEditSelStart(Start: Integer); begin - FEditControl.SelStart := Start; + case FEditKind of + etCustomEdit: + TCustomEdit(FEditControl).SelStart := Start; + etJvCustomEditor: + TJvCustomEditor(FEditControl).SelStart := Start; + end; end; procedure TJvFindReplace.SetEditSelLength(Length: Integer); begin - FEditControl.SelLength := Length; + case FEditKind of + etCustomEdit: + TCustomEdit(FEditControl).SelLength := Length; + etJvCustomEditor: + TJvCustomEditor(FEditControl).SelLength := Length; + end; end; procedure TJvFindReplace.SetEditFocus; begin - FEditControl.SetFocus; + case FEditKind of + etCustomEdit: + TCustomEdit(FEditControl).SetFocus; + etJvCustomEditor: + TJvCustomEditor(FEditControl).SetFocus; + end; end; -//=== { TJvFindReplaceEditor } =============================================== - -procedure TJvFindReplaceEditor.Notification(AComponent: TComponent; Operation: TOperation); -begin - inherited Notification(AComponent, Operation); - if (Operation = opRemove) and (AComponent = FEditControl) then - FEditControl := nil; -end; - -procedure TJvFindReplaceEditor.SetEditControl(Value: TJvCustomEditor); -begin - FEditControl := Value; - if Value <> nil then - Value.FreeNotification(Self); -end; - -procedure TJvFindReplaceEditor.TestEditAssigned; -begin - if not Assigned(FEditControl) then - raise EJVCLException.CreateRes(@RsENoEditAssigned); -end; - -function TJvFindReplaceEditor.GetEditText: string; -begin - Result := FEditControl.Lines.Text; -end; - -function TJvFindReplaceEditor.GetEditSelText: string; -begin - Result := FEditControl.SelText; -end; - -function TJvFindReplaceEditor.GetEditSelStart: Integer; -begin - Result := FEditControl.SelStart; -end; - -function TJvFindReplaceEditor.GetEditSelLength: Integer; -begin - Result := FEditControl.SelLength; -end; - -function TJvFindReplaceEditor.GetEditHandle: HWND; -begin - Result := 0; -end; - -procedure TJvFindReplaceEditor.SetEditText(const Text: string); -begin - FEditControl.Lines.Text := Text; -end; - -procedure TJvFindReplaceEditor.SetEditSelText(const Text: string); -begin - FEditControl.SelText := Text; -end; - -procedure TJvFindReplaceEditor.SetEditSelStart(Start: Integer); -begin - FEditControl.SelStart := Start; -end; - -procedure TJvFindReplaceEditor.SetEditSelLength(Length: Integer); -begin - FEditControl.SelLength := Length; -end; - -procedure TJvFindReplaceEditor.SetEditFocus; -begin - FEditControl.SetFocus; -end; - //=== { TJvFindReplaceBase } ================================================= constructor TJvFindReplaceBase.Create(AOwner: TComponent); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mar...@us...> - 2006-12-05 08:20:06
|
Revision: 11071 http://svn.sourceforge.net/jvcl/?rev=11071&view=rev Author: marquardt Date: 2006-12-05 00:20:03 -0800 (Tue, 05 Dec 2006) Log Message: ----------- TJvgSysRequirements renamed to TJvSysRequirements and moved to Jv System palette Modified Paths: -------------- trunk/jvcl/design/JvGlobusReg.pas trunk/jvcl/design/JvSystemReg.pas trunk/jvcl/images/JvGlobusReg.rc trunk/jvcl/images/JvSystemReg.rc trunk/jvcl/packages/c5/JvGlobusC5R.bpk trunk/jvcl/packages/c5/JvGlobusC5R.cpp trunk/jvcl/packages/c5/JvGlobusC5R.dpk trunk/jvcl/packages/c5/JvSystemC5R.bpk trunk/jvcl/packages/c5/JvSystemC5R.cpp trunk/jvcl/packages/c5/JvSystemC5R.dpk trunk/jvcl/packages/c5std/JvGlobusC5R.bpk trunk/jvcl/packages/c5std/JvGlobusC5R.cpp trunk/jvcl/packages/c5std/JvGlobusC5R.dpk trunk/jvcl/packages/c6/JvGlobusC6R.bpk trunk/jvcl/packages/c6/JvGlobusC6R.dpk trunk/jvcl/packages/c6/JvSystemC6R.bpk trunk/jvcl/packages/c6/JvSystemC6R.dpk trunk/jvcl/packages/c6per/JvGlobusC6R.bpk trunk/jvcl/packages/c6per/JvGlobusC6R.dpk trunk/jvcl/packages/d10/JvGlobusD10R.dpk trunk/jvcl/packages/d10/JvSystemD10R.dpk trunk/jvcl/packages/d10per/JvGlobusD10R.dpk trunk/jvcl/packages/d5/JvGlobusD5R.dpk trunk/jvcl/packages/d5/JvSystemD5R.dpk trunk/jvcl/packages/d5std/JvGlobusD5R.dpk trunk/jvcl/packages/d6/JvGlobusD6R.dpk trunk/jvcl/packages/d6/JvSystemD6R.dpk trunk/jvcl/packages/d6per/JvGlobusD6R.dpk trunk/jvcl/packages/d7/JvGlobusD7R.dpk trunk/jvcl/packages/d7/JvSystemD7R.dpk trunk/jvcl/packages/d7per/JvGlobusD7R.dpk trunk/jvcl/packages/d9/JvGlobusD9R.dpk trunk/jvcl/packages/d9/JvSystemD9R.dpk trunk/jvcl/packages/d9per/JvGlobusD9R.dpk trunk/jvcl/packages/xml/JvGlobus-R.xml trunk/jvcl/packages/xml/JvSystem-R.xml trunk/jvcl/resources/JvGlobusReg.dcr trunk/jvcl/resources/JvSystemReg.dcr trunk/jvcl/run/JvResources.pas Removed Paths: ------------- trunk/jvcl/images/TJVGSYSREQUIREMENTS.BMP trunk/jvcl/run/JvgSysRequirements.pas Modified: trunk/jvcl/design/JvGlobusReg.pas =================================================================== --- trunk/jvcl/design/JvGlobusReg.pas 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/design/JvGlobusReg.pas 2006-12-05 08:20:03 UTC (rev 11071) @@ -55,7 +55,7 @@ JvgSpeedButton, JvgStaticText, JvgHoleShape, {JvgSplit,} {JvgImageGroup, } JvgInspectorGrid, {JvgJump, } JvgSmallFontsDefense, {JvgSysInf, } JvgLogicItemEditorForm, JvgLogics, JvgStringContainer, JvgMailSlots, - JvgStringGrid, JvgTabComm, JvgTab, JvgSysRequirements, {JvgProcess, } + JvgStringGrid, JvgTabComm, JvgTab, {JvgSysRequirements,} {JvgProcess, } {JvgProcessUtils, } JvgPropertyCenter, JvgTransparentMemo, JvgTreeView, JvgTypes, JvgUtils, {JvgWinMask, } JvgRTFPreviewForm, JvgWizardHeader, JvgXMLSerializer, Jvg3DColors, JvgAskListBox, {JvgBevel,} @@ -103,7 +103,7 @@ TJvgMailSlotServer, TJvgMailSlotClient, TJvgLabel, TJvgFlyingText, TJvgDigits, TJvgStaticText, TJvgHoleShape, TJvgHelpPanel, TJvgXMLSerializer, TJvgLanguageLoader, TJvgExceptionHandler, - {TJvgJumpingComponent,} TJvgStringContainer, TJvgSysRequirements, + {TJvgJumpingComponent,} TJvgStringContainer, {TJvgSysRequirements,} TJvg3DColors, TJvgHint, TJvginspectorGrid, TJvgReport, TJvgReportParamsEditor, TJvgLogicProducer, TJvgSmallFontsDefense, {$IFNDEF DelphiPersonalEdition} Modified: trunk/jvcl/design/JvSystemReg.pas =================================================================== --- trunk/jvcl/design/JvSystemReg.pas 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/design/JvSystemReg.pas 2006-12-05 08:20:03 UTC (rev 11071) @@ -48,7 +48,7 @@ JvDsgnConsts, {$IFDEF VCL} JvClipboardMonitor, JvClipboardViewer, JvHidControllerClass, - JvDragDrop, JvDdeCmd, JvAppCommand, JvScreenSaveSuppress, JvWndProcHook, + JvDragDrop, JvDdeCmd, JvAppCommand, JvScreenSaveSuppress, JvWndProcHook, JvSysRequirements, {$ENDIF VCL} {$IFDEF USEWINDOWS} JvMRUList, JvMRUManager, JvCommStatus, JvJoystick, @@ -81,7 +81,7 @@ {$IFDEF VCL} RegisterComponents(RsPaletteSystem, [TJvClipboardMonitor, TJvClipboardViewer, TJvAppDdeCmd, TJvHidDeviceController, TJvDropTarget, TJvDragDrop, TJvAppCommand, - TJvScreenSaveSuppressor]); + TJvScreenSaveSuppressor, TJvSysRequirements]); {$ENDIF VCL} {$IFDEF USEWINDOWS} RegisterComponents(RsPaletteSystem, [{TJvComputerInfo, // - do not register this component as default} Modified: trunk/jvcl/images/JvGlobusReg.rc =================================================================== --- trunk/jvcl/images/JvGlobusReg.rc 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/images/JvGlobusReg.rc 2006-12-05 08:20:03 UTC (rev 11071) @@ -54,7 +54,7 @@ TJVGSTRINGCONTAINER BITMAP "TJVGSTRINGCONTAINER.BMP" TJVGSTRINGGRID BITMAP "TJVGSTRINGGRID.BMP" ; TJVGSYSINFO BITMAP "TJVGSYSINFO.BMP" -TJVGSYSREQUIREMENTS BITMAP "TJVGSYSREQUIREMENTS.BMP" +;TJVGSYSREQUIREMENTS BITMAP "TJVGSYSREQUIREMENTS.BMP" TJVGTABCONTROL BITMAP "TJVGTABCONTROL.BMP" TJVGTRANSPARENTMEMO BITMAP "TJVGTRANSPARENTMEMO.BMP" TJVGTREEVIEW BITMAP "TJVGTREEVIEW.BMP" Modified: trunk/jvcl/images/JvSystemReg.rc =================================================================== --- trunk/jvcl/images/JvSystemReg.rc 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/images/JvSystemReg.rc 2006-12-05 08:20:03 UTC (rev 11071) @@ -41,3 +41,4 @@ TJVDEBUGHANDLER BITMAP "TJVDEBUGHANDLER.BMP" TJVAPPCOMMAND BITMAP "TJVAPPCOMMAND.BMP" TJVSCREENSAVESUPPRESSOR BITMAP "TJVSCREENSAVESUPPRESSOR.BMP" +TJVSYSREQUIREMENTS BITMAP "TJVSYSREQUIREMENTS.BMP" \ No newline at end of file Deleted: trunk/jvcl/images/TJVGSYSREQUIREMENTS.BMP =================================================================== (Binary files differ) Modified: trunk/jvcl/packages/c5/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c5/JvGlobusC5R.bpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:37 UTC + Last generated: 05-12-2006 08:07:08 UTC ***************************************************************************** --> <PROJECT> @@ -24,7 +24,6 @@ ..\..\lib\c5\JvgStaticText.obj ..\..\lib\c5\JvgStringContainer.obj ..\..\lib\c5\JvgStringGrid.obj - ..\..\lib\c5\JvgSysRequirements.obj ..\..\lib\c5\JvgTab.obj ..\..\lib\c5\JvgTabComm.obj ..\..\lib\c5\JvgTransparentMemo.obj Modified: trunk/jvcl/packages/c5/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c5/JvGlobusC5R.cpp 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:37 UTC + Last generated: 05-12-2006 08:07:09 UTC ----------------------------------------------------------------------------- */ @@ -21,7 +21,6 @@ USEUNIT("..\..\run\JvgStaticText.pas"); USEUNIT("..\..\run\JvgStringContainer.pas"); USEUNIT("..\..\run\JvgStringGrid.pas"); -USEUNIT("..\..\run\JvgSysRequirements.pas"); USEUNIT("..\..\run\JvgTab.pas"); USEUNIT("..\..\run\JvgTabComm.pas"); USEUNIT("..\..\run\JvgTransparentMemo.pas"); Modified: trunk/jvcl/packages/c5/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c5/JvGlobusC5R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:38 UTC + Last generated: 05-12-2006 08:07:10 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/c5/JvSystemC5R.bpk =================================================================== --- trunk/jvcl/packages/c5/JvSystemC5R.bpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c5/JvSystemC5R.bpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 08:42:35 UTC + Last generated: 05-12-2006 08:07:08 UTC ***************************************************************************** --> <PROJECT> @@ -55,6 +55,7 @@ ..\..\lib\c5\JvComputerInfoEx.obj ..\..\lib\c5\JvAppCommand.obj ..\..\lib\c5\JvScreenSaveSuppress.obj + ..\..\lib\c5\JvSysRequirements.obj "/> <RESFILES value="JvSystemC5R.res"/> <IDLFILES value=""/> Modified: trunk/jvcl/packages/c5/JvSystemC5R.cpp =================================================================== --- trunk/jvcl/packages/c5/JvSystemC5R.cpp 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c5/JvSystemC5R.cpp 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 08:42:37 UTC + Last generated: 05-12-2006 08:07:09 UTC ----------------------------------------------------------------------------- */ @@ -52,6 +52,7 @@ USEUNIT("..\..\run\JvComputerInfoEx.pas"); USEUNIT("..\..\run\JvAppCommand.pas"); USEUNIT("..\..\run\JvScreenSaveSuppress.pas"); +USEUNIT("..\..\run\JvSysRequirements.pas"); USEPACKAGE("JvCoreC5R.bpi"); USEPACKAGE("JclC50.bpi"); USEPACKAGE("vcl50.bpi"); Modified: trunk/jvcl/packages/c5/JvSystemC5R.dpk =================================================================== --- trunk/jvcl/packages/c5/JvSystemC5R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c5/JvSystemC5R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 08:42:34 UTC + Last generated: 05-12-2006 08:07:10 UTC ----------------------------------------------------------------------------- } @@ -85,7 +85,8 @@ JvAppXMLStorage in '..\..\run\JvAppXMLStorage.pas' , JvComputerInfoEx in '..\..\run\JvComputerInfoEx.pas' , JvAppCommand in '..\..\run\JvAppCommand.pas' , - JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' + JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' , + JvSysRequirements in '..\..\run\JvSysRequirements.pas' ; end. Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.bpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.bpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:37 UTC + Last generated: 05-12-2006 08:07:08 UTC ***************************************************************************** --> <PROJECT> @@ -24,7 +24,6 @@ ..\..\lib\c5\JvgStaticText.obj ..\..\lib\c5\JvgStringContainer.obj ..\..\lib\c5\JvgStringGrid.obj - ..\..\lib\c5\JvgSysRequirements.obj ..\..\lib\c5\JvgTab.obj ..\..\lib\c5\JvgTabComm.obj ..\..\lib\c5\JvgTransparentMemo.obj Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.cpp =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.cpp 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:37 UTC + Last generated: 05-12-2006 08:07:09 UTC ----------------------------------------------------------------------------- */ @@ -21,7 +21,6 @@ USEUNIT("..\..\run\JvgStaticText.pas"); USEUNIT("..\..\run\JvgStringContainer.pas"); USEUNIT("..\..\run\JvgStringGrid.pas"); -USEUNIT("..\..\run\JvgSysRequirements.pas"); USEUNIT("..\..\run\JvgTab.pas"); USEUNIT("..\..\run\JvgTabComm.pas"); USEUNIT("..\..\run\JvgTransparentMemo.pas"); Modified: trunk/jvcl/packages/c5std/JvGlobusC5R.dpk =================================================================== --- trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c5std/JvGlobusC5R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:38 UTC + Last generated: 05-12-2006 08:07:10 UTC ----------------------------------------------------------------------------- } @@ -57,7 +57,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/c6/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c6/JvGlobusC6R.bpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:40 UTC + Last generated: 05-12-2006 08:07:12 UTC ***************************************************************************** --> <PROJECT> @@ -24,7 +24,6 @@ ..\..\lib\c6\JvgStaticText.obj ..\..\lib\c6\JvgStringContainer.obj ..\..\lib\c6\JvgStringGrid.obj - ..\..\lib\c6\JvgSysRequirements.obj ..\..\lib\c6\JvgTab.obj ..\..\lib\c6\JvgTabComm.obj ..\..\lib\c6\JvgTransparentMemo.obj @@ -150,7 +149,6 @@ <FILE FILENAME="..\..\run\JvgStaticText.pas" FORMNAME="" UNITNAME="JvgStaticText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringContainer.pas" FORMNAME="" UNITNAME="JvgStringContainer" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringGrid.pas" FORMNAME="" UNITNAME="JvgStringGrid" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgSysRequirements.pas" FORMNAME="" UNITNAME="JvgSysRequirements" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgTab.pas" FORMNAME="" UNITNAME="JvgTab" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgTabComm.pas" FORMNAME="" UNITNAME="JvgTabComm" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgTransparentMemo.pas" FORMNAME="" UNITNAME="JvgTransparentMemo" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c6/JvGlobusC6R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:43 UTC + Last generated: 05-12-2006 08:07:13 UTC ----------------------------------------------------------------------------- } @@ -60,7 +60,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/c6/JvSystemC6R.bpk =================================================================== --- trunk/jvcl/packages/c6/JvSystemC6R.bpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c6/JvSystemC6R.bpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 08:55:29 UTC + Last generated: 05-12-2006 08:07:12 UTC ***************************************************************************** --> <PROJECT> @@ -55,6 +55,7 @@ ..\..\lib\c6\JvComputerInfoEx.obj ..\..\lib\c6\JvAppCommand.obj ..\..\lib\c6\JvScreenSaveSuppress.obj + ..\..\lib\c6\JvSysRequirements.obj "/> <RESFILES value="JvSystemC6R.res"/> <IDLFILES value=""/> @@ -164,6 +165,7 @@ <FILE FILENAME="..\..\run\JvComputerInfoEx.pas" FORMNAME="" UNITNAME="JvComputerInfoEx" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvAppCommand.pas" FORMNAME="" UNITNAME="JvAppCommand" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvScreenSaveSuppress.pas" FORMNAME="" UNITNAME="JvScreenSaveSuppress" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> + <FILE FILENAME="..\..\run\JvSysRequirements.pas" FORMNAME="" UNITNAME="JvSysRequirements" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> </FILELIST> <BUILDTOOLS> </BUILDTOOLS> Modified: trunk/jvcl/packages/c6/JvSystemC6R.dpk =================================================================== --- trunk/jvcl/packages/c6/JvSystemC6R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c6/JvSystemC6R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 08:55:28 UTC + Last generated: 05-12-2006 08:07:13 UTC ----------------------------------------------------------------------------- } @@ -86,7 +86,8 @@ JvAppXMLStorage in '..\..\run\JvAppXMLStorage.pas' , JvComputerInfoEx in '..\..\run\JvComputerInfoEx.pas' , JvAppCommand in '..\..\run\JvAppCommand.pas' , - JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' + JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' , + JvSysRequirements in '..\..\run\JvSysRequirements.pas' ; end. Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.bpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.bpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -5,7 +5,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:40 UTC + Last generated: 05-12-2006 08:07:12 UTC ***************************************************************************** --> <PROJECT> @@ -24,7 +24,6 @@ ..\..\lib\c6\JvgStaticText.obj ..\..\lib\c6\JvgStringContainer.obj ..\..\lib\c6\JvgStringGrid.obj - ..\..\lib\c6\JvgSysRequirements.obj ..\..\lib\c6\JvgTab.obj ..\..\lib\c6\JvgTabComm.obj ..\..\lib\c6\JvgTransparentMemo.obj @@ -138,7 +137,6 @@ <FILE FILENAME="..\..\run\JvgStaticText.pas" FORMNAME="" UNITNAME="JvgStaticText" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringContainer.pas" FORMNAME="" UNITNAME="JvgStringContainer" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgStringGrid.pas" FORMNAME="" UNITNAME="JvgStringGrid" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> - <FILE FILENAME="..\..\run\JvgSysRequirements.pas" FORMNAME="" UNITNAME="JvgSysRequirements" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgTab.pas" FORMNAME="" UNITNAME="JvgTab" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgTabComm.pas" FORMNAME="" UNITNAME="JvgTabComm" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> <FILE FILENAME="..\..\run\JvgTransparentMemo.pas" FORMNAME="" UNITNAME="JvgTransparentMemo" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/> Modified: trunk/jvcl/packages/c6per/JvGlobusC6R.dpk =================================================================== --- trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/c6per/JvGlobusC6R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:43 UTC + Last generated: 05-12-2006 08:07:13 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d10/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d10/JvGlobusD10R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:45 UTC + Last generated: 05-12-2006 08:07:15 UTC ----------------------------------------------------------------------------- } @@ -60,7 +60,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d10/JvSystemD10R.dpk =================================================================== --- trunk/jvcl/packages/d10/JvSystemD10R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d10/JvSystemD10R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 09:45:11 UTC + Last generated: 05-12-2006 08:07:16 UTC ----------------------------------------------------------------------------- } @@ -86,7 +86,8 @@ JvAppXMLStorage in '..\..\run\JvAppXMLStorage.pas' , JvComputerInfoEx in '..\..\run\JvComputerInfoEx.pas' , JvAppCommand in '..\..\run\JvAppCommand.pas' , - JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' + JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' , + JvSysRequirements in '..\..\run\JvSysRequirements.pas' ; end. Modified: trunk/jvcl/packages/d10per/JvGlobusD10R.dpk =================================================================== --- trunk/jvcl/packages/d10per/JvGlobusD10R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d10per/JvGlobusD10R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:45 UTC + Last generated: 05-12-2006 08:07:15 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d5/JvGlobusD5R.dpk =================================================================== --- trunk/jvcl/packages/d5/JvGlobusD5R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d5/JvGlobusD5R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:46 UTC + Last generated: 05-12-2006 08:07:17 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d5/JvSystemD5R.dpk =================================================================== --- trunk/jvcl/packages/d5/JvSystemD5R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d5/JvSystemD5R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 11:46:26 UTC + Last generated: 05-12-2006 08:07:17 UTC ----------------------------------------------------------------------------- } @@ -85,7 +85,8 @@ JvAppXMLStorage in '..\..\run\JvAppXMLStorage.pas' , JvComputerInfoEx in '..\..\run\JvComputerInfoEx.pas' , JvAppCommand in '..\..\run\JvAppCommand.pas' , - JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' + JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' , + JvSysRequirements in '..\..\run\JvSysRequirements.pas' ; end. Modified: trunk/jvcl/packages/d5std/JvGlobusD5R.dpk =================================================================== --- trunk/jvcl/packages/d5std/JvGlobusD5R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d5std/JvGlobusD5R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:46 UTC + Last generated: 05-12-2006 08:07:17 UTC ----------------------------------------------------------------------------- } @@ -57,7 +57,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d6/JvGlobusD6R.dpk =================================================================== --- trunk/jvcl/packages/d6/JvGlobusD6R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d6/JvGlobusD6R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:48 UTC + Last generated: 05-12-2006 08:07:19 UTC ----------------------------------------------------------------------------- } @@ -60,7 +60,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d6/JvSystemD6R.dpk =================================================================== --- trunk/jvcl/packages/d6/JvSystemD6R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d6/JvSystemD6R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 08:41:27 UTC + Last generated: 05-12-2006 08:07:19 UTC ----------------------------------------------------------------------------- } @@ -86,7 +86,8 @@ JvAppXMLStorage in '..\..\run\JvAppXMLStorage.pas' , JvComputerInfoEx in '..\..\run\JvComputerInfoEx.pas' , JvAppCommand in '..\..\run\JvAppCommand.pas' , - JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' + JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' , + JvSysRequirements in '..\..\run\JvSysRequirements.pas' ; end. Modified: trunk/jvcl/packages/d6per/JvGlobusD6R.dpk =================================================================== --- trunk/jvcl/packages/d6per/JvGlobusD6R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d6per/JvGlobusD6R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:48 UTC + Last generated: 05-12-2006 08:07:19 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d7/JvGlobusD7R.dpk =================================================================== --- trunk/jvcl/packages/d7/JvGlobusD7R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d7/JvGlobusD7R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:50 UTC + Last generated: 05-12-2006 08:07:20 UTC ----------------------------------------------------------------------------- } @@ -60,7 +60,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d7/JvSystemD7R.dpk =================================================================== --- trunk/jvcl/packages/d7/JvSystemD7R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d7/JvSystemD7R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 11:46:28 UTC + Last generated: 05-12-2006 08:07:20 UTC ----------------------------------------------------------------------------- } @@ -86,7 +86,8 @@ JvAppXMLStorage in '..\..\run\JvAppXMLStorage.pas' , JvComputerInfoEx in '..\..\run\JvComputerInfoEx.pas' , JvAppCommand in '..\..\run\JvAppCommand.pas' , - JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' + JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' , + JvSysRequirements in '..\..\run\JvSysRequirements.pas' ; end. Modified: trunk/jvcl/packages/d7per/JvGlobusD7R.dpk =================================================================== --- trunk/jvcl/packages/d7per/JvGlobusD7R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d7per/JvGlobusD7R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:50 UTC + Last generated: 05-12-2006 08:07:20 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d9/JvGlobusD9R.dpk =================================================================== --- trunk/jvcl/packages/d9/JvGlobusD9R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d9/JvGlobusD9R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:56 UTC + Last generated: 05-12-2006 08:07:23 UTC ----------------------------------------------------------------------------- } @@ -60,7 +60,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/d9/JvSystemD9R.dpk =================================================================== --- trunk/jvcl/packages/d9/JvSystemD9R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d9/JvSystemD9R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvSystem-R.xml) - Last generated: 01-03-2006 11:46:31 UTC + Last generated: 05-12-2006 08:07:23 UTC ----------------------------------------------------------------------------- } @@ -86,7 +86,8 @@ JvAppXMLStorage in '..\..\run\JvAppXMLStorage.pas' , JvComputerInfoEx in '..\..\run\JvComputerInfoEx.pas' , JvAppCommand in '..\..\run\JvAppCommand.pas' , - JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' + JvScreenSaveSuppress in '..\..\run\JvScreenSaveSuppress.pas' , + JvSysRequirements in '..\..\run\JvSysRequirements.pas' ; end. Modified: trunk/jvcl/packages/d9per/JvGlobusD9R.dpk =================================================================== --- trunk/jvcl/packages/d9per/JvGlobusD9R.dpk 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/d9per/JvGlobusD9R.dpk 2006-12-05 08:20:03 UTC (rev 11071) @@ -4,7 +4,7 @@ DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR ALWAYS EDIT THE RELATED XML FILE (JvGlobus-R.xml) - Last generated: 02-08-2006 08:07:56 UTC + Last generated: 05-12-2006 08:07:23 UTC ----------------------------------------------------------------------------- } @@ -58,7 +58,6 @@ JvgStaticText in '..\..\run\JvgStaticText.pas' , JvgStringContainer in '..\..\run\JvgStringContainer.pas' , JvgStringGrid in '..\..\run\JvgStringGrid.pas' , - JvgSysRequirements in '..\..\run\JvgSysRequirements.pas' , JvgTab in '..\..\run\JvgTab.pas' , JvgTabComm in '..\..\run\JvgTabComm.pas' , JvgTransparentMemo in '..\..\run\JvgTransparentMemo.pas' , Modified: trunk/jvcl/packages/xml/JvGlobus-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvGlobus-R.xml 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/xml/JvGlobus-R.xml 2006-12-05 08:20:03 UTC (rev 11071) @@ -48,7 +48,6 @@ <File Name="..\..\run\JvgStaticText.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgStringContainer.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgStringGrid.pas" Targets="VCL" Formname="" Condition=""/> - <File Name="..\..\run\JvgSysRequirements.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgTab.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgTabComm.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvgTransparentMemo.pas" Targets="VCL" Formname="" Condition=""/> Modified: trunk/jvcl/packages/xml/JvSystem-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvSystem-R.xml 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/packages/xml/JvSystem-R.xml 2006-12-05 08:20:03 UTC (rev 11071) @@ -67,5 +67,6 @@ <File Name="..\..\run\JvComputerInfoEx.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvAppCommand.pas" Targets="VCL" Formname="" Condition=""/> <File Name="..\..\run\JvScreenSaveSuppress.pas" Targets="VCL" Formname="" Condition=""/> + <File Name="..\..\run\JvSysRequirements.pas" Targets="VCL" Formname="" Condition=""/> </Contains> </Package> Modified: trunk/jvcl/resources/JvGlobusReg.dcr =================================================================== (Binary files differ) Modified: trunk/jvcl/resources/JvSystemReg.dcr =================================================================== (Binary files differ) Modified: trunk/jvcl/run/JvResources.pas =================================================================== --- trunk/jvcl/run/JvResources.pas 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/run/JvResources.pas 2006-12-05 08:20:03 UTC (rev 11071) @@ -1085,24 +1085,6 @@ RsTJvgSmallFontsDefenseCannotBeUsedWi = 'TJvgSmallFontsDefense cannot be used with large fonts.'; {$ENDIF USEJVCL} -//=== JvgSysRequirements.pas ================================================= -resourcestring - RsMinColorDepthReq = 'The color depth must be at least %1:d bits per pixel, but is only %0:d bits per pixel'; - RsMaxColorDepthReq = 'The color depth cannot be more than %1:d bits per pixel, but is %0:d bits per pixel'; - RsBetweenColorDepthReq = 'The color depth must be between %1:d and %2:d bits per pixel, but is %0:d bits per pixel'; - RsMinScreenXReq = 'The horizontal screen resolution must be at least %1:d pixels, but is only %0:d pixels'; - RsMaxScreenXReq = 'The horizontal screen resolution cannot be more than %1:d pixels, but is %0:d pixel'; - RsBetweenScreenXReq = 'The horizontal screen resolution must be between %1:d and %2:d pixels, but is %0:d pixel'; - RsMinScreenYReq = 'The vertical screen resolution must be at least %1:d pixels, but is only %0:d pixels'; - RsMaxScreenYReq = 'The vertical screen resolution cannot be more than %1:d pixels, but is %0:d pixel'; - RsBetweenScreenYReq = 'The vertical screen resolution must be between %1:d and %2:d pixels, but is %0:d pixel'; - RsMinRefreshReq = 'The video refresh rate must be at least %1:d Hertz, but is only %0:d Hertz'; - RsMaxRefreshReq = 'The video refresh rate cannot be more than %1:d Hertz, but is %0:d Hertz'; - RsBetweenRefreshReq = 'The video refresh rate must be between %1:d and %2:d Hertz, but is %0:d Hertz'; - RsWindowsVersionReq = 'This version of Windows is not supported'; - RsSystemFontSmallReq = 'The system does not use small fonts'; - RsSystemFontBigReq = 'The system does not use big fonts'; - //=== JvgUtils.pas =========================================================== {$IFDEF USEJVCL} resourcestring @@ -1957,6 +1939,25 @@ resourcestring RsEInvalidPartner = 'TJvSyncSplitter.SetPartner: cannot set Partner to Self!'; +//=== JvSysRequirements.pas ================================================== +resourcestring + RsSysRequirementsCaption = 'System Requirements for %s'; + RsMinColorDepthReq = 'The color depth must be at least %1:d bits per pixel, but is only %0:d bits per pixel.'; + RsMaxColorDepthReq = 'The color depth cannot be more than %1:d bits per pixel, but is %0:d bits per pixel.'; + RsBetweenColorDepthReq = 'The color depth must be between %1:d and %2:d bits per pixel, but is %0:d bits per pixel.'; + RsMinScreenXReq = 'The horizontal screen resolution must be at least %1:d pixels, but is only %0:d pixels.'; + RsMaxScreenXReq = 'The horizontal screen resolution cannot be more than %1:d pixels, but is %0:d pixel.'; + RsBetweenScreenXReq = 'The horizontal screen resolution must be between %1:d and %2:d pixels, but is %0:d pixel.'; + RsMinScreenYReq = 'The vertical screen resolution must be at least %1:d pixels, but is only %0:d pixels.'; + RsMaxScreenYReq = 'The vertical screen resolution cannot be more than %1:d pixels, but is %0:d pixel.'; + RsBetweenScreenYReq = 'The vertical screen resolution must be between %1:d and %2:d pixels, but is %0:d pixel.'; + RsMinRefreshReq = 'The video refresh rate must be at least %1:d Hertz, but is only %0:d Hertz.'; + RsMaxRefreshReq = 'The video refresh rate cannot be more than %1:d Hertz, but is %0:d Hertz.'; + RsBetweenRefreshReq = 'The video refresh rate must be between %1:d and %2:d Hertz, but is %0:d Hertz.'; + RsWindowsVersionReq = 'This version of Windows is not supported.'; + RsSystemFontSmallReq = 'The system does not use small fonts.'; + RsSystemFontBigReq = 'The system does not use big fonts.'; + //=== JvSystemPopup.pas ====================================================== resourcestring RsEAlreadyHooked = 'TJvSystemPopup.Hook: already hooked'; Deleted: trunk/jvcl/run/JvgSysRequirements.pas =================================================================== --- trunk/jvcl/run/JvgSysRequirements.pas 2006-12-04 07:44:24 UTC (rev 11070) +++ trunk/jvcl/run/JvgSysRequirements.pas 2006-12-05 08:20:03 UTC (rev 11071) @@ -1,211 +0,0 @@ -{----------------------------------------------------------------------------- -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: JvgSysRequirements.PAS, released on 2003-01-15. - -The Initial Developer of the Original Code is Andrey V. Chudin, [chudin att yandex dott ru] -Portions created by Andrey V. Chudin are Copyright (C) 2003 Andrey V. Chudin. -All Rights Reserved. - -Contributor(s): -Michael Beck [mbeck att bigfoot dott com]. -Burov Dmitry, translation of russian text. - -You may retrieve the latest version of this file at the Project JEDI's JVCL home page, -located at http://jvcl.sourceforge.net - -Known Issues: ------------------------------------------------------------------------------} -// $Id$ - -unit JvgSysRequirements; - -{$I jvcl.inc} - -interface - -uses - {$IFDEF UNITVERSIONING} - JclUnitVersioning, - {$ENDIF UNITVERSIONING} - Windows, SysUtils, Classes, Forms, - JvVCL5Utils, - JvComponentBase, - JclSysInfo; - -type - TJvSystemFont = (fsfSmallFont, fsfBigFont); - TJvSystemFontSet = set of TJvSystemFont; - TWindowsVersionSet = set of TWindowsVersion; - - TJvSysReqBehavior = (fsbHalt, fsbWarning); - TJvWarningEvent = procedure(Sender: TObject; var ReportMessage: string; - var DoShowWarning, DoHalt: Boolean) of object; - -const - AllWindowsVersions = [wvUnknown]; - AllSystemFonts = [fsfSmallFont, fsfBigFont]; - -type - TJvgSysRequirements = class(TJvComponent) - private - FBehavior: TJvSysReqBehavior; - FEnabled: Boolean; - FMinColorDepth: Integer; - FMaxColorDepth: Integer; - FMinScreenX: Integer; - FMaxScreenX: Integer; - FMinScreenY: Integer; - FMaxScreenY: Integer; - FSystemFonts: TJvSystemFontSet; - FWindowsVersions: TWindowsVersionSet; - FMinVideoRefreshRate: Integer; - FMaxVideoRefreshRate: Integer; - FOnWarning: TJvWarningEvent; - protected - procedure Loaded; override; - function TestRequirements(var ReportMessage: string): Boolean; dynamic; - public - constructor Create(AOwner: TComponent); override; - published - property Behavior: TJvSysReqBehavior read FBehavior write FBehavior default fsbHalt; - property Enabled: Boolean read FEnabled write FEnabled default True; - property MinColorDepth: Integer read FMinColorDepth write FMinColorDepth default 0; - property MaxColorDepth: Integer read FMaxColorDepth write FMaxColorDepth default 0; - property MinScreenX: Integer read FMinScreenX write FMinScreenX default 0; - property MaxScreenX: Integer read FMaxScreenX write FMaxScreenX default 0; - property MinScreenY: Integer read FMinScreenY write FMinScreenY default 0; - property MaxScreenY: Integer read FMaxScreenY write FMaxScreenY default 0; - property MinVideoRefreshRate: Integer read FMinVideoRefreshRate write FMinVideoRefreshRate default 0; - property MaxVideoRefreshRate: Integer read FMaxVideoRefreshRate write FMaxVideoRefreshRate default 0; - property WindowsVersions: TWindowsVersionSet read FWindowsVersions write FWindowsVersions default AllWindowsVersions; - property SystemFonts: TJvSystemFontSet read FSystemFonts write FSystemFonts default AllSystemFonts; - property OnWarning: TJvWarningEvent read FOnWarning write FOnWarning; - end; - -{$IFDEF UNITVERSIONING} -const - UnitVersioning: TUnitVersionInfo = ( - RCSfile: '$URL$'; - Revision: '$Revision$'; - Date: '$Date$'; - LogPath: 'JVCL\run' - ); -{$ENDIF UNITVERSIONING} - -implementation - -uses - JvResources; - -constructor TJvgSysRequirements.Create(AOwner: TComponent); -begin - inherited Create(AOwner); - FBehavior := fsbHalt; - FEnabled := True; - FMinColorDepth := 0; - FMaxColorDepth := 0; - FMinScreenX := 0; - FMaxScreenX := 0; - FMinScreenY := 0; - FMaxScreenY := 0; - FMinVideoRefreshRate := 0; - FMaxVideoRefreshRate := 0; - FWindowsVersions := AllWindowsVersions; - FSystemFonts := AllSystemFonts; -end; - -procedure TJvgSysRequirements.Loaded; -var - ReportMessage: string; - DoShowWarning, DoHalt: Boolean; - Icon: Integer; -begin - inherited Loaded; - if Enabled and not (csDesigning in ComponentState) then - if not TestRequirements(ReportMessage) then - begin - DoShowWarning := True; - DoHalt := Behavior = fsbHalt; - if Assigned(FOnWarning) then - FOnWarning(Self, ReportMessage,DoShowWarning, DoHalt); - if DoHalt then - Icon := MB_ICONWARNING - else - Icon := MB_ICONERROR; - if DoShowWarning then - Application.MessageBox(PChar(ReportMessage), - PChar(ExtractFileName(ParamStr(0))), MB_OK + Icon); - if DoHalt then - Application.Terminate; - end; -end; - -function TJvgSysRequirements.TestRequirements(var ReportMessage: string): Boolean; -var - DC: HDC; - Refresh, ScreenX, ScreenY, BitsPerPixel, LogPixels: Integer; - - procedure Test(Value: Boolean; const ErrMsg: string); - begin - Result := Result and Value; - if not Value then - begin - if ReportMessage <> '' then - ReportMessage := ReportMessage + sLineBreak; - ReportMessage := ReportMessage + ErrMsg; - end; - end; - - procedure TestMinMax(TestVal, MinVal, MaxVal: Integer; const MinMsg, MaxMsg, BetweenMsg: string); - begin - if (MinVal > 0) or (MaxVal > 0) then - if (MinVal > 0) and (MaxVal > 0) then - Test((TestVal >= MinVal) and (TestVal <= MaxVal), Format(BetweenMsg, [TestVal, MinVal, MaxVal])) - else - if MinVal > 0 then - Test(TestVal >= MinVal, Format(MinMsg, [TestVal, MinVal])) - else - Test(TestVal <= MaxVal, Format(MaxMsg, [TestVal, MaxVal])); - end; - -begin - ReportMessage := ''; - Result := True; - - DC := GetDC(HWND_DESKTOP); - BitsPerPixel := GetDeviceCaps(DC, BITSPIXEL); - ScreenX := GetDeviceCaps(DC, HORZRES); - ScreenY := GetDeviceCaps(DC, VERTRES); - Refresh := GetDeviceCaps(DC, VREFRESH); - LogPixels := GetDeviceCaps(DC, LOGPIXELSX); - ReleaseDC(HWND_DESKTOP, DC); - - TestMinMax(BitsPerPixel, MinColorDepth, MaxColorDepth, RsMinColorDepthReq, RsMaxColorDepthReq, RsBetweenColorDepthReq); - TestMinMax(ScreenX, MinScreenX, MaxScreenX, RsMinScreenXReq, RsMaxScreenXReq, RsBetweenScreenXReq); - TestMinMax(ScreenY, MinScreenY, MaxScreenY, RsMinScreenYReq, RsMaxScreenYReq, RsBetweenScreenYReq); - TestMinMax(Refresh, MinVideoRefreshRate, MaxVideoRefreshRate, RsMinRefreshReq, RsMaxRefreshReq, RsBetweenRefreshReq); - if not (wvUnknown in WindowsVersions) then - Test(GetWindowsVersion in WindowsVersions, RsWindowsVersionReq); - if SystemFonts = [fsfSmallFont] then - Test(LogPixels = 96, RsSystemFontSmallReq); - if SystemFonts = [fsfBigFont] then - Test(LogPixels = 120, RsSystemFontBigReq); -end; - -{$IFDEF UNITVERSIONING} -initialization - RegisterUnitVersion(HInstance, UnitVersioning); - -finalization - UnregisterUnitVersion(HInstance); -{$ENDIF UNITVERSIONING} - -end. This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2007-01-14 11:47:00
|
Revision: 11149 http://svn.sourceforge.net/jvcl/?rev=11149&view=rev Author: obones Date: 2007-01-14 03:46:58 -0800 (Sun, 14 Jan 2007) Log Message: ----------- Preparing next version. Modified Paths: -------------- trunk/jvcl/install/release/want.xml trunk/jvcl/run/JVCLVer.pas Modified: trunk/jvcl/install/release/want.xml =================================================================== --- trunk/jvcl/install/release/want.xml 2007-01-14 11:45:37 UTC (rev 11148) +++ trunk/jvcl/install/release/want.xml 2007-01-14 11:46:58 UTC (rev 11149) @@ -2,10 +2,10 @@ <!-- JVCL build script --> <project name="JVCL" default="help"> <property name="version.major" value="3"/> - <property name="version.minor" value="2"/> - <property name="version.release" value="0"/> + <property name="version.minor" value="3"/> + <property name="version.release" value="1"/> <property name="version.build" value=" "/> - <property name="jclversion" value="197-Build2172" /> + <property name="jclversion" value="198-Build2509" /> <property name="version" value="${version.major}.${version.minor}.${version.release}.${version.build}"/> <property name="shortversion" value="${version.major}${version.minor}${version.release}${version.build}"/> <!-- JVCL releases --> Modified: trunk/jvcl/run/JVCLVer.pas =================================================================== --- trunk/jvcl/run/JVCLVer.pas 2007-01-14 11:45:37 UTC (rev 11148) +++ trunk/jvcl/run/JVCLVer.pas 2007-01-14 11:46:58 UTC (rev 11149) @@ -46,9 +46,9 @@ {$ENDIF UNITVERSIONING} const - sJVCLVersion = '3.30'; + sJVCLVersion = '3.31'; JVCLVersionMajor = 3; // 0=pre-release|beta/1, 2, ...=final - JVCLVersionMinor = 30; // minor release + JVCLVersionMinor = 31; // minor release JVCLVersionRelease = 0; // 0: pre-release|beta/>=1: release JVCLVersionBuild = 0; // build number, days since march 1, 2006 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2007-01-20 11:55:04
|
Revision: 11160 http://svn.sourceforge.net/jvcl/?rev=11160&view=rev Author: ahuser Date: 2007-01-20 03:55:02 -0800 (Sat, 20 Jan 2007) Log Message: ----------- Fixed visual TPersistent iteration bug Modified Paths: -------------- trunk/jvcl/design/JvValidatorsEditorForm.dfm trunk/jvcl/design/JvValidatorsEditorForm.pas trunk/jvcl/run/JvDBTreeView.pas Modified: trunk/jvcl/design/JvValidatorsEditorForm.dfm =================================================================== --- trunk/jvcl/design/JvValidatorsEditorForm.dfm 2007-01-20 11:41:00 UTC (rev 11159) +++ trunk/jvcl/design/JvValidatorsEditorForm.dfm 2007-01-20 11:55:02 UTC (rev 11160) @@ -1,8 +1,8 @@ object frmValidatorsEditor: TfrmValidatorsEditor Left = 289 Top = 205 - ClientWidth = 152 - ClientHeight = 224 + Width = 160 + Height = 260 BorderIcons = [biSystemMenu] Caption = 'JvValidator Items Editor' Color = clBtnFace @@ -41,12 +41,12 @@ Style = tbsDropDown end object btnDelete: TToolButton - Left = 38 + Left = 36 Top = 0 Action = acDelete end object ToolButton1: TToolButton - Left = 61 + Left = 59 Top = 0 Width = 8 Caption = 'ToolButton1' @@ -54,19 +54,19 @@ Style = tbsSeparator end object ToolButton2: TToolButton - Left = 69 + Left = 67 Top = 0 Action = acMoveUp end object ToolButton3: TToolButton - Left = 92 + Left = 90 Top = 0 Action = acMoveDown end end object StatusBar1: TStatusBar Left = 0 - Top = 211 + Top = 207 Width = 152 Height = 19 AutoHint = True @@ -74,13 +74,12 @@ item Width = 50 end> - SimplePanel = False end object lbValidators: TListBox Left = 0 Top = 24 Width = 152 - Height = 187 + Height = 183 Align = alClient ItemHeight = 13 TabOrder = 2 Modified: trunk/jvcl/design/JvValidatorsEditorForm.pas =================================================================== --- trunk/jvcl/design/JvValidatorsEditorForm.pas 2007-01-20 11:41:00 UTC (rev 11159) +++ trunk/jvcl/design/JvValidatorsEditorForm.pas 2007-01-20 11:55:02 UTC (rev 11160) @@ -71,6 +71,7 @@ procedure FormCreate(Sender: TObject); private FValidator: TJvValidators; + FFilling: Boolean; function AddExisting(Validator: TJvBaseValidator): Integer; overload; function AddNew(ValidatorClass: TJvBaseValidatorClass): Integer; overload; procedure Delete(Index: Integer); @@ -212,18 +213,32 @@ procedure TfrmValidatorsEditor.Activated; var I: Integer; + Index: Integer; begin inherited Activated; - ClearValidators; - if FValidator = nil then + if FFilling then Exit; - lbValidators.Items.BeginUpdate; + FFilling := True; try - for I := 0 to FValidator.Count - 1 do - AddExisting(FValidator.Items[I]); + Index := lbValidators.ItemIndex; + lbValidators.Items.BeginUpdate; + try + ClearValidators; + if FValidator <> nil then + for I := 0 to FValidator.Count - 1 do + AddExisting(FValidator.Items[I]); + + if lbValidators.Items.Count = 0 then + Index := -1 + else + if (Index >= lbValidators.Items.Count) then + Index := 0; + lbValidators.ItemIndex := Index; + finally + lbValidators.Items.EndUpdate; + end; finally - lbValidators.Items.EndUpdate; - lbValidators.ItemIndex := 0; + FFilling := False; end; end; @@ -256,17 +271,24 @@ Close; end else - for I := 0 to lbValidators.Items.Count - 1 do - if Item = lbValidators.Items.Objects[I] then - begin - J := lbValidators.ItemIndex; - lbValidators.Items.Delete(I); - if lbValidators.ItemIndex < 0 then - lbValidators.ItemIndex := J; - if lbValidators.ItemIndex < 0 then - lbValidators.ItemIndex := J - 1; - Exit; - end; + begin + lbValidators.Items.BeginUpdate; + try + for I := 0 to lbValidators.Items.Count - 1 do + if Item = lbValidators.Items.Objects[I] then + begin + J := lbValidators.ItemIndex; + lbValidators.Items.Delete(I); + if lbValidators.ItemIndex < 0 then + lbValidators.ItemIndex := J; + if lbValidators.ItemIndex < 0 then + lbValidators.ItemIndex := J - 1; + Exit; + end; + finally + lbValidators.Items.EndUpdate; + end; + end; UpdateCaption; end; end; @@ -353,8 +375,11 @@ function TfrmValidatorsEditor.AddExisting(Validator: TJvBaseValidator): Integer; begin Result := lbValidators.Items.AddObject(Validator.Name, Validator); - lbValidators.ItemIndex := Result; - lbValidatorsClick(nil); + if not FFilling then + begin + lbValidators.ItemIndex := Result; + lbValidatorsClick(nil); + end; end; function TfrmValidatorsEditor.AddNew(ValidatorClass: TJvBaseValidatorClass): Integer; @@ -366,7 +391,7 @@ V.Name := Designer.UniqueName(V.ClassName); FValidator.Insert(V); Result := AddExisting(V); - except + except V.Free; raise; end; Modified: trunk/jvcl/run/JvDBTreeView.pas =================================================================== --- trunk/jvcl/run/JvDBTreeView.pas 2007-01-20 11:41:00 UTC (rev 11159) +++ trunk/jvcl/run/JvDBTreeView.pas 2007-01-20 11:55:02 UTC (rev 11160) @@ -302,11 +302,14 @@ const DnDScrollArea = 15; DnDInterval = 200; - DefaultValidMasterFields = [ftSmallInt, ftInteger, ftAutoInc, ftWord, ftString, ftWideString, ftBCD, ftFMTBCD]; + DefaultValidMasterFields = [ftSmallInt, ftInteger, ftAutoInc, ftWord, ftString, ftWideString, ftBCD + {$IFDEF COMPILER6_UP}, ftFMTBCD{$ENDIF}]; DefaultValidDetailFields = DefaultValidMasterFields; DefaultValidItemFields = [ftString, ftWideString, ftMemo, ftSmallInt, ftInteger, ftAutoInc, - ftWord, ftBoolean, ftFloat, ftCurrency, ftDate, ftTime, ftDateTime, ftBCD, ftFMTBCD]; - DefaultValidIconFields = [ftSmallInt, ftAutoInc, ftInteger, ftWord, ftBCD, ftFMTBCD]; + ftWord, ftBoolean, ftFloat, ftCurrency, ftDate, ftTime, ftDateTime, ftBCD + {$IFDEF COMPILER6_UP}, ftFMTBCD{$ENDIF}]; + DefaultValidIconFields = [ftSmallInt, ftAutoInc, ftInteger, ftWord, ftBCD + {$IFDEF COMPILER6_UP}, ftFMTBCD{$ENDIF}]; function Var2Type(V: Variant; const VarType: Integer): Variant; begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ou...@us...> - 2007-02-21 14:51:30
|
Revision: 11192 http://svn.sourceforge.net/jvcl/?rev=11192&view=rev Author: outchy Date: 2007-02-21 06:51:21 -0800 (Wed, 21 Feb 2007) Log Message: ----------- Updating version number to 3.31 Updating copyright year to 2007 Modified Paths: -------------- trunk/jvcl/devtools/compile_package_resources.mak trunk/jvcl/packages/c5/Jv3rdC5R.bpk trunk/jvcl/packages/c5/Jv3rdC5R.rc trunk/jvcl/packages/c5/Jv3rdC5R.res trunk/jvcl/packages/c5/JvAppFrmC5D.bpk trunk/jvcl/packages/c5/JvAppFrmC5D.rc trunk/jvcl/packages/c5/JvAppFrmC5D.res trunk/jvcl/packages/c5/JvAppFrmC5R.bpk trunk/jvcl/packages/c5/JvAppFrmC5R.rc trunk/jvcl/packages/c5/JvAppFrmC5R.res trunk/jvcl/packages/c5/JvBDEC5D.bpk trunk/jvcl/packages/c5/JvBDEC5D.rc trunk/jvcl/packages/c5/JvBDEC5D.res trunk/jvcl/packages/c5/JvBDEC5R.bpk trunk/jvcl/packages/c5/JvBDEC5R.rc trunk/jvcl/packages/c5/JvBDEC5R.res trunk/jvcl/packages/c5/JvBandsC5D.bpk trunk/jvcl/packages/c5/JvBandsC5D.rc trunk/jvcl/packages/c5/JvBandsC5D.res trunk/jvcl/packages/c5/JvBandsC5R.bpk trunk/jvcl/packages/c5/JvBandsC5R.rc trunk/jvcl/packages/c5/JvBandsC5R.res trunk/jvcl/packages/c5/JvCmpC5D.bpk trunk/jvcl/packages/c5/JvCmpC5D.rc trunk/jvcl/packages/c5/JvCmpC5D.res trunk/jvcl/packages/c5/JvCmpC5R.bpk trunk/jvcl/packages/c5/JvCmpC5R.rc trunk/jvcl/packages/c5/JvCmpC5R.res trunk/jvcl/packages/c5/JvCoreC5D.bpk trunk/jvcl/packages/c5/JvCoreC5D.rc trunk/jvcl/packages/c5/JvCoreC5D.res trunk/jvcl/packages/c5/JvCoreC5R.bpk trunk/jvcl/packages/c5/JvCoreC5R.rc trunk/jvcl/packages/c5/JvCoreC5R.res trunk/jvcl/packages/c5/JvCryptC5D.bpk trunk/jvcl/packages/c5/JvCryptC5D.rc trunk/jvcl/packages/c5/JvCryptC5D.res trunk/jvcl/packages/c5/JvCryptC5R.bpk trunk/jvcl/packages/c5/JvCryptC5R.rc trunk/jvcl/packages/c5/JvCryptC5R.res trunk/jvcl/packages/c5/JvCtrlsC5D.bpk trunk/jvcl/packages/c5/JvCtrlsC5D.rc trunk/jvcl/packages/c5/JvCtrlsC5D.res trunk/jvcl/packages/c5/JvCtrlsC5R.bpk trunk/jvcl/packages/c5/JvCtrlsC5R.rc trunk/jvcl/packages/c5/JvCtrlsC5R.res trunk/jvcl/packages/c5/JvCustomC5D.bpk trunk/jvcl/packages/c5/JvCustomC5D.rc trunk/jvcl/packages/c5/JvCustomC5D.res trunk/jvcl/packages/c5/JvCustomC5R.bpk trunk/jvcl/packages/c5/JvCustomC5R.rc trunk/jvcl/packages/c5/JvCustomC5R.res trunk/jvcl/packages/c5/JvDBC5D.bpk trunk/jvcl/packages/c5/JvDBC5D.rc trunk/jvcl/packages/c5/JvDBC5D.res trunk/jvcl/packages/c5/JvDBC5R.bpk trunk/jvcl/packages/c5/JvDBC5R.rc trunk/jvcl/packages/c5/JvDBC5R.res trunk/jvcl/packages/c5/JvDlgsC5D.bpk trunk/jvcl/packages/c5/JvDlgsC5D.rc trunk/jvcl/packages/c5/JvDlgsC5D.res trunk/jvcl/packages/c5/JvDlgsC5R.bpk trunk/jvcl/packages/c5/JvDlgsC5R.rc trunk/jvcl/packages/c5/JvDlgsC5R.res trunk/jvcl/packages/c5/JvDockingC5D.bpk trunk/jvcl/packages/c5/JvDockingC5D.rc trunk/jvcl/packages/c5/JvDockingC5D.res trunk/jvcl/packages/c5/JvDockingC5R.bpk trunk/jvcl/packages/c5/JvDockingC5R.rc trunk/jvcl/packages/c5/JvDockingC5R.res trunk/jvcl/packages/c5/JvDotNetCtrlsC5D.bpk trunk/jvcl/packages/c5/JvDotNetCtrlsC5D.rc trunk/jvcl/packages/c5/JvDotNetCtrlsC5D.res trunk/jvcl/packages/c5/JvDotNetCtrlsC5R.bpk trunk/jvcl/packages/c5/JvDotNetCtrlsC5R.rc trunk/jvcl/packages/c5/JvDotNetCtrlsC5R.res trunk/jvcl/packages/c5/JvEDIC5D.bpk trunk/jvcl/packages/c5/JvEDIC5D.rc trunk/jvcl/packages/c5/JvEDIC5D.res trunk/jvcl/packages/c5/JvEDIC5R.bpk trunk/jvcl/packages/c5/JvEDIC5R.rc trunk/jvcl/packages/c5/JvEDIC5R.res trunk/jvcl/packages/c5/JvGlobusC5D.bpk trunk/jvcl/packages/c5/JvGlobusC5D.rc trunk/jvcl/packages/c5/JvGlobusC5D.res trunk/jvcl/packages/c5/JvGlobusC5R.bpk trunk/jvcl/packages/c5/JvGlobusC5R.rc trunk/jvcl/packages/c5/JvGlobusC5R.res trunk/jvcl/packages/c5/JvHMIC5D.bpk trunk/jvcl/packages/c5/JvHMIC5D.rc trunk/jvcl/packages/c5/JvHMIC5D.res trunk/jvcl/packages/c5/JvHMIC5R.bpk trunk/jvcl/packages/c5/JvHMIC5R.rc trunk/jvcl/packages/c5/JvHMIC5R.res trunk/jvcl/packages/c5/JvInterpreterC5D.bpk trunk/jvcl/packages/c5/JvInterpreterC5D.rc trunk/jvcl/packages/c5/JvInterpreterC5D.res trunk/jvcl/packages/c5/JvInterpreterC5R.bpk trunk/jvcl/packages/c5/JvInterpreterC5R.rc trunk/jvcl/packages/c5/JvInterpreterC5R.res trunk/jvcl/packages/c5/JvJansC5D.bpk trunk/jvcl/packages/c5/JvJansC5D.rc trunk/jvcl/packages/c5/JvJansC5D.res trunk/jvcl/packages/c5/JvJansC5R.bpk trunk/jvcl/packages/c5/JvJansC5R.rc trunk/jvcl/packages/c5/JvJansC5R.res trunk/jvcl/packages/c5/JvMMC5D.bpk trunk/jvcl/packages/c5/JvMMC5D.rc trunk/jvcl/packages/c5/JvMMC5D.res trunk/jvcl/packages/c5/JvMMC5R.bpk trunk/jvcl/packages/c5/JvMMC5R.rc trunk/jvcl/packages/c5/JvMMC5R.res trunk/jvcl/packages/c5/JvManagedThreadsC5D.bpk trunk/jvcl/packages/c5/JvManagedThreadsC5D.rc trunk/jvcl/packages/c5/JvManagedThreadsC5D.res trunk/jvcl/packages/c5/JvManagedThreadsC5R.bpk trunk/jvcl/packages/c5/JvManagedThreadsC5R.rc trunk/jvcl/packages/c5/JvManagedThreadsC5R.res trunk/jvcl/packages/c5/JvNetC5D.bpk trunk/jvcl/packages/c5/JvNetC5D.rc trunk/jvcl/packages/c5/JvNetC5D.res trunk/jvcl/packages/c5/JvNetC5R.bpk trunk/jvcl/packages/c5/JvNetC5R.rc trunk/jvcl/packages/c5/JvNetC5R.res trunk/jvcl/packages/c5/JvPageCompsC5D.bpk trunk/jvcl/packages/c5/JvPageCompsC5D.rc trunk/jvcl/packages/c5/JvPageCompsC5D.res trunk/jvcl/packages/c5/JvPageCompsC5R.bpk trunk/jvcl/packages/c5/JvPageCompsC5R.rc trunk/jvcl/packages/c5/JvPageCompsC5R.res trunk/jvcl/packages/c5/JvPluginC5D.bpk trunk/jvcl/packages/c5/JvPluginC5D.rc trunk/jvcl/packages/c5/JvPluginC5D.res trunk/jvcl/packages/c5/JvPluginC5R.bpk trunk/jvcl/packages/c5/JvPluginC5R.rc trunk/jvcl/packages/c5/JvPluginC5R.res trunk/jvcl/packages/c5/JvPrintPreviewC5D.bpk trunk/jvcl/packages/c5/JvPrintPreviewC5D.rc trunk/jvcl/packages/c5/JvPrintPreviewC5D.res trunk/jvcl/packages/c5/JvPrintPreviewC5R.bpk trunk/jvcl/packages/c5/JvPrintPreviewC5R.rc trunk/jvcl/packages/c5/JvPrintPreviewC5R.res trunk/jvcl/packages/c5/JvRuntimeDesignC5D.bpk trunk/jvcl/packages/c5/JvRuntimeDesignC5D.rc trunk/jvcl/packages/c5/JvRuntimeDesignC5D.res trunk/jvcl/packages/c5/JvRuntimeDesignC5R.bpk trunk/jvcl/packages/c5/JvRuntimeDesignC5R.rc trunk/jvcl/packages/c5/JvRuntimeDesignC5R.res trunk/jvcl/packages/c5/JvStdCtrlsC5D.bpk trunk/jvcl/packages/c5/JvStdCtrlsC5D.rc trunk/jvcl/packages/c5/JvStdCtrlsC5D.res trunk/jvcl/packages/c5/JvStdCtrlsC5R.bpk trunk/jvcl/packages/c5/JvStdCtrlsC5R.rc trunk/jvcl/packages/c5/JvStdCtrlsC5R.res trunk/jvcl/packages/c5/JvSystemC5D.bpk trunk/jvcl/packages/c5/JvSystemC5D.rc trunk/jvcl/packages/c5/JvSystemC5D.res trunk/jvcl/packages/c5/JvSystemC5R.bpk trunk/jvcl/packages/c5/JvSystemC5R.rc trunk/jvcl/packages/c5/JvSystemC5R.res trunk/jvcl/packages/c5/JvTimeFrameworkC5D.bpk trunk/jvcl/packages/c5/JvTimeFrameworkC5D.rc trunk/jvcl/packages/c5/JvTimeFrameworkC5D.res trunk/jvcl/packages/c5/JvTimeFrameworkC5R.bpk trunk/jvcl/packages/c5/JvTimeFrameworkC5R.rc trunk/jvcl/packages/c5/JvTimeFrameworkC5R.res trunk/jvcl/packages/c5/JvUIBC5D.bpk trunk/jvcl/packages/c5/JvUIBC5D.rc trunk/jvcl/packages/c5/JvUIBC5D.res trunk/jvcl/packages/c5/JvUIBC5R.bpk trunk/jvcl/packages/c5/JvUIBC5R.rc trunk/jvcl/packages/c5/JvUIBC5R.res trunk/jvcl/packages/c5/JvValidatorsC5D.bpk trunk/jvcl/packages/c5/JvValidatorsC5D.rc trunk/jvcl/packages/c5/JvValidatorsC5D.res trunk/jvcl/packages/c5/JvValidatorsC5R.bpk trunk/jvcl/packages/c5/JvValidatorsC5R.rc trunk/jvcl/packages/c5/JvValidatorsC5R.res trunk/jvcl/packages/c5/JvWizardC5D.bpk trunk/jvcl/packages/c5/JvWizardC5D.rc trunk/jvcl/packages/c5/JvWizardC5D.res trunk/jvcl/packages/c5/JvWizardC5R.bpk trunk/jvcl/packages/c5/JvWizardC5R.rc trunk/jvcl/packages/c5/JvWizardC5R.res trunk/jvcl/packages/c5/JvXPCtrlsC5D.bpk trunk/jvcl/packages/c5/JvXPCtrlsC5D.rc trunk/jvcl/packages/c5/JvXPCtrlsC5D.res trunk/jvcl/packages/c5/JvXPCtrlsC5R.bpk trunk/jvcl/packages/c5/JvXPCtrlsC5R.rc trunk/jvcl/packages/c5/JvXPCtrlsC5R.res trunk/jvcl/packages/c5/template.bpk trunk/jvcl/packages/c5/template.rc trunk/jvcl/packages/c5std/JvCoreC5R.bpk trunk/jvcl/packages/c5std/JvCoreC5R.rc trunk/jvcl/packages/c5std/JvCoreC5R.res trunk/jvcl/packages/c5std/JvDotNetCtrlsC5R.bpk trunk/jvcl/packages/c5std/JvDotNetCtrlsC5R.rc trunk/jvcl/packages/c5std/JvDotNetCtrlsC5R.res trunk/jvcl/packages/c5std/JvGlobusC5D.bpk trunk/jvcl/packages/c5std/JvGlobusC5D.rc trunk/jvcl/packages/c5std/JvGlobusC5D.res trunk/jvcl/packages/c5std/JvGlobusC5R.bpk trunk/jvcl/packages/c5std/JvGlobusC5R.rc trunk/jvcl/packages/c5std/JvGlobusC5R.res trunk/jvcl/packages/c5std/JvInterpreterC5D.bpk trunk/jvcl/packages/c5std/JvInterpreterC5D.rc trunk/jvcl/packages/c5std/JvInterpreterC5D.res trunk/jvcl/packages/c5std/JvInterpreterC5R.bpk trunk/jvcl/packages/c5std/JvInterpreterC5R.rc trunk/jvcl/packages/c5std/JvInterpreterC5R.res trunk/jvcl/packages/c5std/JvRuntimeDesignC5R.bpk trunk/jvcl/packages/c5std/JvRuntimeDesignC5R.rc trunk/jvcl/packages/c5std/JvRuntimeDesignC5R.res trunk/jvcl/packages/c5std/JvUIBC5R.bpk trunk/jvcl/packages/c5std/JvUIBC5R.rc trunk/jvcl/packages/c5std/JvUIBC5R.res trunk/jvcl/packages/c5std/template.bpk trunk/jvcl/packages/c5std/template.rc trunk/jvcl/packages/c6/Jv3rdC6R.bpk trunk/jvcl/packages/c6/Jv3rdC6R.rc trunk/jvcl/packages/c6/Jv3rdC6R.res trunk/jvcl/packages/c6/JvAppFrmC6D.bpk trunk/jvcl/packages/c6/JvAppFrmC6D.rc trunk/jvcl/packages/c6/JvAppFrmC6D.res trunk/jvcl/packages/c6/JvAppFrmC6R.bpk trunk/jvcl/packages/c6/JvAppFrmC6R.rc trunk/jvcl/packages/c6/JvAppFrmC6R.res trunk/jvcl/packages/c6/JvBDEC6D.bpk trunk/jvcl/packages/c6/JvBDEC6D.rc trunk/jvcl/packages/c6/JvBDEC6D.res trunk/jvcl/packages/c6/JvBDEC6R.bpk trunk/jvcl/packages/c6/JvBDEC6R.rc trunk/jvcl/packages/c6/JvBDEC6R.res trunk/jvcl/packages/c6/JvBandsC6D.bpk trunk/jvcl/packages/c6/JvBandsC6D.rc trunk/jvcl/packages/c6/JvBandsC6D.res trunk/jvcl/packages/c6/JvBandsC6R.bpk trunk/jvcl/packages/c6/JvBandsC6R.rc trunk/jvcl/packages/c6/JvBandsC6R.res trunk/jvcl/packages/c6/JvCmpC6D.bpk trunk/jvcl/packages/c6/JvCmpC6D.rc trunk/jvcl/packages/c6/JvCmpC6D.res trunk/jvcl/packages/c6/JvCmpC6R.bpk trunk/jvcl/packages/c6/JvCmpC6R.rc trunk/jvcl/packages/c6/JvCmpC6R.res trunk/jvcl/packages/c6/JvCoreC6D.bpk trunk/jvcl/packages/c6/JvCoreC6D.rc trunk/jvcl/packages/c6/JvCoreC6D.res trunk/jvcl/packages/c6/JvCoreC6R.bpk trunk/jvcl/packages/c6/JvCoreC6R.rc trunk/jvcl/packages/c6/JvCoreC6R.res trunk/jvcl/packages/c6/JvCryptC6D.bpk trunk/jvcl/packages/c6/JvCryptC6D.rc trunk/jvcl/packages/c6/JvCryptC6D.res trunk/jvcl/packages/c6/JvCryptC6R.bpk trunk/jvcl/packages/c6/JvCryptC6R.rc trunk/jvcl/packages/c6/JvCryptC6R.res trunk/jvcl/packages/c6/JvCtrlsC6D.bpk trunk/jvcl/packages/c6/JvCtrlsC6D.rc trunk/jvcl/packages/c6/JvCtrlsC6D.res trunk/jvcl/packages/c6/JvCtrlsC6R.bpk trunk/jvcl/packages/c6/JvCtrlsC6R.rc trunk/jvcl/packages/c6/JvCtrlsC6R.res trunk/jvcl/packages/c6/JvCustomC6D.bpk trunk/jvcl/packages/c6/JvCustomC6D.rc trunk/jvcl/packages/c6/JvCustomC6D.res trunk/jvcl/packages/c6/JvCustomC6R.bpk trunk/jvcl/packages/c6/JvCustomC6R.rc trunk/jvcl/packages/c6/JvCustomC6R.res trunk/jvcl/packages/c6/JvDBC6D.bpk trunk/jvcl/packages/c6/JvDBC6D.rc trunk/jvcl/packages/c6/JvDBC6D.res trunk/jvcl/packages/c6/JvDBC6R.bpk trunk/jvcl/packages/c6/JvDBC6R.rc trunk/jvcl/packages/c6/JvDBC6R.res trunk/jvcl/packages/c6/JvDlgsC6D.bpk trunk/jvcl/packages/c6/JvDlgsC6D.rc trunk/jvcl/packages/c6/JvDlgsC6D.res trunk/jvcl/packages/c6/JvDlgsC6R.bpk trunk/jvcl/packages/c6/JvDlgsC6R.rc trunk/jvcl/packages/c6/JvDlgsC6R.res trunk/jvcl/packages/c6/JvDockingC6D.bpk trunk/jvcl/packages/c6/JvDockingC6D.rc trunk/jvcl/packages/c6/JvDockingC6D.res trunk/jvcl/packages/c6/JvDockingC6R.bpk trunk/jvcl/packages/c6/JvDockingC6R.rc trunk/jvcl/packages/c6/JvDockingC6R.res trunk/jvcl/packages/c6/JvDotNetCtrlsC6D.bpk trunk/jvcl/packages/c6/JvDotNetCtrlsC6D.rc trunk/jvcl/packages/c6/JvDotNetCtrlsC6D.res trunk/jvcl/packages/c6/JvDotNetCtrlsC6R.bpk trunk/jvcl/packages/c6/JvDotNetCtrlsC6R.rc trunk/jvcl/packages/c6/JvDotNetCtrlsC6R.res trunk/jvcl/packages/c6/JvEDIC6D.bpk trunk/jvcl/packages/c6/JvEDIC6D.rc trunk/jvcl/packages/c6/JvEDIC6D.res trunk/jvcl/packages/c6/JvEDIC6R.bpk trunk/jvcl/packages/c6/JvEDIC6R.rc trunk/jvcl/packages/c6/JvEDIC6R.res trunk/jvcl/packages/c6/JvGlobusC6D.bpk trunk/jvcl/packages/c6/JvGlobusC6D.rc trunk/jvcl/packages/c6/JvGlobusC6D.res trunk/jvcl/packages/c6/JvGlobusC6R.bpk trunk/jvcl/packages/c6/JvGlobusC6R.rc trunk/jvcl/packages/c6/JvGlobusC6R.res trunk/jvcl/packages/c6/JvHMIC6D.bpk trunk/jvcl/packages/c6/JvHMIC6D.rc trunk/jvcl/packages/c6/JvHMIC6D.res trunk/jvcl/packages/c6/JvHMIC6R.bpk trunk/jvcl/packages/c6/JvHMIC6R.rc trunk/jvcl/packages/c6/JvHMIC6R.res trunk/jvcl/packages/c6/JvInterpreterC6D.bpk trunk/jvcl/packages/c6/JvInterpreterC6D.rc trunk/jvcl/packages/c6/JvInterpreterC6D.res trunk/jvcl/packages/c6/JvInterpreterC6R.bpk trunk/jvcl/packages/c6/JvInterpreterC6R.rc trunk/jvcl/packages/c6/JvInterpreterC6R.res trunk/jvcl/packages/c6/JvJansC6D.bpk trunk/jvcl/packages/c6/JvJansC6D.rc trunk/jvcl/packages/c6/JvJansC6D.res trunk/jvcl/packages/c6/JvJansC6R.bpk trunk/jvcl/packages/c6/JvJansC6R.rc trunk/jvcl/packages/c6/JvJansC6R.res trunk/jvcl/packages/c6/JvMMC6D.bpk trunk/jvcl/packages/c6/JvMMC6D.rc trunk/jvcl/packages/c6/JvMMC6D.res trunk/jvcl/packages/c6/JvMMC6R.bpk trunk/jvcl/packages/c6/JvMMC6R.rc trunk/jvcl/packages/c6/JvMMC6R.res trunk/jvcl/packages/c6/JvManagedThreadsC6D.bpk trunk/jvcl/packages/c6/JvManagedThreadsC6D.rc trunk/jvcl/packages/c6/JvManagedThreadsC6D.res trunk/jvcl/packages/c6/JvManagedThreadsC6R.bpk trunk/jvcl/packages/c6/JvManagedThreadsC6R.rc trunk/jvcl/packages/c6/JvManagedThreadsC6R.res trunk/jvcl/packages/c6/JvNetC6D.bpk trunk/jvcl/packages/c6/JvNetC6D.rc trunk/jvcl/packages/c6/JvNetC6D.res trunk/jvcl/packages/c6/JvNetC6R.bpk trunk/jvcl/packages/c6/JvNetC6R.rc trunk/jvcl/packages/c6/JvNetC6R.res trunk/jvcl/packages/c6/JvPageCompsC6D.bpk trunk/jvcl/packages/c6/JvPageCompsC6D.rc trunk/jvcl/packages/c6/JvPageCompsC6D.res trunk/jvcl/packages/c6/JvPageCompsC6R.bpk trunk/jvcl/packages/c6/JvPageCompsC6R.rc trunk/jvcl/packages/c6/JvPageCompsC6R.res trunk/jvcl/packages/c6/JvPluginC6D.bpk trunk/jvcl/packages/c6/JvPluginC6D.rc trunk/jvcl/packages/c6/JvPluginC6D.res trunk/jvcl/packages/c6/JvPluginC6R.bpk trunk/jvcl/packages/c6/JvPluginC6R.rc trunk/jvcl/packages/c6/JvPluginC6R.res trunk/jvcl/packages/c6/JvPrintPreviewC6D.bpk trunk/jvcl/packages/c6/JvPrintPreviewC6D.rc trunk/jvcl/packages/c6/JvPrintPreviewC6D.res trunk/jvcl/packages/c6/JvPrintPreviewC6R.bpk trunk/jvcl/packages/c6/JvPrintPreviewC6R.rc trunk/jvcl/packages/c6/JvPrintPreviewC6R.res trunk/jvcl/packages/c6/JvRuntimeDesignC6D.bpk trunk/jvcl/packages/c6/JvRuntimeDesignC6D.rc trunk/jvcl/packages/c6/JvRuntimeDesignC6D.res trunk/jvcl/packages/c6/JvRuntimeDesignC6R.bpk trunk/jvcl/packages/c6/JvRuntimeDesignC6R.rc trunk/jvcl/packages/c6/JvRuntimeDesignC6R.res trunk/jvcl/packages/c6/JvStdCtrlsC6D.bpk trunk/jvcl/packages/c6/JvStdCtrlsC6D.rc trunk/jvcl/packages/c6/JvStdCtrlsC6D.res trunk/jvcl/packages/c6/JvStdCtrlsC6R.bpk trunk/jvcl/packages/c6/JvStdCtrlsC6R.rc trunk/jvcl/packages/c6/JvStdCtrlsC6R.res trunk/jvcl/packages/c6/JvSystemC6D.bpk trunk/jvcl/packages/c6/JvSystemC6D.rc trunk/jvcl/packages/c6/JvSystemC6D.res trunk/jvcl/packages/c6/JvSystemC6R.bpk trunk/jvcl/packages/c6/JvSystemC6R.rc trunk/jvcl/packages/c6/JvSystemC6R.res trunk/jvcl/packages/c6/JvTimeFrameworkC6D.bpk trunk/jvcl/packages/c6/JvTimeFrameworkC6D.rc trunk/jvcl/packages/c6/JvTimeFrameworkC6D.res trunk/jvcl/packages/c6/JvTimeFrameworkC6R.bpk trunk/jvcl/packages/c6/JvTimeFrameworkC6R.rc trunk/jvcl/packages/c6/JvTimeFrameworkC6R.res trunk/jvcl/packages/c6/JvUIBC6D.bpk trunk/jvcl/packages/c6/JvUIBC6D.rc trunk/jvcl/packages/c6/JvUIBC6D.res trunk/jvcl/packages/c6/JvUIBC6R.bpk trunk/jvcl/packages/c6/JvUIBC6R.rc trunk/jvcl/packages/c6/JvUIBC6R.res trunk/jvcl/packages/c6/JvValidatorsC6D.bpk trunk/jvcl/packages/c6/JvValidatorsC6D.rc trunk/jvcl/packages/c6/JvValidatorsC6D.res trunk/jvcl/packages/c6/JvValidatorsC6R.bpk trunk/jvcl/packages/c6/JvValidatorsC6R.rc trunk/jvcl/packages/c6/JvValidatorsC6R.res trunk/jvcl/packages/c6/JvWizardC6D.bpk trunk/jvcl/packages/c6/JvWizardC6D.rc trunk/jvcl/packages/c6/JvWizardC6D.res trunk/jvcl/packages/c6/JvWizardC6R.bpk trunk/jvcl/packages/c6/JvWizardC6R.rc trunk/jvcl/packages/c6/JvWizardC6R.res trunk/jvcl/packages/c6/JvXPCtrlsC6D.bpk trunk/jvcl/packages/c6/JvXPCtrlsC6D.rc trunk/jvcl/packages/c6/JvXPCtrlsC6D.res trunk/jvcl/packages/c6/JvXPCtrlsC6R.bpk trunk/jvcl/packages/c6/JvXPCtrlsC6R.rc trunk/jvcl/packages/c6/JvXPCtrlsC6R.res trunk/jvcl/packages/c6/template.bpk trunk/jvcl/packages/c6/template.rc trunk/jvcl/packages/c6per/JvCoreC6R.bpk trunk/jvcl/packages/c6per/JvCoreC6R.rc trunk/jvcl/packages/c6per/JvCoreC6R.res trunk/jvcl/packages/c6per/JvDotNetCtrlsC6R.bpk trunk/jvcl/packages/c6per/JvDotNetCtrlsC6R.rc trunk/jvcl/packages/c6per/JvDotNetCtrlsC6R.res trunk/jvcl/packages/c6per/JvGlobusC6D.bpk trunk/jvcl/packages/c6per/JvGlobusC6D.rc trunk/jvcl/packages/c6per/JvGlobusC6D.res trunk/jvcl/packages/c6per/JvGlobusC6R.bpk trunk/jvcl/packages/c6per/JvGlobusC6R.rc trunk/jvcl/packages/c6per/JvGlobusC6R.res trunk/jvcl/packages/c6per/JvInterpreterC6D.bpk trunk/jvcl/packages/c6per/JvInterpreterC6D.rc trunk/jvcl/packages/c6per/JvInterpreterC6D.res trunk/jvcl/packages/c6per/JvInterpreterC6R.bpk trunk/jvcl/packages/c6per/JvInterpreterC6R.rc trunk/jvcl/packages/c6per/JvInterpreterC6R.res trunk/jvcl/packages/c6per/JvRuntimeDesignC6R.bpk trunk/jvcl/packages/c6per/JvRuntimeDesignC6R.rc trunk/jvcl/packages/c6per/JvRuntimeDesignC6R.res trunk/jvcl/packages/c6per/JvUIBC6R.bpk trunk/jvcl/packages/c6per/JvUIBC6R.rc trunk/jvcl/packages/c6per/JvUIBC6R.res trunk/jvcl/packages/c6per/template.bpk trunk/jvcl/packages/c6per/template.rc trunk/jvcl/packages/d10/Jv3rdD10R.bdsproj trunk/jvcl/packages/d10/Jv3rdD10R.rc trunk/jvcl/packages/d10/Jv3rdD10R.res trunk/jvcl/packages/d10/JvAppFrmD10D.bdsproj trunk/jvcl/packages/d10/JvAppFrmD10D.rc trunk/jvcl/packages/d10/JvAppFrmD10D.res trunk/jvcl/packages/d10/JvAppFrmD10R.bdsproj trunk/jvcl/packages/d10/JvAppFrmD10R.rc trunk/jvcl/packages/d10/JvAppFrmD10R.res trunk/jvcl/packages/d10/JvBDED10D.bdsproj trunk/jvcl/packages/d10/JvBDED10D.rc trunk/jvcl/packages/d10/JvBDED10D.res trunk/jvcl/packages/d10/JvBDED10R.bdsproj trunk/jvcl/packages/d10/JvBDED10R.rc trunk/jvcl/packages/d10/JvBDED10R.res trunk/jvcl/packages/d10/JvBandsD10D.bdsproj trunk/jvcl/packages/d10/JvBandsD10D.rc trunk/jvcl/packages/d10/JvBandsD10D.res trunk/jvcl/packages/d10/JvBandsD10R.bdsproj trunk/jvcl/packages/d10/JvBandsD10R.rc trunk/jvcl/packages/d10/JvBandsD10R.res trunk/jvcl/packages/d10/JvCmpD10D.bdsproj trunk/jvcl/packages/d10/JvCmpD10D.rc trunk/jvcl/packages/d10/JvCmpD10D.res trunk/jvcl/packages/d10/JvCmpD10R.bdsproj trunk/jvcl/packages/d10/JvCmpD10R.rc trunk/jvcl/packages/d10/JvCmpD10R.res trunk/jvcl/packages/d10/JvCoreD10D.bdsproj trunk/jvcl/packages/d10/JvCoreD10D.rc trunk/jvcl/packages/d10/JvCoreD10D.res trunk/jvcl/packages/d10/JvCoreD10R.bdsproj trunk/jvcl/packages/d10/JvCoreD10R.rc trunk/jvcl/packages/d10/JvCoreD10R.res trunk/jvcl/packages/d10/JvCryptD10D.bdsproj trunk/jvcl/packages/d10/JvCryptD10D.rc trunk/jvcl/packages/d10/JvCryptD10D.res trunk/jvcl/packages/d10/JvCryptD10R.bdsproj trunk/jvcl/packages/d10/JvCryptD10R.rc trunk/jvcl/packages/d10/JvCryptD10R.res trunk/jvcl/packages/d10/JvCtrlsD10D.bdsproj trunk/jvcl/packages/d10/JvCtrlsD10D.rc trunk/jvcl/packages/d10/JvCtrlsD10D.res trunk/jvcl/packages/d10/JvCtrlsD10R.bdsproj trunk/jvcl/packages/d10/JvCtrlsD10R.rc trunk/jvcl/packages/d10/JvCtrlsD10R.res trunk/jvcl/packages/d10/JvCustomD10D.bdsproj trunk/jvcl/packages/d10/JvCustomD10D.rc trunk/jvcl/packages/d10/JvCustomD10D.res trunk/jvcl/packages/d10/JvCustomD10R.bdsproj trunk/jvcl/packages/d10/JvCustomD10R.rc trunk/jvcl/packages/d10/JvCustomD10R.res trunk/jvcl/packages/d10/JvDBD10D.bdsproj trunk/jvcl/packages/d10/JvDBD10D.rc trunk/jvcl/packages/d10/JvDBD10D.res trunk/jvcl/packages/d10/JvDBD10R.bdsproj trunk/jvcl/packages/d10/JvDBD10R.rc trunk/jvcl/packages/d10/JvDBD10R.res trunk/jvcl/packages/d10/JvDlgsD10D.bdsproj trunk/jvcl/packages/d10/JvDlgsD10D.rc trunk/jvcl/packages/d10/JvDlgsD10D.res trunk/jvcl/packages/d10/JvDlgsD10R.bdsproj trunk/jvcl/packages/d10/JvDlgsD10R.rc trunk/jvcl/packages/d10/JvDlgsD10R.res trunk/jvcl/packages/d10/JvDockingD10D.bdsproj trunk/jvcl/packages/d10/JvDockingD10D.rc trunk/jvcl/packages/d10/JvDockingD10D.res trunk/jvcl/packages/d10/JvDockingD10R.bdsproj trunk/jvcl/packages/d10/JvDockingD10R.rc trunk/jvcl/packages/d10/JvDockingD10R.res trunk/jvcl/packages/d10/JvDotNetCtrlsD10D.bdsproj trunk/jvcl/packages/d10/JvDotNetCtrlsD10D.rc trunk/jvcl/packages/d10/JvDotNetCtrlsD10D.res trunk/jvcl/packages/d10/JvDotNetCtrlsD10R.bdsproj trunk/jvcl/packages/d10/JvDotNetCtrlsD10R.rc trunk/jvcl/packages/d10/JvDotNetCtrlsD10R.res trunk/jvcl/packages/d10/JvEDID10D.bdsproj trunk/jvcl/packages/d10/JvEDID10D.rc trunk/jvcl/packages/d10/JvEDID10D.res trunk/jvcl/packages/d10/JvEDID10R.bdsproj trunk/jvcl/packages/d10/JvEDID10R.rc trunk/jvcl/packages/d10/JvEDID10R.res trunk/jvcl/packages/d10/JvGlobusD10D.bdsproj trunk/jvcl/packages/d10/JvGlobusD10D.rc trunk/jvcl/packages/d10/JvGlobusD10D.res trunk/jvcl/packages/d10/JvGlobusD10R.bdsproj trunk/jvcl/packages/d10/JvGlobusD10R.rc trunk/jvcl/packages/d10/JvGlobusD10R.res trunk/jvcl/packages/d10/JvHMID10D.bdsproj trunk/jvcl/packages/d10/JvHMID10D.rc trunk/jvcl/packages/d10/JvHMID10D.res trunk/jvcl/packages/d10/JvHMID10R.bdsproj trunk/jvcl/packages/d10/JvHMID10R.rc trunk/jvcl/packages/d10/JvHMID10R.res trunk/jvcl/packages/d10/JvInterpreterD10D.bdsproj trunk/jvcl/packages/d10/JvInterpreterD10D.rc trunk/jvcl/packages/d10/JvInterpreterD10D.res trunk/jvcl/packages/d10/JvInterpreterD10R.bdsproj trunk/jvcl/packages/d10/JvInterpreterD10R.rc trunk/jvcl/packages/d10/JvInterpreterD10R.res trunk/jvcl/packages/d10/JvJansD10D.bdsproj trunk/jvcl/packages/d10/JvJansD10D.rc trunk/jvcl/packages/d10/JvJansD10D.res trunk/jvcl/packages/d10/JvJansD10R.bdsproj trunk/jvcl/packages/d10/JvJansD10R.rc trunk/jvcl/packages/d10/JvJansD10R.res trunk/jvcl/packages/d10/JvMMD10D.bdsproj trunk/jvcl/packages/d10/JvMMD10D.rc trunk/jvcl/packages/d10/JvMMD10D.res trunk/jvcl/packages/d10/JvMMD10R.bdsproj trunk/jvcl/packages/d10/JvMMD10R.rc trunk/jvcl/packages/d10/JvMMD10R.res trunk/jvcl/packages/d10/JvManagedThreadsD10D.bdsproj trunk/jvcl/packages/d10/JvManagedThreadsD10D.rc trunk/jvcl/packages/d10/JvManagedThreadsD10D.res trunk/jvcl/packages/d10/JvManagedThreadsD10R.bdsproj trunk/jvcl/packages/d10/JvManagedThreadsD10R.rc trunk/jvcl/packages/d10/JvManagedThreadsD10R.res trunk/jvcl/packages/d10/JvNetD10D.bdsproj trunk/jvcl/packages/d10/JvNetD10D.rc trunk/jvcl/packages/d10/JvNetD10D.res trunk/jvcl/packages/d10/JvNetD10R.bdsproj trunk/jvcl/packages/d10/JvNetD10R.rc trunk/jvcl/packages/d10/JvNetD10R.res trunk/jvcl/packages/d10/JvPageCompsD10D.bdsproj trunk/jvcl/packages/d10/JvPageCompsD10D.rc trunk/jvcl/packages/d10/JvPageCompsD10D.res trunk/jvcl/packages/d10/JvPageCompsD10R.bdsproj trunk/jvcl/packages/d10/JvPageCompsD10R.rc trunk/jvcl/packages/d10/JvPageCompsD10R.res trunk/jvcl/packages/d10/JvPluginD10D.bdsproj trunk/jvcl/packages/d10/JvPluginD10D.rc trunk/jvcl/packages/d10/JvPluginD10D.res trunk/jvcl/packages/d10/JvPluginD10R.bdsproj trunk/jvcl/packages/d10/JvPluginD10R.rc trunk/jvcl/packages/d10/JvPluginD10R.res trunk/jvcl/packages/d10/JvPrintPreviewD10D.bdsproj trunk/jvcl/packages/d10/JvPrintPreviewD10D.rc trunk/jvcl/packages/d10/JvPrintPreviewD10D.res trunk/jvcl/packages/d10/JvPrintPreviewD10R.bdsproj trunk/jvcl/packages/d10/JvPrintPreviewD10R.rc trunk/jvcl/packages/d10/JvPrintPreviewD10R.res trunk/jvcl/packages/d10/JvRuntimeDesignD10D.bdsproj trunk/jvcl/packages/d10/JvRuntimeDesignD10D.rc trunk/jvcl/packages/d10/JvRuntimeDesignD10D.res trunk/jvcl/packages/d10/JvRuntimeDesignD10R.bdsproj trunk/jvcl/packages/d10/JvRuntimeDesignD10R.rc trunk/jvcl/packages/d10/JvRuntimeDesignD10R.res trunk/jvcl/packages/d10/JvStdCtrlsD10D.bdsproj trunk/jvcl/packages/d10/JvStdCtrlsD10D.rc trunk/jvcl/packages/d10/JvStdCtrlsD10D.res trunk/jvcl/packages/d10/JvStdCtrlsD10R.bdsproj trunk/jvcl/packages/d10/JvStdCtrlsD10R.rc trunk/jvcl/packages/d10/JvStdCtrlsD10R.res trunk/jvcl/packages/d10/JvSystemD10D.bdsproj trunk/jvcl/packages/d10/JvSystemD10D.rc trunk/jvcl/packages/d10/JvSystemD10D.res trunk/jvcl/packages/d10/JvSystemD10R.bdsproj trunk/jvcl/packages/d10/JvSystemD10R.rc trunk/jvcl/packages/d10/JvSystemD10R.res trunk/jvcl/packages/d10/JvTimeFrameworkD10D.bdsproj trunk/jvcl/packages/d10/JvTimeFrameworkD10D.rc trunk/jvcl/packages/d10/JvTimeFrameworkD10D.res trunk/jvcl/packages/d10/JvTimeFrameworkD10R.bdsproj trunk/jvcl/packages/d10/JvTimeFrameworkD10R.rc trunk/jvcl/packages/d10/JvTimeFrameworkD10R.res trunk/jvcl/packages/d10/JvUIBD10D.bdsproj trunk/jvcl/packages/d10/JvUIBD10D.rc trunk/jvcl/packages/d10/JvUIBD10D.res trunk/jvcl/packages/d10/JvUIBD10R.bdsproj trunk/jvcl/packages/d10/JvUIBD10R.rc trunk/jvcl/packages/d10/JvUIBD10R.res trunk/jvcl/packages/d10/JvValidatorsD10D.bdsproj trunk/jvcl/packages/d10/JvValidatorsD10D.rc trunk/jvcl/packages/d10/JvValidatorsD10D.res trunk/jvcl/packages/d10/JvValidatorsD10R.bdsproj trunk/jvcl/packages/d10/JvValidatorsD10R.rc trunk/jvcl/packages/d10/JvValidatorsD10R.res trunk/jvcl/packages/d10/JvWizardD10D.bdsproj trunk/jvcl/packages/d10/JvWizardD10D.rc trunk/jvcl/packages/d10/JvWizardD10D.res trunk/jvcl/packages/d10/JvWizardD10R.bdsproj trunk/jvcl/packages/d10/JvWizardD10R.rc trunk/jvcl/packages/d10/JvWizardD10R.res trunk/jvcl/packages/d10/JvXPCtrlsD10D.bdsproj trunk/jvcl/packages/d10/JvXPCtrlsD10D.rc trunk/jvcl/packages/d10/JvXPCtrlsD10D.res trunk/jvcl/packages/d10/JvXPCtrlsD10R.bdsproj trunk/jvcl/packages/d10/JvXPCtrlsD10R.rc trunk/jvcl/packages/d10/JvXPCtrlsD10R.res trunk/jvcl/packages/d10/template.rc trunk/jvcl/packages/d10per/JvCoreD10R.bdsproj trunk/jvcl/packages/d10per/JvCoreD10R.rc trunk/jvcl/packages/d10per/JvCoreD10R.res trunk/jvcl/packages/d10per/JvDotNetCtrlsD10R.bdsproj trunk/jvcl/packages/d10per/JvDotNetCtrlsD10R.rc trunk/jvcl/packages/d10per/JvDotNetCtrlsD10R.res trunk/jvcl/packages/d10per/JvGlobusD10D.bdsproj trunk/jvcl/packages/d10per/JvGlobusD10D.rc trunk/jvcl/packages/d10per/JvGlobusD10D.res trunk/jvcl/packages/d10per/JvGlobusD10R.bdsproj trunk/jvcl/packages/d10per/JvGlobusD10R.rc trunk/jvcl/packages/d10per/JvGlobusD10R.res trunk/jvcl/packages/d10per/JvInterpreterD10D.bdsproj trunk/jvcl/packages/d10per/JvInterpreterD10D.rc trunk/jvcl/packages/d10per/JvInterpreterD10D.res trunk/jvcl/packages/d10per/JvInterpreterD10R.bdsproj trunk/jvcl/packages/d10per/JvInterpreterD10R.rc trunk/jvcl/packages/d10per/JvInterpreterD10R.res trunk/jvcl/packages/d10per/JvRuntimeDesignD10R.bdsproj trunk/jvcl/packages/d10per/JvRuntimeDesignD10R.rc trunk/jvcl/packages/d10per/JvRuntimeDesignD10R.res trunk/jvcl/packages/d10per/JvUIBD10R.bdsproj trunk/jvcl/packages/d10per/JvUIBD10R.rc trunk/jvcl/packages/d10per/JvUIBD10R.res trunk/jvcl/packages/d10per/template.rc trunk/jvcl/packages/d5/Jv3rdD5R.rc trunk/jvcl/packages/d5/Jv3rdD5R.res trunk/jvcl/packages/d5/JvAppFrmD5D.rc trunk/jvcl/packages/d5/JvAppFrmD5D.res trunk/jvcl/packages/d5/JvAppFrmD5R.rc trunk/jvcl/packages/d5/JvAppFrmD5R.res trunk/jvcl/packages/d5/JvBDED5D.rc trunk/jvcl/packages/d5/JvBDED5D.res trunk/jvcl/packages/d5/JvBDED5R.rc trunk/jvcl/packages/d5/JvBDED5R.res trunk/jvcl/packages/d5/JvBandsD5D.rc trunk/jvcl/packages/d5/JvBandsD5D.res trunk/jvcl/packages/d5/JvBandsD5R.rc trunk/jvcl/packages/d5/JvBandsD5R.res trunk/jvcl/packages/d5/JvCmpD5D.rc trunk/jvcl/packages/d5/JvCmpD5D.res trunk/jvcl/packages/d5/JvCmpD5R.rc trunk/jvcl/packages/d5/JvCmpD5R.res trunk/jvcl/packages/d5/JvCoreD5D.rc trunk/jvcl/packages/d5/JvCoreD5D.res trunk/jvcl/packages/d5/JvCoreD5R.rc trunk/jvcl/packages/d5/JvCoreD5R.res trunk/jvcl/packages/d5/JvCryptD5D.rc trunk/jvcl/packages/d5/JvCryptD5D.res trunk/jvcl/packages/d5/JvCryptD5R.rc trunk/jvcl/packages/d5/JvCryptD5R.res trunk/jvcl/packages/d5/JvCtrlsD5D.rc trunk/jvcl/packages/d5/JvCtrlsD5D.res trunk/jvcl/packages/d5/JvCtrlsD5R.rc trunk/jvcl/packages/d5/JvCtrlsD5R.res trunk/jvcl/packages/d5/JvCustomD5D.rc trunk/jvcl/packages/d5/JvCustomD5D.res trunk/jvcl/packages/d5/JvCustomD5R.rc trunk/jvcl/packages/d5/JvCustomD5R.res trunk/jvcl/packages/d5/JvDBD5D.rc trunk/jvcl/packages/d5/JvDBD5D.res trunk/jvcl/packages/d5/JvDBD5R.rc trunk/jvcl/packages/d5/JvDBD5R.res trunk/jvcl/packages/d5/JvDlgsD5D.rc trunk/jvcl/packages/d5/JvDlgsD5D.res trunk/jvcl/packages/d5/JvDlgsD5R.rc trunk/jvcl/packages/d5/JvDlgsD5R.res trunk/jvcl/packages/d5/JvDockingD5D.rc trunk/jvcl/packages/d5/JvDockingD5D.res trunk/jvcl/packages/d5/JvDockingD5R.rc trunk/jvcl/packages/d5/JvDockingD5R.res trunk/jvcl/packages/d5/JvDotNetCtrlsD5D.rc trunk/jvcl/packages/d5/JvDotNetCtrlsD5D.res trunk/jvcl/packages/d5/JvDotNetCtrlsD5R.rc trunk/jvcl/packages/d5/JvDotNetCtrlsD5R.res trunk/jvcl/packages/d5/JvEDID5D.rc trunk/jvcl/packages/d5/JvEDID5D.res trunk/jvcl/packages/d5/JvEDID5R.rc trunk/jvcl/packages/d5/JvEDID5R.res trunk/jvcl/packages/d5/JvGlobusD5D.rc trunk/jvcl/packages/d5/JvGlobusD5D.res trunk/jvcl/packages/d5/JvGlobusD5R.rc trunk/jvcl/packages/d5/JvGlobusD5R.res trunk/jvcl/packages/d5/JvHMID5D.rc trunk/jvcl/packages/d5/JvHMID5D.res trunk/jvcl/packages/d5/JvHMID5R.rc trunk/jvcl/packages/d5/JvHMID5R.res trunk/jvcl/packages/d5/JvInterpreterD5D.rc trunk/jvcl/packages/d5/JvInterpreterD5D.res trunk/jvcl/packages/d5/JvInterpreterD5R.rc trunk/jvcl/packages/d5/JvInterpreterD5R.res trunk/jvcl/packages/d5/JvJansD5D.rc trunk/jvcl/packages/d5/JvJansD5D.res trunk/jvcl/packages/d5/JvJansD5R.rc trunk/jvcl/packages/d5/JvJansD5R.res trunk/jvcl/packages/d5/JvMMD5D.rc trunk/jvcl/packages/d5/JvMMD5D.res trunk/jvcl/packages/d5/JvMMD5R.rc trunk/jvcl/packages/d5/JvMMD5R.res trunk/jvcl/packages/d5/JvManagedThreadsD5D.rc trunk/jvcl/packages/d5/JvManagedThreadsD5D.res trunk/jvcl/packages/d5/JvManagedThreadsD5R.rc trunk/jvcl/packages/d5/JvManagedThreadsD5R.res trunk/jvcl/packages/d5/JvNetD5D.rc trunk/jvcl/packages/d5/JvNetD5D.res trunk/jvcl/packages/d5/JvNetD5R.rc trunk/jvcl/packages/d5/JvNetD5R.res trunk/jvcl/packages/d5/JvPageCompsD5D.rc trunk/jvcl/packages/d5/JvPageCompsD5D.res trunk/jvcl/packages/d5/JvPageCompsD5R.rc trunk/jvcl/packages/d5/JvPageCompsD5R.res trunk/jvcl/packages/d5/JvPluginD5D.rc trunk/jvcl/packages/d5/JvPluginD5D.res trunk/jvcl/packages/d5/JvPluginD5R.rc trunk/jvcl/packages/d5/JvPluginD5R.res trunk/jvcl/packages/d5/JvPrintPreviewD5D.rc trunk/jvcl/packages/d5/JvPrintPreviewD5D.res trunk/jvcl/packages/d5/JvPrintPreviewD5R.rc trunk/jvcl/packages/d5/JvPrintPreviewD5R.res trunk/jvcl/packages/d5/JvRuntimeDesignD5D.rc trunk/jvcl/packages/d5/JvRuntimeDesignD5D.res trunk/jvcl/packages/d5/JvRuntimeDesignD5R.rc trunk/jvcl/packages/d5/JvRuntimeDesignD5R.res trunk/jvcl/packages/d5/JvStdCtrlsD5D.rc trunk/jvcl/packages/d5/JvStdCtrlsD5D.res trunk/jvcl/packages/d5/JvStdCtrlsD5R.rc trunk/jvcl/packages/d5/JvStdCtrlsD5R.res trunk/jvcl/packages/d5/JvSystemD5D.rc trunk/jvcl/packages/d5/JvSystemD5D.res trunk/jvcl/packages/d5/JvSystemD5R.rc trunk/jvcl/packages/d5/JvSystemD5R.res trunk/jvcl/packages/d5/JvTimeFrameworkD5D.rc trunk/jvcl/packages/d5/JvTimeFrameworkD5D.res trunk/jvcl/packages/d5/JvTimeFrameworkD5R.rc trunk/jvcl/packages/d5/JvTimeFrameworkD5R.res trunk/jvcl/packages/d5/JvUIBD5D.rc trunk/jvcl/packages/d5/JvUIBD5D.res trunk/jvcl/packages/d5/JvUIBD5R.rc trunk/jvcl/packages/d5/JvUIBD5R.res trunk/jvcl/packages/d5/JvValidatorsD5D.rc trunk/jvcl/packages/d5/JvValidatorsD5D.res trunk/jvcl/packages/d5/JvValidatorsD5R.rc trunk/jvcl/packages/d5/JvValidatorsD5R.res trunk/jvcl/packages/d5/JvWizardD5D.rc trunk/jvcl/packages/d5/JvWizardD5D.res trunk/jvcl/packages/d5/JvWizardD5R.rc trunk/jvcl/packages/d5/JvWizardD5R.res trunk/jvcl/packages/d5/JvXPCtrlsD5D.rc trunk/jvcl/packages/d5/JvXPCtrlsD5D.res trunk/jvcl/packages/d5/JvXPCtrlsD5R.rc trunk/jvcl/packages/d5/JvXPCtrlsD5R.res trunk/jvcl/packages/d5/template.rc trunk/jvcl/packages/d5std/JvCoreD5R.rc trunk/jvcl/packages/d5std/JvCoreD5R.res trunk/jvcl/packages/d5std/JvDotNetCtrlsD5R.rc trunk/jvcl/packages/d5std/JvDotNetCtrlsD5R.res trunk/jvcl/packages/d5std/JvGlobusD5D.rc trunk/jvcl/packages/d5std/JvGlobusD5D.res trunk/jvcl/packages/d5std/JvGlobusD5R.rc trunk/jvcl/packages/d5std/JvGlobusD5R.res trunk/jvcl/packages/d5std/JvInterpreterD5D.rc trunk/jvcl/packages/d5std/JvInterpreterD5D.res trunk/jvcl/packages/d5std/JvInterpreterD5R.rc trunk/jvcl/packages/d5std/JvInterpreterD5R.res trunk/jvcl/packages/d5std/JvRuntimeDesignD5R.rc trunk/jvcl/packages/d5std/JvRuntimeDesignD5R.res trunk/jvcl/packages/d5std/JvUIBD5R.rc trunk/jvcl/packages/d5std/JvUIBD5R.res trunk/jvcl/packages/d5std/template.rc trunk/jvcl/packages/d6/Jv3rdD6R.rc trunk/jvcl/packages/d6/Jv3rdD6R.res trunk/jvcl/packages/d6/JvAppFrmD6D.rc trunk/jvcl/packages/d6/JvAppFrmD6D.res trunk/jvcl/packages/d6/JvAppFrmD6R.rc trunk/jvcl/packages/d6/JvAppFrmD6R.res trunk/jvcl/packages/d6/JvBDED6D.rc trunk/jvcl/packages/d6/JvBDED6D.res trunk/jvcl/packages/d6/JvBDED6R.rc trunk/jvcl/packages/d6/JvBDED6R.res trunk/jvcl/packages/d6/JvBandsD6D.rc trunk/jvcl/packages/d6/JvBandsD6D.res trunk/jvcl/packages/d6/JvBandsD6R.rc trunk/jvcl/packages/d6/JvBandsD6R.res trunk/jvcl/packages/d6/JvCmpD6D.rc trunk/jvcl/packages/d6/JvCmpD6D.res trunk/jvcl/packages/d6/JvCmpD6R.rc trunk/jvcl/packages/d6/JvCmpD6R.res trunk/jvcl/packages/d6/JvCoreD6D.rc trunk/jvcl/packages/d6/JvCoreD6D.res trunk/jvcl/packages/d6/JvCoreD6R.rc trunk/jvcl/packages/d6/JvCoreD6R.res trunk/jvcl/packages/d6/JvCryptD6D.rc trunk/jvcl/packages/d6/JvCryptD6D.res trunk/jvcl/packages/d6/JvCryptD6R.rc trunk/jvcl/packages/d6/JvCryptD6R.res trunk/jvcl/packages/d6/JvCtrlsD6D.rc trunk/jvcl/packages/d6/JvCtrlsD6D.res trunk/jvcl/packages/d6/JvCtrlsD6R.rc trunk/jvcl/packages/d6/JvCtrlsD6R.res trunk/jvcl/packages/d6/JvCustomD6D.rc trunk/jvcl/packages/d6/JvCustomD6D.res trunk/jvcl/packages/d6/JvCustomD6R.rc trunk/jvcl/packages/d6/JvCustomD6R.res trunk/jvcl/packages/d6/JvDBD6D.rc trunk/jvcl/packages/d6/JvDBD6D.res trunk/jvcl/packages/d6/JvDBD6R.rc trunk/jvcl/packages/d6/JvDBD6R.res trunk/jvcl/packages/d6/JvDlgsD6D.rc trunk/jvcl/packages/d6/JvDlgsD6D.res trunk/jvcl/packages/d6/JvDlgsD6R.rc trunk/jvcl/packages/d6/JvDlgsD6R.res trunk/jvcl/packages/d6/JvDockingD6D.rc trunk/jvcl/packages/d6/JvDockingD6D.res trunk/jvcl/packages/d6/JvDockingD6R.rc trunk/jvcl/packages/d6/JvDockingD6R.res trunk/jvcl/packages/d6/JvDotNetCtrlsD6D.rc trunk/jvcl/packages/d6/JvDotNetCtrlsD6D.res trunk/jvcl/packages/d6/JvDotNetCtrlsD6R.rc trunk/jvcl/packages/d6/JvDotNetCtrlsD6R.res trunk/jvcl/packages/d6/JvEDID6D.rc trunk/jvcl/packages/d6/JvEDID6D.res trunk/jvcl/packages/d6/JvEDID6R.rc trunk/jvcl/packages/d6/JvEDID6R.res trunk/jvcl/packages/d6/JvGlobusD6D.rc trunk/jvcl/packages/d6/JvGlobusD6D.res trunk/jvcl/packages/d6/JvGlobusD6R.rc trunk/jvcl/packages/d6/JvGlobusD6R.res trunk/jvcl/packages/d6/JvHMID6D.rc trunk/jvcl/packages/d6/JvHMID6D.res trunk/jvcl/packages/d6/JvHMID6R.rc trunk/jvcl/packages/d6/JvHMID6R.res trunk/jvcl/packages/d6/JvInterpreterD6D.rc trunk/jvcl/packages/d6/JvInterpreterD6D.res trunk/jvcl/packages/d6/JvInterpreterD6R.rc trunk/jvcl/packages/d6/JvInterpreterD6R.res trunk/jvcl/packages/d6/JvJansD6D.rc trunk/jvcl/packages/d6/JvJansD6D.res trunk/jvcl/packages/d6/JvJansD6R.rc trunk/jvcl/packages/d6/JvJansD6R.res trunk/jvcl/packages/d6/JvMMD6D.rc trunk/jvcl/packages/d6/JvMMD6D.res trunk/jvcl/packages/d6/JvMMD6R.rc trunk/jvcl/packages/d6/JvMMD6R.res trunk/jvcl/packages/d6/JvManagedThreadsD6D.rc trunk/jvcl/packages/d6/JvManagedThreadsD6D.res trunk/jvcl/packages/d6/JvManagedThreadsD6R.rc trunk/jvcl/packages/d6/JvManagedThreadsD6R.res trunk/jvcl/packages/d6/JvNetD6D.rc trunk/jvcl/packages/d6/JvNetD6D.res trunk/jvcl/packages/d6/JvNetD6R.rc trunk/jvcl/packages/d6/JvNetD6R.res trunk/jvcl/packages/d6/JvPageCompsD6D.rc trunk/jvcl/packages/d6/JvPageCompsD6D.res trunk/jvcl/packages/d6/JvPageCompsD6R.rc trunk/jvcl/packages/d6/JvPageCompsD6R.res trunk/jvcl/packages/d6/JvPluginD6D.rc trunk/jvcl/packages/d6/JvPluginD6D.res trunk/jvcl/packages/d6/JvPluginD6R.rc trunk/jvcl/packages/d6/JvPluginD6R.res trunk/jvcl/packages/d6/JvPrintPreviewD6D.rc trunk/jvcl/packages/d6/JvPrintPreviewD6D.res trunk/jvcl/packages/d6/JvPrintPreviewD6R.rc trunk/jvcl/packages/d6/JvPrintPreviewD6R.res trunk/jvcl/packages/d6/JvRuntimeDesignD6D.rc trunk/jvcl/packages/d6/JvRuntimeDesignD6D.res trunk/jvcl/packages/d6/JvRuntimeDesignD6R.rc trunk/jvcl/packages/d6/JvRuntimeDesignD6R.res trunk/jvcl/packages/d6/JvStdCtrlsD6D.rc trunk/jvcl/packages/d6/JvStdCtrlsD6D.res trunk/jvcl/packages/d6/JvStdCtrlsD6R.rc trunk/jvcl/packages/d6/JvStdCtrlsD6R.res trunk/jvcl/packages/d6/JvSystemD6D.rc trunk/jvcl/packages/d6/JvSystemD6D.res trunk/jvcl/packages/d6/JvSystemD6R.rc trunk/jvcl/packages/d6/JvSystemD6R.res trunk/jvcl/packages/d6/JvTimeFrameworkD6D.rc trunk/jvcl/packages/d6/JvTimeFrameworkD6D.res trunk/jvcl/packages/d6/JvTimeFrameworkD6R.rc trunk/jvcl/packages/d6/JvTimeFrameworkD6R.res trunk/jvcl/packages/d6/JvUIBD6D.rc trunk/jvcl/packages/d6/JvUIBD6D.res trunk/jvcl/packages/d6/JvUIBD6R.rc trunk/jvcl/packages/d6/JvUIBD6R.res trunk/jvcl/packages/d6/JvValidatorsD6D.rc trunk/jvcl/packages/d6/JvValidatorsD6D.res trunk/jvcl/packages/d6/JvValidatorsD6R.rc trunk/jvcl/packages/d6/JvValidatorsD6R.res trunk/jvcl/packages/d6/JvWizardD6D.rc trunk/jvcl/packages/d6/JvWizardD6D.res trunk/jvcl/packages/d6/JvWizardD6R.rc trunk/jvcl/packages/d6/JvWizardD6R.res trunk/jvcl/packages/d6/JvXPCtrlsD6D.rc trunk/jvcl/packages/d6/JvXPCtrlsD6D.res trunk/jvcl/packages/d6/JvXPCtrlsD6R.rc trunk/jvcl/packages/d6/JvXPCtrlsD6R.res trunk/jvcl/packages/d6/template.rc trunk/jvcl/packages/d6per/JvCoreD6R.rc trunk/jvcl/packages/d6per/JvCoreD6R.res trunk/jvcl/packages/d6per/JvDotNetCtrlsD6R.rc trunk/jvcl/packages/d6per/JvDotNetCtrlsD6R.res trunk/jvcl/packages/d6per/JvGlobusD6D.rc trunk/jvcl/packages/d6per/JvGlobusD6D.res trunk/jvcl/packages/d6per/JvGlobusD6R.rc trunk/jvcl/packages/d6per/JvGlobusD6R.res trunk/jvcl/packages/d6per/JvInterpreterD6D.rc trunk/jvcl/packages/d6per/JvInterpreterD6D.res trunk/jvcl/packages/d6per/JvInterpreterD6R.rc trunk/jvcl/packages/d6per/JvInterpreterD6R.res trunk/jvcl/packages/d6per/JvRuntimeDesignD6R.rc trunk/jvcl/packages/d6per/JvRuntimeDesignD6R.res trunk/jvcl/packages/d6per/JvUIBD6R.rc trunk/jvcl/packages/d6per/JvUIBD6R.res trunk/jvcl/packages/d6per/template.rc trunk/jvcl/packages/d7/Jv3rdD7R.rc trunk/jvcl/packages/d7/Jv3rdD7R.res trunk/jvcl/packages/d7/JvAppFrmD7D.rc trunk/jvcl/packages/d7/JvAppFrmD7D.res trunk/jvcl/packages/d7/JvAppFrmD7R.rc trunk/jvcl/packages/d7/JvAppFrmD7R.res trunk/jvcl/packages/d7/JvBDED7D.rc trunk/jvcl/packages/d7/JvBDED7D.res trunk/jvcl/packages/d7/JvBDED7R.rc trunk/jvcl/packages/d7/JvBDED7R.res trunk/jvcl/packages/d7/JvBandsD7D.rc trunk/jvcl/packages/d7/JvBandsD7D.res trunk/jvcl/packages/d7/JvBandsD7R.rc trunk/jvcl/packages/d7/JvBandsD7R.res trunk/jvcl/packages/d7/JvCmpD7D.rc trunk/jvcl/packages/d7/JvCmpD7D.res trunk/jvcl/packages/d7/JvCmpD7R.rc trunk/jvcl/packages/d7/JvCmpD7R.res trunk/jvcl/packages/d7/JvCoreD7D.rc trunk/jvcl/packages/d7/JvCoreD7D.res trunk/jvcl/packages/d7/JvCoreD7R.rc trunk/jvcl/packages/d7/JvCoreD7R.res trunk/jvcl/packages/d7/JvCryptD7D.rc trunk/jvcl/packages/d7/JvCryptD7D.res trunk/jvcl/packages/d7/JvCryptD7R.rc trunk/jvcl/packages/d7/JvCryptD7R.res trunk/jvcl/packages/d7/JvCtrlsD7D.rc trunk/jvcl/packages/d7/JvCtrlsD7D.res trunk/jvcl/packages/d7/JvCtrlsD7R.rc trunk/jvcl/packages/d7/JvCtrlsD7R.res trunk/jvcl/packages/d7/JvCustomD7D.rc trunk/jvcl/packages/d7/JvCustomD7D.res trunk/jvcl/packages/d7/JvCustomD7R.rc trunk/jvcl/packages/d7/JvCustomD7R.res trunk/jvcl/packages/d7/JvDBD7D.rc trunk/jvcl/packages/d7/JvDBD7D.res trunk/jvcl/packages/d7/JvDBD7R.rc trunk/jvcl/packages/d7/JvDBD7R.res trunk/jvcl/packages/d7/JvDlgsD7D.rc trunk/jvcl/packages/d7/JvDlgsD7D.res trunk/jvcl/packages/d7/JvDlgsD7R.rc trunk/jvcl/packages/d7/JvDlgsD7R.res trunk/jvcl/packages/d7/JvDockingD7D.rc trunk/jvcl/packages/d7/JvDockingD7D.res trunk/jvcl/packages/d7/JvDockingD7R.rc trunk/jvcl/packages/d7/JvDockingD7R.res trunk/jvcl/packages/d7/JvDotNetCtrlsD7D.rc trunk/jvcl/packages/d7/JvDotNetCtrlsD7D.res trunk/jvcl/packages/d7/JvDotNetCtrlsD7R.rc trunk/jvcl/packages/d7/JvDotNetCtrlsD7R.res trunk/jvcl/packages/d7/JvEDID7D.rc trunk/jvcl/packages/d7/JvEDID7D.res trunk/jvcl/packages/d7/JvEDID7R.rc trunk/jvcl/packages/d7/JvEDID7R.res trunk/jvcl/packages/d7/JvGlobusD7D.rc trunk/jvcl/packages/d7/JvGlobusD7D.res trunk/jvcl/packages/d7/JvGlobusD7R.rc trunk/jvcl/packages/d7/JvGlobusD7R.res trunk/jvcl/packages/d7/JvHMID7D.rc trunk/jvcl/packages/d7/JvHMID7D.res trunk/jvcl/packages/d7/JvHMID7R.rc trunk/jvcl/packages/d7/JvHMID7R.res trunk/jvcl/packages/d7/JvInterpreterD7D.rc trunk/jvcl/packages/d7/JvInterpreterD7D.res trunk/jvcl/packages/d7/JvInterpreterD7R.rc trunk/jvcl/packages/d7/JvInterpreterD7R.res trunk/jvcl/packages/d7/JvJansD7D.rc trunk/jvcl/packages/d7/JvJansD7D.res trunk/jvcl/packages/d7/JvJansD7R.rc trunk/jvcl/packages/d7/JvJansD7R.res trunk/jvcl/packages/d7/JvMMD7D.rc trunk/jvcl/packages/d7/JvMMD7D.res trunk/jvcl/packages/d7/JvMMD7R.rc trunk/jvcl/packages/d7/JvMMD7R.res trunk/jvcl/packages/d7/JvManagedThreadsD7D.rc trunk/jvcl/packages/d7/JvManagedThreadsD7D.res trunk/jvcl/packages/d7/JvManagedThreadsD7R.rc trunk/jvcl/packages/d7/JvManagedThreadsD7R.res trunk/jvcl/packages/d7/JvNetD7D.rc trunk/jvcl/packages/d7/JvNetD7D.res trunk/jvcl/packages/d7/JvNetD7R.rc trunk/jvcl/packages/d7/JvNetD7R.res trunk/jvcl/packages/d7/JvPageCompsD7D.rc trunk/jvcl/packages/d7/JvPageCompsD7D.res trunk/jvcl/packages/d7/JvPageCompsD7R.rc trunk/jvcl/packages/d7/JvPageCompsD7R.res trunk/jvcl/packages/d7/JvPluginD7D.rc trunk/jvcl/packages/d7/JvPluginD7D.res trunk/jvcl/packages/d7/JvPluginD7R.rc trunk/jvcl/packages/d7/JvPluginD7R.res trunk/jvcl/packages/d7/JvPrintPreviewD7D.rc trunk/jvcl/packages/d7/JvPrintPreviewD7D.res trunk/jvcl/packages/d7/JvPrintPreviewD7R.rc trunk/jvcl/packages/d7/JvPrintPreviewD7R.res trunk/jvcl/packages/d7/JvRuntimeDesignD7D.rc trunk/jvcl/packages/d7/JvRuntimeDesignD7D.res trunk/jvcl/packages/d7/JvRuntimeDesignD7R.rc trunk/jvcl/packages/d7/JvRuntimeDesignD7R.res trunk/jvcl/packages/d7/JvStdCtrlsD7D.rc trunk/jvcl/packages/d7/JvStdCtrlsD7D.res trunk/jvcl/packages/d7/JvStdCtrlsD7R.rc trunk/jvcl/packages/d7/JvStdCtrlsD7R.res trunk/jvcl/packages/d7/JvSystemD7D.rc trunk/jvcl/packages/d7/JvSystemD7D.res trunk/jvcl/packages/d7/JvSystemD7R.rc trunk/jvcl/packages/d7/JvSystemD7R.res trunk/jvcl/packages/d7/JvTimeFrameworkD7D.rc trunk/jvcl/packages/d7/JvTimeFrameworkD7D.res trunk/jvcl/packages/d7/JvTimeFrameworkD7R.rc trunk/jvcl/packages/d7/JvTimeFrameworkD7R.res trunk/jvcl/packages/d7/JvUIBD7D.rc trunk/jvcl/packages/d7/JvUIBD7D.res trunk/jvcl/packages/d7/JvUIBD7R.rc trunk/jvcl/packages/d7/JvUIBD7R.res trunk/jvcl/packages/d7/JvValidatorsD7D.rc trunk/jvcl/packages/d7/JvValidatorsD7D.res trunk/jvcl/packages/d7/JvValidatorsD7R.rc trunk/jvcl/packages/d7/JvValidatorsD7R.res trunk/jvcl/packages/d7/JvWizardD7D.rc trunk/jvcl/packages/d7/JvWizardD7D.res trunk/jvcl/packages/d7/JvWizardD7R.rc trunk/jvcl/packages/d7/JvWizardD7R.res trunk/jvcl/packages/d7/JvXPCtrlsD7D.rc trunk/jvcl/packages/d7/JvXPCtrlsD7D.res trunk/jvcl/packages/d7/JvXPCtrlsD7R.rc trunk/jvcl/packages/d7/JvXPCtrlsD7R.res trunk/jvcl/packages/d7/template.rc trunk/jvcl/packages/d7clx/JvQ3rdD7R.rc trunk/jvcl/packages/d7clx/JvQ3rdD7R.res trunk/jvcl/packages/d7clx/JvQAppFrmD7D.rc trunk/jvcl/packages/d7clx/JvQAppFrmD7D.res trunk/jvcl/packages/d7clx/JvQAppFrmD7R.rc trunk/jvcl/packages/d7clx/JvQAppFrmD7R.res trunk/jvcl/packages/d7clx/JvQCmpD7D.rc trunk/jvcl/packages/d7clx/JvQCmpD7D.res trunk/jvcl/packages/d7clx/JvQCmpD7R.rc trunk/jvcl/packages/d7clx/JvQCmpD7R.res trunk/jvcl/packages/d7clx/JvQCoreD7D.rc trunk/jvcl/packages/d7clx/JvQCoreD7D.res trunk/jvcl/packages/d7clx/JvQCoreD7R.rc trunk/jvcl/packages/d7clx/JvQCoreD7R.res trunk/jvcl/packages/d7clx/JvQCryptD7D.rc trunk/jvcl/packages/d7clx/JvQCryptD7D.res trunk/jvcl/packages/d7clx/JvQCryptD7R.rc trunk/jvcl/packages/d7clx/JvQCryptD7R.res trunk/jvcl/packages/d7clx/JvQCtrlsD7D.rc trunk/jvcl/packages/d7clx/JvQCtrlsD7D.res trunk/jvcl/packages/d7clx/JvQCtrlsD7R.rc trunk/jvcl/packages/d7clx/JvQCtrlsD7R.res trunk/jvcl/packages/d7clx/JvQCustomD7D.rc trunk/jvcl/packages/d7clx/JvQCustomD7D.res trunk/jvcl/packages/d7clx/JvQCustomD7R.rc trunk/jvcl/packages/d7clx/JvQCustomD7R.res trunk/jvcl/packages/d7clx/JvQDlgsD7D.rc trunk/jvcl/packages/d7clx/JvQDlgsD7D.res trunk/jvcl/packages/d7clx/JvQDlgsD7R.rc trunk/jvcl/packages/d7clx/JvQDlgsD7R.res trunk/jvcl/packages/d7clx/JvQDotNetCtrlsD7R.rc trunk/jvcl/packages/d7clx/JvQDotNetCtrlsD7R.res trunk/jvcl/packages/d7clx/JvQHMID7D.rc trunk/jvcl/packages/d7clx/JvQHMID7D.res trunk/jvcl/packages/d7clx/JvQHMID7R.rc trunk/jvcl/packages/d7clx/JvQHMID7R.res trunk/jvcl/packages/d7clx/JvQJansD7D.rc trunk/jvcl/packages/d7clx/JvQJansD7D.res trunk/jvcl/packages/d7clx/JvQJansD7R.rc trunk/jvcl/packages/d7clx/JvQJansD7R.res trunk/jvcl/packages/d7clx/JvQMMD7D.rc trunk/jvcl/packages/d7clx/JvQMMD7D.res trunk/jvcl/packages/d7clx/JvQMMD7R.rc trunk/jvcl/packages/d7clx/JvQMMD7R.res trunk/jvcl/packages/d7clx/JvQManagedThreadsD7D.rc trunk/jvcl/packages/d7clx/JvQManagedThreadsD7D.res trunk/jvcl/packages/d7clx/JvQManagedThreadsD7R.rc trunk/jvcl/packages/d7clx/JvQManagedThreadsD7R.res trunk/jvcl/packages/d7clx/JvQNetD7D.rc trunk/jvcl/packages/d7clx/JvQNetD7D.res trunk/jvcl/packages/d7clx/JvQNetD7R.rc trunk/jvcl/packages/d7clx/JvQNetD7R.res trunk/jvcl/packages/d7clx/JvQPageCompsD7D.rc trunk/jvcl/packages/d7clx/JvQPageCompsD7D.res trunk/jvcl/packages/d7clx/JvQPageCompsD7R.rc trunk/jvcl/packages/d7clx/JvQPageCompsD7R.res trunk/jvcl/packages/d7clx/JvQRuntimeDesignD7D.rc trunk/jvcl/packages/d7clx/JvQRuntimeDesignD7D.res trunk/jvcl/packages/d7clx/JvQRuntimeDesignD7R.rc trunk/jvcl/packages/d7clx/JvQRuntimeDesignD7R.res trunk/jvcl/packages/d7clx/JvQStdCtrlsD7D.rc trunk/jvcl/packages/d7clx/JvQStdCtrlsD7D.res trunk/jvcl/packages/d7clx/JvQStdCtrlsD7R.rc trunk/jvcl/packages/d7clx/JvQStdCtrlsD7R.res trunk/jvcl/packages/d7clx/JvQSystemD7D.rc trunk/jvcl/packages/d7clx/JvQSystemD7D.res trunk/jvcl/packages/d7clx/JvQSystemD7R.rc trunk/jvcl/packages/d7clx/JvQSystemD7R.res trunk/jvcl/packages/d7clx/JvQUIBD7D.rc trunk/jvcl/packages/d7clx/JvQUIBD7D.res trunk/jvcl/packages/d7clx/JvQUIBD7R.rc trunk/jvcl/packages/d7clx/JvQUIBD7R.res trunk/jvcl/packages/d7clx/JvQValidatorsD7D.rc trunk/jvcl/packages/d7clx/JvQValidatorsD7D.res trunk/jvcl/packages/d7clx/JvQValidatorsD7R.rc trunk/jvcl/packages/d7clx/JvQValidatorsD7R.res trunk/jvcl/packages/d7clx/JvQWizardD7D.rc trunk/jvcl/packages/d7clx/JvQWizardD7D.res trunk/jvcl/packages/d7clx/JvQWizardD7R.rc trunk/jvcl/packages/d7clx/JvQWizardD7R.res trunk/jvcl/packages/d7clx/JvQXPCtrlsD7D.rc trunk/jvcl/packages/d7clx/JvQXPCtrlsD7D.res trunk/jvcl/packages/d7clx/JvQXPCtrlsD7R.rc trunk/jvcl/packages/d7clx/JvQXPCtrlsD7R.res trunk/jvcl/packages/d7clx/template.rc trunk/jvcl/packages/d7per/JvCoreD7R.rc trunk/jvcl/packages/d7per/JvCoreD7R.res trunk/jvcl/packages/d7per/JvDotNetCtrlsD7R.rc trunk/jvcl/packages/d7per/JvDotNetCtrlsD7R.res trunk/jvcl/packages/d7per/JvGlobusD7D.rc trunk/jvcl/packages/d7per/JvGlobusD7D.res trunk/jvcl/packages/d7per/JvGlobusD7R.rc trunk/jvcl/packages/d7per/JvGlobusD7R.res trunk/jvcl/packages/d7per/JvInterpreterD7D.rc trunk/jvcl/packages/d7per/JvInterpreterD7D.res trunk/jvcl/packages/d7per/JvInterpreterD7R.rc trunk/jvcl/packages/d7per/JvInterpreterD7R.res trunk/jvcl/packages/d7per/JvRuntimeDesignD7R.rc trunk/jvcl/packages/d7per/JvRuntimeDesignD7R.res trunk/jvcl/packages/d7per/JvUIBD7R.rc trunk/jvcl/packages/d7per/JvUIBD7R.res trunk/jvcl/packages/d7per/template.rc trunk/jvcl/packages/d9/Jv3rdD9R.bdsproj trunk/jvcl/packages/d9/Jv3rdD9R.rc trunk/jvcl/packages/d9/Jv3rdD9R.res trunk/jvcl/packages/d9/JvAppFrmD9D.bdsproj trunk/jvcl/packages/d9/JvAppFrmD9D.rc trunk/jvcl/packages/d9/JvAppFrmD9D.res trunk/jvcl/packages/d9/JvAppFrmD9R.bdsproj trunk/jvcl/packages/d9/JvAppFrmD9R.rc trunk/jvcl/packages/d9/JvAppFrmD9R.res trunk/jvcl/packages/d9/JvBDED9D.bdsproj trunk/jvcl/packages/d9/JvBDED9D.rc trunk/jvcl/packages/d9/JvBDED9D.res trunk/jvcl/packages/d9/JvBDED9R.bdsproj trunk/jvcl/packages/d9/JvBDED9R.rc trunk/jvcl/packages/d9/JvBDED9R.res trunk/jvcl/packages/d9/JvBandsD9D.bdsproj trunk/jvcl/packages/d9/JvBandsD9D.rc trunk/jvcl/packages/d9/JvBandsD9D.res trunk/jvcl/packages/d9/JvBandsD9R.bdsproj trunk/jvcl/packages/d9/JvBandsD9R.rc trunk/jvcl/packages/d9/JvBandsD9R.res trunk/jvcl/packages/d9/JvCmpD9D.bdsproj trunk/jvcl/packages/d9/JvCmpD9D.rc trunk/jvcl/packages/d9/JvCmpD9D.res trunk/jvcl/packages/d9/JvCmpD9R.bdsproj trunk/jvcl/packages/d9/JvCmpD9R.rc trunk/jvcl/packages/d9/JvCmpD9R.res trunk/jvcl/packages/d9/JvCoreD9D.bdsproj trunk/jvcl/packages/d9/JvCoreD9D.rc trunk/jvcl/packages/d9/JvCoreD9D.res trunk/jvcl/packages/d9/JvCoreD9R.bdsproj trunk/jvcl/packages/d9/JvCoreD9R.rc trunk/jvcl/packages/d9/JvCoreD9R.res trunk/jvcl/packages/d9/JvCryptD9D.bdsproj trunk/jvcl/packages/d9/JvCryptD9D.rc trunk/jvcl/packages/d9/JvCryptD9D.res trunk/jvcl/packages/d9/JvCryptD9R.bdsproj trunk/jvcl/packages/d9/JvCryptD9R.rc trunk/jvcl/packages/d9/JvCryptD9R.res trunk/jvcl/packages/d9/JvCtrlsD9D.bdsproj trunk/jvcl/packages/d9/JvCtrlsD9D.rc trunk/jvcl/packages/d9/JvCtrlsD9D.res trunk/jvcl/packages/d9/JvCtrlsD9R.bdsproj trunk/jvcl/packages/d9/JvCtrlsD9R.rc trunk/jvcl/packages/d9/JvCtrlsD9R.res trunk/jvcl/packages/d9/JvCustomD9D.bdsproj trunk/jvcl/packages/d9/JvCustomD9D.rc trunk/jvcl/packages/d9/JvCustomD9D.res trunk/jvcl/packages/d9/JvCustomD9R.bdsproj trunk/jvcl/packages/d9/JvCustomD9R.rc trunk/jvcl/packages/d9/JvCustomD9R.res trunk/jvcl/packages/d9/JvDBD9D.bdsproj trunk/jvcl/packages/d9/JvDBD9D.rc trunk/jvcl/packages/d9/JvDBD9D.res trunk/jvcl/packages/d9/JvDBD9R.bdsproj trunk/jvcl/packages/d9/JvDBD9R.rc trunk/jvcl/packages/d9/JvDBD9R.res trunk/jvcl/packages/d9/JvDlgsD9D.bdsproj trunk/jvcl/packages/d9/JvDlgsD9D.rc trunk/jvcl/packages/d9/JvDlgsD9D.res trunk/jvcl/packages/d9/JvDlgsD9R.bdsproj trunk/jvcl/packages/d9/JvDlgsD9R.rc trunk/jvcl/packages/d9/JvDlgsD9R.res trunk/jvcl/packages/d9/JvDockingD9D.bdsproj trunk/jvcl/packages/d9/JvDockingD9D.rc trunk/jvcl/packages/d9/JvDockingD9D.res trunk/jvcl/packages/d9/JvDockingD9R.bdsproj trunk/jvcl/packages/d9/JvDockingD9R.rc trunk/jvcl/packages/d9/JvDockingD9R.res trunk/jvcl/packages/d9/JvDotNetCtrlsD9D.bdsproj trunk/jvcl/packages/d9/JvDotNetCtrlsD9D.rc trunk/jvcl/packages/d9/JvDotNetCtrlsD9D.res trunk/jvcl/packages/d9/JvDotNetCtrlsD9R.bdsproj trunk/jvcl/packages/d9/JvDotNetCtrlsD9R.rc trunk/jvcl/packages/d9/JvDotNetCtrlsD9R.res trunk/jvcl/packages/d9/JvEDID9D.bdsproj trunk/jvcl/packages/d9/JvEDID9D.rc trunk/jvcl/packages/d9/JvEDID9D.res trunk/jvcl/packages/d9/JvEDID9R.bdsproj trunk/jvcl/packages/d9/JvEDID9R.rc trunk/jvcl/packages/d9/JvEDID9R.res trunk/jvcl/packages/d9/JvGlobusD9D.bdsproj trunk/jvcl/packages/d9/JvGlobusD9D.rc trunk/jvcl/packages/d9/JvGlobusD9D.res trunk/jvcl/packages/d9/JvGlobusD9R.bdsproj trunk/jvcl/packages/d9/JvGlobusD9R.rc trunk/jvcl/packages/d9/JvGlobusD9R.res trunk/jvcl/packages/d9/JvHMID9D.bdsproj trunk/jvcl/packages/d9/JvHMID9D.rc trunk/jvcl/packages/d9/JvHMID9D.res trunk/jvcl/packages/d9/JvHMID9R.bdsproj trunk/jvcl/packages/d9/JvHMID9R.rc trunk/jvcl/packages/d9/JvHMID9R.res trunk/jvcl/packages/d9/JvInterpreterD9D.bdsproj trunk/jvcl/packages/d9/JvInterpreterD9D.rc trunk/jvcl/packages/d9/JvInterpreterD9D.res trunk/jvcl/packages/d9/JvInterpreterD9R.bdsproj trunk/jvcl/packages/d9/JvInterpreterD9R.rc trunk/jvcl/packages/d9/JvInterpreterD9R.res trunk/jvcl/packages/d9/JvJansD9D.bdsproj trunk/jvcl/packages/d9/JvJansD9D.rc trunk/jvcl/packages/d9/JvJansD9D.res trunk/jvcl/packages/d9/JvJansD9R.bdsproj trunk/jvcl/packages/d9/JvJansD9R.rc trunk/jvcl/packages/d9/JvJansD9R.res trunk/jvcl/packages/d9/JvMMD9D.bdsproj trunk/jvcl/packages/d9/JvMMD9D.rc trunk/jvcl/packages/d9/JvMMD9D.res trunk/jvcl/packages/d9/JvMMD9R.bdsproj trunk/jvcl/packages/d9/JvMMD9R.rc trunk/jvcl/packages/d9/JvMMD9R.res trunk/jvcl/packages/d9/JvManagedThreadsD9D.bdsproj trunk/jvcl/packages/d9/JvManagedThreadsD9D.rc trunk/jvcl/packages/d9/JvManagedThreadsD9D.res trunk/jvcl/packages/d9/JvManagedThreadsD9R.bdsproj trunk/jvcl/packages/d9/JvManagedThreadsD9R.rc trunk/jvcl/packages/d9/JvManagedThreadsD9R.res trunk/jvcl/packages/d9/JvNetD9D.bdsproj trunk/jvcl/packages/d9/JvNetD9D.rc trunk/jvcl/packages/d9/JvNetD9D.res trunk/jvcl/packages/d9/JvNetD9R.bdsproj trunk/jvcl/packages/d9/JvNetD9R.rc trunk/jvcl/packages/d9/JvNetD9R.res trunk/jvcl/packages/d9/JvPageCompsD9D.bdsproj trunk/jvcl/packages/d9/JvPageCompsD9D.rc trunk/jvcl/packages/d9/JvPageCompsD9D.res trunk/jvcl/packages/d9/JvPageCompsD9R.bdsproj trunk/jvcl/packages/d9/JvPageCompsD9R.rc trunk/jvcl/packages/d9/JvPageCompsD9R.res trunk/jvcl/packages/d9/JvPluginD9D.bdsproj trunk/jvcl/packages/d9/JvPluginD9D.rc trunk/jvcl/packages/d9/JvPluginD9D.res trunk/jvcl/packages/d9/JvPluginD9R.bdsproj trunk/jvcl/packages/d9/JvPluginD9R.rc trunk/jvcl/packages/d9/JvPluginD9R.res trunk/jvcl/packages/d9/JvPrintPreviewD9D.bdsproj trunk/jvcl/packages/d9/JvPrintPreviewD9D.rc trunk/jvcl/packages/d9/JvPrintPreviewD9D.res trunk/jvcl/packages/d9/JvPrintPreviewD9R.bdsproj trunk/jvcl/packages/d9/JvPrintPreviewD9R.rc trunk/jvcl/packages/d9/JvPrintPreviewD9R.res trunk/jvcl/packages/d9/JvRuntimeDesignD9D.bdsproj trunk/jvcl/packages/d9/JvRuntimeDesignD9D.rc trunk/jvcl/packages/d9/JvRuntimeDesignD9D.res trunk/jvcl/packages/d9/JvRuntimeDesignD9R.bdsproj trunk/jvcl/packages/d9/JvRuntimeDesignD9R.rc trunk/jvcl/packages/d9/JvRuntimeDesignD9R.res trunk/jvcl/packages/d9/JvStdCtrlsD9D.bdsproj trunk/jvcl/packages/d9/JvStdCtrlsD9D.rc trunk/jvcl/packages/d9/JvStdCtrlsD9D.res trunk/jvcl/packages/d9/JvStdCtrlsD9R.bdsproj trunk/jvcl/packages/d9/JvStdCtrlsD9R.rc trunk/jvcl/packages/d9/JvStdCtrlsD9R.res trunk/jvcl/packages/d9/JvSystemD9D.bdsproj trunk/jvcl/packages/d9/JvSystemD9D.rc trunk/jvcl/packages/d9/JvSystemD9D.res trunk/jvcl/packages/d9/JvSystemD9R.bdsproj trunk/jvcl/packages/d9/JvSystemD9R.rc trunk/jvcl/packages/d9/JvSystemD9R.res trunk/jvcl/packages/d9/JvTimeFrameworkD9D.bdsproj trunk/jvcl/packages/d9/JvTimeFrameworkD9D.rc trunk/jvcl/packages/d9/JvTimeFrameworkD9D.res trunk/jvcl/packages/d9/JvTimeFrameworkD9R.bdsproj trunk/jvcl/packages/d9/JvTimeFrameworkD9R.rc trunk/jvcl/packages/d9/JvTimeFrameworkD9R.res trunk/jvcl/packages/d9/JvUIBD9D.bdsproj trunk/jvcl/packages/d9/JvUIBD9D.rc trunk/jvcl/packages/d9/JvUIBD9D.res trunk/jvcl/packages/d9/JvUIBD9R.bdsproj trunk/jvcl/packages/d9/JvUIBD9R.rc trunk/jvcl/packages/d9/JvUIBD9R.res trunk/jvcl/packages/d9/JvValidatorsD9D.bdsproj trunk/jvcl/packages/d9/JvValidatorsD9D.rc trunk/jvcl/packages/d9/JvValidatorsD9D.res trunk/jvcl/packages/d9/JvValidatorsD9R.bdsproj trunk/jvcl/packages/d9/JvValidatorsD9R.rc trunk/jvcl/packages/d9/JvValidatorsD9R.res trunk/jvcl/packages/d9/JvWizardD9D.bdsproj trunk/jvcl/packages/d9/JvWizardD9D.rc trunk/jvcl/packages/d9/JvWizardD9D.res trunk/jvcl/packages/d9/JvWizardD9R.bdsproj trunk/jvcl/packages/d9/JvWizardD9R.rc trunk/jvcl/packages/d9/JvWizardD9R.res trunk/jvcl/packages/d9/JvXPCtrlsD9D.bdsproj trunk/jvcl/packages/d9/JvXPCtrlsD9D.rc trunk/jvcl/packages/d9/JvXPCtrlsD9D.res trunk/jvcl/packages/d9/JvXPCtrlsD9R.bdsproj trunk/jvcl/packages/d9/JvXPCtrlsD9R.rc trunk/jvcl/packages/d9/JvXPCtrlsD9R.res trunk/jvcl/packages/d9/template.rc trunk/jvcl/packages/d9per/JvCoreD9R.bdsproj trunk/jvcl/packages/d9per/JvCoreD9R.rc trunk/jvcl/packages/d9per/JvCoreD9R.res trunk/jvcl/packages/d9per/JvDotNetCtrlsD9R.bdsproj trunk/jvcl/packages/d9per/JvDotNetCtrlsD9R.rc trunk/jvcl/packages/d9per/JvDotNetCtrlsD9... [truncated message content] |