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:
146:

unit Filter;


interface

uses Windows,Graphics,SysUtils,Variants,Controls,Davidsdefaults;


const
ErrorSourceBitmapnotdefined = 2000;
ErrorDestinationBitmapnotdefined = 2010;


SendError = 7000;
AdjustBitmap = 7010;
AdjustFilterSize = 7020;

type

TBitmapFilter = class(TDavidsClass)//in Davidsdefaults deklariert.
private
FSourceBitmap:TBitmap;
FDestinationBitmap:TBitmap;
FFilterHeight:integer;
FFilterWidth :integer;
FSourceLeft:integer;
FSourceTop:integer;
FDestinationLeft:integer;
FDestinationTop:integer;
FAdjustFilterSizeMode:integer;

function GetSourceBitmap : TBitmap;
procedure SetSourceBitmap(SourceBitmap:TBitmap);

function GetDestinationBitmap:TBitmap;
procedure SetDestinationBitmap(DestinationBitmap:TBitmap);

function GetFilterHeight : integer;
procedure SetFilterHeight(FilterHeight:integer);

function GetFilterWidth:integer;
procedure SetFilterWidth(FilterWidth:integer);

function GetSourceLeft:integer;
procedure SetSourceLeft(SourceLeft:integer);

function GetSourceTop:integer;
procedure SetSourceTop(SourceTop:integer);

function GetDestinationLeft:integer;
procedure SetDestinationLeft(DestinationLeft:integer);

function GetDestinationTop:integer;
procedure SetDestinationTop(DestinationTop:integer);

function GetAdjustFilterSizeMode:integer;
procedure SetAdjustFilterSizeMode(AdjustFilterSizeMode:integer);





public
constructor Create;virtual;
destructor Free; virtual;

procedure Execute; virtual;

protected
procedure CheckParameters;virtual;
procedure DoWithPixel(SourcePixel:PRGBValue24;DestinationPixel:PRGBValue24);virtual;

procedure ThrowError(Errormessage:string;ErrorNr:integer);override;
procedure ThrowWarning(Warningmessage:string;WarningNr:integer);override;

published

property SourceBitmap:TBitmap read GetSourceBitmap write SetSourceBitmap;
property DestinationBitmap:TBitmap read GetDestinationBitmap write SetDestinationBitmap;
property FilterHeight:integer read GetFilterHeight write SetFilterHeight;
property FilterWidth:integer read GetFilterWidth write SetFilterWidth;
property SourceLeft:integer read GetSourceLeft write SetSourceLeft;
property SourceTop:integer read GetSourceTop write SetSourceTop;
property DestinaionLeft:integer read GetDestinationLeft write SetDestinationLeft;
property DestinationTop : integer read GetDestinationTop write SetDestinationTop;
property AdjustFilterSizeMode : integer read GetAdjustFilterSizeMode write SetAdjustFilterSizeMode;

end;



TCopyBitmapFilter = class(TBitmapFilter)
private
public
constructor Create; override;
destructor Free; override;

protected
procedure DoWithPixel(SourcePixel:PRGBValue24;DestinationPixel:PRGBValue24);override;


end;


implementation

uses GraphicTypes;  //Hier ist das Problem
//uses  Davidsdefaults in '.\Davidsdefaults.pas;


constructor TBitmapFilter.Create;
begin
inherited Create;
end;
etc...





unit GraphicTypes;

interface


type
    TRGBValue24 = packed record
                    Blue : Byte;
                    Green : Byte;
                    Red : Byte ;
                    end;

    TRGBValue32 = packed record
                    Alpha : Byte;
                    Blue : Byte;
                    Green : Byte;
                    Red : Byte;
                    end;

    PRGBValue24 = ^TRGBValue24;
    PRGBValue32 = ^TRGBValue32;


implementation

end.