From 3bc61ca8f508bc02e909727b38d9774f869713da Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 17 Jan 2023 09:02:53 +0000
Subject: [PATCH] jvcllaz: Fix compilation in Linux. Less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8689 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jvcllaz/run/JvCore/jvjvclutils.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/components/jvcllaz/run/JvCore/jvjvclutils.pas b/components/jvcllaz/run/JvCore/jvjvclutils.pas
index b513688d1..f1a730af3 100644
--- a/components/jvcllaz/run/JvCore/jvjvclutils.pas
+++ b/components/jvcllaz/run/JvCore/jvjvclutils.pas
@@ -210,7 +210,7 @@ type
   TFillDirection = (fdTopToBottom, fdBottomToTop, fdLeftToRight, fdRightToLeft);
 
 procedure GradientFillRect(Canvas: TCanvas; ARect: TRect; StartColor,
-  EndColor: TColor; Direction: TFillDirection; Colors: Byte);
+  EndColor: TColor; Direction: TFillDirection; {%H-}Colors: Byte);
 
 (******************** NOT CONVERTED
 procedure StartWait;
@@ -7145,7 +7145,7 @@ var
   i, j, len, p: Integer;
   sEntity: String;
   wEntity: WideString;
-  wChar: WideChar;
+  wChar: WideChar = WideChar(0);
   
   procedure AddCurrentChar;
   begin
@@ -7171,19 +7171,19 @@ begin
     begin
       if SameText(Copy(Text, i, Length(cBR)), cBR) then     // Fixes <br>
       begin
-        Move(LineEnding, Result[j], Length(LineEnding));
+        Move(''+LineEnding, Result[j], Length(LineEnding)); // ''+LineEnding fixes compilation in Linux
         inc(j, Length(LineEnding));
         inc(i, Length(cBR));
       end else
       if SameText(Copy(Text, i, Length(cBR2)), cBR2) then   // Fixes <br/> 
       begin
-        Move(LineEnding, Result[j], Length(LineEnding));
+        Move(''+LineEnding, Result[j], Length(LineEnding));
         inc(j, Length(LineEnding));
         inc(i, Length(cBR2));
       end else
       if SameText(Copy(Text, i, Length(cBR3)), cBR3) then   // Fixes <br /> 
       begin
-        Move(LineEnding, Result[j], Length(LineEnding));
+        Move(''+LineEnding, Result[j], Length(LineEnding));
         inc(j, Length(LineEnding));
         inc(i, Length(cBR3));
       end else