babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
SHDocVw/Example/screenshot.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 120 KiB

93
SHDocVw/Example/wbmain.lfm Normal file
View File

@@ -0,0 +1,93 @@
object Form1: TForm1
Left = 414
Height = 384
Top = 178
Width = 774
Caption = 'TWebBrowser Test'
ClientHeight = 384
ClientWidth = 774
Color = clMenu
OnCreate = FormCreate
LCLVersion = '1.0.10.0'
object Panel1: TPanel
Left = 0
Height = 24
Top = 0
Width = 774
Align = alTop
BevelOuter = bvNone
ClientHeight = 24
ClientWidth = 774
ParentColor = False
TabOrder = 0
object Edit1: TEdit
Left = 0
Height = 24
Top = 0
Width = 279
Align = alLeft
OnKeyDown = Edit1KeyDown
TabOrder = 0
Text = 'http://www.yandex.ru/'
end
object SpeedButton1: TSpeedButton
Left = 279
Height = 24
Top = 0
Width = 23
Align = alLeft
Caption = '>>'
Flat = True
Font.Style = [fsBold]
NumGlyphs = 0
OnClick = Button1Click
ParentFont = False
end
object SpeedButton2: TSpeedButton
Left = 302
Height = 24
Top = 0
Width = 23
Align = alLeft
Caption = '<>'
Flat = True
NumGlyphs = 0
OnClick = SpeedButton2Click
end
end
object Panel2: TPanel
Left = 0
Height = 21
Top = 363
Width = 774
Align = alBottom
BevelOuter = bvNone
ClientHeight = 21
ClientWidth = 774
TabOrder = 1
object Label1: TLabel
Left = 0
Height = 21
Top = 0
Width = 10
Align = alLeft
Caption = '...'
ParentColor = False
end
end
object WebBrowser1: TWebBrowser
Left = 0
Height = 339
Top = 24
Width = 774
Align = alClient
TabOrder = 2
UseDockManager = False
OnResize = WebBrowser1Resize
Active = True
OnStatusTextChange = WebBrowser1StatusTextChange
OnProgressChange = WebBrowser1ProgressChange
OnNavigateError = WebBrowser1NavigateError
OnNewProcess = WebBrowser1NewProcess
end
end

111
SHDocVw/Example/wbmain.pas Normal file
View File

@@ -0,0 +1,111 @@
unit wbmain;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, SHDocVw, activexcontainer, Forms, Controls,
Graphics, Dialogs, StdCtrls, ExtCtrls, Buttons, LCLType;
type
{ TForm1 }
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Panel1: TPanel;
Panel2: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure WebBrowser1NavigateError(Sender: TObject; pDisp: IDispatch;
var URL: OleVariant; var Frame: OleVariant; var StatusCode: OleVariant;
var Cancel: WordBool);
procedure WebBrowser1NewProcess(Sender: TObject; lCauseFlag: Integer;
pWB2: IDispatch; var Cancel: WordBool);
procedure WebBrowser1ProgressChange(Sender: TObject; Progress: Integer;
ProgressMax: Integer);
procedure WebBrowser1Resize(Sender: TObject);
procedure WebBrowser1StatusTextChange(Sender: TObject; Text_: WideString);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.WebBrowser1NavigateError(Sender: TObject; pDisp: IDispatch;
var URL: OleVariant; var Frame: OleVariant; var StatusCode: OleVariant;
var Cancel: WordBool);
begin
StatusCode:=0;
end;
procedure TForm1.WebBrowser1NewProcess(Sender: TObject; lCauseFlag: Integer;
pWB2: IDispatch; var Cancel: WordBool);
begin
Application.ProcessMessages;
end;
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress: Integer;
ProgressMax: Integer);
begin
Application.ProcessMessages;
end;
procedure TForm1.WebBrowser1Resize(Sender: TObject);
begin
Application.ProcessMessages;
end;
procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject; Text_: WideString
);
begin
Label1.Caption:=UTF8Encode(Text_);
Application.ProcessMessages;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(WebBrowser1.LocationURL);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
begin
if Key=vk_return then Button1Click(self);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click(self);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;
end.

BIN
SHDocVw/Example/webbrowser_test.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

108
SHDocVw/Example/webbrowser_test.lpi Normal file
View File

@@ -0,0 +1,108 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="webbrowser_test"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="LazActiveX"/>
</Item1>
<Item2>
<PackageName Value="SHDocVwP"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="webbrowser_test.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="webbrowser_test"/>
</Unit0>
<Unit1>
<Filename Value="wbmain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="wbmain"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="webbrowser_test"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

