pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix compilation in Linux. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8689 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-17 09:02:53 +00:00
parent fca20c8bec
commit 3bc61ca8f5
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/jvcllaz/run/JvCore/jvjvclutils.pas
View File

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