[DELPHI X]AlphaBlending...

AlphaBlending... [DELPHI X] - Programmation

Marsh Posté le 23-03-2002 à 20:39:49    

Sur un DXTimer je fais ça :

Code :
  1. resultat:=Trunc(Cos256(FAngle)*5000+127);
  2.       if resultat<3 then inc(index);
  3.       if ((debut) or (index= DXImageList1.Items.Count)) then begin
  4.        index:=0;
  5.        debut:=FALSE;
  6.       end;
  8.        if not DXDraw1.CanDraw then Exit;
  9.       DXDraw1.Surface.Fill(0);
  10.      //DXImageList1.Items[index].Draw(DxDraw1.surface, 0, 0, 0);
  12.     DXImageList1.Items[index].DrawAdd(DXDraw1.Surface, Bounds(0, 0, DXImageList1.Items[index].Picture.Width, DXImageList1.Items[index].Picture.Height      ),
  13.     0, resultat ); // 255 visible; 0 invisible
  15.     INC(FAngle);
  16.   with DXDraw1.Surface.Canvas do
  17.   begin
  18.     Brush.Style := bsClear;
  19.     Font.Color := clWhite;
  20.     Font.Size := 12;
  21.     Textout(0, 0, 'FPS: '+inttostr(DXTimer1.FrameRate));
  23.     Release; {  Indispensability  }
  24.   end;
  26.   DXDraw1.Flip;


 
 
LE but serait d'afficher une suite d'image avec fondu mais c hyper lents 5 FPS si la vrai taille des images et surtout je ne sais pas qd chqngé d'image :/

Reply

Marsh Posté le 23-03-2002 à 20:39:49   

Reply

Marsh Posté le 23-03-2002 à 20:51:15    

bonne question,moi j'y ai rien compri.
Enfin je ne suis qu' en 1ere


---------------
Master [:viiz] c'est moi
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed