1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
unit pshostunit;
interface
uses
Forms, SysUtils, DirectX, DxDraws,
fsframeunit, C2PhotoShopHost;
function IsFilter(const S: String): Boolean;
function Filter_effect(const psh: TC2PhotoShopHost;
const d: TDirectDrawSurface;
const procname: String; const args: String): Boolean;
function Filter_copy(const psh: TC2PhotoShopHost;
const d1, d2: TDirectDrawSurface;
const procname: String; const args: String): Boolean;
implementation
uses
Windows, Graphics, DIB,
mainunit;
var
FilterPath: String;
function FullFilterPath(const S: String): String;
begin
Result := FilterPath+'\'+S;
if Uppercase(ExtractFileExt(S))<>'.8BF' then
Result := Result+'.8BF';
end;
function IsFilter(const S: String): Boolean;
begin
Result := FileExists(FullFilterPath(S));
end;
function Filter_effect(const psh: TC2PhotoShopHost;
const d: TDirectDrawSurface;
const procname: String; const args: String): Boolean;
const
Active: Boolean = False;
var
sd: TDDSurfaceDesc;
dib: TDxDib;
begin
Result := False;
if Active then Exit; // disable recursion
Active := True;
if not psh.LoadFilterDLL(FullFilterPath(procname)) then begin
main.Post('Filter load error: '+procname+'. Requires Adobe''s Plugin.dll?');
Active := False;
Exit;
end;
d.Lock(sd);
psh.Surface := @sd;
if d.BitCount=24 then begin
psh.SrcPtr := sd.lpSurface;
psh.DstPtr := sd.lpSurface;
end else begin
// DIB will ensure we're @ 24 bits per pixel...
dib := TDxDib.Create(main);
dib.DIB.Assign(d);
psh.DIB := dib;
psh.SrcPtr := dib.DIB.PBits;
psh.DstPtr := dib.DIB.PBits;
end;
psh.CallDialog := (args='');
psh.args := args;
psh.RunFilter;
d.UnLock;
if d.BitCount<>24 then begin
d.Assign(dib.DIB);
dib.Free;
end;
Result := True;
Active := False;
end;
function Filter_copy(const psh: TC2PhotoShopHost;
const d1, d2: TDirectDrawSurface;
const procname: String; const args: String): Boolean;
const
Active: Boolean = False;
var
sd1, sd2: TDDSurfaceDesc;
dib1, dib2: TDxDib;
begin
Result := False;
if Active then Exit; // disable recursion
Active := True;
if not psh.LoadFilterDLL(FullFilterPath(procname)) then begin
main.Post('Filter load error: '+procname+'. Requires Adobe''s Plugin.dll?');
Active := False;
Exit;
end;
d1.Lock(sd1);
d2.Lock(sd2);
psh.Surface := @sd1;
if d1.BitCount=24 then begin
psh.SrcPtr := sd1.lpSurface;
psh.DstPtr := sd2.lpSurface;
end else begin
// DIB will ensure we're @ 24 bits per pixel...
dib1 := TDxDib.Create(main);
dib2 := TDxDib.Create(main);
dib1.DIB.Assign(d1);
dib2.DIB.SetSize(dib1.DIB.Width, dib1.DIB.Height, 24);
psh.DIB := dib1;
psh.SrcPtr := dib1.DIB.PBits;
psh.DstPtr := dib2.DIB.PBits;
end;
psh.CallDialog := (args='');
psh.args := args;
psh.RunFilter;
d1.UnLock;
d2.UnLock;
if d1.BitCount<>24 then begin
d2.Assign(dib2.DIB);
dib1.Free;
dib2.Free;
end;
Result := True;
Active := False;
end;
begin
FilterPath := ExtractFilePath(Application.ExeName)+'\Filters'
end.
|
