Desculpem a demora para comparecer, tenho andado muito ocupado. Parece é que nos faltou um pouco de pesquisa.
Se o ideal é trabalhar com PNG
por conta da transparência, então trabalhar com Bitmap
não está correto.
De fato, a partir do Delphi 2009
com a introdução do Unicode
se tornou possível trabalhar com vários outros tipos de imagens, inclusive o PNG
.
Aqui tem uma pergunta no SOen sobre o TPNGImage
: how-do-i-get-pngs-to-work-in-d2009
@Guill, você mesmo lidou com o tipo TPNGImage nessa sua pergunta:Como carregar PNG semi-transparente através de uma stream de memória?.
Enfim, meu humilde método para tratar essa imagem:
procedure TMainForm.btnCriarMascaraClick(Sender: TObject);
var
png: TPNGImage;
x,y: TColor;
begin
png := TPNGImage.Create;
try
png.Assign(imgOrig.Picture);
for x := 0 to pred(png.Width) do
for y := 0 to pred(png.Height) do
begin
if png.Pixels[x,y] <> png.TransparentColor then
begin
png.Pixels[x,y] := clLime;
end;
end;
ImgDest.Picture.Assign(png);
finally
png.Free;
end;
end;
A seguir, o resultado!
É necessário que ter a unit
pngimage
. No XE3 está em Vcl.Imaging.pngimage
.
Porém, se carregar a imagem em tempo de desing, a própria IDE do Delphi já adiciona uma referência para a mesma.
clWhite
.