From: <ah...@us...> - 2007-05-27 20:28:28
|
Revision: 11300 http://svn.sourceforge.net/jvcl/?rev=11300&view=rev Author: ahuser Date: 2007-05-27 13:28:24 -0700 (Sun, 27 May 2007) Log Message: ----------- Delphi 5 compatibility Modified Paths: -------------- trunk/jvcl/run/JvBalloonHint.pas trunk/jvcl/run/JvVCL5Utils.pas Modified: trunk/jvcl/run/JvBalloonHint.pas =================================================================== --- trunk/jvcl/run/JvBalloonHint.pas 2007-05-23 16:27:35 UTC (rev 11299) +++ trunk/jvcl/run/JvBalloonHint.pas 2007-05-27 20:28:24 UTC (rev 11300) @@ -293,7 +293,7 @@ Registry, CommCtrl, MMSystem, ComCtrls, // needed for GetComCtlVersion JvJVCLUtils, JvThemes, JvWndProcHook, JvResources, JvWin32, - JclUnicode; + JclUnicode, JvVCL5Utils; const { TJvStemSize = (ssSmall, ssNormal, ssLarge); Modified: trunk/jvcl/run/JvVCL5Utils.pas =================================================================== --- trunk/jvcl/run/JvVCL5Utils.pas 2007-05-23 16:27:35 UTC (rev 11299) +++ trunk/jvcl/run/JvVCL5Utils.pas 2007-05-27 20:28:24 UTC (rev 11300) @@ -158,6 +158,7 @@ function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; +function StrNextChar(const Str: PChar): PChar; // StrUtils function AnsiStartsText(const SubText, Text: string): Boolean; @@ -997,7 +998,12 @@ CharLowerBuffW(Pointer(Result), Length(Result)); end; +function StrNextChar(const Str: PChar): PChar; +begin + Result := CharNext(Str); +end; + // StrUtils function AnsiStartsText(const SubText, Text: string): Boolean; var This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |