pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-02-02 10:25:26 +02:00
Code Issues Actions Releases Activity

Fixed min, max and default value of TChromium.MaxConnectionsPerProxy

Browse Source
This commit is contained in:
Salvador Díaz Fau 2019-08-29 12:52:11 +02:00
parent 72ebe76989
commit 2507e0730b
7 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
demos/Delphi_VCL/MiniBrowser/uPreferences.dfm
View File

@ -179,10 +179,10 @@ object PreferencesFrm: TPreferencesFrm
Top = 215
Width = 216
Height = 22
MaxValue = 1024
MinValue = 1
MaxValue = 99
MinValue = 7
TabOrder = 8
Value = 16
Value = 32
end
end
object GroupBox2: TGroupBox

16
demos/Lazarus/MiniBrowser/MiniBrowser.lps
View File

@ -20,10 +20,9 @@
<ComponentName Value="MiniBrowserFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="1031"/>
<CursorPos X="39" Y="1039"/>
<CursorPos X="93" Y="1044"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -35,6 +34,7 @@
<ComponentName Value="PreferencesFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="69"/>
<CursorPos X="17" Y="92"/>
@ -76,7 +76,7 @@
<UsageCount Value="10"/>
</Unit6>
</Units>
<JumpHistory Count="28" HistoryIndex="27">
<JumpHistory Count="27" HistoryIndex="26">
<Position1>
<Filename Value="uMiniBrowser.pas"/>
</Position1>
@ -177,17 +177,13 @@
<Caret Line="261" Column="11" TopLine="245"/>
</Position25>
<Position26>
<Filename Value="uPreferences.pas"/>
<Caret TopLine="55"/>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="290" Column="76" TopLine="277"/>
</Position26>
<Position27>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="290" Column="76" TopLine="277"/>
</Position27>
<Position28>
<Filename Value="uMiniBrowser.pas"/>
<Caret Line="1032" Column="50" TopLine="1015"/>
</Position28>
</Position27>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

6
demos/Lazarus/MiniBrowser/uPreferences.lfm
View File

@ -192,10 +192,10 @@ object PreferencesFrm: TPreferencesFrm
Height = 21
Top = 201
Width = 216
MaxValue = 1024
MinValue = 1
MaxValue = 99
MinValue = 7
TabOrder = 8
Value = 16
Value = 32
end
end
object GroupBox2: TGroupBox

3
source/uCEFChromium.pas
View File

@ -2168,7 +2168,8 @@ end;
procedure TChromium.SetMaxConnectionsPerProxy(const aValue : integer);
begin
if (FMaxConnectionsPerProxy <> aValue) then
if (FMaxConnectionsPerProxy <> aValue) and
(aValue in [CEF_MAX_CONNECTIONS_PER_PROXY_MIN_VALUE..CEF_MAX_CONNECTIONS_PER_PROXY_MAX_VALUE]) then
begin
FMaxConnectionsPerProxy := aValue;
FUpdatePreferences := True;

4
source/uCEFConstants.pas
View File

@ -548,7 +548,9 @@ const
CEF_LOG_SEVERITY_WARNING = 1;
CEF_LOG_SEVERITY_ERROR = 2;
CEF_MAX_CONNECTIONS_PER_PROXY_DEFAULT_VALUE = 16;
CEF_MAX_CONNECTIONS_PER_PROXY_DEFAULT_VALUE = 32;
CEF_MAX_CONNECTIONS_PER_PROXY_MIN_VALUE = 7;
CEF_MAX_CONNECTIONS_PER_PROXY_MAX_VALUE = 99;
ZOOM_STEP_25 = 0;
ZOOM_STEP_33 = 1;

3
source/uCEFFMXChromium.pas
View File

@ -1944,7 +1944,8 @@ end;
procedure TFMXChromium.SetMaxConnectionsPerProxy(const aValue : integer);
begin
if (FMaxConnectionsPerProxy <> aValue) then
if (FMaxConnectionsPerProxy <> aValue) and
(aValue in [CEF_MAX_CONNECTIONS_PER_PROXY_MIN_VALUE..CEF_MAX_CONNECTIONS_PER_PROXY_MAX_VALUE]) then
begin
FMaxConnectionsPerProxy := aValue;
FUpdatePreferences := True;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 23,
"InternalVersion" : 24,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "76.1.11.0"
}