Форум программистов [Powered by Invision Power Board]

Код


procedure TForm1.FormCreate(Sender: TObject);
var
    ddsd:TDDSurfaceDesc2;
    ddscaps : TDDSCaps2;
begin
 MainObj:=nil;
 MainSur:=nil;
 BackSur:=nil;

 DirectDrawCreateEx(nil,MainObj,IDirectDraw7,nil);
 MainObj.SetDisplayMode(1024,768,32,0,0);
 MainObj.SetCooperativeLevel(Handle,DDSCL_FULLSCREEN or DDSCL_EXCLUSIVE);

 ZeroMemory(@ddsd,SizeOf(ddsd));
  with ddsd do 
  begin
   dwSize := SizeOf(ddsd);
   dwFlags := DDSD_CAPS or DDSD_BACKBUFFERCOUNT; // Включаем бэк буфер
   ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE or DDSCAPS_FLIP or DDSCAPS_COMPLEX;
   dwBackBufferCount := 1; // Количество бэк буферов
  end;

 res:=MainObj.CreateSurface(ddsd,MainSur,nil);   // Создаем первичную поверхность

 ZeroMemory(@ddscaps, SizeOf(ddscaps));
 ddscaps.dwCaps := DDSCAPS_BACKBUFFER;
 res:=MainSur.GetAttachedSurface(ddscaps, BackSur);  // Создаём вторичную поверхность (бэк буфер)
end;

Код


procedure TForm1.UpdateFrame;
begin
 BackSur.BltFast(0,0,FonSur,nil,DDBLTFAST_WAIT);
 MainSur.Flip(BackSur,DDFLIP_WAIT);
end;