paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 51387-51388 #51be79de05-#51be79de05, 51429-51432 #a995c27b85-#a995c27b85, 51434 #b3bc124f4d, 51439 #d89ec8e399, 51441-51442 #52e348e1c8-#52e348e1c8, 51447 #cfd5a7b71c from trunk:

Browse Source 
Turbopower_ipro: New files for Iphttpbroker and its example from Silvio Clécio. Issue #29483.
........
Turbopower_ipro: Update package for Iphttpbroker. From Silvio Clécio. Issue #29483.
........
Turbopower IPro: Fix default color for HTML inputs on Windows. Issue #29483, patch from Silvio Clécio.
........
Turbopower IPro: Fix bg color for CSS style in TCustomEdit and TRadioButton. Issue #29483, patch from Silvio Clécio.
........
Turbopower IPro: Added functions FindNode, FindNodeByElemId and FindNodeByElemClass. Issue #29483, patch from Silvio Clécio.
........
New example for IPro FindNode functions. Issue #29483, from Silvio Clécio.
........
Turbopower IPro: Fix compilation with FPC 2.6.4. Issue #29483, patch from Silvio Clécio.
........
TurboPower_ipro: Fix background color of html input controls, based on patch by Silivo Clecio (Issue #0029483). Fix typo.
........
TurboPower_iPro: Script to add component icons to res file. Add icon to new TIpHTTPDataProvider (provided by Péter Gabor).
........
TurboPower_iPro: Slightly modify icon of TIpHttpDataProvider to distinguish it from TIpFileDataProvider.
........
TurboPower_iPro: Final fix of issue {{MantisLink|29483}} - Use correct default of input node background color, assign it to the control's color.
........

git-svn-id: branches/fixes_1_6@51523 -
This commit is contained in:
maxim 2016-02-06 14:36:36 +00:00
parent 0f912223ec
commit a6fd4e52a9
19 changed files with 926 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
.gitattributes vendored
View File

@ -4259,6 +4259,10 @@ components/turbopower_ipro/design/Makefile.fpc svneol=native#text/plain
components/turbopower_ipro/design/ipidehtmlcontrol.pas svneol=native#text/plain components/turbopower_ipro/design/ipidehtmlcontrol.pas svneol=native#text/plain
components/turbopower_ipro/design/turbopoweriprodsgn.lpk svneol=native#text/plain components/turbopower_ipro/design/turbopoweriprodsgn.lpk svneol=native#text/plain
components/turbopower_ipro/design/turbopoweriprodsgn.pas svneol=native#text/plain components/turbopower_ipro/design/turbopoweriprodsgn.pas svneol=native#text/plain
components/turbopower_ipro/examples/browser.lpi svneol=native#text/plain
components/turbopower_ipro/examples/browser.lpr svneol=native#text/pascal
components/turbopower_ipro/examples/browserfrm.lfm svneol=native#text/plain
components/turbopower_ipro/examples/browserfrm.pas svneol=native#text/pascal
components/turbopower_ipro/examples/defaultimage.res -text components/turbopower_ipro/examples/defaultimage.res -text
components/turbopower_ipro/examples/defaultimage.xpm -text svneol=unset#image/pixmap components/turbopower_ipro/examples/defaultimage.xpm -text svneol=unset#image/pixmap
components/turbopower_ipro/examples/fpdoc.css svneol=native#text/plain components/turbopower_ipro/examples/fpdoc.css svneol=native#text/plain
@ -4276,8 +4280,14 @@ components/turbopower_ipro/examples/htmlwithcssfrm.lfm svneol=native#text/plain
components/turbopower_ipro/examples/htmlwithcssfrm.pas svneol=native#text/plain components/turbopower_ipro/examples/htmlwithcssfrm.pas svneol=native#text/plain
components/turbopower_ipro/examples/index.html svneol=native#text/plain components/turbopower_ipro/examples/index.html svneol=native#text/plain
components/turbopower_ipro/examples/simplepage2.html svneol=native#text/plain components/turbopower_ipro/examples/simplepage2.html svneol=native#text/plain
components/turbopower_ipro/examples/sum.html svneol=native#text/plain
components/turbopower_ipro/examples/sumab.lpi svneol=native#text/plain
components/turbopower_ipro/examples/sumab.lpr svneol=native#text/pascal
components/turbopower_ipro/examples/sumabfrm.lfm svneol=native#text/plain
components/turbopower_ipro/examples/sumabfrm.pas svneol=native#text/pascal
components/turbopower_ipro/for_delphi/ipHtml.dcr -text components/turbopower_ipro/for_delphi/ipHtml.dcr -text
components/turbopower_ipro/for_delphi/iphtml.res -text components/turbopower_ipro/for_delphi/iphtml.res -text
components/turbopower_ipro/icons_list.txt svneol=native#text/plain
components/turbopower_ipro/ipanim.pas svneol=native#text/pascal components/turbopower_ipro/ipanim.pas svneol=native#text/pascal
components/turbopower_ipro/ipconst.pas svneol=native#text/pascal components/turbopower_ipro/ipconst.pas svneol=native#text/pascal
components/turbopower_ipro/ipcss.inc svneol=native#text/pascal components/turbopower_ipro/ipcss.inc svneol=native#text/pascal
@ -4293,6 +4303,7 @@ components/turbopower_ipro/iphtmlpv.lfm svneol=native#text/plain
components/turbopower_ipro/iphtmlpv.pas svneol=native#text/pascal components/turbopower_ipro/iphtmlpv.pas svneol=native#text/pascal
components/turbopower_ipro/iphtmltablelayout.pas svneol=native#text/pascal components/turbopower_ipro/iphtmltablelayout.pas svneol=native#text/pascal
components/turbopower_ipro/iphtmltablist.pas svneol=native#text/plain components/turbopower_ipro/iphtmltablist.pas svneol=native#text/plain
components/turbopower_ipro/iphttpbroker.pas svneol=native#text/pascal
components/turbopower_ipro/ipmsg.pas svneol=native#text/pascal components/turbopower_ipro/ipmsg.pas svneol=native#text/pascal
components/turbopower_ipro/ipstrms.pas svneol=native#text/pascal components/turbopower_ipro/ipstrms.pas svneol=native#text/pascal
components/turbopower_ipro/iputils.pas svneol=native#text/pascal components/turbopower_ipro/iputils.pas svneol=native#text/pascal
@ -4327,8 +4338,10 @@ components/turbopower_ipro/languages/iputils.pt_BR.po svneol=native#text/plain
components/turbopower_ipro/languages/iputils.ru.po svneol=native#text/plain components/turbopower_ipro/languages/iputils.ru.po svneol=native#text/plain
components/turbopower_ipro/languages/iputils.uk.po svneol=native#text/plain components/turbopower_ipro/languages/iputils.uk.po svneol=native#text/plain
components/turbopower_ipro/languages/iputils.zh_CN.po svneol=native#text/plain components/turbopower_ipro/languages/iputils.zh_CN.po svneol=native#text/plain
components/turbopower_ipro/make_icons.bat svneol=native#text/plain
components/turbopower_ipro/tipfiledataprovider.png -text svneol=unset#image/png components/turbopower_ipro/tipfiledataprovider.png -text svneol=unset#image/png
components/turbopower_ipro/tiphtmlpanel.png -text svneol=unset#image/png components/turbopower_ipro/tiphtmlpanel.png -text svneol=unset#image/png
components/turbopower_ipro/tiphttpdataprovider.png -text svneol=unset#image/png
components/turbopower_ipro/turbopoweripro.lpk svneol=native#text/pascal components/turbopower_ipro/turbopoweripro.lpk svneol=native#text/pascal
components/turbopower_ipro/turbopoweripro.pas svneol=native#text/plain components/turbopower_ipro/turbopoweripro.pas svneol=native#text/plain
components/vlc/README.txt svneol=native#text/plain components/vlc/README.txt svneol=native#text/plain

93
components/turbopower_ipro/examples/browser.lpi Normal file
View File

@ -0,0 +1,93 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<Title Value="browser"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1" Active="Default">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="TurboPowerIPro"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="browser.lpr"/>
<IsPartOfProject Value="True"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="browserfrm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="browser"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

19
components/turbopower_ipro/examples/browser.lpr Normal file
View File

@ -0,0 +1,19 @@
program browser;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, Forms, browserfrm;
{$R *.res}
begin
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TfrMain, frMain);
Application.Run;
end.

