cleaned up compiler files (*.exp *.lib *.obj) from project / lightspeed-plugin

svn path=/trunk/Framestein/; revision=136

5 files changed, 16 insertions, 9 deletions

diff --git a/Source/FramesteinLib.cfg b/Source/FramesteinLib.cfg
index 12f9601..3416c26 100644
--- a/Source/FramesteinLib.cfg
+++ b/Source/FramesteinLib.cfg
@@ -33,4 +33,8 @@
 -K$00400000
 -LE"c:\program files\borland\delphi5\Projects\Bpl"
 -LN"c:\program files\borland\delphi5\Projects\Bpl"
+-U"E:\lab\common\DelphiX2000_0717-2\Source;E:\lab\common\fastlib;E:\lab\common\pshost;E:\lab\common\G32"
+-O"E:\lab\common\DelphiX2000_0717-2\Source;E:\lab\common\fastlib;E:\lab\common\pshost;E:\lab\common\G32"
+-I"E:\lab\common\DelphiX2000_0717-2\Source;E:\lab\common\fastlib;E:\lab\common\pshost;E:\lab\common\G32"
+-R"E:\lab\common\DelphiX2000_0717-2\Source;E:\lab\common\fastlib;E:\lab\common\pshost;E:\lab\common\G32"
 -DFSDLL
diff --git a/Source/FramesteinLib.dof b/Source/FramesteinLib.dof
index 4edf1b3..f10a467 100644
--- a/Source/FramesteinLib.dof
+++ b/Source/FramesteinLib.dof
@@ -43,7 +43,7 @@ OutputDir=
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=
+SearchPath=E:\lab\common\DelphiX2000_0717-2\Source;E:\lab\common\fastlib;E:\lab\common\pshost;E:\lab\common\G32
 Packages=Vcl50;Vclx50;VclSmp50;Qrpt50;Vcldb50;Vclbde50;ibevnt50;vcldbx50;TeeUI50;TeeDB50;Tee50;TeeQR50;VCLIB50;vclie50;Inetdb50;Inet50;NMFast50;dclocx50;dclaxserver50;DelphiX_for5;fspak
 Conditionals=FSDLL
 DebugSourceDirs=
@@ -53,7 +53,7 @@ RunParams=
 HostApplication=
 [Language]
 ActiveLang=
-ProjectLang=
+ProjectLang=$0000040B
 RootDir=
 [Version Info]
 IncludeVerInfo=0
@@ -86,3 +86,6 @@ Item0=FSDLL
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=1
+Item0=E:\lab\common\DelphiX2000_0717-2\Source;E:\lab\common\fastlib;E:\lab\common\pshost;E:\lab\common\G32
diff --git a/Source/FramesteinLib.dpr b/Source/FramesteinLib.dpr
index c6b10ac..1f1c7d1 100644
--- a/Source/FramesteinLib.dpr
+++ b/Source/FramesteinLib.dpr
@@ -37,14 +37,14 @@ uses
 
 {$R *.RES}
 
-function framestein_setup: Longint; stdcall;
+function framesteinlib_setup: Longint; stdcall;
 begin
-  MainT := TMainThread.Create(False);
+  mainunit.MainT := TMainThread.Create(False);
   Result := 0;
 end;
 
 exports
-  framestein_setup;
+  framesteinlib_setup;
 
 var
   SaveExit: Pointer;
diff --git a/Source/fscopyunit.pas b/Source/fscopyunit.pas
index 72ab627..abc9195 100644
--- a/Source/fscopyunit.pas
+++ b/Source/fscopyunit.pas
@@ -102,7 +102,7 @@ var
   bltFlags: Cardinal;

   df: TDDBltFX;

   ddck: TDDColorKey;

-  sx1, sy1, sx2, sy2, dx1, dy1, dx2, dy2: Integer;

+  sx1, sy1, sx2, sy2, dx1, dy1, dx2, dy2, index: Integer;

   r, g, b: Byte;

 begin

   if (S='') then Exit;

@@ -165,7 +165,6 @@ begin
   if s1='SRCINVERT' then begin DrawStyle := dsROP; dsROPMode := cmSrcInvert; Exit; end else

   if s1='SRCPAINT' then begin DrawStyle := dsROP; dsROPMode := cmSrcPaint; Exit; end else

   if s1='WHITENESS' then begin DrawStyle := dsROP; dsROPMode := cmWhiteness; Exit; end else

-

   if s1='TRANSPARENT_0' then begin Transparent := False; Exit; end else

   if s1='TRANSPARENT_1' then begin Transparent := True; Exit; end else

   if s1='TRANSCOLOR' then begin

@@ -179,8 +178,9 @@ begin
   if s1='MIRRORLEFTRIGHT_1' then begin MirrorLeftRight := True; Exit; end else

   if s1='MIRRORUPDOWN_0' then begin MirrorUpDown := False; Exit; end else

   if s1='MIRRORUPDOWN_1' then begin MirrorUpDown := True; Exit; end else

-  if main.Plugins.IsPlugin(iPlugin, s1) then begin

+  if main.Plugins.IsPlugin(index, s1) then begin

     DrawStyle := dsPlugin;

+    iPlugin := index;

     iPluginArgs := Copy(S, Length(s1)+2, 255);

     Exit;

   end else

diff --git a/Source/pluginunit.pas b/Source/pluginunit.pas
index e238f09..ddee99c 100644
--- a/Source/pluginunit.pas
+++ b/Source/pluginunit.pas
@@ -150,7 +150,7 @@ begin
       if s<>'' then s:=s+' ';

       s:=s+Names[i];

     end;

-    main.Post('Plugins: '+s);

+    main.Post('Plugins ('+IntToStr(Names.Count)+' loaded): '+s);

   end;

 end;