Modificación del Truco 467

[madiazg]

Hola,
gracias por contestar, aunque esta solución tiene una pega. Si coloco el fondo blanco como transparente, todas las partes del thumbnail (fotografía) de color blanco también serían transparentes con lo que adoptaría el color del fondo (en mi caso oscuro). He probado con una fotos con cielo quemado y queda faltal.
El motivo es simplemente estético. El listview es de color oscuro a tono con el resto del form.

Saludos...
Miguel Angel

[[duilioisola]]

En este momento no tengo Delphi para probarlo, pero puede ser que el color transparete sea el negro ($000000).

De no ser así, habría que averiguar como define Windows el color transparente.

Creo que a partir de WinNT el color transparete es nego. Antes era le blanco.
Pruébalo y nos cuentas como te fue.

[[cHackAll]]

Una de mis principales frustraciones antes de escribir dicho truco era mi incapacidad de reconocer formatos estándares que para Delphi no lo eran así (png, gif, jpeg, etc.) y con mi clásico desacuerdo al uso de componentes debía encontrar una solución. Una vez probada la interfaz IExtractImage noté que también podía crear vistas en miniatura de una amplia gama de formatos no gráficos a una velocidad considerablemente superior a otras pruebas realizadas, el problema que describes me pareció algo secundario y obviamente lo deje pasar.

Ahora no tengo en mente alguna propiedad de alguna interfaz que pueda ser de utilidad para el caso, pero suponiendo que estas utilizando las vistas en miniatura en tu proyecto de gráficos te doy una alternativa igualmente nativa; prueba el siguiente código utilizando ésta unidad y me cuentas

Código Delphi [-]
...
 
uses Viewer;
 
{$r *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var Image: TBitmap;
begin
 Image := GetImage('ClubDelphi.png'{, Tamaño del Thumbnail [opcional]}{, Color de fondo [opcional]});
 if Assigned(Image) then
  begin
   Image1.Picture.Assign(Image);
   Image.Destroy;
  end;
end;

Notarás que no necesitamos Delphi2009 o un montón de componentes para reconocer un buen numero de formatos de imágenes

Saludos

[madiazg]

Muchas gracias cHackAll. Funciona perfectamente.
Saludos...
Miguel Angel

[capo979]

Estoy probando el truco 467 y donde dice

Código Delphi [-]
type
 IExtractImage = interface ['{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}'] // http://msdn2.microsoft.com/en-us/lib...48(VS.85).aspx
  function GetLocation(pszPathBuffer: PWideChar    {LPWSTR}; cchMax: DWORD; var pdwPriority: DWORD; const prgSize: SIZE; dwRecClrDepth: DWORD; var pdwFlags: DWORD): HRESULT; stdcall;
  function Extract(var phBmpImage: HBITMAP): HRESULT; stdcall;
 end;

me salta el error

undeclared identifier HBITMAP

y en el uses le pongo la unidad Graphics

alguién me puede ayudar porque no lo puedo probar

muchas gracias

saludos

[[cHackAll]]

Código Delphi [-]
..., Windows, ...

[capo979]

Cuando pongo el siguiente código

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.Assign(GetThumbnail('c:\windows\web\wallpaper', 'ascent.jpg', 96, 96));
end;

En Image1 no aparece nada no se ve nada

que puede ser

Saludos