Uso de una imagen tipo Template

[[escafandra]]

Es posible que este tema te sirva de algo:
Manejo de imágenes Bitmap estilo Winamp

Saludos.

[hgiacobone]

Empezado por escafandra

Es posible que este tema te sirva de algo:Manejo de imágenes Bitmap estilo WinampSaludos.

Gracias amigo.
Voy a leerlo y luego comento.

[juniorSoft]

Hola amigos,


También estuve mirando el contenido del enlace, me encanto la forma de diseñar los formularios, aunque cuando lo probé en Delphi Tokio no presenta nada.

En el ejemplo que utiliza imágenes PNG, al parecer no se asigna el Handle correctamente ya que el error esta dando cuando se invoca la función CreateBitmapRgn

Estube modificandolo utilizando la unidad pngimage de delphi para tratar dichas imagenes pero de todas formas sigue sin presentar nada.

Saludos,

[[escafandra]]

El código original está escrito para delphi7 en un mundo sin unicode. Para adaptarlo a Berlin o Tokio hay que modificar la función CreateHBITMAPFromFile que quedaría así:

Código Delphi [-]
function CreateHBITMAPFromFile(FileName: PCHAR): HBITMAP;
var
  gdiplusToken: DWORD;
  GdiPlusStartupInput: array[0..2] of int64;
  GBitmap: THANDLE;

begin
  Result:= 0;
  // Initialize GDI+.
  GdiPlusStartupInput[0]:= 1; GdiPlusStartupInput[1]:= 0;
  if GdiplusStartup(gdiplusToken, @GdiPlusStartupInput, nil) = 0 then
  begin
    GdipCreateBitmapFromFile(FileName, GBitmap);
    GdipCreateHBITMAPFromBitmap(GBitmap, Result, 0);

    //shutdown GDI+
    GdiplusShutdown(gdiplusToken);
  end;
end;

Aquí puedes encontrar el proyecto completo adaptado a Berlin.




Saludos.

[juniorSoft]

Mil Gracias escafandra, funciona perfectamente

Éxitos,