paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-08 15:25:59 +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"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
@ -50,9 +49,10 @@
<ComponentName Value="frMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<CursorPos X="20" Y="16"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
</Units>
</ProjectOptions>

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

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

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

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

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

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

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

@ -80,7 +80,7 @@ implementation
{$R defaultimage.res}
uses
IpUtils;
IpUtils, LazFileUtils;
{--------------------------------------}
{-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>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="HtmFileExplorer1"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -53,8 +55,13 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -62,8 +69,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</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>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="HtmFileExplorer2"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -53,8 +55,13 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -62,8 +69,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>