Saludos
Estamos evaluando desarrollar una solución para odontología, la imagen del diente requiere asignarle imágenes según el diagnostico.
function ImageOverlay()
local aImage1, aImage2, hBmp
local cFile1 := "c:\fwh\bitmaps\olga1.jpg"
local cFile2 := "c:\fwh\bitmaps\alphabmp\calendar.bmp"
local cSave := "overlay.png"
aImage1 := FW_ReadImage( nil, cFile1 ) // [3],[4] are width and height
aImage2 := FW_ReadImage( nil, cFile2 )
hBmp := FW_MakeYourBitmap( aImage1[ 3 ], aImage1[ 4 ], ;
{ |hDC, w, h| PaintOverlay( hDC, w, h, aImage1, aImage2 ) } )
PalBmpFree( aImage1 )
PalBmpFree( aImage2 )
FW_SaveImage( hBmp, cSave ) // cSave can be bmp,jpg,png
DeleteObject( hBmp )
XImage( cSave ) // Test the saved image
return nil
static function PaintOverlay( hDC, w, h, aImage1, aImage2 )
local t,l
FW_DrawImage( hDC, aImage1 )
t := h - aImage2[ 4 ] - 20
l := w - aImage2[ 3 ] - 20
FW_DrawImage( hDC, aImage2, { t, l, t + aImage2[ 4 ], l + aImage2[ 3 ] } )
return nil
cImage := GetPvProfString("Config","ImagenWnd",".\FapSoft.jpg",cIniFile)
DEFINE BRUSH oBrush FILE cImage STRETCH // or RESIZE
cImage2 := GetPvProfString("config","Image2",".\Zorra.jpg",cIniFile)
DEFINE WINDOW oWnd MDI ;
TITLE "WINCONT " ;
BRUSH oBrush ;
ICON oIco
//FW1204 Usando Bmp AlphaBlend con IMAGE (Zorrita)
@ 300, 60 IMAGE oImage2 FILENAME cImage2 NOBORDER SIZE 100,100 ADJUST OF oWnd:oWndClient
oWnd:bPainted := { || ABPaint( oWnd:oWndClient:hDC, 60, 300, oImage2:hBitmap, 255 ) }
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 89 guests