21
SHDocVw/Example/webbrowser_test.lpr Normal file
View File

@@ -0,0 +1,21 @@
program webbrowser_test;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, wbmain
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

93
SHDocVw/Example/~history/wbmain.lfm;1 Normal file
View File

@@ -0,0 +1,93 @@
object Form1: TForm1
Left = 414
Height = 384
Top = 178
Width = 774
Caption = 'TWebBrowser Test'
ClientHeight = 384
ClientWidth = 774
Color = clMenu
OnCreate = FormCreate
LCLVersion = '1.1'
object Panel1: TPanel
Left = 0
Height = 24
Top = 0
Width = 774
Align = alTop
BevelOuter = bvNone
ClientHeight = 24
ClientWidth = 774
ParentColor = False
TabOrder = 0
object Edit1: TEdit
Left = 0
Height = 24
Top = 0
Width = 279
Align = alLeft
OnKeyDown = Edit1KeyDown
TabOrder = 0
Text = 'http://adf.ly/Kgy17'
end
object SpeedButton1: TSpeedButton
Left = 279
Height = 24
Top = 0
Width = 23
Align = alLeft
Caption = '>>'
Flat = True
Font.Style = [fsBold]
OnClick = Button1Click
ParentFont = False
end
object SpeedButton2: TSpeedButton
Left = 302
Height = 24
Top = 0
Width = 23
Align = alLeft
Caption = '<>'
Flat = True
OnClick = SpeedButton2Click
end
end
object Panel2: TPanel
Left = 0
Height = 21
Top = 363
Width = 774
Align = alBottom
BevelOuter = bvNone
ClientHeight = 21
ClientWidth = 774
TabOrder = 1
object Label1: TLabel
Left = 0
Height = 21
Top = 0
Width = 9
Align = alLeft
Caption = '...'
ParentColor = False
end
end
object WebBrowser1: TWebBrowser
Left = 0
Height = 339
Top = 24
Width = 774
Align = alClient
TabOrder = 2
UseDockManager = False
OnResize = WebBrowser1Resize
Active = True
OnStatusTextChange = WebBrowser1StatusTextChange
OnProgressChange = WebBrowser1ProgressChange
OnNavigateError = WebBrowser1NavigateError
OnUpdatePageStatus = WebBrowser1UpdatePageStatus
OnSetPhishingFilterStatus = WebBrowser1SetPhishingFilterStatus
OnNewProcess = WebBrowser1NewProcess
end
end

138
SHDocVw/Example/~history/wbmain.pas;1 Normal file
View File

@@ -0,0 +1,138 @@
unit wbmain;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, SHDocVw, activexcontainer, Forms, Controls,
Graphics, Dialogs, StdCtrls, ExtCtrls, Buttons, LCLType;
type
{ TForm1 }
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Panel1: TPanel;
Panel2: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure WebBrowser1BeforeNavigate2(Sender: TObject; pDisp: IDispatch;
var URL: OleVariant; var Flags: OleVariant;
var TargetFrameName: OleVariant; var PostData: OleVariant;
var Headers: OleVariant; var Cancel: WordBool);
procedure WebBrowser1NavigateError(Sender: TObject; pDisp: IDispatch;
var URL: OleVariant; var Frame: OleVariant; var StatusCode: OleVariant;
var Cancel: WordBool);
procedure WebBrowser1NewProcess(Sender: TObject; lCauseFlag: Integer;
pWB2: IDispatch; var Cancel: WordBool);
procedure WebBrowser1ProgressChange(Sender: TObject; Progress: Integer;
ProgressMax: Integer);
procedure WebBrowser1Resize(Sender: TObject);
procedure WebBrowser1SetPhishingFilterStatus(Sender: TObject;
PhishingFilterStatus: Integer);
procedure WebBrowser1StatusTextChange(Sender: TObject; Text_: WideString);
procedure WebBrowser1UpdatePageStatus(Sender: TObject; pDisp: IDispatch;
var nPage: OleVariant; var fDone: OleVariant);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject; pDisp: IDispatch;
var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant;
var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool);
begin
end;
procedure TForm1.WebBrowser1NavigateError(Sender: TObject; pDisp: IDispatch;
var URL: OleVariant; var Frame: OleVariant; var StatusCode: OleVariant;
var Cancel: WordBool);
begin
StatusCode:=0;
end;
procedure TForm1.WebBrowser1NewProcess(Sender: TObject; lCauseFlag: Integer;
pWB2: IDispatch; var Cancel: WordBool);
begin
Application.ProcessMessages;
end;
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress: Integer;
ProgressMax: Integer);
begin
Application.ProcessMessages;
end;
procedure TForm1.WebBrowser1Resize(Sender: TObject);
begin
Application.ProcessMessages;
end;
procedure TForm1.WebBrowser1SetPhishingFilterStatus(Sender: TObject;
PhishingFilterStatus: Integer);
begin
end;
procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject; Text_: WideString
);
begin
Label1.Caption:=UTF8Encode(Text_);
Application.ProcessMessages;
end;
procedure TForm1.WebBrowser1UpdatePageStatus(Sender: TObject; pDisp: IDispatch;
var nPage: OleVariant; var fDone: OleVariant);
begin
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(WebBrowser1.LocationURL);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
begin
if Key=vk_return then Button1Click(self);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1Click(self);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;
end.

