FiveTech Software tech support forums

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

Antonio Linares wrote:Have you tried with SetBkMode( hDC, TRANSPARENT ) ?

on method Painttext antolin used SetBkMode( hDC, 1 ) i think perhaps it not need drawpback

but sometimes I have problem with fonts on win 7

do you Know the Antolin mail ? I wish ash some questions ...

...  := ::hDC    * Local aInfo       := ::DispBegin()  //  IF ::lTransparent  //     ::DrawPBack( ::hWnd, hDC )  //    ELSE         ::_FillRect( aRect[1], aRect[2], aRect[3],aRect[4], ...

... Elimina el método SetText() de la Clase TSay y comprueba si desaparece el efecto, gracias 2. Candidatos a lo que ocurre pudieran ser las llamadas: DrawPBack() y/o GetTextWidth() Prueba a eliminar cada una de esas por separado, gracias :-)

... in the control.prg: In the Method Colors(hDC) please see lines 486 and 487 ( FWH 11.06):               DrawPBack( ::hWnd, hDC )               //ParentImage( ::hWnd, hDC )  ParentImage is commented and ...

... doesn't seem to work. In the meantime, please try my previous sample without manifest file and with the following changes to control.prg: - both DrawPBack() calls commented out - the following line reactivated: ::oWnd:Refresh( .f. )   // EMG commented out to avoid flicker Then test ...

... test it with and without theme manifest. Unfortunately TEST1 dialog without folder doesn't seem to work (without themes) even if I comment out DrawPBack() calls: #include "Fivewin.ch"FUNCTION MAIN()    TEST1()    TEST2()    RETURN NILSTATIC FUNCTION TEST1()  ...

Enrico Maria Giordano wrote:the first thing we have to know is what DrawPBack() is for.

DrawPBack() draws the background of the parent control containing the transparent object.

We have to test radios and checkboxes inside a folder too.

EMG

No Emg,

On Old Post on spanish forum Antonio Linares remmed this line !!!

this last year...

and there is another topic on forum
Remember ?
viewtopic.php?f=3&t=19966&hilit=DrawPBack

Richard Chidiak wrote:

Code: Select all  Expand view

//DrawPBack( ::hWnd,  hDC )  // chidiak remove this line

Richard, the first thing we have to know is what DrawPBack() is for. Antonio (or anybody else)?

EMG

... to rem this line if IsAppThemed() .and. Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP" // ParentImage( ::hWnd, hDC ) // chidiak // DrawPBack( ::hWnd, hDC ) // chidiak remove this line endif endif return ::oBrush:hBrush I tried this test #include"fivewin.ch"FUNCTION TEST()  ...

Now on win xp I add

function IsAppThemed()

return .F.

and it seems go ok , this afternoon I try to win seven

I'm thinking perhaps there is an error on DrawPBack( ::hWnd, hDC ) function

... dialog oDlgretuRN NIL I try to modify control.prg if IsAppThemed() .and. Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP" // DrawPBack( ::hWnd, hDC ) endif endif Bu tI have the same error on Win xp and Win Seven

James,

Enrico already noticed the reason for it:

Windows themes API IsAppThemed() returns .T. even if we are not using a themes manifest (my first example) so FWH calls DrawPBack() (another Windows themes API function) and it fails as themes are not being used.

... in the following lines: if IsAppThemed() .and. Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP"   DrawPBack( ::hWnd,  hDC )endif The function IsAppThemed() returns .T. even if the theme manifest is not linked in. So DrawPBack() is executed ...