HelpHTML example: remove unused unit references.

git-svn-id: trunk@53708 -

examples/helphtml/htmlhelp1.lpi

@@ -1,7 +1,7 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="9"/>
+    <Version Value="10"/>
     <General>
       <Flags>
         <LRSInOutputDirectory Value="False"/>
@@ -39,6 +39,8 @@
         <Filename Value="unit1.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
       </Unit1>
       <Unit2>
@@ -70,8 +72,5 @@
         </Win32>
       </Options>
     </Linking>
-    <Other>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
 </CONFIG>

examples/helphtml/unit1.lfm

@@ -10,9 +10,10 @@ object Form1: TForm1
   ClientHeight = 300
   ClientWidth = 400
   OnCreate = FormCreate
+  LCLVersion = '1.7'
   object Edit1: TEdit
     Left = 60
-    Height = 23
+    Height = 32
     Top = 40
     Width = 207
     HelpType = htKeyword
@@ -22,7 +23,7 @@ object Form1: TForm1
   end
   object Edit2: TEdit
     Left = 60
-    Height = 23
+    Height = 32
     Top = 95
     Width = 207
     HelpType = htKeyword

examples/helphtml/unit1.pas

@@ -52,8 +52,7 @@ unit Unit1;
 interface
 
 uses
-  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
-  LazHelpHTML, StdCtrls, Buttons, HelpIntfs;
+  Forms, StdCtrls, LazHelpHTML, HelpIntfs;
 
 type