2 <H2>Class: cVista</H2>
\r
3 <pre> <A HREF=cObjeto.html>cObjeto</A> ----+
\r |
\r cVista
\r</pre><hr>
\r
4 <B>Description:</B><BR>Interpreta y dibuja los datos del modelo en un formulario
\r
5 <p><B>Unit:</B><BR><A HREF=Vista.html>Vista</A>
\r
6 <code> <A HREF=Vista.pas>(Vista.pas)</code></A><BR><BR>
\r
7 <p><B>Constructors:</B><BR>
\r
10 <IMG SRC=public.gif>
\r
11 <A HREF="cVista.html#0">constructor create( formulario: TCustomForm; ov: cObjetoVolador; calidad: boolean = true );</A><BR>
\r
17 <p><B>Methods:</B><BR>
\r
20 <IMG SRC=public.gif>
\r
21 <A HREF="cVista.html#1">destructor destroy; override;</A><BR>
\r
27 <IMG SRC=public.gif>
\r
28 <A HREF="cVista.html#2">procedure mCamaraSiguiente;</A><BR>
\r
31 Cambia a la siguiente cámara
\r
34 <IMG SRC=public.gif>
\r
35 <A HREF="cVista.html#3">procedure mCambiarCalidad;</A><BR>
\r
38 Invierte la calidad de los gráficos. Es decir, si estaban en baja los pone
\r
39 en alta y vice versa.
\r
42 <IMG SRC=public.gif>
\r
43 <A HREF="cVista.html#4">procedure mCambiarCamara( cam: tCamaras );</A><BR>
\r
46 Permite realizar el cambio de camara
\r
49 <IMG SRC=protected.gif>
\r
50 <A HREF="cVista.html#5">function mCrearCamara( cam: tCamaras; ov: cObjetoVolador ): cCamara;</A><BR>
\r
53 Crea una cámara según el tipo
\r
56 <IMG SRC=public.gif>
\r
57 <A HREF="cVista.html#6">procedure mCrearCamaraDeArma( a: cArma );</A><BR>
\r
60 Crea la cámara del arma
\r
63 <IMG SRC=protected.gif>
\r
64 <A HREF="cVista.html#7">procedure mDibujarOV( proy: tPProy );</A><BR>
\r
67 Dibuja un ObjetoVolador
\r
70 <IMG SRC=protected.gif>
\r
71 <A HREF="cVista.html#8">procedure mDibujarOVLockeado( proy: tPProy );</A><BR>
\r
74 Dibuja el ObjetoVolador lockeado por la nave propia
\r
77 <IMG SRC=public.gif>
\r
78 <A HREF="cVista.html#9">procedure mDibujarVista( oEspacio: cEspacio );</A><BR>
\r
81 Dibuja todos los Objetos Voladores que ve la cámara
\r
84 <IMG SRC=protected.gif>
\r
85 <A HREF="cVista.html#10">procedure mGameOver;</A><BR>
\r
88 Muestra un mensaje de game over
\r
91 <IMG SRC=public.gif>
\r
92 <A HREF="cVista.html#11">function mGetCamaraStr: string;</A><BR>
\r
95 Devuelve que camara esta activa
\r
98 <IMG SRC=public.gif>
\r
99 <A HREF="cVista.html#12">function mGetDebugInfo( debugLevel: tDebugInfo = DI_MINI ): string; override;</A><BR>
\r
102 Método heredado que devuelve un string con el estado del Objeto. Se utiliza para depurar
\r
103 y la información entregada depende del parámetro tDebugInfo.
\r
106 <IMG SRC=protected.gif>
\r
107 <A HREF="cVista.html#13">function mGetFormLado: integer;</A><BR>
\r
110 Obtiene el lado menor del formulario
\r
113 <IMG SRC=protected.gif>
\r
114 <A HREF="cVista.html#14">function mGetTam( proy: tPProy ): integer;</A><BR>
\r
117 Convierte el tamaño obtenido de la cámara a uno proporcional en píxeles
\r
120 <IMG SRC=protected.gif>
\r
121 <A HREF="cVista.html#15">function mGetX( proy: tPProy ): integer;</A><BR>
\r
124 Convierte la componente en x obtenida de la cámara a una proporcional en píxeles
\r
127 <IMG SRC=protected.gif>
\r
128 <A HREF="cVista.html#16">function mGetY( proy: tPProy ): integer;</A><BR>
\r
131 Convierte la componente en y obtenida de la cámara a una proporcional en píxeles
\r
134 <IMG SRC=protected.gif>
\r
135 <A HREF="cVista.html#17">function mObjetoVoladorLockedToFilename( obj: tObjetosVoladores ): string;</A><BR>
\r
138 Convierte un tipo tObjetosVoladores al nombre del archivo que guarda su bitmap lockeado
\r
141 <IMG SRC=protected.gif>
\r
142 <A HREF="cVista.html#18">function mObjetoVoladorToFilename( obj: tObjetosVoladores ): string;</A><BR>
\r
145 Convierte un tipo tObjetosVoladores al nombre del archivo que guarda su bitmap
\r
148 <IMG SRC=public.gif>
\r
149 <A HREF="cVista.html#19">procedure mSetAltaCalidad;</A><BR>
\r
152 Setea gráficos de alta calidad
\r
155 <IMG SRC=public.gif>
\r
156 <A HREF="cVista.html#20">procedure mSetBajaCalidad;</A><BR>
\r
159 Setea gráficos de baja calidad
\r
162 <IMG SRC=public.gif>
\r
163 <A HREF="cVista.html#21">procedure mSetForm( oForm: TCustomForm );</A><BR>
\r
166 Define el formulario en donde dibujar
\r
170 <p><IMG SRC=constructors.gif>
\r
171 <A NAME="0"></A><P>
\r
172 <IMG SRC=public_big.gif>
\r
173 <CODE>constructor create( formulario: TCustomForm; ov: cObjetoVolador; calidad: boolean = true );</CODE>
\r
176 </dd><dd><B>Parameters</B></dd><dd> <CODE>formulario </CODE> : Formulario en donde dibujará la vista</dd><dd> <CODE>ov </CODE> : Objeto Volador en el cual montar la cámara</dd><p>
\r
177 </dl></dd></dl><HR>
\r
178 <p><IMG SRC=methods.gif>
\r
179 <A NAME="1"></A><P>
\r
180 <IMG SRC=public_big.gif>
\r
181 <CODE>destructor destroy; override;</CODE>
\r
183 <dd>Destructor</dd><p>
\r
184 </dl></dd></dl><HR>
\r
185 <A NAME="2"></A><P>
\r
186 <IMG SRC=public_big.gif>
\r
187 <CODE>procedure mCamaraSiguiente;</CODE>
\r
189 <dd>Cambia a la siguiente cámara</dd><p>
\r
190 </dl></dd></dl><HR>
\r
191 <A NAME="3"></A><P>
\r
192 <IMG SRC=public_big.gif>
\r
193 <CODE>procedure mCambiarCalidad;</CODE>
\r
195 <dd>Invierte la calidad de los gráficos. Es decir, si estaban en baja los pone
\r
196 en alta y vice versa.</dd><p>
\r
197 </dl></dd></dl><HR>
\r
198 <A NAME="4"></A><P>
\r
199 <IMG SRC=public_big.gif>
\r
200 <CODE>procedure mCambiarCamara( cam: tCamaras );</CODE>
\r
202 <dd>Permite realizar el cambio de camara</dd><p>
\r
203 </dl></dd></dl><HR>
\r
204 <A NAME="5"></A><P>
\r
205 <IMG SRC=protected_big.gif>
\r
206 <CODE>function mCrearCamara( cam: tCamaras; ov: cObjetoVolador ): cCamara;</CODE>
\r
208 <dd>Crea una cámara según el tipo
\r
209 </dd><dd><B>Parameters</B></dd><dd> <CODE>cam </CODE> : Tipo de Cámara</dd><dd> <CODE>ov </CODE> : Portador de la cámara</dd><dd><B>Returns</B></dd><dd> Nueva cámara creada</dd><p>
\r
210 </dl></dd></dl><HR>
\r
211 <A NAME="6"></A><P>
\r
212 <IMG SRC=public_big.gif>
\r
213 <CODE>procedure mCrearCamaraDeArma( a: cArma );</CODE>
\r
215 <dd>Crea la cámara del arma
\r
216 </dd><dd><B>Parameters</B></dd><dd> <CODE>ov </CODE> : Objeto Volador portador de la camara</dd><p>
\r
217 </dl></dd></dl><HR>
\r
218 <A NAME="7"></A><P>
\r
219 <IMG SRC=protected_big.gif>
\r
220 <CODE>procedure mDibujarOV( proy: tPProy );</CODE>
\r
222 <dd>Dibuja un ObjetoVolador
\r
223 </dd><dd><B>Parameters</B></dd><dd> <CODE>proy </CODE> : Puntero a un elemento del tipo tProyeccion con los datos de la proyeccion
\r
224 de un determinado objeto volador (proporcionado por la cámara)</dd><p>
\r
225 </dl></dd></dl><HR>
\r
226 <A NAME="8"></A><P>
\r
227 <IMG SRC=protected_big.gif>
\r
228 <CODE>procedure mDibujarOVLockeado( proy: tPProy );</CODE>
\r
230 <dd>Dibuja el ObjetoVolador lockeado por la nave propia
\r
231 </dd><dd><B>Parameters</B></dd><dd> <CODE>proy </CODE> : Puntero a un elemento del tipo tProyeccion con los datos de la proyeccion
\r
232 de un determinado objeto volador (proporcionado por la cámara)</dd><p>
\r
233 </dl></dd></dl><HR>
\r
234 <A NAME="9"></A><P>
\r
235 <IMG SRC=public_big.gif>
\r
236 <CODE>procedure mDibujarVista( oEspacio: cEspacio );</CODE>
\r
238 <dd>Dibuja todos los Objetos Voladores que ve la cámara
\r
239 </dd><dd><B>Parameters</B></dd><dd> <CODE>oEspacio </CODE> : Espacio del cual obtener la lista de objetos a interpretar por la cámara
\r
240 para dibujarlos</dd><p>
\r
241 </dl></dd></dl><HR>
\r
242 <A NAME="10"></A><P>
\r
243 <IMG SRC=protected_big.gif>
\r
244 <CODE>procedure mGameOver;</CODE>
\r
246 <dd>Muestra un mensaje de game over</dd><p>
\r
247 </dl></dd></dl><HR>
\r
248 <A NAME="11"></A><P>
\r
249 <IMG SRC=public_big.gif>
\r
250 <CODE>function mGetCamaraStr: string;</CODE>
\r
252 <dd>Devuelve que camara esta activa</dd><p>
\r
253 </dl></dd></dl><HR>
\r
254 <A NAME="12"></A><P>
\r
255 <IMG SRC=public_big.gif>
\r
256 <CODE>function mGetDebugInfo( debugLevel: tDebugInfo = DI_MINI ): string; override;</CODE>
\r
258 <dd>Devuelve el estado del objeto basandose en la cantidad de datos requeridos.
\r
259 @return Cadena de texto con el estado del Objeto.
\r
260 </dd><dd><B>Parameters</B></dd><dd> <CODE>debugLevel </CODE> : Cantidad de información requerida</dd><p>
\r
261 </dl></dd></dl><HR>
\r
262 <A NAME="13"></A><P>
\r
263 <IMG SRC=protected_big.gif>
\r
264 <CODE>function mGetFormLado: integer;</CODE>
\r
266 <dd></dd><dd><B>Returns</B></dd><dd> El alto o el ancho del formulario, dependiendo de cual sea menor</dd><p>
\r
267 </dl></dd></dl><HR>
\r
268 <A NAME="14"></A><P>
\r
269 <IMG SRC=protected_big.gif>
\r
270 <CODE>function mGetTam( proy: tPProy ): integer;</CODE>
\r
272 <dd>Convierte el tamaño obtenido de la cámara a uno proporcional en píxeles
\r
273 </dd><dd><B>Parameters</B></dd><dd> <CODE>proy </CODE> : Puntero a un elemento del tipo tProyeccion con los datos de la proyeccion
\r
274 de un determinado objeto volador (proporcionado por la cámara)</dd><dd><B>Returns</B></dd><dd> Tamaño del objeto en píxeles (tamaño del lado del cuadrado que se usará para
\r
275 dibujar el bitmap)</dd><p>
\r
276 </dl></dd></dl><HR>
\r
277 <A NAME="15"></A><P>
\r
278 <IMG SRC=protected_big.gif>
\r
279 <CODE>function mGetX( proy: tPProy ): integer;</CODE>
\r
281 <dd>Convierte la componente en x obtenida de la cámara a una proporcional en píxeles
\r
282 </dd><dd><B>Parameters</B></dd><dd> <CODE>proy </CODE> : Puntero a un elemento del tipo tProyeccion con los datos de la proyeccion
\r
283 de un determinado objeto volador (proporcionado por la cámara)</dd><dd><B>Returns</B></dd><dd> Componente en X del objeto en píxeles (x de la esquina superior izquierdadel
\r
284 cuadrado que se usará para dibujar el bitmap)</dd><p>
\r
285 </dl></dd></dl><HR>
\r
286 <A NAME="16"></A><P>
\r
287 <IMG SRC=protected_big.gif>
\r
288 <CODE>function mGetY( proy: tPProy ): integer;</CODE>
\r
290 <dd>Convierte la componente en y obtenida de la cámara a una proporcional en píxeles
\r
291 </dd><dd><B>Parameters</B></dd><dd> <CODE>proy </CODE> : Puntero a un elemento del tipo tProyeccion con los datos de la proyeccion
\r
292 de un determinado objeto volador (proporcionado por la cámara)</dd><dd><B>Returns</B></dd><dd> Componente en Y del objeto en píxeles (y de la esquina superior izquierdadel
\r
293 cuadrado que se usará para dibujar el bitmap)</dd><p>
\r
294 </dl></dd></dl><HR>
\r
295 <A NAME="17"></A><P>
\r
296 <IMG SRC=protected_big.gif>
\r
297 <CODE>function mObjetoVoladorLockedToFilename( obj: tObjetosVoladores ): string;</CODE>
\r
299 <dd>Convierte un tipo tObjetosVoladores al nombre del archivo que guarda su bitmap lockeado
\r
300 </dd><dd><B>Parameters</B></dd><dd> <CODE>obj </CODE> : Tipo de objeto volador</dd><dd><B>Returns</B></dd><dd> Nombre del archivo que almacena el bitmap que lo representa</dd><p>
\r
301 </dl></dd></dl><HR>
\r
302 <A NAME="18"></A><P>
\r
303 <IMG SRC=protected_big.gif>
\r
304 <CODE>function mObjetoVoladorToFilename( obj: tObjetosVoladores ): string;</CODE>
\r
306 <dd>Convierte un tipo tObjetosVoladores al nombre del archivo que guarda su bitmap
\r
307 </dd><dd><B>Parameters</B></dd><dd> <CODE>obj </CODE> : Tipo de objeto volador</dd><dd><B>Returns</B></dd><dd> Nombre del archivo que almacena el bitmap que lo representa</dd><p>
\r
308 </dl></dd></dl><HR>
\r
309 <A NAME="19"></A><P>
\r
310 <IMG SRC=public_big.gif>
\r
311 <CODE>procedure mSetAltaCalidad;</CODE>
\r
313 <dd>Setea gráficos de alta calidad</dd><p>
\r
314 </dl></dd></dl><HR>
\r
315 <A NAME="20"></A><P>
\r
316 <IMG SRC=public_big.gif>
\r
317 <CODE>procedure mSetBajaCalidad;</CODE>
\r
319 <dd>Setea gráficos de baja calidad</dd><p>
\r
320 </dl></dd></dl><HR>
\r
321 <A NAME="21"></A><P>
\r
322 <IMG SRC=public_big.gif>
\r
323 <CODE>procedure mSetForm( oForm: TCustomForm );</CODE>
\r
325 <dd>Define el formulario en donde dibujar
\r
326 </dd><dd><B>Parameters</B></dd><dd> <CODE>oForm </CODE> : Formulario en el cual dibujará la vista</dd><p>
\r
327 </dl></dd></dl><HR>
\r