108
SHDocVw/Example/~history/webbrowser_test.lpi;1 Normal file
View File

@@ -0,0 +1,108 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="webbrowser_test"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="LazActiveX"/>
</Item1>
<Item2>
<PackageName Value="SHDocVwP"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="webbrowser_test.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="webbrowser_test"/>
</Unit0>
<Unit1>
<Filename Value="wbmain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="wbmain"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="webbrowser_test"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

228
SHDocVw/Example/~history/webbrowser_test.lps;1 Normal file
View File

@@ -0,0 +1,228 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="Default"/>
<Units Count="10">
<Unit0>
<Filename Value="webbrowser_test.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="webbrowser_test"/>
<UsageCount Value="39"/>
</Unit0>
<Unit1>
<Filename Value="wbmain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="wbmain"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="31" Y="9"/>
<UsageCount Value="39"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\SHDocVw.pas"/>
<UnitName Value="SHDocVw"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="30" Y="3348"/>
<ExtraEditorCount Value="1"/>
<ExtraEditor1>
<WindowIndex Value="0"/>
<TopLine Value="1875"/>
<CursorPos X="93" Y="1888"/>
</ExtraEditor1>
<UsageCount Value="16"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\activex\activexcontainer.pas"/>
<UnitName Value="activexcontainer"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="29" Y="10"/>
<UsageCount Value="13"/>
</Unit3>
<Unit4>
<Filename Value="..\..\..\fpc\2.7.1\source\packages\winunits-base\src\activex.pp"/>
<UnitName Value="ActiveX"/>
<WindowIndex Value="0"/>
<TopLine Value="3629"/>
<CursorPos X="29" Y="3651"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="..\..\..\fpc\2.7.1\source\packages\winunits-base\src\comobj.pp"/>
<UnitName Value="comobj"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="..\SHDocVwPreg.pas"/>
<UnitName Value="SHDocVwPreg"/>
<WindowIndex Value="0"/>
<TopLine Value="4"/>
<CursorPos X="52" Y="17"/>
<UsageCount Value="9"/>
</Unit6>
<Unit7>
<Filename Value="..\..\..\lcl\lclproc.pas"/>
<UnitName Value="LCLProc"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="14" Y="1"/>
<UsageCount Value="9"/>
</Unit7>
<Unit8>
<Filename Value="..\..\..\fpc\2.7.1\source\rtl\inc\wstringh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="19"/>
<CursorPos X="10" Y="39"/>
<UsageCount Value="11"/>
</Unit8>
<Unit9>
<Filename Value="..\..\..\fpc\2.7.1\source\rtl\inc\ustringh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="120"/>
<CursorPos X="20" Y="129"/>
<UsageCount Value="11"/>
</Unit9>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="566" Column="37" TopLine="544"/>
</Position1>
<Position2>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="581" Column="12" TopLine="560"/>
</Position2>
<Position3>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="582" Column="59" TopLine="561"/>
</Position3>
<Position4>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="682" Column="12" TopLine="661"/>
</Position4>
<Position5>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="683" Column="17" TopLine="662"/>
</Position5>
<Position6>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="1978" Column="21" TopLine="1958"/>
</Position6>
<Position7>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="1992" Column="22" TopLine="1972"/>
</Position7>
<Position8>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="2061" Column="72" TopLine="2041"/>
</Position8>
<Position9>
<Filename Value="wbmain.pas"/>
<Caret Line="123" Column="23" TopLine="107"/>
</Position9>
<Position10>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="1997" Column="17" TopLine="1985"/>
</Position10>
<Position11>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3517" Column="3" TopLine="3508"/>
</Position11>
<Position12>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3506" Column="11" TopLine="3499"/>
</Position12>
<Position13>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3518" Column="19" TopLine="3505"/>
</Position13>
<Position14>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="582" Column="40" TopLine="570"/>
</Position14>
<Position15>
<Filename Value="wbmain.pas"/>
<Caret Line="123" Column="19" TopLine="101"/>
</Position15>
<Position16>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="2062" Column="14" TopLine="2051"/>
</Position16>
<Position17>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3479" Column="28" TopLine="3467"/>
</Position17>
<Position18>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3520" Column="1" TopLine="3507"/>
</Position18>
<Position19>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3516" Column="15" TopLine="3507"/>
</Position19>
<Position20>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3520" Column="29" TopLine="3507"/>
</Position20>
<Position21>
<Filename Value="wbmain.pas"/>
<Caret Line="123" Column="22" TopLine="103"/>
</Position21>
<Position22>
<Filename Value="wbmain.pas"/>
<Caret Line="124" Column="22" TopLine="104"/>
</Position22>
<Position23>
<Filename Value="wbmain.pas"/>
<Caret Line="112" Column="10" TopLine="109"/>
</Position23>
<Position24>
<Filename Value="wbmain.pas"/>
<Caret Line="108" Column="46" TopLine="98"/>
</Position24>
<Position25>
<Filename Value="wbmain.pas"/>
<Caret Line="104" Column="5" TopLine="99"/>
</Position25>
<Position26>
<Filename Value="wbmain.pas"/>
<Caret Line="101" Column="29" TopLine="60"/>
</Position26>
<Position27>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3351" Column="23" TopLine="3347"/>
</Position27>
<Position28>
<Filename Value="wbmain.pas"/>
<Caret Line="108" Column="3" TopLine="2"/>
</Position28>
<Position29>
<Filename Value="wbmain.pas"/>
<Caret Line="113" Column="3" TopLine="111"/>
</Position29>
<Position30>
<Filename Value="wbmain.pas"/>
<Caret Line="112" Column="3" TopLine="110"/>
</Position30>
</JumpHistory>
</ProjectSession>
<EditorMacros Count="0"/>
</CONFIG>