212
components/turbopower_ipro/examples/browserfrm.lfm Normal file
View File

@ -0,0 +1,212 @@
object frMain: TfrMain
Left = 41
Height = 314
Top = 31
Width = 591
Caption = 'IPro browser'
ClientHeight = 314
ClientWidth = 591
LCLVersion = '1.7'
object pnTop: TPanel
Left = 0
Height = 42
Top = 0
Width = 591
Align = alTop
ClientHeight = 42
ClientWidth = 591
TabOrder = 0
object btBack: TSpeedButton
Left = 5
Height = 32
Top = 5
Width = 40
Action = acBack
Align = alLeft
BorderSpacing.Around = 4
Glyph.Data = {
36060000424D3606000000000000360400002800000020000000100000000100
0800000000000002000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A6000020400000206000002080000020A0000020C0000020E000004000000040
20000040400000406000004080000040A0000040C0000040E000006000000060
20000060400000606000006080000060A0000060C0000060E000008000000080
20000080400000806000008080000080A0000080C0000080E00000A0000000A0
200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
20004000400040006000400080004000A0004000C0004000E000402000004020
20004020400040206000402080004020A0004020C0004020E000404000004040
20004040400040406000404080004040A0004040C0004040E000406000004060
20004060400040606000406080004060A0004060C0004060E000408000004080
20004080400040806000408080004080A0004080C0004080E00040A0000040A0
200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
20008000400080006000800080008000A0008000C0008000E000802000008020
20008020400080206000802080008020A0008020C0008020E000804000008040
20008040400080406000804080008040A0008040C0008040E000806000008060
20008060400080606000806080008060A0008060C0008060E000808000008080
20008080400080806000808080008080A0008080C0008080E00080A0000080A0
200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFDFD
FDF5F5FDFDFDFDFDFDFDFDFDFDFDFDFDFD0707FDFDFDFDFDFDFDFDFDFDFDFDFD
B51111FDFDFDFDFDFDFDFDFDFDFDFDFD07F7F7FDFDFDFDFDFDFDFDFDFDFDFDB5
196219FDFDFDFDFDFDFDFDFDFDFDFD07F707F7FDFDFDFDFDFDFDFDFDFDFDAC11
627362FDFDFDFDFDFDFDFDFDFDFD07F7070707FDFDFDFDFDFDFDFDFDFDAC1962
737361B4B4F7ACADF7FDFDFDFD07F707070707070707070707FDFDFDAC1162B3
696A61181919191951FDFDFD07F70707070707F7F7F7F7F7F7FDFDAC1162BCB3
69697272737373B462FDFD07F7070707F707070707070707F7FDB41162B3B3B3
B2686969727272B462FD07F7070707070707070707070707F7FD616AF4B3B3B3
BB696869696969B361FDF7070707070707F7070707070707F7FDFD61AABBB3B4
BCBB6968696969BB61FDFDF7070707070707F7F7F7F7F707F7FDFDFD61AABCBC
B4F4BCBCBCBCBCBC61FDFDFDF70707070707070707070707F7FDFDFDFD61AAF4
B4F561616162616262FDFDFDFDF707070707F7F7F7F7F7F7F7FDFDFDFDFD61AA
BCF561FDFDFDFDFDFDFDFDFDFDFDF7070707F7FDFDFDFDFDFDFDFDFDFDFDFD61
AAF462FDFDFDFDFDFDFDFDFDFDFDFDF70707F7FDFDFDFDFDFDFDFDFDFDFDFDFD
61AA61FDFDFDFDFDFDFDFDFDFDFDFDFDF707F7FDFDFDFDFDFDFDFDFDFDFDFDFD
FD6161FDFDFDFDFDFDFDFDFDFDFDFDFDFDF7F7FDFDFDFDFDFDFD
}
NumGlyphs = 2
end
object btForward: TSpeedButton
Left = 49
Height = 32
Top = 5
Width = 40
Action = acForward
Align = alLeft
BorderSpacing.Around = 4
Glyph.Data = {
36060000424D3606000000000000360400002800000020000000100000000100
0800000000000002000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A6000020400000206000002080000020A0000020C0000020E000004000000040
20000040400000406000004080000040A0000040C0000040E000006000000060
20000060400000606000006080000060A0000060C0000060E000008000000080
20000080400000806000008080000080A0000080C0000080E00000A0000000A0
200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
20004000400040006000400080004000A0004000C0004000E000402000004020
20004020400040206000402080004020A0004020C0004020E000404000004040
20004040400040406000404080004040A0004040C0004040E000406000004060
20004060400040606000406080004060A0004060C0004060E000408000004080
20004080400040806000408080004080A0004080C0004080E00040A0000040A0
200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
20008000400080006000800080008000A0008000C0008000E000802000008020
20008020400080206000802080008020A0008020C0008020E000804000008040
20008040400080406000804080008040A0008040C0008040E000806000008060
20008060400080606000806080008060A0008060C0008060E000808000008080
20008080400080806000808080008080A0008080C0008080E00080A0000080A0
200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFDFD
FDF5F5FDFDFDFDFDFDFDFDFDFDFDFDFDFD0707FDFDFDFDFDFDFDFDFDFDFDFDFD
FD1111B5FDFDFDFDFDFDFDFDFDFDFDFDFDF7F707FDFDFDFDFDFDFDFDFDFDFDFD
FD196219B5FDFDFDFDFDFDFDFDFDFDFDFDF707F707FDFDFDFDFDFDFDFDFDFDFD
FD62736211ACFDFDFDFDFDFDFDFDFDFDFD070707F707FDFDFDFDFDF7ADACF7B4
B46173736219ACFDFDFDFD07070707070707070707F707FDFDFDFD5119191919
18616A69B36211ACFDFDFDF7F7F7F7F7F70707070707F707FDFDFD62B4737373
72726969B3BC6211ACFDFDF707070707070707F7070707F707FDFD62B4727272
696968B2B3B3B36211B4FDF7070707070707070707070707F707FD61B3696969
696869BBB3B3B3F46A61FDF707070707070707070707070707F7FD61BB696969
6869BBBCB4B3BBAA61FDFDF70707F707F7F7070707070707F7FDFD61BCBCBCBC
BCBCF4B4BCBCAA61FDFDFDF70707070707070707070707F7FDFDFD6262616261
6161F5B4F4AA61FDFDFDFDF7F707F7F707F707070707F7FDFDFDFDFDFDFDFDFD
FD61F5BCAA61FDFDFDFDFDFDFDFDFDFDFDF7070707F7FDFDFDFDFDFDFDFDFDFD
FD62F4AA61FDFDFDFDFDFDFDFDFDFDFDFDF70707F7FDFDFDFDFDFDFDFDFDFDFD
FD61AA61FDFDFDFDFDFDFDFDFDFDFDFDFDF707F7FDFDFDFDFDFDFDFDFDFDFDFD
FD6161FDFDFDFDFDFDFDFDFDFDFDFDFDFDF7F7FDFDFDFDFDFDFD
}
NumGlyphs = 2
end
object edUrl: TEdit
AnchorSideLeft.Control = btForward
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnTop
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btGo
Left = 93
Height = 23
Top = 10
Width = 449
Anchors = [akTop, akLeft, akRight]
ParentBidiMode = False
TabOrder = 0
Text = 'http://freepascal.org/'
end
object btGo: TSpeedButton
Left = 546
Height = 32
Top = 5
Width = 40
Action = acGo
Align = alRight
BorderSpacing.Around = 4
NumGlyphs = 2
end
end
object IpHtmlPanel1: TIpHtmlPanel
Left = 0
Height = 272
Top = 42
Width = 591
Align = alClient
DataProvider = IpHttpDataProvider1
FixedTypeface = 'Courier New'
DefaultTypeFace = 'default'
DefaultFontSize = 12
FlagErrors = False
PrintSettings.MarginLeft = 0.5
PrintSettings.MarginTop = 0.5
PrintSettings.MarginRight = 0.5
PrintSettings.MarginBottom = 0.5
TabOrder = 1
OnDocumentOpen = IpHtmlPanel1DocumentOpen
end
object IpHttpDataProvider1: TIpHttpDataProvider
left = 64
top = 64
end
object alMain: TActionList
OnUpdate = alMainUpdate
left = 160
top = 64
object acBack: TAction
Category = 'Browser'
Enabled = False
OnExecute = acBackExecute
end
object acForward: TAction
Category = 'Browser'
Enabled = False
OnExecute = acForwardExecute
end
object acGo: TAction
Category = 'Browser'
Caption = 'Go!'
OnExecute = acGoExecute
ShortCut = 13
end
end
end

