Zitat von
xaromz:
Wenn Du Dir den Record TPaletteEntry ansiehst, wirst Du feststellen, dass dort auch die Reihenfolge umgedreht ist.
Hm..
Also wenn ich mir eine Variable vom Typ TPaletteEntry anlege, gebe den Variablenname dann im Quellcode ein und drücke einen Punkt dahinter, dann erscheinen die Einträge aber genau in der Reigenfolge: peRed, peGreen und peBlue - ...nicht umgekehrt
Übrigens, betreffende Teile im Quellcode geändert:
Delphi-Quellcode:
//Speichern:
for i := 0
to High(Palette^)
do
begin
lpPal^.palPalEntry[i].peRed := GetBValue(ColorToRGB(Palette^[i]));
lpPal^.palPalEntry[i].peGreen:= GetGValue(ColorToRGB(Palette^[i]));
lpPal^.palPalEntry[i].peBlue := GetRValue(ColorToRGB(Palette^[i]));
end;
//Laden:
for i := 0
to Count-1
do
Palette^[i] :=
RGB(lpPal^.palPalEntry[i].peBlue,
lpPal^.palPalEntry[i].peGreen, lpPal^.palPalEntry[i].peRed);
Also an die Reihenfolge BGR anstatt
RGB muss ich mich erst gewöhnen, das hab ich ja sonst noch nie gehört/gelesen.....