227
SHDocVw/Example/~history/webbrowser_test.lps;2 Normal file
View File

@@ -0,0 +1,227 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="Default"/>
<Units Count="10">
<Unit0>
<Filename Value="webbrowser_test.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="webbrowser_test"/>
<UsageCount Value="39"/>
</Unit0>
<Unit1>
<Filename Value="wbmain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="wbmain"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="31" Y="9"/>
<UsageCount Value="39"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\SHDocVw.pas"/>
<UnitName Value="SHDocVw"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="30" Y="3348"/>
<ExtraEditorCount Value="1"/>
<ExtraEditor1>
<WindowIndex Value="0"/>
<TopLine Value="1875"/>
<CursorPos X="93" Y="1888"/>
</ExtraEditor1>
<UsageCount Value="16"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\activex\activexcontainer.pas"/>
<UnitName Value="activexcontainer"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="29" Y="10"/>
<UsageCount Value="13"/>
</Unit3>
<Unit4>
<Filename Value="..\..\..\fpc\2.7.1\source\packages\winunits-base\src\activex.pp"/>
<UnitName Value="ActiveX"/>
<WindowIndex Value="0"/>
<TopLine Value="3629"/>
<CursorPos X="29" Y="3651"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="..\..\..\fpc\2.7.1\source\packages\winunits-base\src\comobj.pp"/>
<UnitName Value="comobj"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="..\SHDocVwPreg.pas"/>
<UnitName Value="SHDocVwPreg"/>
<WindowIndex Value="0"/>
<TopLine Value="4"/>
<CursorPos X="52" Y="17"/>
<UsageCount Value="9"/>
</Unit6>
<Unit7>
<Filename Value="..\..\..\lcl\lclproc.pas"/>
<UnitName Value="LCLProc"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="14" Y="1"/>
<UsageCount Value="9"/>
</Unit7>
<Unit8>
<Filename Value="..\..\..\fpc\2.7.1\source\rtl\inc\wstringh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="19"/>
<CursorPos X="10" Y="39"/>
<UsageCount Value="11"/>
</Unit8>
<Unit9>
<Filename Value="..\..\..\fpc\2.7.1\source\rtl\inc\ustringh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="120"/>
<CursorPos X="20" Y="129"/>
<UsageCount Value="11"/>
</Unit9>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="566" Column="37" TopLine="544"/>
</Position1>
<Position2>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="581" Column="12" TopLine="560"/>
</Position2>
<Position3>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="582" Column="59" TopLine="561"/>
</Position3>
<Position4>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="682" Column="12" TopLine="661"/>
</Position4>
<Position5>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="683" Column="17" TopLine="662"/>
</Position5>
<Position6>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="1978" Column="21" TopLine="1958"/>
</Position6>
<Position7>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="1992" Column="22" TopLine="1972"/>
</Position7>
<Position8>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="2061" Column="72" TopLine="2041"/>
</Position8>
<Position9>
<Filename Value="wbmain.pas"/>
<Caret Line="123" Column="23" TopLine="107"/>
</Position9>
<Position10>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="1997" Column="17" TopLine="1985"/>
</Position10>
<Position11>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3517" Column="3" TopLine="3508"/>
</Position11>
<Position12>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3506" Column="11" TopLine="3499"/>
</Position12>
<Position13>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3518" Column="19" TopLine="3505"/>
</Position13>
<Position14>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="582" Column="40" TopLine="570"/>
</Position14>
<Position15>
<Filename Value="wbmain.pas"/>
<Caret Line="123" Column="19" TopLine="101"/>
</Position15>
<Position16>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="2062" Column="14" TopLine="2051"/>
</Position16>
<Position17>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3479" Column="28" TopLine="3467"/>
</Position17>
<Position18>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3520" Column="1" TopLine="3507"/>
</Position18>
<Position19>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3516" Column="15" TopLine="3507"/>
</Position19>
<Position20>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3520" Column="29" TopLine="3507"/>
</Position20>
<Position21>
<Filename Value="wbmain.pas"/>
<Caret Line="123" Column="22" TopLine="103"/>
</Position21>
<Position22>
<Filename Value="wbmain.pas"/>
<Caret Line="124" Column="22" TopLine="104"/>
</Position22>
<Position23>
<Filename Value="wbmain.pas"/>
<Caret Line="112" Column="10" TopLine="109"/>
</Position23>
<Position24>
<Filename Value="wbmain.pas"/>
<Caret Line="108" Column="46" TopLine="98"/>
</Position24>
<Position25>
<Filename Value="wbmain.pas"/>
<Caret Line="104" Column="5" TopLine="99"/>
</Position25>
<Position26>
<Filename Value="wbmain.pas"/>
<Caret Line="101" Column="29" TopLine="60"/>
</Position26>
<Position27>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3351" Column="23" TopLine="3347"/>
</Position27>
<Position28>
<Filename Value="wbmain.pas"/>
<Caret Line="108" Column="3" TopLine="2"/>
</Position28>
<Position29>
<Filename Value="wbmain.pas"/>
<Caret Line="113" Column="3" TopLine="111"/>
</Position29>
<Position30>
<Filename Value="wbmain.pas"/>
<Caret Line="112" Column="3" TopLine="110"/>
</Position30>
</JumpHistory>
</ProjectSession>
</CONFIG>

