paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 10:40:24 +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"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="31"/>
<CursorPos X="53" Y="45"/>
<CursorPos X="30" Y="9"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -72,6 +71,7 @@
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>

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

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

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

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, Iphttpbroker, IpHtml, Forms, Buttons, ExtCtrls, StdCtrls,
ActnList;
ActnList, opensslsockets;
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'
ClientHeight = 567
ClientWidth = 777
LCLVersion = '3.99.0.0'
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '2.3.0.0'
object IpHtmlPanel1: TIpHtmlPanel
Left = 0
Height = 525
@ -170,8 +170,8 @@ object FHtmFileExp1: TFHtmFileExp1
Width = 152
BorderSpacing.InnerBorder = 4
Caption = 'Open HTML File'
OnClick = B_OpenHTMLFileClick
TabOrder = 0
OnClick = B_OpenHTMLFileClick
end
end
object OpenDialog1: TOpenDialog

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

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

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

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

4
components/turbopower_ipro/iphtmlpv.pas
View File

@ -39,9 +39,9 @@ unit IpHtmlPv;
interface
uses
Types, Classes, SysUtils,
Classes, SysUtils,
// LCL
LCLIntf, GraphType, Buttons, Messages, Graphics, Controls, Forms,
LCLIntf, LCLType, GraphType, Buttons, Messages, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Spin,
// TurboPower_ipro
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'
ClientHeight = 327
ClientWidth = 569
LCLVersion = '3.99.0.0'
OnCreate = MainFormCreate
LCLVersion = '2.3.0.0'
object IpHtmlPanel1: TIpHtmlPanel
Left = 0
Height = 285
@ -48,8 +48,8 @@ object MainForm: TMainForm
Width = 152
BorderSpacing.InnerBorder = 4
Caption = 'Open HTML File'
OnClick = OpenHTMLFileButtonClick
TabOrder = 0
OnClick = OpenHTMLFileButtonClick
end
object Button1: TButton
Left = 192
@ -58,8 +58,8 @@ object MainForm: TMainForm
Width = 75
BorderSpacing.InnerBorder = 4
Caption = 'Preview'
OnClick = Button1Click
TabOrder = 1
OnClick = Button1Click
end
end
object OpenDialog1: TOpenDialog

4
examples/turbopower_ipro/mainunit.pas
View File

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