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
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
-- File: WNT_ImageManager.cdl
-- Created: Mon Mar 11 10:51:39 1996
-- Author: PLOTNIKOV Eugeny <eugeny@maniax>
-- Modifications: PLOTNIKOV Eugeny at July 1998 (BUC60286)
---Copyright: Matra Datavision 1996
class ImageManager from WNT inherits TShared from MMgt
---Purpose: This class defines image management
uses
Handle from Aspect,
Window from WNT,
SequenceOfImage from WNT,
TypeOfImage from WNT,
Image from WNT,
WindowPtr from WNT
is
Create ( aWindow : WindowPtr from WNT )
returns mutable ImageManager from WNT;
---Purpose: Creates a class instance
Destroy ( me : mutable )
is virtual;
---Purpose: Deletes all resources associated with the class instance.
---C++: alias ~
SetFormat ( me : mutable; aFormat : TypeOfImage from WNT = WNT_TOI_XWD )
is static;
---Purpose: Sets image format for output.
Add ( me : mutable; anImage : Image from WNT )
is static;
---Purpose: Adds <anImage> to manager.
Image ( me : mutable; anIndex : Integer from Standard )
returns Image from WNT is static;
---Purpose: returns Image stored at <anIndex>.
Load ( me : mutable; aFileName : CString from Standard )
returns Integer from Standard
is static;
---Purpose: Loads image from file and returns its index in the
-- sequence.
-- Warning: Returns 0 if loading was failed.
Save (
me;
aFileName : CString from Standard;
aX, aY, aWidth, aHeight : Integer from Standard
)
returns Boolean from Standard
is static;
---Purpose: Stories image to the file according to <myFormat>
-- class field. Returns True on success, otherwise
-- returns False.
SaveBuffer (
me;
aFileName : CString from Standard;
aX, aY, aWidth, aHeight : Integer from Standard
)
returns Boolean from Standard
is static;
---Purpose: Stories contents of the double buffer window pixmap.
-- See "Save" method.
Draw (
me : mutable;
anIndex : Integer from Standard;
Xc, Yc : Integer from Standard;
aWidth : Integer from Standard;
aHeight : Integer from Standard;
anAngle : Real from Standard = 0.0
)
is static;
---Purpose: Displays the image according to the DoubleBuffer state
-- of the associated window.
Delete ( me : mutable; anIndex : Integer from Standard )
is static;
---Purpose: Deletes an image at index <anIndex>.
Discard ( me : mutable; anIndex : Integer from Standard )
is static;
---Purpose: Places an image to the trash
Scale (
me : mutable;
anIndex : Integer from Standard;
aScaleX : Real from Standard;
aScaleY : Real from Standard;
aReplace : Boolean from Standard = Standard_False
) returns Handle from Aspect is static;
---Purpose: Scales the specified image.
Size ( me ) returns Integer from Standard is static;
---Purpose: Returns number of loaded images.
ImageHandle (
me : mutable;
anIndex : Integer from Standard
) returns Handle from Aspect is static;
---Purpose: Returns image handle.
Dim (
me : mutable;
anIndex : Integer from Standard;
aWidth, aHeight : out Integer from Standard
)
is static;
---Purpose: Returns image dimensions.
HashCode (
me : mutable;
anIndex : Integer from Standard
)
returns Integer from Standard is redefined static;
---Purpose: Returns image's hash code.
Index (
me : mutable;
aHashCode : Integer from Standard
)
returns Integer from Standard is static;
---Purpose: Returns image's index.
StringHashCode (
me : mutable;
aString : CString from Standard
)
returns Integer from Standard is static;
---Purpose: Returns hash code of the string.
Open (
me : mutable;
aDC : Handle from Aspect;
aWidth : Integer from Standard;
aHeight : Integer from Standard;
aHashCode : Integer from Standard
)
returns Integer from Standard is static;
---Purpose: Creates new empty image and returns its index
fields
myWindow : Address from Standard is protected;
myImages : SequenceOfImage from WNT is protected;
myTrash : SequenceOfImage from WNT is protected;
myFormat : TypeOfImage from WNT is protected;
myLastImage : Image from WNT is protected;
myLastIndex : Integer from Standard is protected;
friends
class WDriver from WNT,
class Window from WNT
end ImageManager;
|
