procedure TForm1.SetupPixelFormat;
var hHeap: THandle;
nColors, i: Integer;
lpPalette : PLogPalette;
byRedMask, byGreenMask, byBlueMask: Byte;
nPixelFormat: Integer;
pfd: TPixelFormatDescriptor;
begin
FillChar(pfd, SizeOf(pfd), 0);
with pfd do begin
nSize := sizeof(pfd); // Länge der pfd-Struktur
nVersion := 1; // Version
dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or
PFD_DOUBLEBUFFER; // Flags
iPixelType:= PFD_TYPE_RGBA; // RGBA Pixel Type
cColorBits:= 24; // 24-bit color
cDepthBits:= 32; // 32-bit depth buffer
iLayerType:= PFD_MAIN_PLANE; // Layer Type
end;
nPixelFormat:= ChoosePixelFormat(myDC, @pfd);
SetPixelFormat(myDC, nPixelFormat, @pfd);
// Farbpalettenoptimierung wenn erforderlich
DescribePixelFormat(myDC, nPixelFormat,sizeof(TPixelFormatDescriptor),pfd);
if ((pfd.dwFlags and PFD_NEED_PALETTE) <> 0) then begin
nColors := 1 shl pfd.cColorBits;
hHeap := GetProcessHeap;
lpPalette:= HeapAlloc
(hHeap,0,sizeof(TLogPalette)+(nColors*sizeof(TPaletteEntry)));
lpPalette^.palVersion := $300;
lpPalette^.palNumEntries := nColors;
byRedMask := (1 shl pfd.cRedBits) - 1;
byGreenMask:= (1 shl pfd.cGreenBits) - 1;
byBlueMask := (1 shl pfd.cBlueBits) - 1;
for i := 0 to nColors - 1 do begin
lpPalette^.palPalEntry.peRed :=
(((i shr pfd.cRedShift) and byRedMask) *255)DIV byRedMask;
lpPalette^.palPalEntry[i].peGreen:=
(((i shr pfd.cGreenShift)and byGreenMask)*255)DIV byGreenMask;
lpPalette^.palPalEntry[i].peBlue :=
(((i shr pfd.cBlueShift) and byBlueMask) *255)DIV byBlueMask;
lpPalette^.palPalEntry[i].peFlags:= 0;
end;
myPalette:= CreatePalette(lpPalette^);
HeapFree(hHeap, 0, lpPalette);
if (myPalette <> 0) then begin
SelectPalette(myDC, myPalette, False);
RealizePalette(myDC);
end;
end;
end;

[i]Zeile
DescribePixelFormat(myDC, nPixelFormat,sizeof(TPixelFormatDescriptor),pfd);

Fehler
Inkompatible Typen: "'TPixelFormatDescriptor' und 'PPixelFormatDescriptor'

Im Projekt 'Open.exe' ist eine Exception der Klasse EAccess aufgetreten.
Meldung:'Zugrifs verletzung bei Adresse 00000000'. Prozeß wurde angehalten. Fortfahren mit Einzelschritt oder Start.