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

JVCL, mbColorLib, TvPlanIt: Fix compilation with Laz/main

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8827 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-06 18:23:57 +00:00
parent ec547b35ca
commit 670eceeb88
19 changed files with 48 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
components/jvcllaz/run/JvNet/jvstrtohtml.pas
View File

@ -488,5 +488,32 @@ begin
SetLength(Result, CurrPos-1);
end;
{<<<<<<<<<<<<<< NOT CONVERTED
function CharToHtml(Ch: Char): string;
var
I: Integer;
W: Word;
begin
if (Ord(Ch) >= 128) or not (AnsiChar(Ch) in ['A'..'Z', 'a'..'z', '0'..'9', '_']) then
begin
W := Word(Ch);
{$IFNDEF UNICODE}
if (W < 128) or (MultiByteToWideChar(CP_ACP, MB_ERR_INVALID_CHARS, @Ch, 1, PWideChar(@W), 1) <> 0) then
{$ENDIF ~UNICODE}
begin
I := 0;
while (I < Length(Conversions)) and (Conversions[I].Ch <> W) do
Inc(I);
if I < Length(Conversions) then
begin
Result := Conversions[I].Html;
Exit;
end;
end;
end;
Result := Ch;
end;
>>>>>>>>>>>>>>>>>>> }
end.