12

Desejo criar a imagem da direita, a partir da que está na esquerda.

inserir a descrição da imagem aqui inserir a descrição da imagem aqui

E tenho a seguinte estrutura:

var
  Image, Mask : TBitmap;
begin
  Mask := TBitmap.Create;
  Image := TBitmap.Create;
  Image.LoadFromFile('Yoshi.png');

// Criação da máscara aqui

end; 

O resultado que procuro deve transformar Mask na imagem da direita para ser mostrada num formulário. Alguém sabe que tipo de método devo usar? Mexer diretamente com pixels? Ou quem sabe haja outro meio através dos canvas? Quem tiver qualquer ideia, mande aí.

10
  • 2
    Sei muito pouco sobre o assunto, porém, imagens semitransparentes são imagens sem fundo? Eu não sei como o Delphi reconhece esse tipo de pixel, e nem testei aqui. Mas qualquer cor de pixel diferente do valor reconhecido como cor de fundo (no caso do pixel transparente) você substitui pelo pela cor que você quer a máscara. Não seria por ai.. ?
    – user3628
    Commented 9/04/2014 às 18:02
  • Eu acho que se for para manipular a nível de pixels, seria por aí sim. Mas eu também nunca lidei diretamente com pixels no Delphi. Espero alguma direção com essa pergunta. E se por acaso alguém tiver uma maneira menos "coded" de fazer. Eu gostaria de saber.
    – Guill
    Commented 9/04/2014 às 18:15
  • Testei aqui e logo o primeiro pixel (0,0) já foi reconhecido como branco (#ffffff), então não seria uma fórmula perfeita tentar mudar a cor de tudo que for diferente de clWhite.
    – user3628
    Commented 9/04/2014 às 18:36
  • Seria necessário obter o valor Alpha de cada pixel. E preservá-lo caso for 0. Mas eu não sei como acessar este valor.
    – Guill
    Commented 9/04/2014 às 18:49
  • Bom, realmente não é minha praia. Veja se acha algo nesse link. Boa sorte!
    – user3628
    Commented 9/04/2014 às 18:56

3 Respostas 3

10

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!

Imagem tratada

É 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.

5
+50

Uma possível solução:

var
  Image, Mask : TBitmap;
  i,j,Color   : LongWord;
  rowI, rowM  : pRGBQuadArray;

begin
   Color := $FF0000;

   Image := TBitmap.Create;
   Image.LoadFromFile('Yoshi.png');

   Mask := TBitmap.Create;
   Mask.PixelFormat := pf32bit;
   Mask.Width  := Image.Width;
   Mask.Height := Image.Height;
   FOR j := 0 TO Mask.Height-1 DO
   begin
      rowM := Mask.Scanline[j];
      rowI := Mask.Scanline[j];
      FOR i := 0 TO Mask.Width-1 DO
      begin       
         rowM[i] := ( rowI[i] and $FF000000 ) + Color;
      end;
   end;
   // ...use a máscara...
end;

Compensa incluir um teste para se certificar de que Image também é pf32bit antes de criar a máscara.

7
  • Um cuidado: como não tenho o xe aqui, não sei se você tem pRGBQuadArray. De qualquer forma, tem que ser um tipo unsigned de 32 bits, teste e me diga, que ajusto a resposta. Se alguém puder testar e dar um feedback, vai ajudar.
    – Largato
    Commented 13/04/2014 às 22:05
  • copiei a estrutura pRGBQuadArray deste link no SOen. Porém, a linha rowM[i] := ( rowI[i] and $FF000000 ) + Color; não compila e retorna a mensagem: "Operator not applicable to this operand type".
    – user3628
    Commented 15/04/2014 às 13:45
  • @Tiago experimente trocar o INTEGER pro RGBQuad. Qualquer coisa, se nao funcionar, adapto a linha pra tratar o R G B A separado. A vantagem se conseguirmos funcionar desta maneira é a velocidade. É muito mais simples trocar por operação com pixel, mas a performance é baixa. Outra coisa é evitar serrilhado, pois soluções com transparência 0 e 1 só tem um acabamento ruim.
    – Largato
    Commented 15/04/2014 às 14:30
  • desculpe, não entendi onde efetuar essa troca do INTEGER pro RGBQuad.
    – user3628
    Commented 15/04/2014 às 15:01
  • @Tiago escrevi errado, eu usei LongWord no lugar do Integer, por ser unsigned.
    – Largato
    Commented 15/04/2014 às 15:03
-1

Tente utilizando a propriedade Canvas e FillRect.

Algo como:

procedure CreateBitmapSolidColor(Width,Height:Word;Color:TColor;const FileName : TFileName);
var
 bmp : TBitmap;
begin
 bmp:=TBitmap.Create;
 try
   bmp.PixelFormat:=pf24bit;
   bmp.Width:=Width;
   bmp.Height:=Height;
   bmp.Canvas.Brush.Color := Color;
   bmp.Canvas.FillRect(Rect(0,0,Height, Width));
   bmp.SaveToFile(FileName);
 finally
   bmp.Free;
 end;
end;

https://stackoverflow.com/questions/5414929/how-i-create-bmp-files-bitmaps-of-a-single-color-using-delphi

2
  • 4
    Marcelo é boa prática referenciar a resposta que linkou, pode trazer para aqui (traduzir) parte dela também?
    – Sergio
    Commented 14/04/2014 às 4:54
  • 1
    @MarcelodeAndrade, infelizmente, a única coisa que essa procedure faz é criar um quadrado/retangulo com a cor passada.
    – user3628
    Commented 15/04/2014 às 13:38

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .