From 163a66302667158daef63e4a88a32002a5c1831a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= 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/fscopyunit.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Source/fscopyunit.pas') 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 -- cgit v1.2.1