paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-15 00:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_iPro: Fix compilation of examples (EnableWrapperFunctions)

Browse Source 
git-svn-id: trunk@52556 -
This commit is contained in:
wp 2016-06-22 13:25:24 +00:00
parent 9e4e6e88b3
commit 83e3060067
7 changed files with 55 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/turbopower_ipro/examples/browser.lpi
View File

@ -11,7 +11,6 @@
<Title Value="browser"/> <Title Value="browser"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/>
</General> </General>
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
@ -50,9 +49,10 @@
<ComponentName Value="frMain"/> <ComponentName Value="frMain"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <CursorPos X="20" Y="16"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>

37
components/turbopower_ipro/examples/htmfileexp1.lfm
View File

@ -1,43 +1,51 @@
object FHtmFileExp1: TFHtmFileExp1 object FHtmFileExp1: TFHtmFileExp1
Left = 454 Left = 312
Height = 327 Height = 567
Top = 373 Top = 217
Width = 569 Width = 777
ActiveControl = B_OpenHTMLFile ActiveControl = B_OpenHTMLFile
Caption = 'Example 1 for turbopower: HTM File Explorer' Caption = 'Example 1 for turbopower: HTM File Explorer'
ClientHeight = 327 ClientHeight = 567
ClientWidth = 569 ClientWidth = 777
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '0.9.25' LCLVersion = '1.7'
object IpHtmlPanel1: TIpHtmlPanel object IpHtmlPanel1: TIpHtmlPanel
Height = 285 Left = 0
Height = 525
Top = 42 Top = 42
Width = 569 Width = 777
Align = alClient Align = alClient
FixedTypeface = 'Courier New' FixedTypeface = 'Courier New'
DefaultTypeFace = 'default' DefaultTypeFace = 'default'
DefaultFontSize = 12 DefaultFontSize = 12
FactBAParag = 0.5 FactBAParag = 0.5
FlagErrors = False
PrintSettings.MarginLeft = 0.5 PrintSettings.MarginLeft = 0.5
PrintSettings.MarginTop = 0.5 PrintSettings.MarginTop = 0.5
PrintSettings.MarginRight = 0.5 PrintSettings.MarginRight = 0.5
PrintSettings.MarginBottom = 0.5 PrintSettings.MarginBottom = 0.5
PrintSettings.Preview.Left = 480
PrintSettings.Preview.Top = 270
PrintSettings.Preview.Width = 1440
PrintSettings.Preview.Height = 810
TabOrder = 1
OnHotClick = IpHtmlPanel1HotClick OnHotClick = IpHtmlPanel1HotClick
end end
object P_Top: TPanel object P_Top: TPanel
Left = 0
Height = 42 Height = 42
Width = 569 Top = 0
Width = 777
Align = alTop Align = alTop
ClientHeight = 42 ClientHeight = 42
ClientWidth = 569 ClientWidth = 777
TabOrder = 0 TabOrder = 0
object SB_GoBackward: TSpeedButton object SB_GoBackward: TSpeedButton
Left = 176 Left = 176
Height = 25 Height = 25
Top = 8 Top = 8
Width = 25 Width = 25
Color = clBtnFace
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36060000424D3606000000000000360400002800000020000000100000000100 36060000424D3606000000000000360400002800000020000000100000000100
@ -99,7 +107,6 @@ object FHtmFileExp1: TFHtmFileExp1
Height = 25 Height = 25
Top = 8 Top = 8
Width = 25 Width = 25
Color = clBtnFace
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36060000424D3606000000000000360400002800000020000000100000000100 36060000424D3606000000000000360400002800000020000000100000000100
@ -170,7 +177,7 @@ object FHtmFileExp1: TFHtmFileExp1
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog
Filter = 'Web Pages|*.html;*.htm' Filter = 'Web Pages|*.html;*.htm'
FilterIndex = 0 FilterIndex = 0
left = 26 left = 48
top = 93 top = 80
end end
end end

3
components/turbopower_ipro/examples/htmfileexp1.pas
View File

@ -67,6 +67,9 @@ function ProgramDirectory(BundleRoot: boolean): string;
implementation implementation
uses
LazFileUtils, LazUTF8;
{$R htmfileexp1.lfm} {$R htmfileexp1.lfm}
{$R defaultimage.res} {$R defaultimage.res}

6
components/turbopower_ipro/examples/htmfileexp2.lfm
View File

@ -8,9 +8,11 @@ object FHtmFileExp2: TFHtmFileExp2
ClientHeight = 327 ClientHeight = 327
ClientWidth = 569 ClientWidth = 569
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.25' LCLVersion = '1.7'
object P_Top: TPanel object P_Top: TPanel
Left = 0
Height = 42 Height = 42
Top = 0
Width = 569 Width = 569
Align = alTop Align = alTop
ClientHeight = 42 ClientHeight = 42
@ -21,7 +23,6 @@ object FHtmFileExp2: TFHtmFileExp2
Height = 25 Height = 25
Top = 8 Top = 8
Width = 25 Width = 25
Color = clBtnFace
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36060000424D3606000000000000360400002800000020000000100000000100 36060000424D3606000000000000360400002800000020000000100000000100
@ -83,7 +84,6 @@ object FHtmFileExp2: TFHtmFileExp2
Height = 25 Height = 25
Top = 8 Top = 8
Width = 25 Width = 25
Color = clBtnFace
Enabled = False Enabled = False
Glyph.Data = { Glyph.Data = {
36060000424D3606000000000000360400002800000020000000100000000100 36060000424D3606000000000000360400002800000020000000100000000100

2
components/turbopower_ipro/examples/htmfileexp2.pas
View File

@ -80,7 +80,7 @@ implementation
{$R defaultimage.res} {$R defaultimage.res}
uses uses
IpUtils; IpUtils, LazFileUtils;
{--------------------------------------} {--------------------------------------}
{-PRIVATE----------} {-PRIVATE----------}

20
components/turbopower_ipro/examples/htmfileexplorer1.lpi
View File

@ -1,20 +1,22 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="7"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="HtmFileExplorer1"/> <Title Value="HtmFileExplorer1"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -53,8 +55,13 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -62,8 +69,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

20
components/turbopower_ipro/examples/htmfileexplorer2.lpi
View File

@ -1,20 +1,22 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="7"/>
<General> <General>
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="HtmFileExplorer2"/> <Title Value="HtmFileExplorer2"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -53,8 +55,13 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -62,8 +69,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>