2 imágenes en cabecera de xBrowse

[VitalJavier]

Saludos a todos
Pues eso, estoy intentando poner 2 imagenes en la cabecera
de una columna del xbrowse

Asi:

[Imagen] Texto [Imagen]

puedo poner 1, ya sea izq o derecha.

Si alguien ya lo supero podran echarme un hilo.

Gracias por su tiempo.

[karinha]

Mira \samples\xbrbtn2.prg

ó tal vez:

Code: Select all | Expand

// Ejemplo de colocación de imagen en header
oCol:cHeader := "Texto"
oCol:AddBitmap( "imagen1.bmp" )
oCol:AddBitmap( "imagen2.bmp" )
oCol:nHeadBmpNo := 1 // Selecciona la imagen por defecto

Regards, saludos.

[karinha]

ó tal vez:

Code: Select all | Expand

#include "FiveWin.ch"
#include "xbrowse.ch"

function Main()
   local oDlg, oBrw
   local hBmp1 := LoadBitmap( GetResources(), "imagen1.bmp" )
   local hBmp2 := LoadBitmap( GetResources(), "imagen2.bmp" )

   // ... (Configuración de oDlg y oBrw)

   WITH OBJECT oBrw:aCols[1]
      :cHeader := "Columna"
      // Bloque de código para personalizar el pintado
      :bPaintHeader := { | oCol, hDC, aRect | 
         // Dibujar la primera imagen a la izquierda
         DrawBitmap( hDC, hBmp1, aRect[1], aRect[2] + 2, 16, 16 ) 
         

     // Dibujar la segunda imagen a la derecha
     DrawBitmap( hDC, hBmp2, aRect[1], aRect[4] - 18, 16, 16 )
     
     // Dibujar el texto del encabezado centrado (opcional)
     oCol:DrawHeader( hDC, aRect )
  }
   END

   // ... (oBrw:CreateFromCode())
   // ... (ACTIVATE DIALOG)
   

   // No olvidar liberar las imágenes
   DeleteObject( hBmp1 )
   DeleteObject( hBmp2 )
return nil

Regards, saludos.

[VitalJavier]

Solucionado con la IA
Gracias Karinha.

Saludos.