James Bott wrote:Enrico,
Well here is a strange one. I tried fw\samples\testchk2.prg and it works fine. I copied the file to a new filename testch2a.prg and it doesn't work
if IsAppThemed() .and. Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP"
DrawPBack( ::hWnd, hDC )
endif
bIsThemed = ( ( ( BOOL ) FindResource( GetResources(), MAKEINTRESOURCE( 1 ),
MAKEINTRESOURCE( 24 ) ) ) ||
( ( BOOL ) FindResource( GetInstance(), MAKEINTRESOURCE( 1 ),
MAKEINTRESOURCE( 24 ) ) ) || pIsAppThemed() );
What if you remove pIsAppThemed() from the test?
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 22 guests