DanieleC88
14-07-2003, 18:04
Devo creare una finestra che supporta Double Buffering, e ChoosePixelFormat non funziona:
var
pfd: PPixelFormatDescriptor;
pfr: Integer;
begin
New(pfd);
pfd.nSize:=sizeof(pfd); pfd.nVersion:=1;
pfd.dwFlags:=PFD_DOUBLEBUFFER or PFD_DRAW_TO_BITMAP {PFD_DRAW_TO_WINDOW};
pfd.iLayerType:=PFD_MAIN_PLANE;
pfr:=ChoosePixelFormat(GetDC(Handle), @pfd);
if not (pfr = 0) then
SetPixelFormat(GetDC(Handle), pfr, @pfd)
else
ShowLastError; //una mia funzione
Cosa non va?
var
pfd: PPixelFormatDescriptor;
pfr: Integer;
begin
New(pfd);
pfd.nSize:=sizeof(pfd); pfd.nVersion:=1;
pfd.dwFlags:=PFD_DOUBLEBUFFER or PFD_DRAW_TO_BITMAP {PFD_DRAW_TO_WINDOW};
pfd.iLayerType:=PFD_MAIN_PLANE;
pfr:=ChoosePixelFormat(GetDC(Handle), @pfd);
if not (pfr = 0) then
SetPixelFormat(GetDC(Handle), pfr, @pfd)
else
ShowLastError; //una mia funzione
Cosa non va?