Platform SDK: DirectX |
The following example illustrates how to create a DirectDraw palette in nonexclusive (windowed) mode. In order for your palette to work correctly, it is vital that you set up every one of the 256 entries in the PALETTEENTRY structure that you submit to the IDirectDraw7::CreatePalette method.
LPDIRECTDRAW7 lpDD; // Assumed to be initialized previously PALETTEENTRY pPaletteEntry[256]; int index; HRESULT ddrval; LPDIRECTDRAWPALETTE2 lpDDPal; // First set up the Windows static entries. for (index = 0; index < 10 ; index++) { // The first 10 static entries: pPaletteEntry[index].peFlags = PC_EXPLICIT; pPaletteEntry[index].peRed = index; pPaletteEntry[index].peGreen = 0; pPaletteEntry[index].peBlue = 0; // The last 10 static entries: pPaletteEntry[index+246].peFlags = PC_EXPLICIT; pPaletteEntry[index+246].peRed = index+246; pPaletteEntry[index+246].peGreen = 0; pPaletteEntry[index+246].peBlue = 0; } // Now set up private entries. In this example, the first 16 // available entries are animated. for (index = 10; index < 26; index ++) { pPaletteEntry[index].peFlags = PC_NOCOLLAPSE|PC_RESERVED; pPaletteEntry[index].peRed = 255; pPaletteEntry[index].peGreen = 64; pPaletteEntry[index].peBlue = 32; } // Now set up the rest, the nonanimated entries. for (; index < 246; index ++) // Index is set up by previous for loop { pPaletteEntry[index].peFlags = PC_NOCOLLAPSE; pPaletteEntry[index].peRed = 25; pPaletteEntry[index].peGreen = 6; pPaletteEntry[index].peBlue = 63; } // All 256 entries are filled. Create the palette. ddrval = lpDD->CreatePalette(DDPCAPS_8BIT, pPaletteEntry, &lpDDPal,NULL);
The following example illustrates how to create a DirectDraw palette in nonexclusive (windowed) mode. In order for your palette to work correctly, it is vital that you set up every one of the 256 entries in the PALETTEENTRY type that you submit to the DirectDraw7.CreatePalette method.
Dim pPaletteEntry(255) As PALETTEENTRY Dim index As Long Dim ddpal As DirectDrawPalette 'First set up the windows static entries. For index = 0 To 9 'The first 10 static entries. pPaletteEntry(index).flags = PC_EXPLICIT pPaletteEntry(index).red = index pPaletteEntry(index).green = 0 pPaletteEntry(index).blue = 0 'The last 10 static entries pPaletteEntry(index + 246).flags = PC_EXPLICIT pPaletteEntry(index + 246).red = index + 246 pPaletteEntry(index + 246).green = 0 pPaletteEntry(index + 246).blue = 0 Next 'Now set up private entries. In this example, the first '16 available entries are animated. For index = 10 To 25 pPaletteEntry(index).flags = PC_NOCOLLAPSE Or PC_RESERVED pPaletteEntry(index).red = 255 pPaletteEntry(index).green = 64 pPaletteEntry(index).blue = 32 Next 'Now set up the rest, the non-animated entries. For index = 26 To 246 pPaletteEntry(index).flags = PC_NOCOLLAPSE pPaletteEntry(index).red = 25 pPaletteEntry(index).green = 6 pPaletteEntry(index).blue = 63 Next 'All 256 entries are filled. Create the palette. Set ddpal = dd.CreatePalette(DDPCAPS_8BIT, pPaletteEntry())