From 163a66302667158daef63e4a88a32002a5c1831a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Sun, 22 Sep 2002 20:53:10 +0000
Subject: cleaned up compiler files (*.exp *.lib *.obj) from project /
 lightspeed-plugin

svn path=/trunk/Framestein/; revision=136
---
 Source/FramesteinLib.cfg | 4 ++++
 Source/FramesteinLib.dof | 7 +++++--
 Source/FramesteinLib.dpr | 6 +++---
 Source/fscopyunit.pas    | 6 +++---
 Source/pluginunit.pas    | 2 +-
 5 files changed, 16 insertions(+), 9 deletions(-)

(limited to 'Source')

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;
 
-- 
cgit v1.2.1