Added new "license" page to Code Submission Wizards.

Replaced multi-paragraph TLabels with HTML frames loaded with required HTML text.

Author: delphidabbler

Src/FmCodeSubmitDlg.dfm

@@ -1,29 +1,38 @@
 inherited CodeSubmitDlg: TCodeSubmitDlg
   Caption = 'Code Submission Wizard'
   ExplicitWidth = 565
-  ExplicitHeight = 433
+  ExplicitHeight = 435
   PixelsPerInch = 96
   TextHeight = 13
   inherited pnlBody: TPanel
     inherited pcWizard: TPageControl
-      ActivePage = tsSnippets
+      ActivePage = tsFinished
       object tsIntro: TTabSheet
         Caption = 'tsIntro'
         TabVisible = False
-        object lblIntro: TLabel
+        inline frmIntro: TFixedHTMLDlgFrame
           Left = 0
-          Top = 8
+          Top = 0
           Width = 369
-          Height = 227
-          AutoSize = False
-          Caption = 
-            'Thanks for deciding to submit code for inclusion in the Code Sni' +
-            'ppets database.'#13#10#13#10'This wizard collects some information from yo' +
-            'u then contacts the DelphiDabbler.com website to submit the code' +
-            '.'#13#10#13#10'Please note that you must have the right to donate this cod' +
-            'e and you must be prepared to release the code into the public d' +
-            'omain.'#13#10#13#10'Click the Next button below to begin.'
-          WordWrap = True
+          Height = 238
+          Align = alClient
+          TabOrder = 0
+          TabStop = True
+          ExplicitWidth = 369
+          inherited pnlBrowser: TPanel
+            Width = 369
+            Height = 238
+            inherited wbBrowser: TWebBrowser
+              Width = 369
+              Height = 238
+              ControlData = {
+                4C00000023260000991800000000000000000000000000000000000000000000
+                000000004C000000000000000000000001000000E0D057007335CF11AE690800
+                2B2E126208000000000000004C0000000114020000000000C000000000000046
+                8000000000000000000000000000000000000000000000000000000000000000
+                00000000000000000100000000000000000000000000000000000000}
+            end
+          end
         end
       end
       object tsSnippets: TTabSheet
@@ -33,17 +42,23 @@ inherited CodeSubmitDlg: TCodeSubmitDlg
         object lblSnippets: TLabel
           Left = 0
           Top = 8
-          Width = 190
+          Width = 198
           Height = 13
           Caption = '&Select the snippet(s) you want to submit:'
           FocusControl = frmSnippets
         end
         object lblSnippetPrompt: TLabel
           Left = 0
           Top = 221
-          Width = 183
+          Width = 221
           Height = 13
           Caption = 'One or more snippets must be selected'
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
           Visible = False
         end
         inline frmSnippets: TSelectUserSnippetsFrame
@@ -79,15 +94,15 @@ inherited CodeSubmitDlg: TCodeSubmitDlg
         object lblEmail: TLabel
           Left = 0
           Top = 43
-          Width = 69
+          Width = 70
           Height = 13
           Caption = '&Email Address:'
           FocusControl = edEMail
         end
         object lblComments: TLabel
           Left = 0
           Top = 104
-          Width = 77
+          Width = 79
           Height = 13
           Caption = 'Your &Comments:'
           FocusControl = edComments
@@ -117,26 +132,26 @@ inherited CodeSubmitDlg: TCodeSubmitDlg
           Left = 0
           Top = 69
           Width = 369
-          Height = 18
+          Height = 5
           TabOrder = 2
           TabStop = True
           ExplicitTop = 69
           ExplicitWidth = 369
-          ExplicitHeight = 18
+          ExplicitHeight = 5
           inherited pnlBrowser: TPanel
             Width = 369
-            Height = 18
+            Height = 5
             ExplicitWidth = 369
             ExplicitHeight = 18
             inherited wbBrowser: TWebBrowser
               Width = 369
