From: Andr? S. <asn...@us...> - 2004-04-23 20:08:54
|
Update of /cvsroot/jvcl/dev/JVCL3/qcommon In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25675/JVCL3/qcommon Modified Files: JvQConsts.pas JvQFinalize.pas JvQWStrUtils.pas Log Message: Updates Index: JvQWStrUtils.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qcommon/JvQWStrUtils.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** JvQWStrUtils.pas 31 Mar 2004 07:43:11 -0000 1.3 --- JvQWStrUtils.pas 23 Apr 2004 20:08:45 -0000 1.4 *************** *** 14,19 **** All Rights Reserved. - Last Modified: 2004-02-13 - Contributers: --- 14,17 ---- *************** *** 21,30 **** --- 19,34 ---- [...1130 lines suppressed...] - end; - procedure TWStringList.Exchange(Index1, Index2: Integer); begin --- 1548,1551 ---- *************** *** 1548,1552 **** I := (L + H) shr 1; C := CompareStrings(GetItem(I).FString, S); ! if C < 0 then L := I + 1 else begin H := I - 1; --- 1570,1576 ---- I := (L + H) shr 1; C := CompareStrings(GetItem(I).FString, S); ! if C < 0 then ! L := I + 1 ! else begin H := I - 1; Index: JvQConsts.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qcommon/JvQConsts.pas,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** JvQConsts.pas 22 Mar 2004 22:14:47 -0000 1.5 --- JvQConsts.pas 23 Apr 2004 20:08:45 -0000 1.6 *************** *** 16,21 **** All Rights Reserved. - Last Modified: 2002-07-04 - You may retrieve the latest version of this file at the Project JEDI's JVCL home page, located at http://jvcl.sourceforge.net --- 16,19 ---- *************** *** 23,26 **** --- 21,25 ---- Known Issues: -----------------------------------------------------------------------------} + // $Id$ {$I jvcl.inc} *************** *** 32,36 **** --- 31,40 ---- uses SysUtils, + {$IFDEF VCL} + Controls, Graphics, Windows; + {$ENDIF VCL} + {$IFDEF VisualCLX} QControls, QGraphics; + {$ENDIF VisualCLX} {$IFDEF VisualCLX} *************** *** 112,118 **** {$ENDIF MSWINDOWS} {$IFDEF LINUX} ! SDelphiKey = '.borland\.Jvcl'; ! {$ENDIF LINUX} ! { JvDataProvider constants } { Consumer attributes } --- 116,121 ---- {$ENDIF MSWINDOWS} {$IFDEF LINUX} ! SDelphiKey = '.borland/.Jvcl3'; ! {$ENDIF} { JvDataProvider constants } { Consumer attributes } *************** *** 242,246 **** JediAgent = 'JEDI-VCL'; DefaultOutputFileName = 'output.txt'; - implementation --- 245,248 ---- *************** *** 248,250 **** end. - --- 250,251 ---- Index: JvQFinalize.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/qcommon/JvQFinalize.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** JvQFinalize.pas 28 Feb 2004 13:56:02 -0000 1.1 --- JvQFinalize.pas 23 Apr 2004 20:08:45 -0000 1.2 *************** *** 348,355 **** --- 348,357 ---- end; + {$IFDEF MSWINDOWS} initialization finalization FinalizeUnits; + {$ENDIF MSWINDOWS} end. |