AGA La boîte à Bokeh! | Sur un DXTimer je fais ça :
Code :
- resultat:=Trunc(Cos256(FAngle)*5000+127);
- if resultat<3 then inc(index);
- if ((debut) or (index= DXImageList1.Items.Count)) then begin
- index:=0;
- debut:=FALSE;
- end;
- if not DXDraw1.CanDraw then Exit;
- DXDraw1.Surface.Fill(0);
- //DXImageList1.Items[index].Draw(DxDraw1.surface, 0, 0, 0);
- DXImageList1.Items[index].DrawAdd(DXDraw1.Surface, Bounds(0, 0, DXImageList1.Items[index].Picture.Width, DXImageList1.Items[index].Picture.Height ),
- 0, resultat ); // 255 visible; 0 invisible
- INC(FAngle);
- with DXDraw1.Surface.Canvas do
- begin
- Brush.Style := bsClear;
- Font.Color := clWhite;
- Font.Size := 12;
- Textout(0, 0, 'FPS: '+inttostr(DXTimer1.FrameRate));
- Release; { Indispensability }
- end;
- 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  |
