Danke erstmal...
Aber irgendwie ist das etwas zu hoch für mich:
Palette laden:
Delphi-Quellcode:
{allocate memory for a logical palette}
GetMem(lpPal,
SizeOf(TLOGPALETTE) +
(255 * SizeOf(TPALETTEENTRY)));
{zero it out to be neat}
FillChar(lpPal^,
SizeOf(TLOGPALETTE) +
(255 * SizeOf(TPALETTEENTRY)),
#0);
{fill in the palette version}
lpPal^.palVersion := $300;
{grab the system palette entries}
lpPal^.palNumEntries :=
GetSystemPaletteEntries(
dc,
0,
256,
lpPal^.palPalEntry);
if (lpPal^.PalNumEntries <> 0)
then
{create the palette}
bm.Palette := CreatePalette(lpPal^);
FreeMem(lpPal, SizeOf(TLOGPALETTE) +
(255 * SizeOf(TPALETTEENTRY)));
Palette speichern:
(SizeOf(TLogPalette) + (Palettengröße - 1) * SizeOf(TPaletteEntry));
Ja, wo ist denn hier sowas wie FileName oder so???
Kann mir einer helfen?
wäre echt nett...