6 respuestas en este tema

[escafandra]

Las regiones en Windows nos permiten realizar cosas interesantes. Quizás una de las mas llamativas sea definir contornos personalizados para nuestras ventanas. También permiten aislar zonas sobre las que vanos a dibujar.

Por defecto podemos crear algún tipo de región: rectangular, elíptica o poligonal. Se echa en falta conseguir una región a partir de un bitmap con un dibujo personalizado. El truco que presento trata de realizar eso mismo usando la API.

La función CreateBitmapRgn crea un HRGN a partir de un HBITMAP usando un color es una versión mejorada de la que publiqué en el tema  Manejo de imágenes Bitmap estilo Winamp, una prueba de concepto donde hago uso de regiones para personalizar un Skin para un formulario.
 

cpp

HRGN CreateBitmapRgn(HBITMAP hBmp, COLORREF Color, bool Tr);

delphi

function CreateBitmapRgn(hbmp: HBITMAP; Color: COLORREF; Tr: boolean): HRGN;

hbmp: Es el bitmap a partir del que vamos a obtener una región.
Color: Es el color que va a definir la región dependiendo del valor de Tr.
Tr: Modifica el funcionamiento. Si Tr es true, Color se considerará que será transparente, en caso contrario, Color será opaco y todo lo demás transparente.

La región creada deberá ser destruida cuando no siga haciendo falta su uso con la API DeleteObject.

Os dejo el código en C/C++
 

cpp

HRGN CreateBitmapRgn(HBITMAP hBmp, COLORREF Color, bool Tr)
{
  DWORD DWColor = ((Color << 16) & 0x00FF0000) | (Color & 0x0000FF00) | ((Color >> 16) & 0x000000FF);
  HDC hDC = GetDC(0);
  int    x, y;
  HRGN  hrgn,  hrgnTmp;
  PDWORD pBites = 0;
  BITMAPINFO bmpInfo = {0};
 
  // Obtengo un mapa de bits de 32 BitCount
  bmpInfo.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
  GetDIBits(hDC, hBmp, 0, 0, NULL, &bmpInfo, DIB_RGB_COLORS);
  bmpInfo.bmiHeader.biSizeImage = (bmpInfo.bmiHeader.biWidth * bmpInfo.bmiHeader.biHeight) << 2;
  bmpInfo.bmiHeader.biPlanes = 1;
  bmpInfo.bmiHeader.biBitCount = 32;
  bmpInfo.bmiHeader.biCompression = BI_RGB;
  pBites = (PDWORD)VirtualAlloc(0, bmpInfo.bmiHeader.biSizeImage, MEM_COMMIT, PAGE_READWRITE);
  GetDIBits(hDC, hBmp, 0, bmpInfo.bmiHeader.biHeight, pBites, &bmpInfo, DIB_RGB_COLORS);
 
  // Creo la región
  hrgn = CreateRectRgn(0, 0, 0, 0);
  int w = 0;
  for(y = bmpInfo.bmiHeader.biHeight-1; y>=0; y--){
    for(x = 0; x < bmpInfo.bmiHeader.biWidth; x++){
      if(x < bmpInfo.bmiHeader.biWidth-1 && x != w && ((*pBites & 0xFFFFFF) == DWColor) ^ Tr)
        w++;
      else  if(w > 0){
        hrgnTmp = CreateRectRgn(x-w, y, x + 1, y + 1);
        CombineRgn(hrgn, hrgn, hrgnTmp, RGN_OR);
        DeleteObject(hrgnTmp);
        w = 0;
      }
      pBites++;
    }
  }
 
  VirtualFree(pBites, 0, MEM_RELEASE);
  ReleaseDC(0, hDC);
  return hrgn;
}

Y en delphi:

delphi

function CreateBitmapRgn(hbmp: HBITMAP; Color: COLORREF; Tr: boolean): HRGN;
var
  DWColor: DWORD;
  DC: HDC;
  x, y, w: integer;
  incRow: integer;
  hrgnTmp: HRGN;
  pBites: PDWORD;
  bmpInfo: BITMAPINFO;