71
components/turbopower_ipro/examples/browserfrm.pas Normal file
View File

@ -0,0 +1,71 @@
unit browserfrm;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Iphttpbroker, IpHtml, Forms, Buttons, ExtCtrls, StdCtrls,
ActnList;
type
{ TfrMain }
TfrMain = class(TForm)
acBack: TAction;
acForward: TAction;
acGo: TAction;
alMain: TActionList;
btGo: TSpeedButton;
edUrl: TEdit;
IpHtmlPanel1: TIpHtmlPanel;
IpHttpDataProvider1: TIpHttpDataProvider;
pnTop: TPanel;
btBack: TSpeedButton;
btForward: TSpeedButton;
procedure acBackExecute(Sender: TObject);
procedure acForwardExecute(Sender: TObject);
procedure acGoExecute(Sender: TObject);
procedure alMainUpdate(AAction: TBasicAction; var Handled: Boolean);
procedure IpHtmlPanel1DocumentOpen(Sender: TObject);
end;
var
frMain: TfrMain;
implementation
{$R *.lfm}
{ TfrMain }
procedure TfrMain.IpHtmlPanel1DocumentOpen(Sender: TObject);
begin
edUrl.Text := IpHtmlPanel1.CurURL;
end;
procedure TfrMain.alMainUpdate(AAction: TBasicAction; var Handled: Boolean);
begin
acBack.Enabled := IpHtmlPanel1.CanGoBack;
acForward.Enabled := IpHtmlPanel1.CanGoForward;
acGo.Enabled := Trim(edUrl.Text) <> '';
end;
procedure TfrMain.acBackExecute(Sender: TObject);
begin
IpHtmlPanel1.GoBack;
end;
procedure TfrMain.acForwardExecute(Sender: TObject);
begin
IpHtmlPanel1.GoForward;
end;
procedure TfrMain.acGoExecute(Sender: TObject);
begin
IpHtmlPanel1.OpenURL(edUrl.Text);
end;
end.

