Page 1 of 1

Error en BTNBMP con lTransparent

PostPosted: Mon Mar 27, 2017 3:23 am
by devtuxtla
Hola Fivewinnrs.

Hay un error en la clase Tbtnbmp cuando adiciono oBtn:lTransparent := .t.
Pero NO estoy utilizando la clausula TRANSPARENT en la definicion del dialogo

Arroja este error

TBTNBMP:FILLAREA : 1,166 in Module: .\source\classes\BTNBMP.PRG
TBTNBMP:FILLAREA : 1,166 in Module: .\source\classes\BTNBMP.PRG
TBTNBMP:PAINTBACKGROU : 1,216 in Module: .\source\classes\BTNBMP.PRG
TBTNBMP:PAINT : 1,736 in Module: .\source\classes\BTNBMP.PRG
(b)TBTNBMP:TBTNBMP : 166 in Module: .\source\classes\BTNBMP.PRG
TBTNBMP:DISPLAY : 0 in Module:
TCONTROL:HANDLEEVENT : 1,697 in Module: .\source\classes\CONTROL.PRG
TBTNBMP:HANDLEEVENT : 1,843 in Module: .\source\classes\BTNBMP.PRG
_FWH : 3,325 in Module: .\source\classes\WINDOW.PRG
UPDATEWINDOW : 0 in Module:
TWINDOW:ACTIVATE : 1,013 in Module: .\source\classes\WINDOW.PRG
TMDICHILD:ACTIVATE : 262 in Module: .\source\classes\MDICHILD.PRG
N05C_BOTONES : 207 in Module: C:\PROYTEST\PRG\BOTONES.PRG

Utilizo FWH17.02 / xHarbour 1.2.3 / Bc7

Saludos

Re: Error en BTNBMP con lTransparent

PostPosted: Mon Mar 27, 2017 3:52 am
by nageswaragunupudi
Code: Select all  Expand view
#include "fivewin.ch"

function Main()

   local oWnd, oBrush, oBtn

   DEFINE BRUSH oBrush FILE "c:\fwh\bitmaps\backgrnd\beige.bmp"
   DEFINE WINDOW oWnd BRUSH oBrush TITLE "Transparent Button"

   @ 50,50 BTNBMP oBtn SIZE 100,100 PIXEL OF oWnd 2007 ;
      FILE "c:\fwh\bitmaps\attach.bmp" PROMPT "Button"

   oBtn:lTransparent := .t.

   ACTIVATE WINDOW oWnd CENTERED

return nil
 


Image