Ну так добавь цвет в палитру...
Это я делал два дня нозад. Предварительно проанализировав, а нет ли его уже там. Но и это не все. Потом будет вызвана процедура сохранения, а там такой код
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
function TChunkPLTE.SaveToStream(Stream: TStream): Boolean;
var
J: Integer;
DataPtr: pByte;
BitmapInfo: TMAXBITMAPINFO;
palEntries: TMaxLogPalette;
begin
{Adjust size to hold all the palette items}
if fCount = 0 then fCount := Header.BitmapInfo.bmiHeader.biClrUsed;
ResizeData(fCount * 3);
Для созданных объектов через CreateBlank fCount будет равен 0 и отлично пересчитается. Но если ты вызвал LoadFromString или Assign, то там будет предыдущее значение. И добавление нового цвета в палитру при сохранении тупо проигнорируется.
А ведь есть еще код установки прозрачности
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
procedure TChunktRNS.SetTransparentColor(const Value: ColorRef);
var
i: Byte;
LookColor: TRGBQuad;
begin
{Clears the palette values}
Fillchar(PaletteValues, SizeOf(PaletteValues), #0);
........
{Depends on the color type}
with Header do
case ColorType of
...........
COLOR_PALETTE:
begin
{Creates a RGBQuad to search for the color}
LookColor.rgbRed := GetRValue(Value);
LookColor.rgbGreen := GetGValue(Value);
LookColor.rgbBlue := GetBValue(Value);
{Look in the table for the entry}
for i := 0 to BitmapInfo.bmiHeader.biClrUsed - 1 do
if CompareMem(@BitmapInfo.bmiColors[i], @LookColor, 3) then
Break;
{Fill the transparency table}
Fillchar(PaletteValues, i, 255); // Чему равно i если цикл завершился?
Self.ResizeData(i + 1)
end
end {case / with};
end;
Т.е. прозрачным может быть только последний цвет в палитре.
И это только то, что я нашел. Поэтому возвращаемся к тезису
Я не знаю какой индус писал TPngImage, но редактировать картинку им невозможно в принципе. Читает он более-менее, а модифицировать это полный аллес.
Я не спорю, что можно добавить пару хаков и допилить твой код, но это уже костылестроение высшего порядка.
Я на GDI+, которого до этого не знал вообще, написал работающий код за день
