Icons mit Delphi erstellen

[Martin K]

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...