Icons mit Delphi erstellen

[Martin K]

Hi,

hat schon jemand so etwas gemacht ?

Mein neues Projekt soll en IconEditor werden.

Allerdings gibt es noch ein paar Probleme:

1. Wie kann man die Farbpalette einen Icons ändern?
2. Wie kann man Icons bearbeiten (verwende zur Zeit die Methode in Bitmap umwandeln. Allerdings geht dann die Transparenz verloren).

Also es sollten möglichst alle Bittiefen verwendet werden können:
32 Bit, 24 Bit, 16 Bit, 8 Bit, 4 Bit, 1 Bit.

Bei den Bittiefen 16, 8, 4 und 1 Bit sollten außerdem die Farben der Palette manuell geändert werden können.
Sind in dieser Beziehung die Paletten bei Bitmaps und Icons (wegen Umwandlung) auch 1:1 kompatibel?


Vielleicht hat ja jemand mit so etwas schon Erfahrungen gesammelt, in der Suche hab ich leider nichts brauchbares gefunden
Wäre also für jeden Codeschnipsel dankbar...

[DBR]

http://www.dbr-software.de/delphi/makeico.php

Vielleicht hilfts.

Gruß DBR

[Martin K]

Danke, für die Antwort

Nur leider ein ziemlich langer Code ohne Kommentare

Aber mal sehen, vielleicht bekomme ich da so langsam den Durckblick



Ich dachte halt, irgendjemand aus der DP hätte vielleicht so was schonmal gemacht und könnte mir evtl. ein paar kleine Tipps geben,
bin für jede Hilfe dankber

[Martin K]

Weiß jemand, wie man eine Farbpalette (4 Bit, 8 Bit) speichern kann (also nur die Palette, ohne Bild) ???

Hab hier Farbpaletten von einem anderen Programm vorliegen (*.dat Dateien), wäre ganz gut wenn ich diese auslesen bzw. wieder speichern könnte...

[Martin K]

Hmm....

Also irgendwie muss man doch eine Farbpalette speichern können...

vielleicht als TStream ?

[xaromz]

Hallo,

Zitat von Martin K:

Hmm....

Also irgendwie muss man doch eine Farbpalette speichern können...

vielleicht als TStream ?

Hier hat Luckie ein Codeschnipsel gepostet, in dem auch die Palette gesichert wird.
Hierfür gibt es die Struktur TLogPalette. Das ist ein Record mit einem dynamischen Array am Ende. Im verlinkten Beitrag steht, wie Du Dir die Palette holen kannst. Danach musst Du nur noch den Record irgendwo speichern (SizeOf(TLogPalette) + (Palettengröße - 1) * SizeOf(TPaletteEntry)).

Gruß
xaromz

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

[xaromz]

Hallo,

Zitat von Martin K:

Danke erstmal...

Aber irgendwie ist das etwas zu hoch für mich:

Palette laden:

Such Dir doch mal Informationen zu GetSystemPaletteEntries bzw. GetPaletteEntries. Damit kannst Du die Palette eines DCs in eine TLogPalette-Struktur laden.

Zitat von Martin K:

Palette speichern:
  (SizeOf(TLogPalette) + (Palettengröße - 1) * SizeOf(TPaletteEntry)); Ja, wo ist denn hier sowas wie FileName oder so???

Na ja, Du hast da eine Record-Struktur im Speicher liegen. Die kannst Du doch sonstwo hin kopieren. In einen Stream, in eine Datei, wo auch immer.
In diesem Fall hast Du ja eine Palette mit 256 Einträgen. Wenn Du einen Stream hast, dann geht das so:
Stream.Write(lpPal^, SizeOf(TLogPalette) + 255 * SizeOf(TPaletteEntry)); Ich hoffe, das hilft.

Gruß
xaromz

[Martin K]

Mal gucken, werd mir mal irgendwas daraus basteln...

Ziel soll eben so etwas sein:

Delphi-Quellcode:

procedure LoadPalette(const FileName: String {*.dat}; var Palette: array of TColor);
procedure SavePalette(const FileName: String; const Palette: array of TColor);

[Martin K]

Okay, ich glaub ich check's langsam...

Die Palette ist also eine PLogPalette, ein Zeiger auf TLogPalette.

1. Frage:
Wie bekomme ich aus TLogPalette ein array[0..255] of TColor ?

2. Frage:
In dieser Zeile wird also die Palette geladen:

Delphi-Quellcode:

    lpPal^.palNumEntries := 
      GetSystemPaletteEntries(dc, 
      0, 
      256, 
      lpPal^.palPalEntry);

Es wird allerdings die Systempalette geladen.
Wie kann ich hier die Palette aus einem Stream (Datei) laden?
GetPaletteEntries... und dann?