FiveTech Software tech support forums

Carlos, Prueba a modificar el método EraseBkGnd() de la Clase TPanel así: METHOD EraseBkGnd( hDC ) CLASS TPanel   if ::oWnd != nil .and. IsAppThemed() .and. ;      Upper( ::oWnd:ClassName() ...

... PROMPT "&1. Color " ; FILENAME c_path1 + "Paint.Bmp" ; ACTION ( nBColorF1 := ChooseColor(), oBmp[4]:Refresh(), ; oBtn[10]:EraseBkGnd( hDC ), ; // NO effect ! oBtn[10]:bClrGrad = { | lMouseOver | If( ! lMouseOver,; { { 0.50, nBColorF1, nBColorB1 }, ; { 0.50, nBColorB1, nBColorF1 ...

...  *   SelectObject(hCDC,hBmp)   ::ReleaseDc()   ::hDc := hCDC    // PARA QUE SE EVALUE EL bPainted   ::EraseBkGnd(hCDC)   ::Paint()        // PARA QUE SE EVALUE EL bPainted   DeleteDc(hCDC)   ::hDc := NILRETURN hBmp     // NO OLVIDAR ...

... 0 ) Called from: .\\source\\classes\\CONTROL.PRG => TSCROLLBAR:PAINTBACK( 1581 ) Called from: .\\source\\classes\\CONTROL.PRG => TSCROLLBAR:ERASEBKGND( 1108 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\\source\\classes\\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1733 ) Called ...

...  1227  1539  1541 BDROPOVER              WINDOW.PRG      428  3733  3734 BEGINPAINT()           (function  in ?)    WINDOW.PRG      501  3751 BERASEBKGND            WINDOW.PRG      452  2923  2924 BFIND                  WINDOW.PRG      431   585   585 BFINDNEXT              WINDOW.PRG      432 ...

... de la implementación de Harbour. Como THActiveX deriva de TControl he probado a declarar como VIRTUAL los métodos Display(), Paint(), Link(), EraseBkGnd() y nada, el mismo resultado. Si hago oActiveX:Hide() el control se oculta, luego está ahí, pero por que no se muestra ? A ver si se ...

Rao, If we do:   if ::oWnd:IsKindOf( 'TDIALOG' )      return Super:EraseBkGnd( hDC )  ...  then we are calling Class TControl Method EraseBkGnd() which does nothing for DATA lTransparent. No transparency is managed from there, ...

May I propose the following change to the EraseBkgnd method of TGroup? METHOD EraseBkGnd( hDC ) CLASS TGroup   if ::oWnd:IsKindOf( 'TDIALOG' )      return Super:EraseBkGnd( hDC )   else      if ! Empty( ::bEraseBkGnd ...

Hakan,

Your example works fine here on Windows 7 with the new EraseBkGnd() code:

Antonio, Can you try this sample using DIALOG with new EraseBkGnd and without. Thanks, #include 'fivewin.ch'function Main()   local oWnd, cGet := SPACE(15)   DEFINE DIALOG oWnd COLOR CLR_WHITE,CLR_BLUE SIZE 600,400      @ 20, 20 TO 100,200 ...

... lTransparent". * Enhancement: FWH\samples\mallorca.prg enhanced to show pajama painting with arrays and Class TXBrowse. * New: New Method EraseBkGnd() in Class TGroup. It properly implements the clause TRANSPARENT and also uses its container bitmapped brush if defined, with the proper ...

... INLINE ::BeginPaint(), ::Paint(), ::EndPaint(),; If( ::bStart != nil,; Eval( ::bStart, ::bStart := nil ),), .f. METHOD End( nResult ) METHOD EraseBkGnd( hDC ) METHOD GetHotPos( nChar, hCtrlAt ) METHOD GetItem( nId ) INLINE GetDlgItem( ::hWnd, nId ) METHOD GotFocus() INLINE ::lFocused := .t.,; ...

... ) CONSTRUCTOR METHOD Do( cMethodName, uParam1, uParam2, uParam3 ) METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0 METHOD EraseBkGnd( hDC ) INLINE 1 METHOD GetProp( cPropName ) INLINE ; ActXGetProperty( ActXPdisp( ::hActiveX ), cPropName ) METHOD Initiate( hDlg ) METHOD ...

As the first step, please fix these warnings: LISTCHECK.prg(49) Warning W0001 Ambiguous reference: 'AITEMS' LISTCHECK.prg(51) Warning W0001 Ambiguous reference: 'OLIST' LISTCHECK.prg(52) Warning W0001 Ambiguous reference: 'OLIST' LISTCHECK.prg(52) Warning W0001 Ambiguous reference: 'AITEMS' LISTCHEC...

* ============================================================================ * TSBrowse.PRG Version 7.0 Jul/15/2004 * ============================================================================ /* This Classs is a recapitulation of the code adapted by Luis Krause Mantilla, of FiveWin classes: TCB...