paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 10:03:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_Ipro: fix compilation of sample projects for printpreview support.

Browse Source
This commit is contained in:
wp_xyz 2023-12-22 13:57:47 +01:00
parent 73ebfa7da7
commit 4feb9205c3
9 changed files with 31 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,8 +52,7 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="31"/> <CursorPos X="30" Y="9"/>
<CursorPos X="53" Y="45"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -72,6 +71,7 @@
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging> <Debugging>
<DebugInfoType Value="dsDwarf3"/>
<UseExternalDbgSyms Value="True"/> <UseExternalDbgSyms Value="True"/>
</Debugging> </Debugging>
<Options> <Options>

18
components/turbopower_ipro/examples/browserfrm.lfm
View File

@ -6,7 +6,7 @@ object frMain: TfrMain
Caption = 'IPro browser' Caption = 'IPro browser'
ClientHeight = 314 ClientHeight = 314
ClientWidth = 591 ClientWidth = 591
LCLVersion = '1.7' LCLVersion = '3.99.0.0'
object pnTop: TPanel object pnTop: TPanel
Left = 0 Left = 0
Height = 42 Height = 42
@ -153,7 +153,7 @@ object frMain: TfrMain
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ParentBidiMode = False ParentBidiMode = False
TabOrder = 0 TabOrder = 0
Text = 'http://freepascal.org/' Text = 'https://freepascal.org/'
end end
object btGo: TSpeedButton object btGo: TSpeedButton
Left = 546 Left = 546
@ -181,17 +181,21 @@ object frMain: TfrMain
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 = 640
PrintSettings.Preview.Top = 270
PrintSettings.Preview.Width = 1920
PrintSettings.Preview.Height = 810
TabOrder = 1 TabOrder = 1
OnDocumentOpen = IpHtmlPanel1DocumentOpen OnDocumentOpen = IpHtmlPanel1DocumentOpen
end end
object IpHttpDataProvider1: TIpHttpDataProvider object IpHttpDataProvider1: TIpHttpDataProvider
left = 64 Left = 64
top = 64 Top = 64
end end
object alMain: TActionList object alMain: TActionList
OnUpdate = alMainUpdate OnUpdate = alMainUpdate
left = 160 Left = 160
top = 64 Top = 64
object acBack: TAction object acBack: TAction
Category = 'Browser' Category = 'Browser'
Enabled = False Enabled = False
@ -205,8 +209,8 @@ object frMain: TfrMain
object acGo: TAction object acGo: TAction
Category = 'Browser' Category = 'Browser'
Caption = 'Go!' Caption = 'Go!'
OnExecute = acGoExecute
ShortCut = 13 ShortCut = 13
OnExecute = acGoExecute
end end
end end
end end

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

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, Iphttpbroker, IpHtml, Forms, Buttons, ExtCtrls, StdCtrls, Classes, SysUtils, Iphttpbroker, IpHtml, Forms, Buttons, ExtCtrls, StdCtrls,
ActnList; ActnList, opensslsockets;
type type

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

@ -7,9 +7,9 @@ object FHtmFileExp1: TFHtmFileExp1
Caption = 'Example 1 for turbopower: HTM File Explorer' Caption = 'Example 1 for turbopower: HTM File Explorer'
ClientHeight = 567 ClientHeight = 567
ClientWidth = 777 ClientWidth = 777
LCLVersion = '3.99.0.0'
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '2.3.0.0'
object IpHtmlPanel1: TIpHtmlPanel object IpHtmlPanel1: TIpHtmlPanel
Left = 0 Left = 0
Height = 525 Height = 525
@ -170,8 +170,8 @@ object FHtmFileExp1: TFHtmFileExp1
Width = 152 Width = 152
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Open HTML File' Caption = 'Open HTML File'
OnClick = B_OpenHTMLFileClick
TabOrder = 0 TabOrder = 0
OnClick = B_OpenHTMLFileClick
end end
end end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog

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

@ -2,7 +2,10 @@ unit HtmFileExp1;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{.$define UsePreview} {$DEFINE HTML_Print}
{$IFDEF HTML_Print}
{$define UsePreview}
{$ENDIF}
interface interface

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

@ -69,6 +69,9 @@
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

4
components/turbopower_ipro/iphtmlpv.pas
View File

@ -39,9 +39,9 @@ unit IpHtmlPv;
interface interface
uses uses
Types, Classes, SysUtils, Classes, SysUtils,
// LCL // LCL
LCLIntf, GraphType, Buttons, Messages, Graphics, Controls, Forms, LCLIntf, LCLType, GraphType, Buttons, Messages, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Spin, Dialogs, StdCtrls, ExtCtrls, Spin,
// TurboPower_ipro // TurboPower_ipro
IpHtml, IpConst, IpHtmlTypes; IpHtml, IpConst, IpHtmlTypes;

6
examples/turbopower_ipro/mainunit.lfm
View File

@ -9,8 +9,8 @@ object MainForm: TMainForm
Caption = 'Example for turbopower internet pro HTML control' Caption = 'Example for turbopower internet pro HTML control'
ClientHeight = 327 ClientHeight = 327
ClientWidth = 569 ClientWidth = 569
LCLVersion = '3.99.0.0'
OnCreate = MainFormCreate OnCreate = MainFormCreate
LCLVersion = '2.3.0.0'
object IpHtmlPanel1: TIpHtmlPanel object IpHtmlPanel1: TIpHtmlPanel
Left = 0 Left = 0
Height = 285 Height = 285
@ -48,8 +48,8 @@ object MainForm: TMainForm
Width = 152 Width = 152
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Open HTML File' Caption = 'Open HTML File'
OnClick = OpenHTMLFileButtonClick
TabOrder = 0 TabOrder = 0
OnClick = OpenHTMLFileButtonClick
end end
object Button1: TButton object Button1: TButton
Left = 192 Left = 192
@ -58,8 +58,8 @@ object MainForm: TMainForm
Width = 75 Width = 75
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Preview' Caption = 'Preview'
OnClick = Button1Click
TabOrder = 1 TabOrder = 1
OnClick = Button1Click
end end
end end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog

4
examples/turbopower_ipro/mainunit.pas
View File

@ -2,7 +2,9 @@ unit MainUnit;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$define UsePreview} {$if defined(Html_Print)}
{$define UsePreview}
{$endif}
interface interface