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

Turbopower_ipro: Fix compilation of some IpHtmlPanel sample projects.

Browse Source
This commit is contained in:
wp_xyz 2023-03-24 23:40:56 +01:00
parent ebf6768e85
commit 9ee0ad85fa
16 changed files with 42 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,8 +51,9 @@
<ComponentName Value="frMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<TopLine Value="31"/>
<CursorPos X="36" Y="14"/>
<CursorPos X="53" Y="45"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

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

@ -9,7 +9,7 @@ object FHtmFileExp1: TFHtmFileExp1
ClientWidth = 777
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '2.1.0.0'
LCLVersion = '2.3.0.0'
object IpHtmlPanel1: TIpHtmlPanel
Left = 0
Height = 525

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

@ -11,7 +11,8 @@ uses
{$ifdef UsePreview}
OsPrinters,
{$endif}
IpUtils, IpHtml, ExtCtrls, StdCtrls, FileUtil;
IpUtils, IpHtml, IpHtmlNodes,
ExtCtrls, StdCtrls, FileUtil;
type
TSimpleIpHtml = class(TIpHtml)

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

@ -8,7 +8,7 @@ object FHtmFileExp2: TFHtmFileExp2
ClientHeight = 327
ClientWidth = 569
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
LCLVersion = '2.3.0.0'
object P_Top: TPanel
Left = 0
Height = 42

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

@ -11,7 +11,7 @@ uses
{$ifdef UsePreview}
OsPrinters,
{$endif}
IpHtml, ExtCtrls, StdCtrls, FileUtil;
IpHtml, IpHtmlNodes, ExtCtrls, StdCtrls, FileUtil;
type
TSimpleIpHtml = class(TIpHtml)

7
components/turbopower_ipro/examples/htmlwithcss.lpi
View File

@ -57,5 +57,12 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</CONFIG>

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

@ -1,12 +1,12 @@
object Form1: TForm1
Left = 291
Height = 300
Height = 424
Top = 167
Width = 400
Width = 739
HorzScrollBar.Page = 401
VertScrollBar.Page = 301
Caption = 'Form1'
OnCreate = FormCreate
LCLVersion = '0.9.31'
LCLVersion = '2.3.0.0'
Visible = True
end

7
components/turbopower_ipro/examples/htmlwithcssfrm.pas
View File

@ -30,7 +30,6 @@ type
const PostData: TIpFormDataEntity; var Stream: TStream);
procedure DataProvider1GetImage(Sender: TIpHtmlNode; const URL: string;
var Picture: TPicture);
procedure DataProvider1Leave(Sender: TIpHtml);
procedure DataProvider1ReportReference(Sender: TObject; const URL: string);
procedure FormCreate(Sender: TObject);
private
@ -79,7 +78,6 @@ begin
OnCanHandle:=@DataProvider1CanHandle;
OnGetHtml:=@DataProvider1GetHtml;
OnGetImage:=@DataProvider1GetImage;
OnLeave:=@DataProvider1Leave;
OnCheckURL:=@DataProvider1CheckURL;
OnReportReference:=@DataProvider1ReportReference;
end;
@ -168,11 +166,6 @@ begin
Picture:=nil;
end;
procedure TForm1.DataProvider1Leave(Sender: TIpHtml);
begin
end;
procedure TForm1.DataProvider1ReportReference(Sender: TObject; const URL: string
);
begin

2
components/turbopower_ipro/examples/sumab.lpi
View File

@ -52,7 +52,7 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<CursorPos X="61" Y="19"/>
<CursorPos X="56" Y="9"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>

10
components/turbopower_ipro/examples/sumabfrm.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 240
ClientWidth = 320
OnShow = FormShow
LCLVersion = '1.7'
LCLVersion = '2.3.0.0'
object IpHtmlPanel1: TIpHtmlPanel
Left = 0
Height = 240
@ -23,11 +23,15 @@ object Form1: TForm1
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 = 0
OnControlClick2 = IpHtmlPanel1ControlClick2
end
object IpFileDataProvider1: TIpFileDataProvider
left = 56
top = 23
Left = 56
Top = 23
end
end

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

@ -6,7 +6,7 @@ unit sumabfrm;
interface
uses
Classes, SysUtils, Ipfilebroker, IpHtml, Forms, Dialogs;
Classes, SysUtils, IpFileBroker, IpHtml, IpHtmlNodes, Forms, Dialogs;
type

8
examples/turbopower_ipro/htmain.lfm
View File

@ -7,7 +7,7 @@ object MainForm: TMainForm
ClientHeight = 660
ClientWidth = 966
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
LCLVersion = '2.3.0.0'
object Panel1: TPanel
Left = 0
Height = 626
@ -106,7 +106,7 @@ object MainForm: TMainForm
Left = 4
Height = 25
Top = 5
Width = 112
Width = 111
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
@ -118,7 +118,7 @@ object MainForm: TMainForm
end
end
object OpenDialog1: TOpenDialog
left = 591
top = 133
Left = 591
Top = 133
end
end

5
examples/turbopower_ipro/htmain.pas
View File

@ -12,8 +12,9 @@ unit htmain;
interface
uses
Classes, SysUtils, FileUtil, IpHtml, Forms, Controls, Graphics, Dialogs,
ExtCtrls, ComCtrls, StdCtrls;
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
ExtCtrls, ComCtrls, StdCtrls,
IpHtml, IpHtmlNodes;
type

2
examples/turbopower_ipro/mainunit.lfm
View File

@ -10,7 +10,7 @@ object MainForm: TMainForm
ClientHeight = 327
ClientWidth = 569
OnCreate = MainFormCreate
LCLVersion = '2.2.0.4'
LCLVersion = '2.3.0.0'
object IpHtmlPanel1: TIpHtmlPanel
Left = 0
Height = 285

2
examples/turbopower_ipro/mainunit.pas
View File

@ -11,7 +11,7 @@ uses
{$ifdef UsePreview}
OsPrinters,
{$endif}
LazFileUtils, LazUTF8, IpHtml;
LazFileUtils, LazUTF8, IpHtml, IpHtmlNodes;
type
TSimpleIpHtml = class(TIpHtml)

7
examples/turbopower_ipro/tpiproexample.lpi
View File

@ -65,5 +65,12 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</CONFIG>