14
components/turbopower_ipro/examples/sum.html Normal file
View File

@ -0,0 +1,14 @@
<!DOCTYPE HTML>
<html lang="en-US">
<head>
<meta charset="UTF-8">
<title>Sum</title>
</head>
<body>
<form method="post">
Value A: <input id="a" type="text" value="10" style="background-color: #ffff96;"/><br />
Value B: <input id="b" type="text" value="20" style="background-color: #ffff96;"/><br />
<input type="submit" value="Sum" />
</form>
</body>
</html>

90
components/turbopower_ipro/examples/sumab.lpi Normal file
View File

@ -0,0 +1,90 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<Title Value="sumab"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1" Active="Default">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="TurboPowerIPro"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="sumab.lpr"/>
<IsPartOfProject Value="True"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="sumabfrm.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="sumab"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

19
components/turbopower_ipro/examples/sumab.lpr Normal file
View File

@ -0,0 +1,19 @@
program sumab;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, Forms, sumabfrm;
{$R *.res}
begin
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

33
components/turbopower_ipro/examples/sumabfrm.lfm Normal file
View File

@ -0,0 +1,33 @@
object Form1: TForm1
Left = 237
Height = 240
Top = 144
Width = 320
Caption = 'Sum A+B'
ClientHeight = 240
ClientWidth = 320
OnShow = FormShow
LCLVersion = '1.7'
object IpHtmlPanel1: TIpHtmlPanel
Left = 0
Height = 240
Top = 0
Width = 320
Align = alClient
DataProvider = IpFileDataProvider1
FixedTypeface = 'Courier New'
DefaultTypeFace = 'default'
DefaultFontSize = 12
FlagErrors = False
PrintSettings.MarginLeft = 0.5
PrintSettings.MarginTop = 0.5
PrintSettings.MarginRight = 0.5
PrintSettings.MarginBottom = 0.5
TabOrder = 0
OnControlClick2 = IpHtmlPanel1ControlClick2
end
object IpFileDataProvider1: TIpFileDataProvider
left = 56
top = 23
end
end

51
components/turbopower_ipro/examples/sumabfrm.pas Normal file
View File

@ -0,0 +1,51 @@
unit sumabfrm;
{$mode objfpc}{$H+}
{$MODESWITCH NESTEDPROCVARS}
interface
uses
Classes, SysUtils, Ipfilebroker, IpHtml, Forms, Dialogs;
type
{ TForm1 }
TForm1 = class(TForm)
IpFileDataProvider1: TIpFileDataProvider;
IpHtmlPanel1: TIpHtmlPanel;
procedure FormShow(Sender: TObject);
procedure IpHtmlPanel1ControlClick2(Sender: TIpHtmlCustomPanel;
Frame: TIpHtmlFrame; Html: TIpHtml; Node: TIpHtmlNodeControl;
var cancel: boolean);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormShow(Sender: TObject);
begin
IpHtmlPanel1.OpenURL(
ExpandLocalHtmlFileName(ExtractFilePath(ParamStr(0)) + 'sum.html'));
end;
procedure TForm1.IpHtmlPanel1ControlClick2(Sender: TIpHtmlCustomPanel;
Frame: TIpHtmlFrame; Html: TIpHtml; Node: TIpHtmlNodeControl;
var cancel: boolean);
var
A, B: TIpHtmlNodeINPUT;
begin
A := FindNodeByElemId(Html.HtmlNode, 'a') as TIpHtmlNodeINPUT;
B := FindNodeByElemId(Html.HtmlNode, 'b') as TIpHtmlNodeINPUT;
ShowMessageFmt('Sum: %d', [StrToInt(A.Value) + StrToInt(B.Value)]);
end;
end.

