El llamado efecto persianas consiste en dividir el lienzo en varias áreas, cada área es
El modo progresivo copia gráficos simultáneamente, como si se cambiaran las persianas. Aquí hay uno.
Un ejemplo del proceso de visualización de efectos especiales:
Primero, cree un nuevo proyecto, agregue dos controles IMAGEN al formulario y agregue
Importe un mapa de bits (*.bmp) al atributo IMAGEN de IMAGEN1 y cambie IMAGEN1
Establezca el atributo VISIBLE en FALSO.
Luego, defina el siguiente procedimiento en la ventana de código:
Procedimiento TForm1.fan;
var r1:Trect;
lista,r,cada:entero;
comenzar
lista:=1;
cada:=trunc(pantalla.Altura/10)+1;
Mientras que la lista <= cada uno
comenzar
para r:=0 a 10 comience
r1:=rect(0,r*cada,pantalla.Ancho,R*cada+lista);
imagen2.Canvas.CopyRect(r1,imagen1.Canvas,r1);
fin;
actualizar;
Inc(lista);
fin;
fin;
Puede llamarlo donde sea necesario en el programa más adelante.
Echemos un vistazo a cómo se implementa esto en el código, RECT(X1,Y1,X2,Y2)
Representa el rango rectangular seleccionado, (X1, Y1) son las coordenadas de la esquina superior izquierda del rectángulo, (X2, Y2) es el rectángulo
Las coordenadas de la esquina inferior derecha. La visualización gráfica se completa con COPYRECT(R1,CANVAS,R2), donde R1 es
Área de destino, R2 es el área copiada, CANVAS es el objeto copiado (también puede ser un
Ejemplo de TBITMAP).