From baada2fba0b0c590058b160a49f20a5b7d45f6f1 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 23 Jan 2016 17:25:49 +0000
Subject: [PATCH] =?UTF-8?q?Turbopower=5Fipro:=20Update=20package=20for=20I?=
 =?UTF-8?q?phttpbroker.=20From=20Silvio=20Cl=C3=A9cio.=20Issue=20#29483.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: trunk@51388 -
---
 components/turbopower_ipro/turbopoweripro.lpk | 49 ++++++++++---------
 components/turbopower_ipro/turbopoweripro.pas |  5 +-
 2 files changed, 30 insertions(+), 24 deletions(-)

diff --git a/components/turbopower_ipro/turbopoweripro.lpk b/components/turbopower_ipro/turbopoweripro.lpk
index 1da42ddec1..b3a21e0869 100644
--- a/components/turbopower_ipro/turbopoweripro.lpk
+++ b/components/turbopower_ipro/turbopoweripro.lpk
@@ -25,7 +25,7 @@
     <License Value="MPL - Mozilla public license
 "/>
     <Version Major="1"/>
-    <Files Count="16">
+    <Files Count="17">
       <Item1>
         <Filename Value="ipanim.pas"/>
         <UnitName Value="IpAnim"/>
@@ -48,51 +48,56 @@
         <UnitName Value="Ipfilebroker"/>
       </Item5>
       <Item6>
+        <Filename Value="iphttpbroker.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="iphttpbroker"/>
+      </Item6>
+      <Item7>
         <Filename Value="iphtml.pas"/>
         <HasRegisterProc Value="True"/>
         <UnitName Value="IpHtml"/>
-      </Item6>
-      <Item7>
+      </Item7>
+      <Item8>
         <Filename Value="iphtmlpv.pas"/>
         <AddToUsesPkgSection Value="False"/>
         <UnitName Value="IpHtmlPv"/>
-      </Item7>
-      <Item8>
-        <Filename Value="ipmsg.pas"/>
-        <UnitName Value="IpMsg"/>
       </Item8>
       <Item9>
-        <Filename Value="ipstrms.pas"/>
-        <UnitName Value="IpStrms"/>
+        <Filename Value="ipmsg.pas"/>
+        <UnitName Value="IpMsg"/>
       </Item9>
       <Item10>
-        <Filename Value="iputils.pas"/>
-        <UnitName Value="IpUtils"/>
+        <Filename Value="ipstrms.pas"/>
+        <UnitName Value="IpStrms"/>
       </Item10>
       <Item11>
-        <Filename Value="ipcss.inc"/>
-        <Type Value="Include"/>
+        <Filename Value="iputils.pas"/>
+        <UnitName Value="IpUtils"/>
       </Item11>
       <Item12>
-        <Filename Value="iphtmltablist.pas"/>
-        <UnitName Value="IpHtmlTabList"/>
+        <Filename Value="ipcss.inc"/>
+        <Type Value="Include"/>
       </Item12>
       <Item13>
-        <Filename Value="iphtmlprop.pas"/>
-        <UnitName Value="iphtmlprop"/>
+        <Filename Value="iphtmltablist.pas"/>
+        <UnitName Value="IpHtmlTabList"/>
       </Item13>
       <Item14>
-        <Filename Value="iphtmlblocklayout.pas"/>
-        <UnitName Value="ipHtmlBlockLayout"/>
+        <Filename Value="iphtmlprop.pas"/>
+        <UnitName Value="iphtmlprop"/>
       </Item14>
       <Item15>
-        <Filename Value="iphtmltablelayout.pas"/>
-        <UnitName Value="ipHtmlTableLayout"/>
+        <Filename Value="iphtmlblocklayout.pas"/>
+        <UnitName Value="ipHtmlBlockLayout"/>
       </Item15>
       <Item16>
+        <Filename Value="iphtmltablelayout.pas"/>
+        <UnitName Value="ipHtmlTableLayout"/>
+      </Item16>
+      <Item17>
         <Filename Value="iphtmlgenerated.inc"/>
         <Type Value="Binary"/>
-      </Item16>
+      </Item17>
     </Files>
     <i18n>
       <EnableI18N Value="True"/>
diff --git a/components/turbopower_ipro/turbopoweripro.pas b/components/turbopower_ipro/turbopoweripro.pas
index cec83d1b5d..d2a923f599 100644
--- a/components/turbopower_ipro/turbopoweripro.pas
+++ b/components/turbopower_ipro/turbopoweripro.pas
@@ -7,8 +7,8 @@ unit TurboPowerIPro;
 interface
 
 uses
-  IpAnim, IpConst, Ipfilebroker, IpHtml, IpMsg, IpStrms, IpUtils, 
-  IpHtmlTabList, iphtmlprop, ipHtmlBlockLayout, ipHtmlTableLayout, 
+  IpAnim, IpConst, Ipfilebroker, Iphttpbroker, IpHtml, IpMsg, IpStrms, 
+  IpUtils, IpHtmlTabList, iphtmlprop, ipHtmlBlockLayout, ipHtmlTableLayout, 
   LazarusPackageIntf;
 
 implementation
@@ -16,6 +16,7 @@ implementation
 procedure Register;
 begin
   RegisterUnit('Ipfilebroker', @Ipfilebroker.Register);
+  RegisterUnit('Iphttpbroker', @Iphttpbroker.Register);
   RegisterUnit('IpHtml', @IpHtml.Register);
 end;