3
components/turbopower_ipro/icons_list.txt Normal file
View File

@ -0,0 +1,3 @@
tipfiledataprovider.png
tiphtmlpanel.png
tiphttpdataprovider.png

1
components/turbopower_ipro/ipdefine.inc
View File

@ -47,6 +47,7 @@
{$DEFINE VERSION5} {$DEFINE VERSION5}
{$DEFINE Version6OrHigher} {$DEFINE Version6OrHigher}
{$DEFINE Version7OrHigher} {$DEFINE Version7OrHigher}
{$MODESWITCH NESTEDPROCVARS}
{$ELSE} {$ELSE}

113
components/turbopower_ipro/iphtml.pas
View File

@ -2656,6 +2656,8 @@ type
property FlagErrors; property FlagErrors;
end; end;
TIdFindNodeCriteria = function(ACurrNode: TIpHtmlNodeCore): Boolean is nested;
const const
NAnchorChar = #3 ; {character used to represent an Anchor } NAnchorChar = #3 ; {character used to represent an Anchor }
var var
@ -2683,6 +2685,9 @@ function dbgs(et: TElementType): string; overload;
function GetNextSiblingNode(ANode: TIpHtmlNode): TIpHtmlNode; function GetNextSiblingNode(ANode: TIpHtmlNode): TIpHtmlNode;
function GetPrevSiblingNode(ANode: TIpHtmlNode): TIpHtmlNode; function GetPrevSiblingNode(ANode: TIpHtmlNode): TIpHtmlNode;
function GetParentNodeOfClass(ANode: TIpHtmlNode; AClass: TIpHtmlNodeClass): TIpHtmlNode; function GetParentNodeOfClass(ANode: TIpHtmlNode; AClass: TIpHtmlNodeClass): TIpHtmlNode;
function FindNode(ANode: TIpHtmlNode; ACriteria: TIdFindNodeCriteria): TIpHtmlNodeCore;
function FindNodeByElemId(ANode: TIpHtmlNode; const AElemId: string): TIpHtmlNodeCore;
function FindNodeByElemClass(ANode: TIpHtmlNode; const AElemClass: string): TIpHtmlNodeCore;
procedure Register; procedure Register;
@ -2876,6 +2881,58 @@ begin
Result := Result.FParentNode; Result := Result.FParentNode;
end; end;
function FindNode(ANode: TIpHtmlNode; ACriteria: TIdFindNodeCriteria): TIpHtmlNodeCore;
var
I: Integer;
VNode: TIpHtmlNodeMulti;
VPrevNode, VNextNode: TIpHtmlNode;
begin
if not Assigned(ANode) or not (ANode is TIpHtmlNodeMulti) then
Exit(nil);
VNode := ANode as TIpHtmlNodeMulti;
if VNode.ChildCount < 1 then
Exit(nil);
for I := 0 to Pred(VNode.ChildCount) do
begin
VPrevNode := VNode.ChildNode[I];
VNextNode := FindNode(VPrevNode, ACriteria);
if not Assigned(VNextNode) then
VNextNode := VPrevNode;
if VNextNode is TIpHtmlNodeCore then
begin
Result := VNextNode as TIpHtmlNodeCore;
if ACriteria(Result) then
Exit;
end;
end;
Result := nil;
end;
function FindNodeByElemId(ANode: TIpHtmlNode; const AElemId: string): TIpHtmlNodeCore;
function Criteria(ACurrNode: TIpHtmlNodeCore): Boolean;
begin
if ACurrNode.Id = AElemId then
Exit(True);
Result := False;
end;
begin
Result := FindNode(ANode, Criteria);
end;
function FindNodeByElemClass(ANode: TIpHtmlNode; const AElemClass: string): TIpHtmlNodeCore;
function Criteria(ACurrNode: TIpHtmlNodeCore): Boolean;
begin
if ACurrNode.ClassId = AElemClass then
Exit(True);
Result := False;
end;
begin
Result := FindNode(ANode, Criteria);
end;
procedure Register; procedure Register;
begin begin
@ -7865,12 +7922,12 @@ end;
function TIpHtml.getControlCount:integer; function TIpHtml.getControlCount:integer;
begin begin
result := FControlList.Count; result := FControlList.Count;
end; end;
function TIpHtml.getControl(i:integer):TIpHtmlNode; function TIpHtml.getControl(i:integer):TIpHtmlNode;
begin begin
result := FControlList[i]; result := FControlList[i];
end; end;
procedure TIpHtml.PaintSelection; procedure TIpHtml.PaintSelection;
@ -11344,19 +11401,19 @@ var
procedure setCommonProperties; procedure setCommonProperties;
begin begin
FControl.Visible := False; FControl.Parent := Parent;
FControl.Parent := Parent; FControl.Visible := False;
adjustFromCss; AdjustFromCss;
aCanvas.Font.Size := FControl.Font.Size; aCanvas.Font.Size := FControl.Font.Size;
end; end;
procedure setWidhtHeight(iSize, iTopPlus, iSidePlus: integer); procedure SetWidthHeight(iSize, iTopPlus, iSidePlus: integer);
begin begin
if iSize <> -1 then if iSize <> -1 then
FControl.Width := iSize * aCanvas.TextWidth('0') + iSidePlus FControl.Width := iSize * aCanvas.TextWidth('0') + iSidePlus
else else
FControl.Width := 20 * aCanvas.TextWidth('0') + iSidePlus; FControl.Width := 20 * aCanvas.TextWidth('0') + iSidePlus;
FControl.Height := aCanvas.TextHeight('Wy') + iTopPlus; FControl.Height := aCanvas.TextHeight('Wy') + iTopPlus;
end; end;
begin begin
@ -11369,9 +11426,10 @@ begin
FControl := TEdit.Create(Parent); FControl := TEdit.Create(Parent);
setCommonProperties; setCommonProperties;
with TEdit(FControl) do begin with TEdit(FControl) do begin
Color := Brush.Color;
Text := Value; Text := Value;
MaxLength := Self.MaxLength; MaxLength := Self.MaxLength;
setWidhtHeight(Self.Size, 8, 0); SetWidthHeight(Self.Size, 8, 0);
Enabled := not Self.Disabled; Enabled := not Self.Disabled;
ReadOnly := Self.ReadOnly; ReadOnly := Self.ReadOnly;
OnChange := ButtonClick; OnChange := ButtonClick;
@ -11383,9 +11441,10 @@ begin
FControl := TEdit.Create(Parent); FControl := TEdit.Create(Parent);
setCommonProperties; setCommonProperties;
with TEdit(FControl) do begin with TEdit(FControl) do begin
Color := Brush.Color;
Text := Value; Text := Value;
MaxLength := Self.MaxLength; MaxLength := Self.MaxLength;
setWidhtHeight(1, 8, 0); SetWidthHeight(Self.Size, 8, 0);
Enabled := not Self.Disabled; Enabled := not Self.Disabled;
ReadOnly := Self.ReadOnly; ReadOnly := Self.ReadOnly;
PasswordChar := '*'; PasswordChar := '*';
@ -11398,7 +11457,8 @@ begin
FControl := TCheckBox.Create(Parent); FControl := TCheckBox.Create(Parent);
setCommonProperties; setCommonProperties;
with TCheckBox(FControl) do begin with TCheckBox(FControl) do begin
setWidhtHeight(1, 8, 0); Color := Brush.Color;
SetWidthHeight(1, 8, 0);
Checked := Self.Checked; Checked := Self.Checked;
Enabled := not Self.Disabled and not Self.Readonly; Enabled := not Self.Disabled and not Self.Readonly;
OnClick := ButtonClick; OnClick := ButtonClick;
@ -11419,7 +11479,8 @@ begin
{$ELSE} {$ELSE}
with THtmlRadioButton(FControl) do begin with THtmlRadioButton(FControl) do begin
{$ENDIF} {$ENDIF}
setWidhtHeight(1, 8, 0); Color := Brush.Color;
SetWidthHeight(1, 8, 0);
Checked := Self.Checked; Checked := Self.Checked;
Enabled := not Self.Disabled and not Self.Readonly; Enabled := not Self.Disabled and not Self.Readonly;
OnClick := ButtonClick; OnClick := ButtonClick;
@ -11435,6 +11496,7 @@ begin
Caption := Self.Value Caption := Self.Value
else else
Caption := SHtmlDefSubmitCaption; Caption := SHtmlDefSubmitCaption;
Color := Brush.Color;
Width := aCanvas.TextWidth(Caption) + 40; Width := aCanvas.TextWidth(Caption) + 40;
Height := aCanvas.TextHeight(Caption) + 10; Height := aCanvas.TextHeight(Caption) + 10;
Enabled := not Self.Disabled and not Self.Readonly; Enabled := not Self.Disabled and not Self.Readonly;
@ -11450,6 +11512,7 @@ begin
Caption := Self.Value Caption := Self.Value
else else
Caption := SHtmlDefResetCaption; Caption := SHtmlDefResetCaption;
Color := Brush.Color;
Width := aCanvas.TextWidth(Caption) + 40; Width := aCanvas.TextWidth(Caption) + 40;
Height := aCanvas.TextHeight(Caption) + 10; Height := aCanvas.TextHeight(Caption) + 10;
Enabled := not Self.Disabled and not Self.Readonly; Enabled := not Self.Disabled and not Self.Readonly;
@ -11481,6 +11544,7 @@ begin
FFileEdit := TEdit.Create(Parent); FFileEdit := TEdit.Create(Parent);
with FFileEdit do begin with FFileEdit do begin
Parent := FControl; Parent := FControl;
Color := Brush.Color;
Left := 1; Left := 1;
Top := 1; Top := 1;
Width := FControl.Width - FFileSelect.Width; Width := FControl.Width - FFileSelect.Width;
@ -11535,18 +11599,10 @@ begin
end; end;
} }
inherited; inherited;
{$IFDEF VERSION3ONLY} if (Props.BgColor <> -1) and (
if FControl is TRadioButton then begin (FControl is {$IFDEF VERSION3ONLY}TRadioButton{$ELSE}THtmlRadioButton{$ENDIF}) or
{$ELSE} (FControl is TCustomEdit)) then
if FControl is THtmlRadioButton then begin FControl.Color := Props.BgColor;
{$ENDIF}
if Props.BgColor <> -1 then
{$IFDEF VERSION3ONLY}
TRadioButton(FControl).Color := Props.BgColor;
{$ELSE}
THtmlRadioButton(FControl).Color := Props.BgColor;
{$ENDIF}
end;
end; end;
procedure TIpHtmlNodeINPUT.ImageChange(NewPicture: TPicture); procedure TIpHtmlNodeINPUT.ImageChange(NewPicture: TPicture);
@ -11684,6 +11740,7 @@ constructor TIpHtmlNodeINPUT.Create(ParentNode: TIpHtmlNode);
begin begin
inherited; inherited;
FElementName := 'input'; FElementName := 'input';
Props.BgColor := clWhite;
end; end;
destructor TIpHtmlNodeINPUT.Destroy; destructor TIpHtmlNodeINPUT.Destroy;

