www.FiveTechSoft.com
https://fivetechsoft.com/forums/
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.
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.
ó 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.
Solucionado con la IA
Gracias Karinha.
Saludos.