pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Patch for mode delphi from Wimpie Nortje <wimpie@pudu.co.za>

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@734 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2009-03-10 18:38:27 +00:00
parent 7143b44fd1
commit ca65d27b5a
32 changed files with 128 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/acs/Src/classes/acs_audio.pas
View File

@@ -77,6 +77,10 @@ driver handling classes (basic audio class)
unit acs_audio;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/classes/acs_audiomix.pas
View File

@@ -40,6 +40,10 @@ changed mail adress
{$hints off}
unit acs_audiomix;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/classes/acs_cdrom.pas
View File

@@ -79,6 +79,10 @@ changed mail adress
unit acs_cdrom;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/classes/acs_classes.pas
View File

@@ -100,6 +100,10 @@ changed mail adress
unit acs_classes;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/classes/acs_converters.pas
View File

@@ -52,6 +52,10 @@ changed mail adress
unit acs_converters;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

6
components/acs/Src/classes/acs_file.pas
View File

@@ -63,7 +63,11 @@ only TFileIn and TFileOut are Visible
this unit introduces basic fileformat support
}
unit acs_file;
unit acs_file;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface

4
components/acs/Src/classes/acs_filters.pas
View File

@@ -34,6 +34,10 @@ changed mail adress
unit acs_filters;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/classes/acs_indicator.pas
View File

@@ -35,6 +35,10 @@ changed mail adress
unit acs_indicator;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/classes/acs_misc.pas
View File

@@ -50,6 +50,10 @@ changed mail adress
unit acs_misc;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/classes/acs_mixer.pas
View File

@@ -72,6 +72,10 @@ changed mail adress
unit acs_mixer;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/classes/acs_multimix.pas
View File

@@ -54,6 +54,10 @@ TMultiMixer by Ross Levis added
{$hints off}
unit acs_multimix;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/classes/acs_procs.pas
View File

@@ -28,6 +28,10 @@ changed mail adress
unit acs_procs;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

3
components/acs/Src/classes/acs_streams.pas
View File

@@ -41,6 +41,9 @@ changed mail adress
unit acs_streams;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface

4
components/acs/Src/classes/acs_volumequery.pas
View File

@@ -29,6 +29,10 @@ make TAudioIn workable
unit acs_volumequery;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/drivers/acs_stdaudio.pas
View File

@@ -75,6 +75,10 @@ changed mail adress
unit acs_stdaudio;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/drivers/linux/libao.pas
View File

@@ -37,6 +37,10 @@ changed mail adress
unit libao;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/acs_flac.pas
View File

@@ -43,6 +43,10 @@ changed mail adress
unit acs_flac;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/acs_lame.pas
View File

@@ -46,6 +46,10 @@ changed mail adress
unit acs_lame;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/acs_mpeg.pas
View File

@@ -1,5 +1,9 @@
unit acs_mpeg;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/acs_vorbis.pas
View File

@@ -54,6 +54,10 @@ changed mail adress
unit acs_vorbis;
{$ifdef fpc}
{$mode delphi}
{$endif}
{$DEFINE USE_VORBIS_11}
interface

4
components/acs/Src/fileformats/acs_wave.pas
View File

@@ -60,6 +60,10 @@ changed mail adress
unit acs_wave;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/general/flac.pas
View File

@@ -27,6 +27,10 @@ changed mail adress
unit flac;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/general/lame.pas
View File

@@ -31,6 +31,10 @@ changed mail adress
unit lame;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/general/mad.pas
View File

@@ -30,6 +30,10 @@ changed mail adress
unit mad;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/general/ogg.pas
View File

@@ -31,6 +31,10 @@ changed mail adress
unit ogg;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/general/vorbiscodec.pas
View File

@@ -36,6 +36,10 @@ changed mail adress
unit vorbiscodec;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

4
components/acs/Src/fileformats/general/vorbisenc.pas
View File

@@ -32,6 +32,10 @@ changed mail adress
unit vorbisenc;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

3
components/acs/Src/fileformats/general/vorbisfile.pas
View File

@@ -43,6 +43,9 @@ changed mail adress
unit vorbisfile;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface

4
components/acs/Src/fileformats/linux/smpeg.pas
View File

@@ -50,6 +50,10 @@ changed mail adress
unit smpeg;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses

10
components/acs/Src/linux/laz_acs.lpk
View File

@@ -1,9 +1,9 @@
<?xml version="1.0"?>
<CONFIG>
<Package Version="2">
<Package Version="3">
<Name Value="laz_acs"/>
<CompilerOptions>
<Version Value="5"/>
<Version Value="8"/>
<SearchPaths>
<IncludeFiles Value="../classes/linux/;../fileformats/linux/;../drivers/linux/"/>
<OtherUnitFiles Value="../classes/;../classes/linux/;../fileformats/;../fileformats/linux/;../fileformats/general/;../drivers/;../drivers/linux/"/>
@@ -11,12 +11,10 @@
</SearchPaths>
<Parsing>
<SyntaxOptions>
<DelphiCompat Value="True"/>
<SyntaxMode Value="Delphi"/>
<CStyleOperator Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>

10
components/acs/Src/linux/laz_acs.pas
View File

@@ -1,5 +1,5 @@
{ Diese Datei wurde automatisch von Lazarus erzeugt. Sie darf nicht bearbeitet werden!
Dieser Quelltext dient nur dem Übersetzen und Installieren des Packages.
{ This file was automatically created by Lazarus. do not edit!
This source is only used to compile and install the package.
}
unit laz_acs;
@@ -8,9 +8,9 @@ interface
uses
acs_audio, acs_audiomix, acs_cdrom, acs_classes, acs_converters, acs_file,
acs_filters, acs_indicator, acs_misc, acs_mixer, acs_multimix, acs_streams,
acs_strings, acs_types, acs_stdaudio, acs_reg, acs_allformats,
LazarusPackageIntf;
acs_filters, acs_indicator, acs_misc, acs_mixer, acs_multimix, acs_streams,
acs_strings, acs_types, acs_stdaudio, acs_reg, acs_allformats,
LazarusPackageIntf;
implementation

8
components/acs/Src/win32/laz_acs.lpk
View File

@@ -1,10 +1,10 @@
<?xml version="1.0"?>
<CONFIG>
<Package Version="2">
<Package Version="3">
<PathDelim Value="\"/>
<Name Value="LAZ_ACS"/>
<CompilerOptions>
<Version Value="5"/>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="..\classes\windows\;..\fileformats\windows\;..\drivers\windows\;..\dsp\"/>
@@ -13,11 +13,11 @@
</SearchPaths>
<Parsing>
<SyntaxOptions>
<DelphiCompat Value="True"/>
<SyntaxMode Value="Delphi"/>
<CStyleOperator Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Generate Value="Faster"/>
<Optimizations>
<OptimizationLevel Value="2"/>
</Optimizations>