You've already forked lazarus-ccr
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
This commit is contained in:
@ -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
|
||||||
|
Reference in New Issue
Block a user