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

deleted unused code

Browse Source 
git-svn-id: trunk@4307 -
This commit is contained in:
mattias 2003-06-24 15:23:10 +00:00
parent 2e666694d2
commit 71f77609fd
6 changed files with 100 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -132,6 +132,7 @@ components/turbopower_ipro/iphtmlpv.pas svneol=native#text/pascal
components/turbopower_ipro/ipmsg.pas svneol=native#text/pascal components/turbopower_ipro/ipmsg.pas svneol=native#text/pascal
components/turbopower_ipro/ipstrms.pas svneol=native#text/pascal components/turbopower_ipro/ipstrms.pas svneol=native#text/pascal
components/turbopower_ipro/iputils.pas svneol=native#text/pascal components/turbopower_ipro/iputils.pas svneol=native#text/pascal
components/turbopower_ipro/turbopoweripro.lpk svneol=native#text/pascal
debugger/breakpointsdlg.lfm svneol=native#text/plain debugger/breakpointsdlg.lfm svneol=native#text/plain
debugger/breakpointsdlg.lrs svneol=native#text/pascal debugger/breakpointsdlg.lrs svneol=native#text/pascal
debugger/breakpointsdlg.pp svneol=native#text/pascal debugger/breakpointsdlg.pp svneol=native#text/pascal

5
components/turbopower_ipro/ipdefine.inc
View File

@ -33,6 +33,11 @@
so options specified here could be overridden by hardcoded so options specified here could be overridden by hardcoded
options in the unit source file.} options in the unit source file.}
{$IFDEF FPC}
{$DEFINE IP_LAZARUS}
{$ENDIF}
{$IFDEF IP_LAZARUS} {$IFDEF IP_LAZARUS}
{$MODE DELPHI}{$H+} {$MODE DELPHI}{$H+}

14
components/turbopower_ipro/iphtml.pas
View File

@ -2865,6 +2865,10 @@ function MinI2(const I1, I2: Integer) : Integer;
function CalcMultiLength(const List: TIpHtmlMultiLengthList; function CalcMultiLength(const List: TIpHtmlMultiLengthList;
Avail: Integer; var Sections: Integer): TIntArr; {!!.10} Avail: Integer; var Sections: Integer): TIntArr; {!!.10}
{$IFDEF IP_LAZARUS}
procedure Register;
{$ENDIF}
implementation implementation
uses uses
@ -2912,6 +2916,13 @@ var
BWPrinter: Boolean; {!!.10} BWPrinter: Boolean; {!!.10}
Aspect : double; {!!.02} Aspect : double; {!!.02}
{$IFDEF IP_LAZARUS}
procedure Register;
begin
RegisterComponents('IPro', [TIpHtmlPanel]);
end;
{$ENDIF}
{!!.14 new} {!!.14 new}
{$IFNDEF VERSION3ONLY} {$IFNDEF VERSION3ONLY}
type type
@ -17558,6 +17569,9 @@ initialization
InitScrollProcs; InitScrollProcs;
{ {
$Log$ $Log$
Revision 1.8 2003/06/24 15:23:10 mattias
deleted unused code
Revision 1.7 2003/03/31 20:25:18 mattias Revision 1.7 2003/03/31 20:25:18 mattias
fixed scrollbars of TIpHtmlPanel fixed scrollbars of TIpHtmlPanel

75
components/turbopower_ipro/turbopoweripro.lpk Normal file
View File

@ -0,0 +1,75 @@
<?xml version="1.0"?>
<CONFIG>
<Package>
<Name Value="TurboPowerIPro"/>
<Author Value="Turbopower, portiert fuer Lazarus von Mattias Gaertner"/>
<Description Value="Turbopower Internet Pro - Lazarus Package"/>
<License Value="MPL - Mozilla public license"/>
<Version Major="1"/>
<Files Count="9">
<Item1>
<Filename Value="ipanim.pas"/>
<UnitName Value="IpAnim"/>
</Item1>
<Item2>
<Filename Value="ipconst.pas"/>
<UnitName Value="IpConst"/>
</Item2>
<Item3>
<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"/>
</Item7>
<Item8>
<Filename Value="ipdefct.inc"/>
<Type Value="Include"/>
</Item8>
<Item9>
<Filename Value="ipdefine.inc"/>
<Type Value="Include"/>
</Item9>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)/"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
<CompilerOptions>
<SearchPaths>
<UnitOutputDirectory Value="lib/"/>
<LCLWidgetType Value="gtk"/>
</SearchPaths>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

14
lcl/menus.pp
View File

@ -309,17 +309,6 @@ procedure Register;
implementation implementation
{ Menu command managment }
{var
CommandPool: TBits;
function UniqueCommand: Word;
begin
Result := CommandPool.OpenBit;
CommandPool[Result] := True;
end;
}
function ShortCutToText(ShortCut: TShortCut): string; function ShortCutToText(ShortCut: TShortCut): string;
begin begin
Result:=ShortCutToShortCutText(ShortCut); Result:=ShortCutToShortCutText(ShortCut);
@ -374,6 +363,9 @@ end.
{ {
$Log$ $Log$
Revision 1.47 2003/06/24 15:23:10 mattias
deleted unused code
Revision 1.46 2003/06/23 12:33:55 mattias Revision 1.46 2003/06/23 12:33:55 mattias
implemented TPairSplitter streaming implemented TPairSplitter streaming

4
tools/install/create_fpc_rpm.sh
View File

@ -36,13 +36,13 @@ fi
if [ "x$FPCVersion" = "xdevel" ]; then if [ "x$FPCVersion" = "xdevel" ]; then
Year=03 Year=03
Month=06 Month=06
Day=21 Day=24
LazVersion=1.1 LazVersion=1.1
fi fi
if [ "x$FPCVersion" = "xstable" ]; then if [ "x$FPCVersion" = "xstable" ]; then
Year=03 Year=03
Month=06 Month=06
Day=21 Day=24
LazVersion=1.0.8 LazVersion=1.0.8
fi fi