From 3bc61ca8f508bc02e909727b38d9774f869713da Mon Sep 17 00:00:00 2001 From: wp_xxyyzz 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
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