pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions 1 Releases Activity

Update to CEF 81.3.1

Browse Source
This commit is contained in:
Salvador Díaz Fau
2020-04-30 17:28:41 +02:00
parent ee831e85bd
commit ccdb41b357
14 changed files with 615 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
demos/Delphi_VCL/MediaRouter/uMediaRouterFrm.dfm
View File

@@ -125,13 +125,11 @@ object MediaRouterFrm: TMediaRouterFrm
object SourceURNLbl: TLabel
Left = 0
Top = 0
Width = 65
Height = 21
Width = 57
Height = 13
Align = alClient
Caption = 'Source URN'
Layout = tlCenter
ExplicitWidth = 57
ExplicitHeight = 13
end
end
object SourceURNCbx: TComboBox

23
demos/Delphi_VCL/MediaRouter/uMediaRouterFrm.pas
View File

@@ -569,6 +569,7 @@ begin
FSinks[i].ID := aSinks[i].ID;
FSinks[i].Name := aSinks[i].Name;
FSinks[i].Description := aSinks[i].Description;
FSinks[i].IconType := aSinks[i].IconType;
FSinks[i].Valid := aSinks[i].IsValid;
FSinks[i].SinkIntf := aSinks[i];
@@ -683,6 +684,7 @@ end;
procedure TMediaRouterFrm.UpdateAvailableSinks;
var
i : integer;
TempItem : string;
begin
try
FMediaCS.Acquire;
@@ -693,12 +695,27 @@ begin
i := 0;
while (i < length(FSinks)) do
begin
TempItem := FSinks[i].Name;
case FSinks[i].SinkType of
mtCast : SinksLbx.Items.Add(FSinks[i].Name + ' (CAST)');
mtDial : SinksLbx.Items.Add(FSinks[i].Name + ' (DIAL)');
else SinksLbx.Items.Add(FSinks[i].Name + ' (UNKNOWN)');
mtCast : TempItem := TempItem + ' (CAST';
mtDial : TempItem := TempItem + ' (DIAL';
else TempItem := TempItem + ' (UNKNOWN';
end;
case FSinks[i].IconType of
CEF_MSIT_CAST : TempItem := TempItem + ', CAST)';
CEF_MSIT_CAST_AUDIO_GROUP : TempItem := TempItem + ', CAST_AUDIO_GROUP)';
CEF_MSIT_CAST_AUDIO : TempItem := TempItem + ', CAST_AUDIO)';
CEF_MSIT_MEETING : TempItem := TempItem + ', MEETING)';
CEF_MSIT_HANGOUT : TempItem := TempItem + ', HANGOUT)';
CEF_MSIT_EDUCATION : TempItem := TempItem + ', EDUCATION)';
CEF_MSIT_WIRED_DISPLAY : TempItem := TempItem + ', WIRED_DISPLAY)';
CEF_MSIT_GENERIC : TempItem := TempItem + ', GENERIC)';
else TempItem := TempItem + ', UNKNOWN)';
end;
SinksLbx.Items.Add(TempItem);
inc(i);
end;
end;

10
demos/Lazarus/MediaRouter/MediaRouter.lps
View File

@@ -22,19 +22,23 @@
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="553"/>
<CursorPos X="29" Y="49"/>
<TopLine Value="683"/>
<CursorPos X="73" Y="699"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit1>
</Units>
<JumpHistory Count="1">
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="MediaRouter.lpr"/>
<Caret Line="49" Column="11" TopLine="42"/>
</Position1>
<Position2>
<Filename Value="uMediaRouterFrm.pas"/>
<Caret Line="576" Column="50" TopLine="554"/>
</Position2>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>

23
demos/Lazarus/MediaRouter/uMediaRouterFrm.pas
View File

@@ -565,6 +565,7 @@ begin
FSinks[i].ID := aSinks[i].ID;
FSinks[i].Name := aSinks[i].Name;
FSinks[i].Description := aSinks[i].Description;
FSinks[i].IconType := aSinks[i].IconType;
FSinks[i].Valid := aSinks[i].IsValid;
FSinks[i].SinkIntf := aSinks[i];
@@ -679,6 +680,7 @@ end;
procedure TMediaRouterFrm.UpdateAvailableSinks;
var
i : integer;
TempItem : string;
begin
try
FMediaCS.Acquire;
@@ -689,12 +691,27 @@ begin
i := 0;
while (i < length(FSinks)) do
begin
TempItem := FSinks[i].Name;
case FSinks[i].SinkType of
mtCast : SinksLbx.Items.Add(FSinks[i].Name + ' (CAST)');
mtDial : SinksLbx.Items.Add(FSinks[i].Name + ' (DIAL)');
else SinksLbx.Items.Add(FSinks[i].Name + ' (UNKNOWN)');
mtCast : TempItem := TempItem + ' (CAST';
mtDial : TempItem := TempItem + ' (DIAL';
else TempItem := TempItem + ' (UNKNOWN';
end;
case FSinks[i].IconType of
CEF_MSIT_CAST : TempItem := TempItem + ', CAST)';
CEF_MSIT_CAST_AUDIO_GROUP : TempItem := TempItem + ', CAST_AUDIO_GROUP)';
CEF_MSIT_CAST_AUDIO : TempItem := TempItem + ', CAST_AUDIO)';
CEF_MSIT_MEETING : TempItem := TempItem + ', MEETING)';
CEF_MSIT_HANGOUT : TempItem := TempItem + ', HANGOUT)';
CEF_MSIT_EDUCATION : TempItem := TempItem + ', EDUCATION)';
CEF_MSIT_WIRED_DISPLAY : TempItem := TempItem + ', WIRED_DISPLAY)';
CEF_MSIT_GENERIC : TempItem := TempItem + ', GENERIC)';
else TempItem := TempItem + ', UNKNOWN)';
end;
SinksLbx.Items.Add(TempItem);
inc(i);
end;
end;