Uso de una imagen tipo Template

[hgiacobone]

Hola gente...
Les planteo un tema que es muy conocido por todos, pero a pesar de ello y aunque no lo crean, hace días que vengo dando vueltas por la red y no encuentro info al respecto.

Se trata de cómo utilizar una imágen de tipo "Template", similar al ejemplo que adjunto aquí:


Se trata del tipo de imagen que contiene todo o gran parte, de lo que a aspecto grafico se refiere para nuestra aplicación.

Entonces, entiendo que primero se debe cargar (o leer) la imagen del template para, en pasos sucesivos, ir extrayendo las regiones que correspondan a cada área de la interfaz, como ser la gráfica de botones; fondos y bordes para ventanas de dialogo; etc.

También entiendo que, cada una de esas "porciones" de pequeñas imágenes, se pueden obtener mediante coordenadas en pixeles.
Supongamos para la imagen del ejemplo, la gráfica para botones se encuentra entre los puntos 60,660 (Sup,Izq) y 302,780 (Inf,Der)

Alguna idea de cómo ir realizando esto?

[el-mono]

No adjuntaste nada.

[[escafandra]]

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

Saludos.

[hgiacobone]

Empezado por el-mono

No adjuntaste nada.

Es que el editor te pone directamente el LINK.
Supongo que debes seguirlo para ver la imagen del ejemplo.

[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,