About windows xp manifest file

[Marco Turco]

Hi all,
Do we already need to link it ?
I checked that using the manifest file there are some problems using transparent images.

[Antonio Linares]

Marco,

You need it if you want XP themed look

[Marco Turco]

Ok, but there is a problem using the transparent clause in a mdi context. The transparent doesn't runs.

This is a self-contained that show the problem linking the manifest file.

Executable, bitmap and code at www.softwarexp.co.uk/beta/antonio.zip

Any ideas ? Thanks in advance.

#include "fivewin.ch"

static ownd
static oImage

Function main()

DEFINE WINDOW oWnd TITLE "TTitle Class Test" MDI


@ 20, 5 IMAGE oImage FILE "SM_1.BMP" OF oWnd:oWndClient noborder pixel
oImage:lTransparent:=.t.

activate window oWnd maximized


return nil

[Daniel Garcia-Gil]

Hello Marco

I'm not sure with this change, i didn't test all combinations

Open \source\Bitmap.prg

find and replace (end of file):

Code: Select all  Expand view

//#ifdef __CLIPPER__

static function IsAppThemed() ; return .f.

static function DrawPBack() ; return nil

//#endif

[mmercado]

Hi Marco/Daniel:

I'm not sure with this change, i didn't test all combinations

Without a deep analisys (don't know what DrawPBack function does), I think that can be resolved by changing the next lines in TBitmap Paint method to be as shown:

Code: Select all  Expand view

  if IsAppThemed() .and. Empty( ::oBrush:hBitmap ) .and. ! ::lTransparent
      DrawPBack( ::hWnd, ::hDC )
   elseIf ! Empty( ::oBrush:hBitMap )
      #ifdef __CLIPPER__
         SetBrushOrgEx( ::hDC, 8 - ::nLeft() % 8, 8 - ::nTop() % 8 )
      #else
         SetBrushOrgEx( ::hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
      #endif
      FillRect( ::hDC, GetClientRect( ::hWnd ), ::oWnd:oBrush:hBrush )
   endif
 

Best regards.

Manuel Mercado.

[Marco Turco]

Hi all,
thank your your reply.

Daniel,
your solution is the same as removing the manifest file, the themes doesn't runs anymore in the app.

Manuel,
I tried your solution also but now the problem appairs on all bitmaps where I use the transparent clause.
See http://www.softwarexp.co.uk/beta/image.png

Any ideas ?

[Daniel Garcia-Gil]

Hello Marco...

Daniel,
your solution is the same as removing the manifest file, the themes doesn't runs anymore in the app.

Are you sure???

do you write "STATIC" before Function??

Code: Select all  Expand view

//#ifdef __CLIPPER__

static function IsAppThemed() ; return .f.  // <== static

static function DrawPBack() ; return nil     //<== static

//#endif
 

[mmercado]

Hi Marco:

Manuel,
I tried your solution also but now the problem appairs on all bitmaps where I use the transparent clause.

You're right, try this way:

Code: Select all  Expand view

  if IsAppThemed() .and. Empty( ::oBrush:hBitmap ) .and. ! ::lTransparent
      DrawPBack( ::hWnd, ::hDC )
   else
      #ifdef __CLIPPER__
         SetBrushOrgEx( ::hDC, 8 - ::nLeft() % 8, 8 - ::nTop() % 8 )
      #else
         SetBrushOrgEx( ::hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
      #endif
      FillRect( ::hDC, GetClientRect( ::hWnd ), ::oWnd:oBrush:hBrush )
   endif
 

Regards.

Manuel Mercado.

[Marco Turco]

Hi Manuel,
it runs fine. Thank you very much.

[Marco Turco]

Hi Daniel,
I haven't tested it
but as I can see with your turn-around the class tbitmap doesn't know anymore if a theme is running (isapptheme always return .f.)
so any image is painted without theme style.

Hello Marco...

Daniel,
your solution is the same as removing the manifest file, the themes doesn't runs anymore in the app.

Are you sure???

do you write "STATIC" before Function??

Code: Select all  Expand view

//#ifdef __CLIPPER__

static function IsAppThemed() ; return .f.  // <== static

static function DrawPBack() ; return nil     //<== static

//#endif
 

[Daniel Garcia-Gil]

Hello Marco...

my change work fine (for now)

please test it...

see and download

http://www.sitasoft.com/fivewin/test/thembmp.zip

[Marco Turco]

Sorry Daniel, you are right.

However with your turn-around and also with the Manual solution there are problems using bitmap on folder because they are now not transparent.

See www.softwarexp.co.uk/beta/test.png

Any ideas ?

[Daniel Garcia-Gil]

Hello Marco..

However with your turn-around and also with the Manual solution there are problems using bitmap on folder because they are now not transparent.

is was for my solution

but maybe work with a WHITE brush

Local oBrush := TBrush():New( , CLR_WHITE )

...

oFolder:aDialogs[ x ]:SetBrush( oBrush )

[Marco Turco]

Hi Daniel,
thank for your reply.

It is a bit difficult for me to make the change you proposed me due to the fact that I have a lot o folder in my app.

Do you know if there is a way to change the background of this image I display on the MDI in order to act only on this image that give me problems ?
You already solved my problem about the rbbuttons background usinga a rbbtn:hback:createsolidbrush,
is there something similar for tbitmap class ?

Thanks in advance.