-              Height = 18
+              Height = 5
               TabStop = False
               ExplicitTop = -2
               ExplicitWidth = 369
               ExplicitHeight = 18
               ControlData = {
-                4C00000023260000DC0100000000000000000000000000000000000000000000
+                4C00000023260000840000000000000000000000000000000000000000000000
                 000000004C000000000000000000000001000000E0D057007335CF11AE690800
                 2B2E126208000000000000004C0000000114020000000000C000000000000046
                 8000000000000000000000000000000000000000000000000000000000000000
@@ -145,52 +160,116 @@ inherited CodeSubmitDlg: TCodeSubmitDlg
           end
         end
       end
-      object tsSubmit: TTabSheet
-        Caption = 'tsSubmit'
-        ImageIndex = 4
+      object tsLicense: TTabSheet
+        Caption = 'tsLicense'
+        ImageIndex = 5
         TabVisible = False
-        object lblSubmit: TLabel
+        ExplicitLeft = 8
+        ExplicitTop = 11
+        object chkAgreeLicense: TCheckBox
+          Left = 3
+          Top = 200
+          Width = 363
+          Height = 17
+          Caption = 'I confirm my &agreement with statements 1 and 2 above'
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          TabOrder = 0
+        end
+        inline frmLicenseTerms: TFixedHTMLDlgFrame
           Left = 0
-          Top = 3
+          Top = 0
           Width = 369
-          Height = 127
-          AutoSize = False
-          Caption = 
-            'Ready to submit the code.'#13#10#13#10'The data that will be sent contains' +
-            ' the specified snippet(s), the information your gave on the prev' +
-            'ious page and your program'#39's version number.'#13#10#13#10'If you want to s' +
-            'ee the data before sending it, click the Preview Data button.'#13#10#13 +
-            #10'To proceed please ensure you are connected to the internet and ' +
-            'click the Submit button.'
-          WordWrap = True
+          Height = 169
+          TabOrder = 1
+          TabStop = True
+          ExplicitWidth = 369
+          ExplicitHeight = 169
+          inherited pnlBrowser: TPanel
+            Width = 369
+            Height = 169
+            inherited wbBrowser: TWebBrowser
+              Width = 369
+              Height = 169
+              ControlData = {
+                4C00000023260000771100000000000000000000000000000000000000000000
+                000000004C000000000000000000000001000000E0D057007335CF11AE690800
+                2B2E126208000000000000004C0000000114020000000000C000000000000046
+                8000000000000000000000000000000000000000000000000000000000000000
+                00000000000000000100000000000000000000000000000000000000}
+            end
+          end
         end
+      end
+      object tsSubmit: TTabSheet
+        Caption = 'tsSubmit'
+        ImageIndex = 4
+        TabVisible = False
+        ExplicitLeft = 0
         object btnPreview: TButton
           Left = 136
-          Top = 144
+          Top = 164
           Width = 98
           Height = 25
           Caption = '&Preview Data...'
           TabOrder = 0
           OnClick = btnPreviewClick
         end
+        inline frmSubmit: TFixedHTMLDlgFrame
+          Left = 0
+          Top = 0
+          Width = 366
+          Height = 145
+          TabOrder = 1
+          TabStop = True
+          ExplicitWidth = 366
+          ExplicitHeight = 145
+          inherited pnlBrowser: TPanel
+            Width = 366
+            Height = 145
+            inherited wbBrowser: TWebBrowser
+              Width = 366
+              Height = 145
+              ControlData = {
+                4C000000D4250000FC0E00000000000000000000000000000000000000000000
+                000000004C000000000000000000000001000000E0D057007335CF11AE690800
+                2B2E126208000000000000004C0000000114020000000000C000000000000046
+                8000000000000000000000000000000000000000000000000000000000000000
+                00000000000000000100000000000000000000000000000000000000}
+            end
+          end
+        end
       end
       object tsFinished: TTabSheet
         Caption = 'tsFinished'
         ImageIndex = 3
         TabVisible = False
-        object lblFinished: TLabel
+        inline frmFinished: TFixedHTMLDlgFrame
           Left = 0
           Top = 0
           Width = 369
-          Height = 201
-          AutoSize = False
-          Caption = 
-            'Thank you. Your submission has been sent successfully.'#13#10#13#10'The da' +
-            'tabase editor will review the code and, if it is in a suitable f' +
-            'ormat and it works as advertised, it will be included in the onl' +
-            'ine Code Snippets database in due course. You may be contacted i' +
-            'f there are any queries.'
-          WordWrap = True
+          Height = 238
+          Align = alClient
+          TabOrder = 0
+          TabStop = True
+          inherited pnlBrowser: TPanel
+            Width = 369
+            Height = 238
+            inherited wbBrowser: TWebBrowser
+              Width = 369
+              Height = 238
+              ControlData = {
+                4C00000023260000991800000000000000000000000000000000000000000000
+                000000004C000000000000000000000001000000E0D057007335CF11AE690800
+                2B2E126208000000000000004C0000000114020000000000C000000000000046
+                8000000000000000000000000000000000000000000000000000000000000000
+                00000000000000000100000000000000000000000000000000000000}
+            end
+          end
         end
       end
     end