Has anyone ever gotten Surface.GetPalette to work?
I've tried EVERYTHING, and nothing works. This is the code that's loading a 256-colour bitmap, in a 256-colour 640x480 fullscreen window:
VB Code:
'Set Logo surfaces.
dLogo.lFlags = DDSD_HEIGHT Or DDSD_WIDTH Or DDSD_CAPS
dLogo.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
dLogo.ddpfPixelFormat.lFlags = DDPF_PALETTEINDEXED8
dLogo.lWidth = 640
dLogo.lHeight = 480
Set Logo = DD7.CreateSurfaceFromFile(App.Path & _
"\resource\logo.bmp", dLogo)
'Get Palette
Set SavePalette = Logo.GetPalette
SavePalette.GetEntries 0, 256, SavePalEntries()
And it always gives me "Automation Error | Unspecified Error" highlighting the GetPalette method.
Help...?