Есть ли возможность что-то рисовать на принтере через ScanLine, а не через Canvas?

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

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

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

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

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

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

у меня есть 100 — 200 jpg файлов(фотографий), мне требуется в каждой фотографии дорисовать(именно дорисовать с увеличением размера по высоте ровно на толщину полоски, а не приклеить белую полоску поверх фотографии) снизу фотографии белую полоску 100 — 200 пикселей толщиной для дальнейшей подписи фотографий. Естественно через фотошоп ручками это все лопатить не серьезно. (читать всё…)