begin
  DWColor:= ((Color shl 16) and $00FF0000) or (Color and $0000FF00) or ((Color shr 16) and $000000FF);
  DC:= GetDC(0);
 
  // Obtengo un mapa de bits de 32 BitCount
  ZeroMemory(@bmpInfo, sizeof(BITMAPINFO));
  bmpInfo.bmiHeader.biSize := sizeof(BITMAPINFOHEADER);
  GetDIBits(DC, hbmp, 0, 0, nil, bmpInfo, DIB_RGB_COLORS);
  bmpInfo.bmiHeader.biSizeImage:= (bmpInfo.bmiHeader.biWidth * bmpInfo.bmiHeader.biHeight) * 4;
  bmpInfo.bmiHeader.biPlanes:= 1;
  bmpInfo.bmiHeader.biBitCount:= 32;
  bmpInfo.bmiHeader.biCompression:= BI_RGB;
  pBites := VirtualAlloc(nil, bmpInfo.bmiHeader.biSizeImage, MEM_COMMIT, PAGE_READWRITE);
  GetDIBits(DC, hbmp, 0, bmpInfo.bmiHeader.biHeight, pBites, bmpInfo, DIB_RGB_COLORS);
 
  // Creo la región
  Result:= CreateRectRgn(0, 0, 0, 0);
  w:= 0;
  for y:= bmpInfo.bmiHeader.biHeight-1 downto 0 do
  begin
    for x:= 0 to bmpInfo.bmiHeader.biWidth-1 do
    begin
      if (x<bmpInfo.bmiHeader.biWidth-1) and (x <> w) and ((((pBites^ and $FFFFFF) = DWColor) xor Tr) = true) then
        inc(w)
      else  if w > 0 then
      begin
        hrgnTmp:= CreateRectRgn(x-w, y, x, y+1);
        CombineRgn(Result, Result, hrgnTmp, RGN_OR);
        DeleteObject(hrgnTmp);
        w:= 0;
      end;
      inc(pBites);
    end;
  end;
  VirtualFree(pBites, 0, MEM_RELEASE);
  ReleaseDC(0, DC);
end;

Espero que la información y el código os sea de utilidad.

Saludos.

[felipe]

Excelente amigo escafandra, ¿que color usas en el ejemplo?


Saludos!

[escafandra]

Excelente amigo escafandra, ¿que color usas en el ejemplo?

Se puede usar cualquier color del hBitmap en cuestión. Puedes considerarlo como el transparente, en cuyo caso se elimina de la región, o como opaco, siendo todos los demás los que se eliminarán.


En el ejemplo del tema "Manejo de imágenes Bitmap estilo Winamp" uso el blanco, como transparente, para la región que marcará el borde de la ventana porque así lo elegí. En los botones, el color de cada botón como opaco.


Se deme tener cuidado con bitmaps true color (24 y 32 bits) porque podemos encontrar el color deseado en zonas no deseadas y pequeñas diferencias de color que no son el color elegido con lo que el resultado puede no ser exactamente el esperado. En estos casos es mejor realizar una máscara con un editor gráfico, es decir un nueva capa del bitmap con los colores bien diferenciados para usarlo al crear la región.


Saludos.

[felipe]

Ok, porque en el ejemplo del otro hilo usas un Bitmap que maneja diferentes colores dependiendo de la región (imagino que para diferenciarlos), ¿esto es importante o simplemente todos vienen siendo el "opaco"?


Saludos!

[escafandra]

Si es importante la diferenciación de los colores, porque esas regiones serán las sensibles al ratón y cada color identifica un botón real del formulario, digamos que representan tanto la correspondencia Form1.Button --> dibujo Skin del botón correspondiente, como la zona del Skin que se redibuja al pulsar u soltar el botón izquierdo del ratón.


En esos colores la consideración es "opaco", así se crea una región por cada botón del Skin que se guarda en la propiedad Tag de cada botón real.


Quizás el código sea mas explícito que mis comentarios, no se si son un poco liosos.




Saludos.

[felipe]

Si es importante la diferenciación de los colores, porque esas regiones serán las sensibles al ratón y cada color identifica un botón real del formulario, digamos que representan tanto la correspondencia Form1.Button --> dibujo Skin del botón correspondiente, como la zona del Skin que se redibuja al pulsar u soltar el botón izquierdo del ratón.


En esos colores la consideración es "opaco", así se crea una región por cada botón del Skin que se guarda en la propiedad Tag de cada botón real.


Quizás el código sea mas explícito que mis comentarios, no se si son un poco liosos.




Saludos.

Es claro el asunto amigo, era más como por saber la lógica del mismo en primera mano


Saludos!

[Caral]

Hola
Muy interesante, como siempre.
Cosas asi son las que motivan a investigar mas.
Gracias escafandra.
Saludos