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

added ipfilebroker.pas from Armin Diehl

Browse Source 
git-svn-id: trunk@9423 -
This commit is contained in:
mattias 2006-06-12 19:16:57 +00:00
parent 8bf46b037a
commit 601fad56b1
4 changed files with 54 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/turbopower_ipro/iphtml.pas
View File

@ -2759,7 +2759,9 @@ type
procedure CopyToClipboard;
procedure EnumDocuments(Enumerator: TIpHtmlEnumerator);
procedure GoBack;
function canGoBack : boolean;
procedure GoForward;
function canGoForward : boolean;
function HaveSelection: Boolean;
property HotNode : TIpHtmlNode read FHotNode; {!!.12}
function IsURLHtml(const URL: string): Boolean;
@ -17441,11 +17443,19 @@ end;
procedure TIpHtmlCustomPanel.GoBack;
begin
if (URLStack.Count > 0) then begin
InternalOpenURL(TargetStack[Stp], URLStack[Stp]);
dec(Stp);
if URLStack.Count >= URLStack.count then Stp := URLStack.Count - 1;
if URLStack.Count > 0 then begin
InternalOpenURL(TargetStack[Stp], URLStack[Stp]);
dec(Stp);
end;
end;
end;
function TIpHtmlCustomPanel.canGoBack : boolean;
begin
result := (URLStack.Count > 0);
end;
procedure TIpHtmlCustomPanel.GoForward;
begin
if Stp < URLStack.Count - 1 then begin
@ -17454,6 +17464,11 @@ begin
end;
end;
function TIpHtmlCustomPanel.canGoForward : boolean;
begin
result := (Stp < URLStack.Count - 1);
end;
procedure TIpHtmlCustomPanel.Push(const Target, URL: string);
begin
if (Stp > 0)

43
components/turbopower_ipro/turbopoweripro.lpk
View File

@ -22,7 +22,7 @@
<Description Value="Turbopower Internet Pro - Lazarus Package"/>
<License Value="MPL - Mozilla public license"/>
<Version Major="1"/>
<Files Count="9">
<Files Count="10">
<Item1>
<Filename Value="ipanim.pas"/>
<UnitName Value="IpAnim"/>
@ -32,34 +32,39 @@
<UnitName Value="IpConst"/>
</Item2>
<Item3>
<Filename Value="ipdefct.inc"/>
<Type Value="Include"/>
</Item3>
<Item4>
<Filename Value="ipdefine.inc"/>
<Type Value="Include"/>
</Item4>
<Item5>
<Filename Value="ipfilebroker.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="Ipfilebroker"/>
</Item5>
<Item6>
<Filename Value="iphtml.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="IpHtml"/>
</Item3>
<Item4>
<Filename Value="iphtmlpv.pas"/>
<UnitName Value="IpHtmlPv"/>
</Item4>
<Item5>
<Filename Value="ipmsg.pas"/>
<UnitName Value="IpMsg"/>
</Item5>
<Item6>
<Filename Value="ipstrms.pas"/>
<UnitName Value="IpStrms"/>
</Item6>
<Item7>
<Filename Value="iputils.pas"/>
<UnitName Value="IpUtils"/>
<Filename Value="iphtmlpv.pas"/>
<UnitName Value="IpHtmlPv"/>
</Item7>
<Item8>
<Filename Value="ipdefct.inc"/>
<Type Value="Include"/>
<Filename Value="ipmsg.pas"/>
<UnitName Value="IpMsg"/>
</Item8>
<Item9>
<Filename Value="ipdefine.inc"/>
<Type Value="Include"/>
<Filename Value="ipstrms.pas"/>
<UnitName Value="IpStrms"/>
</Item9>
<Item10>
<Filename Value="iputils.pas"/>
<UnitName Value="IpUtils"/>
</Item10>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="1">

3
components/turbopower_ipro/turbopoweripro.pas
View File

@ -7,13 +7,14 @@ unit TurboPowerIPro;
interface
uses
IpAnim, IpConst, IpHtml, IpHtmlPv, IpMsg, IpStrms, IpUtils,
IpAnim, IpConst, Ipfilebroker, IpHtml, IpHtmlPv, IpMsg, IpStrms, IpUtils,
LazarusPackageIntf;
implementation
procedure Register;
begin
RegisterUnit('Ipfilebroker', @Ipfilebroker.Register);
RegisterUnit('IpHtml', @IpHtml.Register);
end;

24
lcl/include/control.inc
View File

@ -225,20 +225,18 @@ begin
{ Notifications can be performed here }
end;
{------------------------------------------------------------------------------}
{ TControl.Bringtofront
}
{------------------------------------------------------------------------------}
Procedure TControl.BringToFront;
{------------------------------------------------------------------------------
TControl.Bringtofront
------------------------------------------------------------------------------}
procedure TControl.BringToFront;
begin
SetZOrder(true);
end;
{------------------------------------------------------------------------------}
{ TControl.CanTab
}
{------------------------------------------------------------------------------}
Function TControl.CanTab: Boolean;
{------------------------------------------------------------------------------
TControl.CanTab
------------------------------------------------------------------------------}
function TControl.CanTab: Boolean;
begin
Result := False;
end;
@ -246,10 +244,10 @@ end;
{------------------------------------------------------------------------------
TControl.Change
------------------------------------------------------------------------------}
Procedure TControl.Changed;
Begin
procedure TControl.Changed;
begin
Perform(CM_CHANGED, 0, LParam(self));
End;
end;
{------------------------------------------------------------------------------
TControl.EditingDone