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
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
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
begin
- Move(LineEnding, Result[j], Length(LineEnding));
+ Move(''+LineEnding, Result[j], Length(LineEnding));
inc(j, Length(LineEnding));
inc(i, Length(cBR3));
end else