Как установить цвет для пикселя, если у него не был задан цвет?

Для установки цвета для пикселя, у которого не был задан цвет, необходимо проверить, имеется ли у данного пикселя значение цвета или нет. Если у пикселя нет заданного цвета, то можно установить ему нужный цвет программно. Например, в программе Aseprite можно использовать функцию SetPixel() для установки цвета пикселя.

Чтобы изменить цвет пикселей, которые не имеют определенного цвета в программе Aseprite, используя Delphi, можно применить следующий подход:

1. Создайте новый проект Delphi и добавьте в него компонент TImageList для загрузки изображения.
2. Загрузите изображение в TImageList и отобразите его на форме.
3. Используйте метод GetPixel() для получения цвета пикселя.
4. Проверьте, имеется ли у данного пикселя заданный цвет или нет.
5. Если у пикселя не был задан цвет, то установите ему нужный цвет с помощью метода SetPixel().
6. Повторите процесс для всех пикселей изображения.

Пример кода на Delphi для изменения цвета пикселей, которые не имеют определенного цвета в программе Aseprite:

```delphi
procedure TForm1.ChangePixelColor;
var
  x, y: Integer;
  color: TColor;
begin
  for y := 0 to Image1.Picture.Bitmap.Height - 1 do
  begin
    for x := 0 to Image1.Picture.Bitmap.Width - 1 do
    begin
      color := Image1.Picture.Bitmap.Canvas.Pixels[x, y];
      
      // Проверка на заданный цвет
      if color = clNone then
      begin
        // Установка нужного цвета (например, синего)
        Image1.Picture.Bitmap.Canvas.Pixels[x, y] := clBlue;
      end;
    end;
  end;
end;
```

Не забудьте загрузить изображение в TImageList перед запуском процедуры ChangePixelColor. Данный код поможет изменить цвет пикселей, которые не имеют определенного цвета, в программе Aseprite с использованием Delphi.

Я бы не советовал работать прямо через TPngImage. Но если уж решили — надо смотреть канал прозрачности. Что-то вроде: 
 
case picture.TransparencyMode of
ptmNone: ; // порядок, ничего не делаем
ptmBit: // если есть такие PNG — ну, придумайте сами, чё делать
            // Всё через тот же AlphaScanLine
  raise Exception.Create('1-bit transparency unsupported');  // вроде так? — давно не паскалил
ptmPartial: AlphaScanline[y]^[x] := 255;
end;
 
 
 Надо признаться, «амбаркадебра» известна яростной скупкой открытых компонентов, и я даже нарывался на известные ошибки известных открытых компонентов прямо в оболочке Delphi.