Una ayuda con Imágenes PNG

[Olenkaguilar]

Bueno resulta que quiero poner imágenes PNG a los Buttons y utilizar la propiedad FLAT( que al pasar el puntero aparezca el button), lo hice de la siguiente manera:

Código Delphi [-]
unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, PngImage, Vcl.Buttons;

type
  TForm2 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
{$R Misrecursos.res}
procedure LoadPNGFromResource(Picture: TPicture; const ResName: string); overload;
var
  Png: TPngImage;
begin
  Png := TPngImage.Create;
  try
    Png.LoadFromResourceName(HInstance, ResName);
    Picture.Assign(Png);
  finally
    if Assigned(Png) then  FreeAndNil(Png);
  end;
end;

procedure LoadPNGFromResource(Bitmap: TBitmap; const ResName: string); overload;
var
  Png: TPngImage;
begin
  Png := TPngImage.Create;
  try
    Png.LoadFromResourceName(HInstance, ResName);
    Bitmap.Assign(Png);
  finally
    if Assigned(Png) then  FreeAndNil(Png);
  end;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
LoadPNGFromResource(SpeedButton1.Glyph, 'RES_IMG_BROOM_16X');
end;

end

Me funciono pero lo malo es que la imagen PNG se nota muy fea. Lo que supongo que le faltaría las opciones de:
- DrawingStyle: dsTransparent
- ColorDepth: cd32Bit
Esas propiedades funcionan en un TimageList, pero no sé a lo mejor le falta eso a mi codigo.
Utilizaría un TimageList y otro Button, me olvidaría de los recursos, si no cargaría directamente los PNG al ImageList y Listo, pero al parecer otros Button no tienen la propiedad FLAT.
Bueno espero su ayuda ya que recién estoy empezando y soy un poco novata.

[ecfisa]

Hola Olenkaguilar.

Por tu mensaje veo que estas usando una versión Delphi superior a la mía y PnpImage difiere. Y aunque, salvadas las diferencias, tu código no me degrada las imágenes, proba de esta forma por las dudas.

Te pongo un ejemplo que usa 3 SpeedButtons y tres imágenes .png guardadas en imágenes.res.

Archivo imagenes.rc:

1 RCDATA Burn_48x48.png
2 RCDATA cancel_48x48.png
3 RCDATA User_48x48.png

Y luego de :

brc32 -r -v imagenes.rc

Este código:

Código Delphi [-]
...
implementation

{$R imagenes.res}

uses PngImage;

procedure LoadPngFromRes(const ResName: string; const Index: Integer; Pic: TPicture);
var
  RE : TResourceStream;
begin
  with TPngObject.Create do
  try
    RE  := TResourceStream.Create(hInstance, '#'+ IntToStr(Index), RT_RCDATA);
    try
      RE.Seek(0, soFromBeginning);
      LoadFromStream(RE);
      AssignTo(Pic);
    finally
      RE.Free;
    end;
  finally
    Free;
  end;
end;

// Cargar imágenes en SpeedButtons al inicio
procedure TForm1.FormCreate(Sender: TObject);
var
  i  : Integer;
  C  : TComponent;
begin
  for i := 1 to 3 do
  begin
    C := FindComponent('SpeedButton' + IntToStr(i));
    if C <> nil then
    begin
      TSpeedButton(C).Flat := True;
      LoadPngFromRes('IMAGEN.RES', i, TPicture(TSpeedButton(C).Glyph));
    end;
  end;
end;
...

Con este resultado:


Nota: Para que funcione el ejemplo, es necesario que los TSpeedButtons se llamen SpeedButton1, SpeedButton2 y SpeedButton3.

Saludos.

Edito: La degradación, también podría deberse a algún problema con el formato de las imágenes y no a como son tratadas en tu código...

[Olenkaguilar]

http://www.subeimagenes.com/img/sin-titulo-671196.jpg
(Disculpe que no ponga el link, me sale que aún no tengo privilegios ) faltan los "w"


Lo de form2 es lo que me da, lo de abajo es un programa(en delphi) y esos son los iconos; al parecer si se deteriora.

Con un ImagenList y aplicando esos 2 parámetros en sus propiedades si me queda tal cual con un Tbutton, lo malo que no se puede utilizar la propiedad Flat uhmm, o a lo mejor Utilizando PNGcomponets

[ecfisa]

Hola Olenkaguilar.

En realidad no noto mucha degradación... pero los íconos son pequeños y si la hay, casi ni se aprecia.

Te pongo una página donde podes descargar íconos png gratuitos (iconos png). Tal vez con alguno de mayor tamaño puedas apreciar mas fácilmente si existe pérdida de calidad.

Saludos.