227
SHDocVw/Example/~history/webbrowser_test.lps;3 Normal file
View File

@@ -0,0 +1,227 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="9"/>
<BuildModes Active="Default"/>
<Units Count="10">
<Unit0>
<Filename Value="webbrowser_test.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="webbrowser_test"/>
<UsageCount Value="40"/>
</Unit0>
<Unit1>
<Filename Value="wbmain.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="wbmain"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="76"/>
<CursorPos X="33" Y="80"/>
<UsageCount Value="40"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\SHDocVw.pas"/>
<UnitName Value="SHDocVw"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1869"/>
<CursorPos X="109" Y="1885"/>
<ExtraEditorCount Value="1"/>
<ExtraEditor1>
<WindowIndex Value="0"/>
<TopLine Value="1875"/>
<CursorPos X="93" Y="1888"/>
</ExtraEditor1>
<UsageCount Value="17"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="..\..\activex\activexcontainer.pas"/>
<UnitName Value="activexcontainer"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="29" Y="10"/>
<UsageCount Value="13"/>
</Unit3>
<Unit4>
<Filename Value="..\..\..\fpc\2.7.1\source\packages\winunits-base\src\activex.pp"/>
<UnitName Value="ActiveX"/>
<WindowIndex Value="0"/>
<TopLine Value="3629"/>
<CursorPos X="29" Y="3651"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="..\..\..\fpc\2.7.1\source\packages\winunits-base\src\comobj.pp"/>
<UnitName Value="comobj"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="..\SHDocVwPreg.pas"/>
<UnitName Value="SHDocVwPreg"/>
<WindowIndex Value="0"/>
<TopLine Value="4"/>
<CursorPos X="52" Y="17"/>
<UsageCount Value="9"/>
</Unit6>
<Unit7>
<Filename Value="..\..\..\lcl\lclproc.pas"/>
<UnitName Value="LCLProc"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="14" Y="1"/>
<UsageCount Value="9"/>
</Unit7>
<Unit8>
<Filename Value="..\..\..\fpc\2.7.1\source\rtl\inc\wstringh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="19"/>
<CursorPos X="10" Y="39"/>
<UsageCount Value="11"/>
</Unit8>
<Unit9>
<Filename Value="..\..\..\fpc\2.7.1\source\rtl\inc\ustringh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="120"/>
<CursorPos X="20" Y="129"/>
<UsageCount Value="11"/>
</Unit9>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="1997" Column="17" TopLine="1985"/>
</Position1>
<Position2>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3517" Column="3" TopLine="3508"/>
</Position2>
<Position3>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3506" Column="11" TopLine="3499"/>
</Position3>
<Position4>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3518" Column="19" TopLine="3505"/>
</Position4>
<Position5>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="582" Column="40" TopLine="570"/>
</Position5>
<Position6>
<Filename Value="wbmain.pas"/>
<Caret Line="123" Column="19" TopLine="101"/>
</Position6>
<Position7>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="2062" Column="14" TopLine="2051"/>
</Position7>
<Position8>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3479" Column="28" TopLine="3467"/>
</Position8>
<Position9>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3520" Column="1" TopLine="3507"/>
</Position9>
<Position10>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3516" Column="15" TopLine="3507"/>
</Position10>
<Position11>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3520" Column="29" TopLine="3507"/>
</Position11>
<Position12>
<Filename Value="wbmain.pas"/>
<Caret Line="123" Column="22" TopLine="103"/>
</Position12>
<Position13>
<Filename Value="wbmain.pas"/>
<Caret Line="124" Column="22" TopLine="104"/>
</Position13>
<Position14>
<Filename Value="wbmain.pas"/>
<Caret Line="112" Column="10" TopLine="109"/>
</Position14>
<Position15>
<Filename Value="wbmain.pas"/>
<Caret Line="108" Column="46" TopLine="98"/>
</Position15>
<Position16>
<Filename Value="wbmain.pas"/>
<Caret Line="104" Column="5" TopLine="99"/>
</Position16>
<Position17>
<Filename Value="wbmain.pas"/>
<Caret Line="101" Column="29" TopLine="60"/>
</Position17>
<Position18>
<Filename Value="..\SHDocVw.pas"/>
<Caret Line="3351" Column="23" TopLine="3347"/>
</Position18>
<Position19>
<Filename Value="wbmain.pas"/>
<Caret Line="108" Column="3" TopLine="2"/>
</Position19>
<Position20>
<Filename Value="wbmain.pas"/>
<Caret Line="113" Column="3" TopLine="111"/>
</Position20>
<Position21>
<Filename Value="wbmain.pas"/>
<Caret Line="112" Column="3" TopLine="110"/>
</Position21>
<Position22>
<Filename Value="wbmain.pas"/>
<Caret Line="9" Column="31" TopLine="1"/>
</Position22>
<Position23>
<Filename Value="wbmain.pas"/>
<Caret Line="107" Column="3" TopLine="80"/>
</Position23>
<Position24>
<Filename Value="wbmain.pas"/>
<Caret Line="56" Column="4" TopLine="52"/>
</Position24>
<Position25>
<Filename Value="wbmain.pas"/>
<Caret Line="62" Column="5" TopLine="59"/>
</Position25>
<Position26>
<Filename Value="wbmain.pas"/>
<Caret Line="80" Column="34" TopLine="76"/>
</Position26>
<Position27>
<Filename Value="wbmain.pas"/>
<Caret Line="90" Column="3" TopLine="80"/>
</Position27>
<Position28>
<Filename Value="wbmain.pas"/>
<Caret Line="56" Column="18" TopLine="52"/>
</Position28>
<Position29>
<Filename Value="wbmain.pas"/>
<Caret Line="68" Column="3" TopLine="65"/>
</Position29>
<Position30>
<Filename Value="wbmain.pas"/>
<Caret Line="73" Column="3" TopLine="71"/>
</Position30>
</JumpHistory>
</ProjectSession>
</CONFIG>