O chamado efeito persiana consiste em dividir a tela em diversas áreas, cada área é
O modo progressivo copia gráficos simultaneamente, assim como abrir cortinas. Aqui está um.
Um exemplo do processo de exibição de efeitos especiais:
Primeiro, crie um novo projeto, adicione dois controles IMAGE ao formulário e adicione
Importe um bitmap (*.bmp) para o atributo PICTURE de IMAGE1 e altere IMAGE1
Defina o atributo VISIBLE como FALSE.
Em seguida, defina o seguinte procedimento na janela de código:
Procedimento TForm1.fan;
var r1: Trecto;
lista,r,cada:inteiro;
começar
lista:=1;
cada:=trunc(tela.Altura/10)+1;
Enquanto lista<=todos fazem
começar
para r:=0 a 10 comece
r1:=rect(0,r*todos,tela.Largura,R*todos+lista);
imagem2.Canvas.CopyRect(r1,image1.Canvas,r1);
fim;
atualizar;
Inc(lista);
fim;
fim;
Você pode chamá-lo sempre que necessário no programa posteriormente.
Vamos dar uma olhada em como isso é implementado no código, RECT(X1,Y1,X2,Y2)
Representa o intervalo retangular selecionado, (X1, Y1) são as coordenadas do canto superior esquerdo do retângulo, (X2, Y2) é o retângulo
As coordenadas do canto inferior direito. A exibição gráfica é completada por COPYRECT(R1,CANVAS,R2), onde R1 é
Área alvo, R2 é a área copiada, CANVAS é o objeto copiado (também pode ser um
Exemplo de TBITMAP).