2

Tenho a seguinte estrutura:

public
  FBMP : TBitmap;

...
var
  PNG : TPNGImage;
  Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  Stream.LoadFromFile('foo.png');

  PNG := TPNGImage.Create;
  PNG.LoadFromStream(Stream);

  FBMP := TBitmap.Create;
  FBMP.Assign(PNG);

  PNG.Free;
  Stream.Free;
end;

Quando tento desenhar a imagem acima, eu percebo que ela não reconhece a semi-transparência do arquivo PNG (mostrando todas as cores opacas), fenômeno que não acontecia quando eu não utilizava a stream. Mas como surgiu a necessidade de usar a stream, lá vai minha questão: como ativar a transparência quando carregando a imagem por TMemoryStream?

2 Respostas 2

1

Bom, acredito que manipular a propriedade TransparencyMode de um componente TPNGImage deverá ser útil a você.

Uses pngimage;
// ...   
var
  PNG : TPNGImage;
// ...
begin
  // ...
  PNG := TPNGImage.Create;
  PNG.LoadFromStream(Stream);
  PNG.TransparencyMode := ptmBit;
  // ...

Essa propriedade não é somente leitura, com pode ser visto no trecho a seguir(retirado da documentação).

Use TransparencyMode para determinar o modo de transparência a imagem png usa....

5
  • Não é uma propriedade apenas de leitura?
    – Guill
    Commented 28/03/2014 às 4:46
  • property TransparencyMode: TPNGTransparencyMode read GetTransparencyMode; É sim. Essa é a declaração que se encontra na documentação que você postou o link. E indica que é somente leitura.
    – Guill
    Commented 28/03/2014 às 4:48
  • De qualquer maneira, acabei de tentar setar ela e o compilador não deixa por ser somente leitura. Quando a documentação diz "Use para determinar" é pra você saber qual é o tipo atual. E não pra modificar.
    – Guill
    Commented 28/03/2014 às 4:53
  • @TiagoC Você quer dizer Transparent?
    – Guill
    Commented 28/03/2014 às 5:05
  • Funcionou. Mas apenas a transparência total e não a semi-transparência. Mas eu já encontrei uma solução melhor.
    – Guill
    Commented 28/03/2014 às 5:06
1

Percebi que é muito "gambiarroso" o que estou fazendo. A melhor prática seria usar apenas TPNGImage, desta forma:

public
  FPNG : TPNGImage;

...
var
  Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  Stream.LoadFromFile('foo.png');

  FPNG := TPNGImage.Create;
  FPNG.LoadFromStream(Stream);

  Stream.Free;
end;

Elimina algumas linhas, um falso casting desnecessário, não gera qualquer problema colateral e preserva as informações dos pixels semi-transparentes.

0

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 .