Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18178/JVCL3/run Modified Files: JvButtons.pas JvComCtrls.pas JvCombobox.pas JvDBLookup.pas JvInterpreter_all.pas JvLinkLabel.pas JvPageListTreeView.pas JvTFAlarm.pas JvTFDays.pas JvTFGantt.pas JvTFGlance.pas JvTFGlanceTextViewer.pas JvTFManager.pas JvTFMonths.pas JvTFSparseMatrix.pas JvTFUtils.pas JvTFWeeks.pas JvTMTimeLine.pas JvTextListBox.pas JvThemes.pas JvThread.pas JvThreadTimer.pas JvThumbImage.pas JvThumbViews.pas JvThumbnails.pas JvTimeLimit.pas JvTimeLine.pas JvTimer.pas JvTimerList.pas JvTipOfDay.pas JvToolBar.pas JvToolEdit.pas JvTracker.pas JvTranslator.pas JvTransparentButton.pas JvTransparentPanel.pas JvTrayIcon.pas JvTurtle.pas JvTypes.pas JvUnicodeCanvas.pas JvUnicodeEditor.pas JvUnicodeHLEditor.pas JvUninstallControls.pas JvUpDown.pas JvUrlGrabbers.pas JvUrlListGrabber.pas JvValidateEdit.pas JvValidators.pas JvVersionInfo.pas JvVirtualKeySelectionFrame.pas JvWaitingGradient.pas JvWaitingProgress.pas JvWallpaperEditForm.pas JvWavePlayer.pas JvWinDialogs.pas JvWinHelp.pas JvWinampLabel.pas JvWizard.pas JvWizardCommon.pas JvWizardRouteMapList.pas JvWizardRouteMapNodes.pas JvWizardRouteMapSteps.pas JvWndProcHook.pas JvXPBar.pas JvXPButtons.pas JvXPCheckCtrls.pas JvXPCore.pas JvXPCoreUtils.pas JvXmlDatabase.pas JvXmlTree.pas JvYearGrid.pas JvYearGridEditForm.pas JvZlibMultiple.pas JvZoom.pas JvxCheckListBox.pas JvxSlider.pas Log Message: move .inc entries down (completed) and some ENDIF fixes Index: JvTimeLimit.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTimeLimit.pas,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** JvTimeLimit.pas 8 Apr 2004 20:01:55 -0000 1.11 --- JvTimeLimit.pas 25 Jul 2004 05:42:27 -0000 1.12 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvTimeLimit; interface --- 24,31 ---- // $Id$ unit JvTimeLimit; + {$I jvcl.inc} + interface Index: JvTFGlanceTextViewer.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFGlanceTextViewer.pas,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** JvTFGlanceTextViewer.pas 29 Jun 2004 06:29:10 -0000 1.18 --- JvTFGlanceTextViewer.pas 25 Jul 2004 05:42:26 -0000 1.19 *************** *** 25,32 **** // $Id$ - {$I jvcl.inc} - unit JvTFGlanceTextViewer; interface --- 25,32 ---- // $Id$ unit JvTFGlanceTextViewer; + {$I jvcl.inc} + interface Index: JvTFGantt.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFGantt.pas,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** JvTFGantt.pas 15 Jun 2004 05:39:33 -0000 1.15 --- JvTFGantt.pas 25 Jul 2004 05:42:26 -0000 1.16 *************** *** 29,36 **** // $Id$ - {$I jvcl.inc} - unit JvTFGantt; interface --- 29,36 ---- // $Id$ unit JvTFGantt; + {$I jvcl.inc} + interface Index: JvWallpaperEditForm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWallpaperEditForm.pas,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** JvWallpaperEditForm.pas 29 Jun 2004 06:29:11 -0000 1.13 --- JvWallpaperEditForm.pas 25 Jul 2004 05:42:28 -0000 1.14 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvWallpaperEditForm; interface --- 24,31 ---- // $Id$ unit JvWallpaperEditForm; + {$I jvcl.inc} + interface Index: JvTFSparseMatrix.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFSparseMatrix.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** JvTFSparseMatrix.pas 29 Jun 2004 06:29:10 -0000 1.12 --- JvTFSparseMatrix.pas 25 Jul 2004 05:42:26 -0000 1.13 *************** *** 25,32 **** // $Id$ - {$I jvcl.inc} - unit JvTFSparseMatrix; interface --- 25,32 ---- // $Id$ unit JvTFSparseMatrix; + {$I jvcl.inc} + interface Index: JvxSlider.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvxSlider.pas,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** JvxSlider.pas 15 Jun 2004 05:39:36 -0000 1.25 --- JvxSlider.pas 25 Jul 2004 05:42:29 -0000 1.26 *************** *** 23,30 **** // $Id$ - {$I jvcl.inc} - unit JvxSlider; interface --- 23,30 ---- // $Id$ unit JvxSlider; + {$I jvcl.inc} + interface Index: JvYearGridEditForm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvYearGridEditForm.pas,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** JvYearGridEditForm.pas 31 Mar 2004 07:43:20 -0000 1.14 --- JvYearGridEditForm.pas 25 Jul 2004 05:42:28 -0000 1.15 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvYearGridEditForm; interface --- 24,31 ---- // $Id$ unit JvYearGridEditForm; + {$I jvcl.inc} + interface Index: JvThemes.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvThemes.pas,v retrieving revision 1.53 retrieving revision 1.54 diff -C2 -d -r1.53 -r1.54 *** JvThemes.pas 29 Jun 2004 06:29:10 -0000 1.53 --- JvThemes.pas 25 Jul 2004 05:42:26 -0000 1.54 *************** *** 23,26 **** --- 23,28 ---- // $Id$ + unit JvThemes; + {$I jvcl.inc} {$IFDEF JVCLThemesEnabled} *************** *** 28,33 **** {$ENDIF JVCLThemesEnabled} - unit JvThemes; - interface --- 30,33 ---- Index: JvTextListBox.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTextListBox.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** JvTextListBox.pas 25 Mar 2004 13:25:57 -0000 1.6 --- JvTextListBox.pas 25 Jul 2004 05:42:26 -0000 1.7 *************** *** 31,38 **** // $Id$ - {$I jvcl.inc} - unit JvTextListBox; interface --- 31,38 ---- // $Id$ unit JvTextListBox; + {$I jvcl.inc} + interface *************** *** 139,143 **** end; - procedure TJvTextListBox.WndProc(var Msg: TMessage); begin --- 139,142 ---- Index: JvToolBar.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvToolBar.pas,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** JvToolBar.pas 29 Jun 2004 06:29:10 -0000 1.20 --- JvToolBar.pas 25 Jul 2004 05:42:27 -0000 1.21 *************** *** 26,34 **** // $Id$ {$I jvcl.inc} {$I vclonly.inc} - unit JvToolBar; - interface --- 26,34 ---- // $Id$ + unit JvToolBar; + {$I jvcl.inc} {$I vclonly.inc} interface Index: JvTMTimeLine.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTMTimeLine.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** JvTMTimeLine.pas 3 Jul 2004 05:35:40 -0000 1.28 --- JvTMTimeLine.pas 25 Jul 2004 05:42:26 -0000 1.29 *************** *** 20,32 **** located at http://jvcl.sourceforge.net Known Issues: -----------------------------------------------------------------------------} // $Id$ - {$I jvcl.inc} - unit JvTMTimeLine; ! { A component that mimicks the time line in MS Team Manager } interface --- 20,33 ---- located at http://jvcl.sourceforge.net + Description: + A component that mimicks the time line in MS Team Manager + Known Issues: -----------------------------------------------------------------------------} // $Id$ unit JvTMTimeLine; ! {$I jvcl.inc} interface Index: JvWizardRouteMapList.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWizardRouteMapList.pas,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** JvWizardRouteMapList.pas 7 Jul 2004 00:00:56 -0000 1.17 --- JvWizardRouteMapList.pas 25 Jul 2004 05:42:28 -0000 1.18 *************** *** 28,35 **** // $Id$ - {$I jvcl.inc} - unit JvWizardRouteMapList; interface --- 28,35 ---- // $Id$ unit JvWizardRouteMapList; + {$I jvcl.inc} + interface Index: JvUnicodeHLEditor.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvUnicodeHLEditor.pas,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** JvUnicodeHLEditor.pas 6 Jul 2004 06:44:21 -0000 1.15 --- JvUnicodeHLEditor.pas 25 Jul 2004 05:42:27 -0000 1.16 *************** *** 27,34 **** // $Id$ - {$I jvcl.inc} - unit JvUnicodeHLEditor; interface --- 27,34 ---- // $Id$ unit JvUnicodeHLEditor; + {$I jvcl.inc} + interface Index: JvTypes.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTypes.pas,v retrieving revision 1.74 retrieving revision 1.75 diff -C2 -d -r1.74 -r1.75 *** JvTypes.pas 15 Jun 2004 05:39:33 -0000 1.74 --- JvTypes.pas 25 Jul 2004 05:42:27 -0000 1.75 *************** *** 15,23 **** All Rights Reserved. ! Contributor(s): ! Michael Beck [mbeck att bigfoot dott com]. ! Peter Thornqvist ! Oliver Giesen ! Gustavo Bianconi You may retrieve the latest version of this file at the Project JEDI's JVCL home page, --- 15,22 ---- All Rights Reserved. ! Contributor(s): Michael Beck [mbeck att bigfoot dott com]. ! Peter Thornqvist ! Oliver Giesen ! Gustavo Bianconi You may retrieve the latest version of this file at the Project JEDI's JVCL home page, *************** *** 28,35 **** // $Id$ - {$I jvcl.inc} - unit JvTypes; interface --- 27,34 ---- // $Id$ unit JvTypes; + {$I jvcl.inc} + interface Index: JvTFMonths.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFMonths.pas,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** JvTFMonths.pas 29 Jun 2004 06:29:10 -0000 1.14 --- JvTFMonths.pas 25 Jul 2004 05:42:26 -0000 1.15 *************** *** 25,32 **** // $Id$ - {$I jvcl.inc} - unit JvTFMonths; interface --- 25,32 ---- // $Id$ unit JvTFMonths; + {$I jvcl.inc} + interface Index: JvTranslator.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTranslator.pas,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** JvTranslator.pas 3 Jul 2004 05:35:40 -0000 1.19 --- JvTranslator.pas 25 Jul 2004 05:42:27 -0000 1.20 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvTranslator; interface --- 24,31 ---- // $Id$ unit JvTranslator; + {$I jvcl.inc} + interface Index: JvTFWeeks.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFWeeks.pas,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** JvTFWeeks.pas 8 Apr 2004 20:01:55 -0000 1.16 --- JvTFWeeks.pas 25 Jul 2004 05:42:26 -0000 1.17 *************** *** 25,32 **** // $Id$ - {$I jvcl.inc} - unit JvTFWeeks; interface --- 25,32 ---- // $Id$ unit JvTFWeeks; + {$I jvcl.inc} + interface Index: JvThread.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvThread.pas,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** JvThread.pas 29 Jun 2004 06:29:10 -0000 1.19 --- JvThread.pas 25 Jul 2004 05:42:27 -0000 1.20 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvThread; interface --- 24,31 ---- // $Id$ unit JvThread; + {$I jvcl.inc} + interface Index: JvTransparentPanel.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTransparentPanel.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** JvTransparentPanel.pas 26 Jun 2004 15:42:14 -0000 1.9 --- JvTransparentPanel.pas 25 Jul 2004 05:42:27 -0000 1.10 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvTransparentPanel; interface --- 24,31 ---- // $Id$ unit JvTransparentPanel; + {$I jvcl.inc} + interface Index: JvThumbViews.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvThumbViews.pas,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** JvThumbViews.pas 10 Jul 2004 06:41:44 -0000 1.16 --- JvThumbViews.pas 25 Jul 2004 05:42:27 -0000 1.17 *************** *** 24,32 **** // $Id$ {$I jvcl.inc} {$I windowsonly.inc} - unit JvThumbViews; - interface --- 24,32 ---- // $Id$ + unit JvThumbViews; + {$I jvcl.inc} {$I windowsonly.inc} interface Index: JvValidators.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvValidators.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** JvValidators.pas 29 Jun 2004 06:29:11 -0000 1.28 --- JvValidators.pas 25 Jul 2004 05:42:28 -0000 1.29 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvValidators; interface --- 24,31 ---- // $Id$ unit JvValidators; + {$I jvcl.inc} + interface *************** *** 37,40 **** --- 37,41 ---- type EValidatorError = class(Exception); + // Implemented by classes that can return the value to validate against. // The validator classes first check if the ControlToValidate supports this interface Index: JvTFGlance.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFGlance.pas,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** JvTFGlance.pas 4 Jul 2004 06:06:48 -0000 1.24 --- JvTFGlance.pas 25 Jul 2004 05:42:26 -0000 1.25 *************** *** 25,32 **** // $Id$ - {$I jvcl.inc} - unit JvTFGlance; interface --- 25,32 ---- // $Id$ unit JvTFGlance; + {$I jvcl.inc} + interface Index: JvVersionInfo.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvVersionInfo.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** JvVersionInfo.pas 26 Mar 2004 22:34:25 -0000 1.12 --- JvVersionInfo.pas 25 Jul 2004 05:42:28 -0000 1.13 *************** *** 23,31 **** // $Id$ {$I jvcl.inc} {$I windowsonly.inc} - unit JvVersionInfo; - {$WEAKPACKAGEUNIT} --- 23,31 ---- // $Id$ + unit JvVersionInfo; + {$I jvcl.inc} {$I windowsonly.inc} {$WEAKPACKAGEUNIT} Index: JvTFDays.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFDays.pas,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** JvTFDays.pas 6 Jul 2004 06:44:20 -0000 1.34 --- JvTFDays.pas 25 Jul 2004 05:42:25 -0000 1.35 *************** *** 22,49 **** Known Issues: -----------------------------------------------------------------------------} // $Id$ - {$I jvcl.inc} - unit JvTFDays; ! interface ! // This version of the source contains modifications which enable the use ! // of time blocks. These modifications can be found by doing a search for ! // "DEF Jv_TIMEBLOCKS". Previously, two versions were released; one which did ! // NOT support timeblocks and one which did support timeblocks. (Hence the ! // use of the compiler defines.) ! // ! // These two versions are in the process of being integrated. The compiler ! // defines remain as an indicator of exactly what has been changed. All ! // lines that are NOT compiled ({$IFNDEF Jv_TIMEBLOCKS} and {$ELSE}) remain ! // as a reference during the transition, but have been commented out to ! // reduce confusion. Many of these lines are marked by a "// remove" comment. ! // ! // The conditional defines and disabled code will be removed and this file ! // will be cleaned up after the time block code has been fully integrated ! // and tested. uses --- 22,48 ---- Known Issues: + This version of the source contains modifications which enable the use + of time blocks. These modifications can be found by doing a search for + "DEF Jv_TIMEBLOCKS". Previously, two versions were released; one which did + NOT support timeblocks and one which did support timeblocks. (Hence the + use of the compiler defines.) + + These two versions are in the process of being integrated. The compiler + defines remain as an indicator of exactly what has been changed. All + lines that are NOT compiled ($IFNDEF Jv_TIMEBLOCKS and $ELSE) remain + as a reference during the transition, but have been commented out to + reduce confusion. Many of these lines are marked by a "// remove" comment. + + The conditional defines and disabled code will be removed and this file + will be cleaned up after the time block code has been fully integrated + and tested. -----------------------------------------------------------------------------} // $Id$ unit JvTFDays; ! {$I jvcl.inc} ! interface uses Index: JvWizardCommon.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWizardCommon.pas,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** JvWizardCommon.pas 15 May 2004 07:00:07 -0000 1.17 --- JvWizardCommon.pas 25 Jul 2004 05:42:28 -0000 1.18 *************** *** 35,42 **** // $Id$ - {$I jvcl.inc} - unit JvWizardCommon; interface --- 35,42 ---- // $Id$ unit JvWizardCommon; + {$I jvcl.inc} + interface Index: JvTFUtils.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFUtils.pas,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** JvTFUtils.pas 2 Jul 2004 08:09:35 -0000 1.20 --- JvTFUtils.pas 25 Jul 2004 05:42:26 -0000 1.21 *************** *** 25,32 **** // $Id$ - {$I jvcl.inc} - unit JvTFUtils; interface --- 25,32 ---- // $Id$ unit JvTFUtils; + {$I jvcl.inc} + interface Index: JvWizardRouteMapNodes.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWizardRouteMapNodes.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** JvWizardRouteMapNodes.pas 15 Jun 2004 05:39:34 -0000 1.10 --- JvWizardRouteMapNodes.pas 25 Jul 2004 05:42:28 -0000 1.11 *************** *** 31,42 **** 05/02/2002 Initial create Known Issues: -----------------------------------------------------------------------------} // $Id$ - {$I jvcl.inc} - unit JvWizardRouteMapNodes; interface --- 31,43 ---- 05/02/2002 Initial create + Known Issues: -----------------------------------------------------------------------------} // $Id$ unit JvWizardRouteMapNodes; + {$I jvcl.inc} + interface Index: JvTracker.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTracker.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** JvTracker.pas 2 Jul 2004 08:09:35 -0000 1.10 --- JvTracker.pas 25 Jul 2004 05:42:27 -0000 1.11 *************** *** 27,34 **** // $Id$ - {$I jvcl.inc} - unit JvTracker; interface --- 27,34 ---- // $Id$ unit JvTracker; + {$I jvcl.inc} + interface Index: JvUrlGrabbers.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvUrlGrabbers.pas,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** JvUrlGrabbers.pas 5 Jul 2004 07:08:18 -0000 1.32 --- JvUrlGrabbers.pas 25 Jul 2004 05:42:28 -0000 1.33 *************** *** 24,32 **** // $Id$ {$I jvcl.inc} {$I windowsonly.inc} - unit JvUrlGrabbers; - {$HPPEMIT '#pragma link "wininet.lib"'} --- 24,32 ---- // $Id$ + unit JvUrlGrabbers; + {$I jvcl.inc} {$I windowsonly.inc} {$HPPEMIT '#pragma link "wininet.lib"'} Index: JvWaitingGradient.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWaitingGradient.pas,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** JvWaitingGradient.pas 17 May 2004 07:10:40 -0000 1.13 --- JvWaitingGradient.pas 25 Jul 2004 05:42:28 -0000 1.14 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvWaitingGradient; interface --- 24,31 ---- // $Id$ unit JvWaitingGradient; + {$I jvcl.inc} + interface Index: JvUnicodeEditor.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvUnicodeEditor.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** JvUnicodeEditor.pas 5 Jul 2004 07:08:18 -0000 1.31 --- JvUnicodeEditor.pas 25 Jul 2004 05:42:27 -0000 1.32 *************** *** 33,40 **** // $Id$ - {$I jvcl.inc} - unit JvUnicodeEditor; interface --- 33,40 ---- // $Id$ unit JvUnicodeEditor; + {$I jvcl.inc} + interface Index: JvTimeLine.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTimeLine.pas,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** JvTimeLine.pas 7 Jul 2004 06:04:11 -0000 1.34 --- JvTimeLine.pas 25 Jul 2004 05:42:27 -0000 1.35 *************** *** 20,23 **** --- 20,26 ---- located at http://jvcl.sourceforge.net + Description: + A timeline component with support for inserting items at selectable dates. + Known Issues: Bugs / Limitations: *************** *** 28,36 **** // $Id$ - {$I jvcl.inc} - unit JvTimeLine; ! {A timeline component with support for inserting items at selectable dates. } interface --- 31,37 ---- // $Id$ unit JvTimeLine; ! {$I jvcl.inc} interface *************** *** 1011,1015 **** GetKeyboardState(KeyState); ShiftState := KeyboardStateToShiftState(KeyState); ! {$ENDIF} {$IFDEF VisualCLX} ShiftState := []; // TODO: detect shift state on CLX --- 1012,1016 ---- GetKeyboardState(KeyState); ShiftState := KeyboardStateToShiftState(KeyState); ! {$ENDIF VCL} {$IFDEF VisualCLX} ShiftState := []; // TODO: detect shift state on CLX *************** *** 1719,1723 **** {$IFDEF VCL} DrawText(ACanvas.Handle, PChar(sDay), -1, LRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); ! {$ENDIF} {$IFDEF VisualCLX} DrawText(ACanvas, sDay, Length(sDay), LRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); --- 1720,1724 ---- {$IFDEF VCL} DrawText(ACanvas.Handle, PChar(sDay), -1, LRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); ! {$ENDIF VCL} {$IFDEF VisualCLX} DrawText(ACanvas, sDay, Length(sDay), LRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); *************** *** 1764,1768 **** {$IFDEF VCL} DrawText(ACanvas.Handle, PChar(AName), -1, LRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); ! {$ENDIF} {$IFDEF VisualCLX} DrawText(ACanvas, AName, -1, LRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); --- 1765,1769 ---- {$IFDEF VCL} DrawText(ACanvas.Handle, PChar(AName), -1, LRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); ! {$ENDIF VCL} {$IFDEF VisualCLX} DrawText(ACanvas, AName, -1, LRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); Index: JvWinampLabel.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWinampLabel.pas,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** JvWinampLabel.pas 15 Jun 2004 05:39:34 -0000 1.22 --- JvWinampLabel.pas 25 Jul 2004 05:42:28 -0000 1.23 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvWinampLabel; interface --- 24,31 ---- // $Id$ unit JvWinampLabel; + {$I jvcl.inc} + interface Index: JvZlibMultiple.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvZlibMultiple.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** JvZlibMultiple.pas 11 May 2004 06:43:53 -0000 1.10 --- JvZlibMultiple.pas 25 Jul 2004 05:42:28 -0000 1.11 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvZlibMultiple; interface --- 24,31 ---- // $Id$ unit JvZlibMultiple; + {$I jvcl.inc} + interface Index: JvXmlDatabase.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvXmlDatabase.pas,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** JvXmlDatabase.pas 18 Jun 2004 06:22:45 -0000 1.19 --- JvXmlDatabase.pas 25 Jul 2004 05:42:28 -0000 1.20 *************** *** 27,34 **** // $Id$ - {$I jvcl.inc} - unit JvXmlDatabase; interface --- 27,34 ---- // $Id$ unit JvXmlDatabase; + {$I jvcl.inc} + interface Index: JvTFManager.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFManager.pas,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** JvTFManager.pas 31 May 2004 04:13:19 -0000 1.34 --- JvTFManager.pas 25 Jul 2004 05:42:26 -0000 1.35 *************** *** 25,32 **** // $Id$ - {$I jvcl.inc} - unit JvTFManager; interface --- 25,32 ---- // $Id$ unit JvTFManager; + {$I jvcl.inc} + interface Index: JvUrlListGrabber.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvUrlListGrabber.pas,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** JvUrlListGrabber.pas 2 Jul 2004 08:09:35 -0000 1.29 --- JvUrlListGrabber.pas 25 Jul 2004 05:42:28 -0000 1.30 *************** *** 24,33 **** // $Id$ - {$I jvcl.inc} - unit JvUrlListGrabber; interface {$HPPEMIT '#pragma link "wininet.lib"'} --- 24,33 ---- // $Id$ unit JvUrlListGrabber; interface + {$I jvcl.inc} + {$HPPEMIT '#pragma link "wininet.lib"'} *************** *** 48,52 **** // The type of the events triggered when one of the grabbers ! // has triggred its own event to indicate a change in its state TJvGrabberNotifyEvent = procedure(Sender: TJvUrlListGrabber; Grabber: TJvCustomUrlGrabber) of object; --- 48,52 ---- // The type of the events triggered when one of the grabbers ! // has triggered its own event to indicate a change in its state TJvGrabberNotifyEvent = procedure(Sender: TJvUrlListGrabber; Grabber: TJvCustomUrlGrabber) of object; Index: JvTrayIcon.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTrayIcon.pas,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** JvTrayIcon.pas 5 Jul 2004 07:08:18 -0000 1.32 --- JvTrayIcon.pas 25 Jul 2004 05:42:27 -0000 1.33 *************** *** 24,32 **** located at http://jvcl.sourceforge.net - Known Issues: - -----------------------------------------------------------------------------} - // $Id$ - - { History: 2004-03-23 --- 24,27 ---- *************** *** 39,48 **** Restore the trayicon when session restart. Remove the old unsuccessful DoCheckCrash method. - } ! {$I jvcl.inc} unit JvTrayIcon; interface --- 34,46 ---- Restore the trayicon when session restart. Remove the old unsuccessful DoCheckCrash method. ! Known Issues: ! -----------------------------------------------------------------------------} ! // $Id$ unit JvTrayIcon; + {$I jvcl.inc} + interface *************** *** 50,56 **** Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, Menus, ShellAPI, ImgList, ! {$IFDEF COMPILER6_UP} DateUtils, ! {$ENDIF COMPILER6_UP} JvConsts, JvTypes, JvComponent, JvFinalize; --- 48,54 ---- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, Menus, ShellAPI, ImgList, ! {$IFDEF COMPILER6_UP} DateUtils, ! {$ENDIF COMPILER6_UP} JvConsts, JvTypes, JvComponent, JvFinalize; *************** *** 394,397 **** --- 392,434 ---- //=== { TJvTrayIcon } ======================================================== + constructor TJvTrayIcon.Create(AOwner: TComponent); + begin + inherited Create(AOwner); + FIcon := TIcon.Create; + FIcon.OnChange := IconChanged; + FCurrentIcon := TIcon.Create; + FSnap := False; + FHandle := AllocateHWndEx(WndProc); + + FState := []; + FVisibility := [tvVisibleTaskBar, tvVisibleTaskList, tvAutoHide]; + FAnimated := False; + FDelay := 100; + FIconIndex := 0; + FBalloonCount := 0; + FActive := False; + FTask := True; + + { (rb) todo: make global } + FTaskbarRestartMsg := RegisterWindowMessage('TaskbarCreated'); + end; + + destructor TJvTrayIcon.Destroy; + begin + StopTimer(DblClickTimer); { Vlad S} + StopTimer(CloseBalloonTimer); + + SetActive(False); + + if not (csDestroying in Application.ComponentState) then + SetTask(False); + + FIcon.Free; + FCurrentIcon.Free; + DeallocateHWndEx(FHandle); + + inherited Destroy; + end; + function TJvTrayIcon.AcceptBalloons: Boolean; begin *************** *** 404,410 **** if (Msg.Msg = WM_SYSCOMMAND) and (Msg.WParam = SC_MINIMIZE) and (tvAutoHide in Visibility) and Active then - HideApplication; - Result := False; end; --- 441,445 ---- *************** *** 449,457 **** // (rb) XP: if Value = '' then balloon is not shown if (ADelay < GetSystemMinimumBalloonDelay) and ((Title <> '') or (Value <> '')) then - begin // then we enable the ballon closer timer which will cancel // the balloon when the delay is elapsed SetTimer(FHandle, CloseBalloonTimer, ADelay, nil); - end; if Assigned(FOnBalloonShow) then --- 484,490 ---- *************** *** 460,502 **** end; - constructor TJvTrayIcon.Create(AOwner: TComponent); - begin - inherited Create(AOwner); - FIcon := TIcon.Create; - FIcon.OnChange := IconChanged; - FCurrentIcon := TIcon.Create; - FSnap := False; - FHandle := AllocateHWndEx(WndProc); - - FState := []; - FVisibility := [tvVisibleTaskBar, tvVisibleTaskList, tvAutoHide]; - FAnimated := False; - FDelay := 100; - FIconIndex := 0; - FBalloonCount := 0; - FActive := False; - FTask := True; - - { (rb) todo: make global } - FTaskbarRestartMsg := RegisterWindowMessage('TaskbarCreated'); - end; - - destructor TJvTrayIcon.Destroy; - begin - StopTimer(DblClickTimer); { Vlad S} - StopTimer(CloseBalloonTimer); - - SetActive(False); - - if not (csDestroying in Application.ComponentState) then - SetTask(False); - - FIcon.Free; - FCurrentIcon.Free; - DeallocateHWndEx(FHandle); - - inherited Destroy; - end; - procedure TJvTrayIcon.DoAnimation; begin --- 493,496 ---- *************** *** 512,517 **** end; ! procedure TJvTrayIcon.DoClick(Button: TMouseButton; Shift: TShiftState; X, ! Y: Integer); begin if Assigned(FOnClick) then --- 506,511 ---- end; ! procedure TJvTrayIcon.DoClick(Button: TMouseButton; Shift: TShiftState; ! X, Y: Integer); begin if Assigned(FOnClick) then *************** *** 628,634 **** Assigned(FOnClick) or ((Button = mbLeft) and (Assigned(FDropDownMenu) or ! ([tvRestoreClick, tvMinimizeClick] * Visibility <> [])) ! ); end; begin if tisClicked in FState then --- 622,628 ---- Assigned(FOnClick) or ((Button = mbLeft) and (Assigned(FDropDownMenu) or ! ([tvRestoreClick, tvMinimizeClick] * Visibility <> []))); end; + begin if tisClicked in FState then *************** *** 646,650 **** begin Include(FState, tisWaitingForDoubleClick); - SetTimer(FHandle, DblClickTimer, GetDoubleClickTime, nil); end; --- 640,643 ---- *************** *** 679,683 **** begin Exclude(FState, tisAnimating); - StopTimer(AnimationTimer); end; --- 672,675 ---- *************** *** 726,730 **** // empty strings which surprisingly will cancel any existing // balloon for the icon. This is clearly not documented by ! // microsoft and may not work in later releases of Windows // Under Windows XP, you only need to do this once. But under // Windows 2000, it seems one must do this one time more than --- 718,722 ---- // empty strings which surprisingly will cancel any existing // balloon for the icon. This is clearly not documented by ! // Microsoft and may not work in later releases of Windows // Under Windows XP, you only need to do this once. But under // Windows 2000, it seems one must do this one time more than *************** *** 742,748 **** begin Exclude(FState, tisTrayIconVisible); - EndAnimation; - NotifyIcon(0, NIM_DELETE); end; --- 734,738 ---- *************** *** 754,760 **** if (tisHooked in FState) or (csDesigning in ComponentState) then Exit; - Include(FState, tisHooked); - Application.HookMainWindow(ApplicationHook); end; --- 744,748 ---- *************** *** 837,843 **** // So we use the tisHiddenNotMinized flag as work-around, to indicate that // the application is minimized. - ShowWindow(Application.Handle, SW_HIDE); - Include(FState, tisAppHiddenButNotMinimized); end; --- 825,829 ---- *************** *** 851,855 **** procedure TJvTrayIcon.Notification(AComponent: TComponent; Operation: TOperation); begin ! inherited; if Operation = opRemove then begin --- 837,841 ---- procedure TJvTrayIcon.Notification(AComponent: TComponent; Operation: TOperation); begin ! inherited Notification(AComponent, Operation); if Operation = opRemove then begin *************** *** 866,870 **** begin FIconData.uFlags := uFlags; - Result := Shell_NotifyIcon(dwMessage, @FIconData); end; --- 852,855 ---- *************** *** 881,890 **** begin InitIconData; - if (csDesigning in ComponentState) and not (tvVisibleDesign in Visibility) then Exit; - Hook; - ShowTrayIcon; end --- 866,872 ---- *************** *** 892,898 **** begin EndAnimation; - Unhook; - HideTrayIcon; end; --- 874,878 ---- *************** *** 1111,1115 **** begin Include(FState, tisAnimating); - SetTimer(FHandle, AnimationTimer, FDelay, nil) end; --- 1091,1094 ---- *************** *** 1128,1132 **** begin Exclude(FState, tisHooked); - Application.UnhookMainWindow(ApplicationHook); end; --- 1107,1110 ---- Index: JvUnicodeCanvas.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvUnicodeCanvas.pas,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** JvUnicodeCanvas.pas 31 Mar 2004 07:43:20 -0000 1.16 --- JvUnicodeCanvas.pas 25 Jul 2004 05:42:27 -0000 1.17 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvUnicodeCanvas; interface --- 24,31 ---- // $Id$ unit JvUnicodeCanvas; + {$I jvcl.inc} + interface Index: JvWaitingProgress.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWaitingProgress.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** JvWaitingProgress.pas 31 Mar 2004 07:43:20 -0000 1.7 --- JvWaitingProgress.pas 25 Jul 2004 05:42:28 -0000 1.8 *************** *** 24,31 **** // $Id$ - {$I jvcl.inc} - unit JvWaitingProgress; interface --- 24,31 ---- // $Id$ unit JvWaitingProgress; + {$I jvcl.inc} + interface Index: JvValidateEdit.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvValidateEdit.pas,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** JvValidateEdit.pas 29 Jun 2004 06:29:11 -0000 1.22 --- JvValidateEdit.pas 25 Jul 2004 05:42:28 -0000 1.23 *************** *** 29,36 **** // $Id$ - {$I jvcl.inc} - unit JvValidateEdit; interface --- 29,36 ---- // $Id$ unit JvValidateEdit; + {$I jvcl.inc} + interface Index: JvLinkLabel.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvLinkLabel.pas,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** JvLinkLabel.pas 23 Jul 2004 07:31:26 -0000 1.31 --- JvLinkLabel.pas 25 Jul 2004 05:42:25 -0000 1.32 *************** *** 675,679 **** begin FText.Assign(Value); ! {$IFDEF VisualCLX}inherited {$ENDIF}SetText(FText.Text); end; --- 675,679 ---- begin FText.Assign(Value); ! {$IFDEF VisualCLX} inherited {$ENDIF} SetText(FText.Text); end; Index: JvCombobox.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvCombobox.pas,v retrieving revision 1.44 retrieving revision 1.45 diff -C2 -d -r1.44 -r1.45 *** JvCombobox.pas 23 Jul 2004 06:47:07 -0000 1.44 --- JvCombobox.pas 25 Jul 2004 05:42:25 -0000 1.45 *************** *** 33,37 **** uses Windows, Messages, Classes, Graphics, Controls, Forms, StdCtrls, Menus, - JvDataProvider, JvMaxPixel, JvExStdCtrls, {$IFDEF USEJVCL} JvCheckListBox, --- 33,36 ---- *************** *** 39,43 **** CheckLst, {$ENDIF USEJVCL} ! JvToolEdit; type --- 38,42 ---- CheckLst, {$ENDIF USEJVCL} ! JvDataProvider, JvMaxPixel, JvExStdCtrls, JvToolEdit; type *************** *** 267,273 **** end; - TJvCHBQuoteStyle = (qsNone, qsSingle, qsDouble); TJvCheckedComboBox = class(TJvCustomComboEdit) private --- 266,275 ---- end; TJvCHBQuoteStyle = (qsNone, qsSingle, qsDouble); + {$IFNDEF USEJVCL} + TJvCheckListBox = TCheckListBox; + {$ENDIF USEJVCL} + TJvCheckedComboBox = class(TJvCustomComboEdit) private *************** *** 277,285 **** FItems: TStrings; FPrivForm: TForm; - {$IFDEF USEJVCL} FListBox: TJvCheckListBox; - {$ELSE} - FListBox: TCheckListBox; - {$ENDIF USEJVCL} FPopupMenu: TPopupMenu; FSelectAll: TMenuItem; --- 279,283 ---- *************** *** 294,298 **** procedure SetItems(AItems: TStrings); procedure ToggleOnOff(Sender: TObject); ! procedure KeyListBox(Sender: TObject; var Key: word; Shift: TShiftState); procedure ShowCheckList; procedure CloseCheckList(Sender: TObject); --- 292,296 ---- procedure SetItems(AItems: TStrings); procedure ToggleOnOff(Sender: TObject); ! procedure KeyListBox(Sender: TObject; var Key: Word; Shift: TShiftState); procedure ShowCheckList; procedure CloseCheckList(Sender: TObject); *************** *** 460,464 **** FUpdating := Updating; SendMessage(ComboBox.Handle, WM_SETREDRAW, Ord(not Updating), 0); ! if not Updating then ComboBox.Refresh; end; --- 458,463 ---- FUpdating := Updating; SendMessage(ComboBox.Handle, WM_SETREDRAW, Ord(not Updating), 0); ! if not Updating then ! ComboBox.Refresh; end; *************** *** 1411,1421 **** case Msg.Msg of WM_KEYDOWN: begin ! if Msg.WParam in [VK_DOWN, VK_UP, VK_RIGHT, VK_LEFT, VK_F4] then ! begin ! // see keelab aktiivse itemi vahetamise nooleklahvidega DDL kui CB on aktiivne ! Msg.Result := 0; ! Exit; ! end; end; WM_CHAR: --- 1410,1418 ---- case Msg.Msg of WM_KEYDOWN: + if Msg.WParam in [VK_DOWN, VK_UP, VK_RIGHT, VK_LEFT, VK_F4] then begin ! // see keelab aktiivse itemi vahetamise nooleklahvidega DDL kui CB on aktiivne ! Msg.Result := 0; ! Exit; end; WM_CHAR: *************** *** 1426,1463 **** end; WM_SYSKEYDOWN: begin ! if (Msg.WParam = VK_DOWN) or (Msg.WParam = VK_UP) then ! begin ! // see keelab Ald+Down listi avamise fookuses DDL CB-l ! Msg.Result := 0; ! Exit; ! end; end; WM_COMMAND: begin ! // DD editis nooleklahviga vahetamise valtimiseks kui fookuses ! if HiWord(Msg.WParam) = CBN_SELCHANGE then ! begin ! Msg.Result := 0; ! Exit; ! end; end; WM_USER + $B900: begin ! if Msg.WParam = VK_F4 then ! begin ! // DD F4 ei avaks ! Msg.Result := 1; ! Exit; ! end; end; WM_USER + $B904: begin ! if (Msg.WParam = VK_DOWN) or (Msg.WParam = VK_UP) then ! begin ! // DD Alt+ down ei avaks ! Msg.Result := 1; ! Exit; ! end; end; end; --- 1423,1452 ---- end; WM_SYSKEYDOWN: + if (Msg.WParam = VK_DOWN) or (Msg.WParam = VK_UP) then begin ! // see keelab Ald+Down listi avamise fookuses DDL CB-l ! Msg.Result := 0; ! Exit; end; WM_COMMAND: + // DD editis nooleklahviga vahetamise valtimiseks kui fookuses + if HiWord(Msg.WParam) = CBN_SELCHANGE then begin ! Msg.Result := 0; ! Exit; end; WM_USER + $B900: + if Msg.WParam = VK_F4 then begin ! // DD F4 ei avaks ! Msg.Result := 1; ! Exit; end; WM_USER + $B904: + if (Msg.WParam = VK_DOWN) or (Msg.WParam = VK_UP) then begin ! // DD Alt+ down ei avaks ! Msg.Result := 1; ! Exit; end; end; *************** *** 1506,1509 **** --- 1495,1499 ---- end; + //=== { TJvPrivForm } ======================================================== type *************** *** 1515,1518 **** --- 1505,1523 ---- end; + constructor TJvPrivForm.Create(AOwner: TComponent); + begin + inherited CreateNew(AOwner); + Color := clWindow; + end; + + procedure TJvPrivForm.CreateParams(var Params: TCreateParams); + begin + inherited CreateParams(Params); + Params.Style := WS_POPUP or WS_BORDER; + Params.ExStyle := WS_EX_TOOLWINDOW; + end; + + //=== { TJvCheckedComboBox } ================================================= + const MAXSELLENGTH = 256; *************** *** 1520,1526 **** MAXDROPLINES = 10; - - { TJvCheckedComboBox } - constructor TJvCheckedComboBox.Create(AOwner: TComponent); begin --- 1525,1528 ---- *************** *** 1555,1563 **** // Create CheckListBox - {$IFDEF USEJVCL} FListBox := TJvCheckListBox.Create(FPrivForm); - {$ELSE} - FListBox := TCheckListBox.Create(FPrivForm); - {$ENDIF USEJVCL} FListBox.Parent := FPrivForm; FListBox.BorderStyle := bsNone; --- 1557,1561 ---- *************** *** 1590,1594 **** inherited Destroy; end; - //====================== Show - Close List Box procedure TJvCheckedComboBox.ShowCheckList; --- 1588,1591 ---- *************** *** 1624,1629 **** OnDeactivate := CloseCheckList; end; ! if FPrivForm.Height + ScreenPoint.y > Screen.Height - 20 then ! FPrivForm.Top := ScreenPoint.y - FprivForm.Height - Self.Height; FPrivForm.Show; end; --- 1621,1626 ---- OnDeactivate := CloseCheckList; end; ! if FPrivForm.Height + ScreenPoint.Y > Screen.Height - 20 then ! FPrivForm.Top := ScreenPoint.Y - FPrivForm.Height - Self.Height; FPrivForm.Show; end; *************** *** 1642,1648 **** end; - //=========================================== // exanines if string (part) exist in string (source) // where source is in format part1[,part2] function PartExist(const Part, Source: string; Delimiter: Char): Boolean; var --- 1639,1645 ---- end; // exanines if string (part) exist in string (source) // where source is in format part1[,part2] + function PartExist(const Part, Source: string; Delimiter: Char): Boolean; var *************** *** 1656,1662 **** m := Pos(Delimiter, Temp1); if m > 0 then ! temp2 := Copy(Temp1, 1, m - 1) else ! temp2 := Temp1; Result := Part = Temp2; if Result or (m = 0) then --- 1653,1659 ---- m := Pos(Delimiter, Temp1); if m > 0 then ! Temp2 := Copy(Temp1, 1, m - 1) else ! Temp2 := Temp1; Result := Part = Temp2; if Result or (m = 0) then *************** *** 1666,1690 **** end; ! { ! removes a string (part) from another string (source) ! when source is in format part1[,part2] ! } function RemovePart(const Part, Source: string; Delimiter: Char): string; var ! lp, p: Integer; S1, S2: string; begin Result := Source; ! s1 := Delimiter + Part + Delimiter; ! s2 := Delimiter + Source + Delimiter; ! p := Pos(S1, S2); ! if p > 0 then begin ! lp := Length(Part); ! if p = 1 then ! Result := Copy(Source, p + lp + 1, MAXSELLENGTH) else begin ! Result := Copy(S2, 2, p - 1) + Copy(S2, p + lp + 2, MAXSELLENGTH); SetLength(Result, Length(Result) - 1); end; --- 1663,1686 ---- end; ! // removes a string (part) from another string (source) ! // when source is in format part1[,part2] ! function RemovePart(const Part, Source: string; Delimiter: Char): string; var ! Len, P: Integer; S1, S2: string; begin Result := Source; ! S1 := Delimiter + Part + Delimiter; ! S2 := Delimiter + Source + Delimiter; ! P := Pos(S1, S2); ! if P > 0 then begin ! Len := Length(Part); ! if P = 1 then ! Result := Copy(Source, P + Len + 1, MAXSELLENGTH) else begin ! Result := Copy(S2, 2, P - 1) + Copy(S2, P + Len + 2, MAXSELLENGTH); SetLength(Result, Length(Result) - 1); end; *************** *** 1705,1709 **** Result := True; end ! else if not PartExist(Sub, Str, Delimiter) then begin Str := Str + Delimiter + Sub; --- 1701,1706 ---- Result := True; end ! else ! if not PartExist(Sub, Str, Delimiter) then begin Str := Str + Delimiter + Sub; *************** *** 1737,1744 **** if FListBox.Checked[FListBox.ItemIndex] then begin ! if Add(FListBox.Items[FListBox.ItemIndex], s, Delimiter) then FCheckedCount := FCheckedCount + 1 end ! else if Remove(FListBox.Items[FListBox.ItemIndex], s, Delimiter) then FCheckedCount := FCheckedCount - 1; Text := S; --- 1734,1742 ---- if FListBox.Checked[FListBox.ItemIndex] then begin ! if Add(FListBox.Items[FListBox.ItemIndex], S, Delimiter) then FCheckedCount := FCheckedCount + 1 end ! else ! if Remove(FListBox.Items[FListBox.ItemIndex], S, Delimiter) then FCheckedCount := FCheckedCount - 1; Text := S; *************** *** 1746,1750 **** end; ! procedure TJvCheckedComboBox.KeyListBox(Sender: TObject; var Key: word; Shift: TShiftState); begin --- 1744,1748 ---- end; ! procedure TJvCheckedComboBox.KeyListBox(Sender: TObject; var Key: Word; Shift: TShiftState); begin *************** *** 1782,1786 **** end; - //========================== CheckListBox procedure TJvCheckedComboBox.SetDropDownLines(Value: Integer); begin --- 1780,1783 ---- *************** *** 1858,1862 **** end; end ! else if FListBox.Checked[Index] and not Checked then if Remove(FListBox.Items[Index], S, Delimiter) then begin --- 1855,1860 ---- end; end ! else ! if FListBox.Checked[Index] and not Checked then if Remove(FListBox.Items[Index], S, Delimiter) then begin *************** *** 1966,1971 **** end; ! procedure TJvCheckedComboBox.SetItemEnabled(Index: Integer; ! const Value: Boolean); begin FListBox.ItemEnabled[Index] := Value; --- 1964,1968 ---- end; ! procedure TJvCheckedComboBox.SetItemEnabled(Index: Integer; const Value: Boolean); begin FListBox.ItemEnabled[Index] := Value; *************** *** 2028,2046 **** end; - { TJvPrivForm } - - constructor TJvPrivForm.Create(AOwner: TComponent); - begin - inherited CreateNew(AOwner); - Color := clWindow; - end; - - procedure TJvPrivForm.CreateParams(var Params: TCreateParams); - begin - inherited CreateParams(Params); - Params.Style := WS_POPUP or WS_BORDER; - Params.ExStyle := WS_EX_TOOLWINDOW; - end; - end. --- 2025,2028 ---- Index: JvXPCheckCtrls.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvXPCheckCtrls.pas,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** JvXPCheckCtrls.pas 15 Jun 2004 05:39:35 -0000 1.16 --- JvXPCheckCtrls.pas 25 Jul 2004 05:42:28 -0000 1.17 *************** *** 25,37 **** // $Id$ - {$I jvcl.inc} - unit JvXPCheckCtrls; interface uses ! Classes, ! Windows, Graphics, Controls, JvXPCore, JvXPCoreUtils; --- 25,36 ---- // $Id$ unit JvXPCheckCtrls; + {$I jvcl.inc} + interface uses ! Classes, Windows, Graphics, Controls, JvXPCore, JvXPCoreUtils; Index: JvXPCore.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvXPCore.pas,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** JvXPCore.pas 7 Jul 2004 00:00:57 -0000 1.23 --- JvXPCore.pas 25 Jul 2004 05:42:28 -0000 1.24 *************** *** 25,32 **** // $Id$ - {$I jvcl.inc} - unit JvXPCore; interface --- 25,32 ---- // $Id$ unit JvXPCore; + {$I jvcl.inc} + interface Index: JvXPBar.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvXPBar.pas,v retrieving revision 1.63 retrieving revision 1.64 diff -C2 -d -r1.63 -r1.64 *** JvXPBar.pas 7 Jul 2004 00:00:56 -0000 1.63 --- JvXPBar.pas 25 Jul 2004 05:42:28 -0000 1.64 *************** *** 42,55 **** // $Id$ {$I jvcl.inc} {$IFNDEF USEJVCL} - // sorry no theming {$UNDEF JVCLThemesEnabled} {$UNDEF JVCLThemesEnabledD56} {$ENDIF USEJVCL} - unit JvXPBar; - interface --- 42,56 ---- // $Id$ + unit JvXPBar; + {$I jvcl.inc} + // sorry no theming as standalone + {$IFNDEF USEJVCL} {$UNDEF JVCLThemesEnabled} {$UNDEF JVCLThemesEnabledD56} {$ENDIF USEJVCL} interface *************** *** 66,72 **** type - { Warning: Never change order of enumeration because of - hardcoded type casts! - (rom) removed those hardcoded typecasts } TJvXPBarRollDirection = (rdExpand, rdCollapse); --- 67,70 ---- Index: JvWndProcHook.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWndProcHook.pas,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** JvWndProcHook.pas 29 Jun 2004 06:29:11 -0000 1.15 --- JvWndProcHook.pas 25 Jul 2004 05:42:28 -0000 1.16 *************** *** 30,37 **** // $Id$ - {$I jvcl.inc} - unit JvWndProcHook; interface --- 30,37 ---- // $Id$ unit JvWndProcHook; + {$I jvcl.inc} + interface Index: JvPageListTreeView.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvPageListTreeView.pas,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** JvPageListTreeView.pas 24 Jul 2004 16:35:03 -0000 1.38 --- JvPageListTreeView.pas 25 Jul 2004 05:42:25 -0000 1.39 *************** *** 98,104 **** protected procedure Notification(AComponent: TComponent; Operation: TOperation); override; ! function CreateNode: TTreeNode;{$IFDEF VCL}override;{$ENDIF}{$IFDEF VisualCLX}dynamic;{$ENDIF} ! function CreateNodes: TTreeNodes;{$IFDEF VCL}{$IFDEF COMPILER6_UP}override;{$ENDIF}{$ENDIF} ! function CanChange(Node: TTreeNode): Boolean;{$IFDEF VCL}override;{$ENDIF}{$IFDEF VisualCLX}dynamic;{$ENDIF} procedure Change(Node: TTreeNode); override; public --- 98,107 ---- protected procedure Notification(AComponent: TComponent; Operation: TOperation); override; ! function CreateNode: TTreeNode; ! {$IFDEF VCL} override; {$ENDIF}{$IFDEF VisualCLX} dynamic; {$ENDIF} ! function CreateNodes: TTreeNodes; ! {$IFDEF VCL}{$IFDEF COMPILER6_UP} override; {$ENDIF}{$ENDIF} ! function CanChange(Node: TTreeNode): Boolean; ! {$IFDEF VCL} override; {$ENDIF}{$IFDEF VisualCLX} dynamic; {$ENDIF} procedure Change(Node: TTreeNode); override; public *************** *** 188,192 **** procedure DoGetSelectedIndex(Sender: TObject; Node: TTreeNode); procedure GetSelectedIndex(Node: TTreeNode); override; ! procedure GetImageIndex(Node: TTreeNode); {$IFDEF VCL}override;{$ENDIF} {$ENDIF VCL} function CanChange(Node: TTreeNode): Boolean; override; --- 191,195 ---- procedure DoGetSelectedIndex(Sender: TObject; Node: TTreeNode); procedure GetSelectedIndex(Node: TTreeNode); override; ! procedure GetImageIndex(Node: TTreeNode); {$IFDEF VCL} override; {$ENDIF} {$ENDIF VCL} function CanChange(Node: TTreeNode): Boolean; override; *************** *** 837,844 **** N.SelectedIndex := FNodeImages.SelectedIndex; R := N.DisplayRect{$IFDEF VCL}(False){$ENDIF}; ! {$IFDEF VisualCLX} ! QWindows. ! {$ENDIF VisualCLX} ! InvalidateRect(Handle, @R, True); SetPreviousNode(N); end; --- 840,844 ---- N.SelectedIndex := FNodeImages.SelectedIndex; R := N.DisplayRect{$IFDEF VCL}(False){$ENDIF}; ! {$IFDEF VisualCLX} QWindows.{$ENDIF}InvalidateRect(Handle, @R, True); SetPreviousNode(N); end; *************** *** 897,904 **** FLastSelected.SelectedIndex := FNodeImages.ImageIndex; R := FLastSelected.DisplayRect{$IFDEF VCL}(False){$ENDIF}; ! {$IFDEF VisualCLX} ! QWindows. ! {$ENDIF VisualCLX} ! InvalidateRect(Handle, @R, True); end; end; --- 897,901 ---- FLastSelected.SelectedIndex := FNodeImages.ImageIndex; R := FLastSelected.DisplayRect{$IFDEF VCL}(False){$ENDIF}; ! {$IFDEF VisualCLX} QWindows.{$ENDIF}InvalidateRect(Handle, @R, True); end; end; Index: JvButtons.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvButtons.pas,v retrieving revision 1.35 retrieving revision 1.36 diff -C2 -d -r1.35 -r1.36 *** JvButtons.pas 20 Jul 2004 09:00:41 -0000 1.35 --- JvButtons.pas 25 Jul 2004 05:42:25 -0000 1.36 *************** *** 242,246 **** {$IFDEF VCL} property Canvas: TCanvas read GetCanvas; ! {$ENDIF} published property Color; --- 242,246 ---- {$IFDEF VCL} property Canvas: TCanvas read GetCanvas; ! {$ENDIF VCL} published property Color; Index: JvTimer.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTimer.pas,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** JvTimer.pas 15 Jun 2004 05:39:33 -0000 1.14 --- JvTimer.pas 25 Jul 2004 05:42:27 -0000 1.15 *************** *** 23,30 **** // $Id$ - {$I jvcl.inc} - unit JvTimer; interface --- 23,30 ---- // $Id$ unit JvTimer; + {$I jvcl.inc} + interface Index: JvYearGrid.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvYearGrid.pas,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** JvYearGrid.pas 29 Jun 2004 06:29:11 -0000 1.38 --- JvYearGrid.pas 25 Jul 2004 05:42:28 -0000 1.39 *************** *** 26,33 **** // $Id$ - {$I jvcl.inc} - unit JvYearGrid; interface --- 26,33 ---- // $Id$ unit JvYearGrid; + {$I jvcl.inc} + interface Index: JvUninstallControls.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvUninstallControls.pas,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** JvUninstallControls.pas 5 Jul 2004 07:08:18 -0000 1.20 --- JvUninstallControls.pas 25 Jul 2004 05:42:27 -0000 1.21 *************** *** 24,32 **** // $Id$ {$I jvcl.inc} {$I windowsonly.inc} - unit JvUninstallControls; - interface --- 24,32 ---- // $Id$ + unit JvUninstallControls; + {$I jvcl.inc} {$I windowsonly.inc} interface Index: JvVirtualKeySelectionFrame.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvVirtualKeySelectionFrame.pas,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** JvVirtualKeySelectionFrame.pas 15 Jun 2004 10:43:21 -0000 1.14 --- JvVirtualKeySelectionFrame.pas 25 Jul 2004 05:42:28 -0000 1.15 *************** *** 21,36 **** located at http://jvcl.sourceforge.net ! Description: This unit defines a frame that you can use to select a key code. ! The primary use for that frame is un conjunction with a TJvAVICapture ! component ! Known Issues: none known -----------------------------------------------------------------------------} // $Id$ - {$I jvcl.inc} - unit JvVirtualKeySelectionFrame; interface --- 21,37 ---- located at http://jvcl.sourceforge.net ! Description: ! This unit defines a frame that you can use to select a key code. ! The primary use for that frame is un conjunction with a TJvAVICapture ! component. ! Known Issues: -----------------------------------------------------------------------------} // $Id$ unit JvVirtualKeySelectionFrame; + {$I jvcl.inc} + interface Index: JvThreadTimer.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvThreadTimer.pas,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** JvThreadTimer.pas 15 Jun 2004 05:39:33 -0000 1.14 --- JvThreadTimer.pas 25 Jul 2004 05:42:27 -0000 1.15 *************** *** 37,44 **** // $Id$ - {$I jvcl.inc} - unit JvThreadTimer; interface --- 37,44 ---- // $Id$ unit JvThreadTimer; + {$I jvcl.inc} + interface Index: JvTimerList.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTimerList.pas,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** JvTimerList.pas 23 Jul 2004 16:58:28 -0000 1.32 --- JvTimerList.pas 25 Jul 2004 05:42:27 -0000 1.33 *************** *** 44,52 **** // $Id$ {$I jvcl.inc} {$I windowsonly.inc} - unit JvTimerList; - interface --- 44,52 ---- // $Id$ + unit JvTimerList; + {$I jvcl.inc} {$I windowsonly.inc} interface Index: JvTFAlarm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvTFAlarm.pas,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** JvTFAlarm.pas 15 Jun 2004 05:33:44 -0000 1.10 --- JvTFAlarm.pas 25 Jul 2004 05:42:25 -0000 1.11 *************** *** 25,32 **** // $Id$ - {$I jvcl.inc} - unit JvTFAlarm; interface --- 25,32 ---- // $Id$ unit JvTFAlarm; + {$I jvcl.inc} + interface Index: JvWinDialogs.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWinDialogs.pas,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** JvWinDialogs.pas 8 Jul 2004 05:52:17 -0000 1.28 --- JvWinDialogs.pas 25 Jul 2004 05:42:28 -0000 1.29 *************** *** 24,32 **** //... [truncated message content] |