BIN
components/turbopower_ipro/iphtml.res
View File

Binary file not shown.

191
components/turbopower_ipro/iphttpbroker.pas Normal file
View File

@ -0,0 +1,191 @@
(* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is TurboPower Internet Professional
*
* The Initial Developer of the Original Code is
* TurboPower Software
*
* Portions created by the Initial Developer are Copyright (C) 2000-2002
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
*
* Silvio Clecio - https://github.com/silvioprog
*
* ***** END LICENSE BLOCK ***** *)
(* Part of Ipbroker.pas allowing to use online files Silvio Clecio Jan 2016 *)
unit Iphttpbroker;
{$I ipdefine.inc}
interface
uses
IpFileBroker, FPHttpClient, IpMsg, IpUtils, IpHtml, Graphics, Classes;
type
{ TIpHttpClient }
TIpHttpClient = class(TFPHTTPClient)
end;
{ TIpHttpDataProvider }
TIpHttpDataProvider = class(TIpCustomHtmlDataProvider)
private
FClient: TIpHttpClient;
FDocumment: TMemoryStream;
FContentType: string;
protected
property Documment: TMemoryStream read FDocumment;
property Client: TIpHttpClient read FClient;
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
function GetHtmlStream(const AUrl: string;
APostData: TIpFormDataEntity): TStream; override;
{$IFDEF IP_LAZARUS}
function DoGetStream(const AUrl: string): TStream; override;
{$ENDIF}
function CheckURL(const AUrl: string;
var AContentType: string): Boolean; override;
procedure Leave(AHtml: TIpHtml); override;
procedure Reference(const AUrl: string); override;
procedure GetImage(ASender: TIpHtmlNode; const AUrl: string;
var APicture: TPicture); override;
function CanHandle(const AUrl: string): Boolean; override;
end;
procedure Register;
implementation
{ TIpHttpDataProvider }
constructor TIpHttpDataProvider.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FClient := TIpHttpClient.Create(nil);
FDocumment := TMemoryStream.Create;
HandledProtocols.Add('HTTP');
FClient.ResponseHeaders.NameValueSeparator := ':';
{$IF FPC_FULLVERSION > 30000}
FClient.AllowRedirect := True;
FClient.MaxRedirects := High(Byte);
{$ENDIF}
end;
destructor TIpHttpDataProvider.Destroy;
begin
FDocumment.Free;
FClient.Free;
inherited Destroy;
end;
function TIpHttpDataProvider.GetHtmlStream(const AUrl: string;
APostData: TIpFormDataEntity): TStream;
begin
Result := TMemoryStream.Create;
Result.CopyFrom(FDocumment, 0);
Result.Seek(0, soFromBeginning);
end;
{$IFDEF IP_LAZARUS}
function TIpHttpDataProvider.DoGetStream(const AUrl: string): TStream;
begin
Result := TMemoryStream.Create;
Result.CopyFrom(FDocumment, 0);
Result.Seek(0, soFromBeginning);
end;
{$ENDIF}
function TIpHttpDataProvider.CheckURL(const AUrl: string;
var AContentType: string): Boolean;
var
VAddrRec: TIpAddrRec;
begin
{$IFDEF VER2_6}
FillChar(VAddrRec, SizeOf(TIpAddrRec), 0);
{$ELSE}
VAddrRec := Default(TIpAddrRec);
{$ENDIF}
Initialize(VAddrRec);
try
IpParseURL(AUrl, VAddrRec);
FDocumment.Clear;
FClient.Get(AUrl, FDocumment);
Result := (FClient.ResponseStatusCode = 200)
{$IF FPC_FULLVERSION > 30000}or FClient.IsRedirect(FClient.ResponseStatusCode){$ENDIF};
if Result then
begin
FContentType := FClient.ResponseHeaders.Values['Content-Type'];
AContentType := FContentType;
end;
finally
Finalize(VAddrRec);
end;
end;
procedure TIpHttpDataProvider.Leave(AHtml: TIpHtml);
begin
inherited Leave(AHtml);
end;
procedure TIpHttpDataProvider.Reference(const AUrl: string);
begin
inherited Reference(AUrl);
end;
procedure TIpHttpDataProvider.GetImage(ASender: TIpHtmlNode;
const AUrl: string; var APicture: TPicture);
var
VImgRaw: TStream;
begin
APicture := nil;
VImgRaw := TMemoryStream.Create;
try
FClient.Get(AUrl, VImgRaw);
if (FClient.ResponseStatusCode = 200) and
(Pos('image/', FClient.ResponseHeaders.Values['Content-Type']) > 0) then
try
VImgRaw.Seek(0, soFromBeginning);
APicture := TPicture.Create;
APicture.LoadFromStream(VImgRaw);
except
on EInvalidGraphic do
begin
APicture.Free;
APicture := nil;
end;
end;
finally
VImgRaw.Free;
end;
end;
function TIpHttpDataProvider.CanHandle(const AUrl: string): Boolean;
begin
Result := Assigned(FDocumment) and ((Pos('text/html', FContentType) > 0) or
(Pos('image/', FContentType) > 0));
end;
procedure Register;
begin
RegisterComponents('IPro', [TIpHttpDataProvider]);
end;
end.

