1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-24 08:02:15 +02:00

Merge pull request #237 from ahausladen/FixParseProcessType

Fix ProcessType parameter parsing
This commit is contained in:
Salvador Díaz Fau 2019-11-09 09:24:04 +01:00 committed by GitHub
commit 6b36c40664
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1379,10 +1379,10 @@ var
TempName, TempValue : string;
begin
Result := ptBrowser;
i := pred(paramCount);
i := paramCount;
TempLen := length(TYPE_PARAMETER_NAME);
while (i >= 0) and (Result = ptBrowser) do
while (i >= 1) and (Result = ptBrowser) do
begin
TempName := copy(paramstr(i), 1, TempLen);