diff options
Diffstat (limited to 'Source/fscopyunit.pas')
| -rw-r--r-- | Source/fscopyunit.pas | 6 |
1 files changed, 3 insertions, 3 deletions
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
|