1
components/turbopower_ipro/make_icons.bat Normal file
View File

@ -0,0 +1 @@
..\..\tools\lazres.exe iphtml.res @icons_list.txt

BIN
components/turbopower_ipro/tiphttpdataprovider.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 913 B

49
components/turbopower_ipro/turbopoweripro.lpk
View File

@ -25,7 +25,7 @@
<License Value="MPL - Mozilla public license <License Value="MPL - Mozilla public license
"/> "/>
<Version Major="1"/> <Version Major="1"/>
<Files Count="16"> <Files Count="17">
<Item1> <Item1>
<Filename Value="ipanim.pas"/> <Filename Value="ipanim.pas"/>
<UnitName Value="IpAnim"/> <UnitName Value="IpAnim"/>
@ -48,51 +48,56 @@
<UnitName Value="Ipfilebroker"/> <UnitName Value="Ipfilebroker"/>
</Item5> </Item5>
<Item6> <Item6>
<Filename Value="iphttpbroker.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="iphttpbroker"/>
</Item6>
<Item7>
<Filename Value="iphtml.pas"/> <Filename Value="iphtml.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
<UnitName Value="IpHtml"/> <UnitName Value="IpHtml"/>
</Item6> </Item7>
<Item7> <Item8>
<Filename Value="iphtmlpv.pas"/> <Filename Value="iphtmlpv.pas"/>
<AddToUsesPkgSection Value="False"/> <AddToUsesPkgSection Value="False"/>
<UnitName Value="IpHtmlPv"/> <UnitName Value="IpHtmlPv"/>
</Item7>
<Item8>
<Filename Value="ipmsg.pas"/>
<UnitName Value="IpMsg"/>
</Item8> </Item8>
<Item9> <Item9>
<Filename Value="ipstrms.pas"/> <Filename Value="ipmsg.pas"/>
<UnitName Value="IpStrms"/> <UnitName Value="IpMsg"/>
</Item9> </Item9>
<Item10> <Item10>
<Filename Value="iputils.pas"/> <Filename Value="ipstrms.pas"/>
<UnitName Value="IpUtils"/> <UnitName Value="IpStrms"/>
</Item10> </Item10>
<Item11> <Item11>
<Filename Value="ipcss.inc"/> <Filename Value="iputils.pas"/>
<Type Value="Include"/> <UnitName Value="IpUtils"/>
</Item11> </Item11>
<Item12> <Item12>
<Filename Value="iphtmltablist.pas"/> <Filename Value="ipcss.inc"/>
<UnitName Value="IpHtmlTabList"/> <Type Value="Include"/>
</Item12> </Item12>
<Item13> <Item13>
<Filename Value="iphtmlprop.pas"/> <Filename Value="iphtmltablist.pas"/>
<UnitName Value="iphtmlprop"/> <UnitName Value="IpHtmlTabList"/>
</Item13> </Item13>
<Item14> <Item14>
<Filename Value="iphtmlblocklayout.pas"/> <Filename Value="iphtmlprop.pas"/>
<UnitName Value="ipHtmlBlockLayout"/> <UnitName Value="iphtmlprop"/>
</Item14> </Item14>
<Item15> <Item15>
<Filename Value="iphtmltablelayout.pas"/> <Filename Value="iphtmlblocklayout.pas"/>
<UnitName Value="ipHtmlTableLayout"/> <UnitName Value="ipHtmlBlockLayout"/>
</Item15> </Item15>
<Item16> <Item16>
<Filename Value="iphtmltablelayout.pas"/>
<UnitName Value="ipHtmlTableLayout"/>
</Item16>
<Item17>
<Filename Value="iphtmlgenerated.inc"/> <Filename Value="iphtmlgenerated.inc"/>
<Type Value="Binary"/> <Type Value="Binary"/>
</Item16> </Item17>
</Files> </Files>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>

5
components/turbopower_ipro/turbopoweripro.pas
View File

@ -7,8 +7,8 @@ unit TurboPowerIPro;
interface interface
uses uses
IpAnim, IpConst, Ipfilebroker, IpHtml, IpMsg, IpStrms, IpUtils, IpAnim, IpConst, Ipfilebroker, Iphttpbroker, IpHtml, IpMsg, IpStrms,
IpHtmlTabList, iphtmlprop, ipHtmlBlockLayout, ipHtmlTableLayout, IpUtils, IpHtmlTabList, iphtmlprop, ipHtmlBlockLayout, ipHtmlTableLayout,
LazarusPackageIntf; LazarusPackageIntf;
implementation implementation
@ -16,6 +16,7 @@ implementation
procedure Register; procedure Register;
begin begin
RegisterUnit('Ipfilebroker', @Ipfilebroker.Register); RegisterUnit('Ipfilebroker', @Ipfilebroker.Register);
RegisterUnit('Iphttpbroker', @Iphttpbroker.Register);
RegisterUnit('IpHtml', @IpHtml.Register); RegisterUnit('IpHtml', @IpHtml.Register);
end; end;