FWH 8.07: Transparencia en diálogos con bitmaps (no brushes)

[Antonio Linares]

Requiere un nuevo build de FWH 8.07 que publicaremos en unos minutos:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg, oRad, nVal := 1, oCbx, lVal := .T., oGrp
   local hBmp := ReadBitmap( 0, "rainbow.bmp" )

   DEFINE DIALOG oDlg RESOURCE "Test" TRANSPARENT

   REDEFINE RADIO oRad VAR nVal ID 10 OF oDlg
   
   REDEFINE CHECKBOX oCbx VAR lVal ID 20 OF oDlg
   
   REDEFINE GROUP oGrp ID 30 OF oDlg
   
   REDEFINE BUTTON ID 1 OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT DrawBitmap( hDC, hBmp, 0, 0, oDlg:nWidth, oDlg:nHeight )

   DeleteObject( hBmp )

return nil


Ficheros y EXE:
http://www.mediafire.com/?hzjnrb4lttd

[Antonio Linares]

Acabamos de publicar una nueva revisión de FWH 8.07 que incluye esta nueva característica.