Thema: Delphi DDraw + Fenster

Einzelnen Beitrag anzeigen

TheBender

Registriert seit: 20. Dez 2003
10 Beiträge
 
#1

DDraw + Fenster

  Alt 27. Feb 2004, 19:44
Was muss ich tun damit DDraw nur in meinem Fenster abläuft und nicht auf dem ganzen Bildschirm?

Code:

 
var MyDirectDraw: IDirectDraw;
    MySurface: IDirectDrawSurface;
    MyDesc: DDSurfaceDesc;
function INIT(MyWindow: HWND): LongInt; stdcall;
begin
  Result:=DirectDrawCreate(NIL,MyDirectDRaw,NIL);
  Result:=MyDirectDraw.SetCooperativeLevel(MyWindow,DDSCL_NORMAL);
//  Result:=MyDirectDraw.SetDisplayMode(640,480,8);
  Result:=MyDirectDraw.SetDisplayMode(320,240,8);

  FillChar(MyDesc,sizeof(MyDesc),0);
  MyDesc.dwSize:=sizeof(MyDesc);
  MyDesc.dwFlags:=DDSD_CAPS or DDSD_WIDTH or DDSD_HEIGHT;
  MyDesc.dwHeight:=100;
  MyDesc.dwWidth:=100;
  MyDesc.ddsCaps.dwCaps:=DDSCAPS_3DDEVICE or DDSCAPS_OFFSCREENPLAIN or DDSCAPS_VIDEOMEMORY;
  Result:=MyDirectDraw.CreateSurface(MyDesc,MySurface,Nil);

//  Result:=MyDirectDraw.CreateSurface(MyDesc,MySurface,Nil);
end;




Danke

Mfg TheBender
  Mit Zitat antworten Zitat