feature/video-01

Author: Cesar4D

Server/Bin/dataset.xml

@@ -1,8 +1,8 @@
 object MainForm: TMainForm
   Left = 0
   Top = 0
-  Caption = 'Push Notifications Delphi - Server'
-  ClientHeight = 661
+  Caption = 'Push Notifications Delphi - TMS FNC'
+  ClientHeight = 617
   ClientWidth = 534
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -18,7 +18,7 @@ object MainForm: TMainForm
     Left = 0
     Top = 0
     Width = 534
-    Height = 661
+    Height = 617
     Cursor = crHandPoint
     Align = alClient
     BevelOuter = bvNone
@@ -27,6 +27,7 @@ object MainForm: TMainForm
     Padding.Right = 12
     Padding.Bottom = 12
     TabOrder = 0
+    ExplicitHeight = 661
     object lbTitle: TLabel
       AlignWithMargins = True
       Left = 12
@@ -144,12 +145,13 @@ object MainForm: TMainForm
     end
     object GroupBox1: TGroupBox
       Left = 12
-      Top = 496
+      Top = 452
       Width = 510
       Height = 153
       Align = alBottom
       Caption = ' Log '
       TabOrder = 5
+      ExplicitTop = 496
       object lbClearLog: TLabel
         Left = 464
         Top = 0
@@ -171,8 +173,6 @@ object MainForm: TMainForm
         Color = clBtnFace
         ScrollBars = ssVertical
         TabOrder = 0
-        ExplicitLeft = 3
-        ExplicitTop = 23
       end
     end
     object btnStop: TBitBtn
@@ -246,7 +246,7 @@ object MainForm: TMainForm
       Left = 12
       Top = 294
       Width = 510
-      Height = 136
+      Height = 119
       Margins.Left = 0
       Margins.Top = 7
       Margins.Right = 0
@@ -261,22 +261,24 @@ object MainForm: TMainForm
         Left = 4
         Top = 17
         Width = 502
-        Height = 86
+        Height = 69
         Align = alClient
         Columns = 3
         ItemHeight = 15
         TabOrder = 0
+        ExplicitHeight = 86
       end
       object Panel2: TPanel
         Left = 4
-        Top = 103
+        Top = 86
         Width = 502
         Height = 29
         Align = alBottom
         BevelOuter = bvNone
         Padding.Top = 2
         Padding.Bottom = 2
         TabOrder = 1
+        ExplicitTop = 103
         object btnSendToSelectedUserId: TBitBtn
           Left = 0
           Top = 2
@@ -296,22 +298,15 @@ object MainForm: TMainForm
           Caption = 'Delete UserID selected'
           TabOrder = 1
           OnClick = btnDeleteUserIDSelectedClick
-        end
-        object BitBtn2: TBitBtn
-          Left = 290
-          Top = 2
-          Width = 144
-          Height = 25
-          Align = alLeft
-          Caption = 'Enable send to selected'
-          TabOrder = 2
+          ExplicitLeft = 151
+          ExplicitTop = 5
         end
       end
     end
     object btnSendToAll: TBitBtn
       AlignWithMargins = True
       Left = 12
-      Top = 440
+      Top = 423
       Width = 510
       Height = 25
       Margins.Left = 0
@@ -322,6 +317,7 @@ object MainForm: TMainForm
       Caption = 'Send to all'
       TabOrder = 10
       OnClick = btnSendToAllClick
+      ExplicitTop = 440
     end
   end
   object TMSFNCWebPushSender1: TTMSFNCWebPushSender

Server/Src/Main.View.dfm

@@ -47,7 +47,6 @@   TMainForm = class(TForm)
     btnSendToSelectedUserId: TBitBtn;
     btnSendToAll: TBitBtn;
     btnDeleteUserIDSelected: TBitBtn;
-    BitBtn2: TBitBtn;
     lbClearLog: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure TMSFNCWebPushSender1NotificationError(Sender: TObject; AResponseCode: Integer; AResponse, AEndpoint,

Server/Src/Main.View.pas

@@ -1,7 +1,7 @@
 object MainView: TMainView
   Width = 322
   Height = 432
-  Caption = 'lbUserID'
+  Caption = 'Push Notifications Delphi - TMS FNC'
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -13

WebClient/IconResHigh.png

@@ -4,7 +4,7 @@
         <ProjectVersion>20.2</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <ProjectName Condition="'$(ProjectName)'==''">WebPushClient</ProjectName>
         <TargetedPlatforms>1</TargetedPlatforms>
@@ -107,6 +107,7 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+        <TMSWebBrowser>4</TMSWebBrowser>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">