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 Top = 215
Width = 216 Width = 216
Height = 22 Height = 22
MaxValue = 1024 MaxValue = 99
MinValue = 1 MinValue = 7
TabOrder = 8 TabOrder = 8
Value = 16 Value = 32
end end
end end
object GroupBox2: TGroupBox object GroupBox2: TGroupBox

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

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

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

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

3
source/uCEFChromium.pas
View File

@ -2168,7 +2168,8 @@ end;
procedure TChromium.SetMaxConnectionsPerProxy(const aValue : integer); procedure TChromium.SetMaxConnectionsPerProxy(const aValue : integer);
begin 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 begin
FMaxConnectionsPerProxy := aValue; FMaxConnectionsPerProxy := aValue;
FUpdatePreferences := True; FUpdatePreferences := True;

4
source/uCEFConstants.pas
View File

@ -548,7 +548,9 @@ const
CEF_LOG_SEVERITY_WARNING = 1; CEF_LOG_SEVERITY_WARNING = 1;
CEF_LOG_SEVERITY_ERROR = 2; 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_25 = 0;
ZOOM_STEP_33 = 1; ZOOM_STEP_33 = 1;

3
source/uCEFFMXChromium.pas
View File

@ -1944,7 +1944,8 @@ end;
procedure TFMXChromium.SetMaxConnectionsPerProxy(const aValue : integer); procedure TFMXChromium.SetMaxConnectionsPerProxy(const aValue : integer);
begin 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 begin
FMaxConnectionsPerProxy := aValue; FMaxConnectionsPerProxy := aValue;
FUpdatePreferences := True; FUpdatePreferences := True;

2
update_CEF4Delphi.json
View File

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