Попал в такую ситуацию: есть 2 временных TPNGImage; один загружен из файла, второй — пустой, предназначен для вывода растянутого/ужатого первого.

При копировании первого во второй и его последующем ресайзе теряется альфа-канал.
Вот такого плана:

var
  Src,Dst:TPngImage;
  width,height:integer;
...
procedure Resize;
begin
  Dst.SetSize(width,height);
  Dst.StretchDraw(Dst.Canvas.ClipRect,Src);
end;

Как можно заново просчитать маску прозрачности (или как это делается), учитывая новые размеры?

(читать всё…)

Не могу разобраться, почему нет прозрачности при отрисовке на канве.

Загружаю тайлсет tileset.png, в котором есть прозрачность в PNGImage с именем Tileset. Далее рисую на канве компонента PNGImage с именем Surface этой процедурой:

procedure TForm1.DrawTile(const X, Y, Index: Integer);
begin
  Surface.Canvas.CopyRect(Bounds(X * TileSize, Y * TileSize, TileSize,
    TileSize), Tileset.Canvas, Bounds((Index mod TilesetWidth) * TileSize,
    (Index div TilesetWidth) * TileSize, TileSize, TileSize));
end;

…вот так:

procedure TForm1.FormPaint(Sender: TObject);
var
  X, Y: Integer;
begin
  for Y := 0 to MapHeight - 1 do
    for X := 0 to MapWidth - 1 do
    begin
      DrawTile(X, Y, Map[lrGround][X][Y]);
      DrawTile(X, Y, Map[lrObject][X][Y]);
    end;
  Canvas.Draw(0, 0, Surface);
end;

Ожидается правильная отрисовка с альфа-каналом, но не тут то было.

(читать всё…)

Есть некий сервер со своим протоколом. Ему необходимо передавать изображение в виде строки, сжатой в base64, в теле XML файла. Вопрос в кодировании картинки как строки в base64. (читать всё…)