L'effet dit de stores consiste à diviser la toile en plusieurs zones, chaque zone étant
Le mode progressif copie les graphiques simultanément, tout comme le retournement des stores. En voici un.
Un exemple du processus d'affichage des effets spéciaux :
Commencez par créer un nouveau projet, ajoutez deux contrôles IMAGE au formulaire et ajoutez
Importez un bitmap (*.bmp) dans l'attribut PICTURE de IMAGE1 et modifiez IMAGE1
Définissez l'attribut VISIBLE sur FALSE.
Ensuite, définissez la procédure suivante dans la fenêtre de code :
PRécédure TForm1.fan ;
var r1:Trect;
liste,r,chaque:entier;
commencer
liste :=1 ;
chaque:=tronc(écran.Hauteur/10)+1;
Tandis que la liste <= tout le monde fait
commencer
pour r:=0 à 10, commencez
r1:=rect(0,r*every,screen.Width,R*every+list);
image2.Canvas.CopyRect(r1,image1.Canvas,r1);
fin;
mise à jour;
Inc(liste);
fin;
fin;
Vous pouvez l'appeler partout où vous en avez besoin dans le programme plus tard.
Voyons comment cela est implémenté dans le code, RECT(X1,Y1,X2,Y2)
Représente la plage rectangulaire sélectionnée, (X1, Y1) est les coordonnées du coin supérieur gauche du rectangle, (X2, Y2) est le rectangle
Les coordonnées du coin inférieur droit. L'affichage graphique est complété par COPYRECT(R1,CANVAS,R2), où R1 est
Zone cible, R2 est la zone copiée, CANVAS est l'objet copié (il peut aussi s'agir d'un
Exemple de TBITMAP).