Misc packages: Adjust to changes in Laz/main (deprecated OffsetRect), less hints and warnings

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8838 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-15 23:33:46 +00:00
parent d060e53a49
commit 7940c5f9df
36 changed files with 65 additions and 51 deletions

View File

@ -37,7 +37,7 @@ unit JvCustomItemViewer;
interface
uses
LMessages, LCLVersion,
LCLIntf, LCLVersion, LMessages,
Classes, Graphics, Contnrs, Controls, Forms, ComCtrls,
ExtCtrls, JvConsts, Types, LCLType;
@ -369,7 +369,7 @@ function CenterRect(InnerRect, OuterRect: TRect): TRect;
implementation
uses
SysUtils, Math, Themes, LCLIntf,
SysUtils, Math, Themes,
JvJCLUtils;
// JvJVCLUtils, ;

View File

@ -29,7 +29,7 @@ interface
{$MODE OBJFPC}{$H+}
uses
LCLVersion,
LCLType, LCLIntf, LCLVersion,
SysUtils, Types, Classes, Controls, Graphics, ComCtrls, ImgList,
JvCustomItemViewer;
@ -158,7 +158,6 @@ type
implementation
uses
LCLType, LCLProc, LCLIntf,
Math,
JvJCLUtils, JvJVCLUtils;

View File

@ -1294,6 +1294,7 @@ var
I: Integer;
UTF8Value: UTF8String = '';
begin
Result := '';
I := ReadInt(Stream);
SetLength(Result, I);
if I > 0 then

View File

@ -1025,6 +1025,7 @@ var
I: Integer;
L: Integer;
begin
Result := '';
SetLength(Result, Length(ParseString));
L := 0;
for I := 1 to Length(ParseString) do