Re: Disable visual themes for Gui4Cli program on Windows 7 (64 bit)

Hi,

First - you're calling the function before the window is open, so there is
nothing to act on. Move the GuiOpen before the CALL command.

Second - you are not giving the Window Handle to the function, just 0.

To disable the styles in the window:

call uxtheme SetWindowTheme $$this.handle "" ""

However, this only seems to disable the window itself, not the listview,
probably because the listview is itself a window and has another handle.

I don't know how to get the listview's handle.. I can add an internal
variable like $$event.handle, next upload.

Dimitris



On Sun, Apr 21, 2013 at 6:34 PM, rene <[email protected]> wrote:

> **
>
>
> Hello,
> I try to disable visual themes for one of my programs using uxthemes.dll
> but can't get further ... not even sure that the dll gets loaded
> ($$func.ret always = -2147024890).
> Sample code:
> ------------------------------------------
> G4C DisableVisualThemes
> xOnload
> SysDll Declare uxtheme SetWindowTheme int "int/pstring/pstring"
> say "The declare uxtheme SetWindowTheme function returned: $$func.ret"
> call uxtheme SetWindowTheme 0 "" "" // Disable visual themes
> say "The call uxtheme SetWindowTheme function returned: $$func.ret"
> // SetWinAttr #this background color "150/150/150" // gray
> // Change the xCalendar colors and set preferences
> Use Calendar #this calendar_id
> Calendar color back "250/150/0" // orange
> Calendar color bkmonth "250/150/0" // orange => does not work if themes
> enabled ?
> Calendar color text "0/0/0" // black
> Calendar color bktitle "255/0/0" // red
> Calendar delta 1
> GuiOpen #this
> xOnClose
> SysDll Free uxtheme
> say "The Free UxTheme function returned: $$func.ret"
> GuiQuit #this
> Window #CENTER #CENTER 300 250 "Disable Visual Themes"
> xButton #CENTER -40 -10 30 "Close"
> GuiClose #this
> xCalendar #center 10 200 180
> Attr id calendar_id
> Attr style week;Attr frame sunken
> ------------------------------------------
>
> If it works, it should display the background color of the calendar in
> orange (as set above with 'bkmonth').
>
> Does anybody has a clue what I am doing wrong here?
>
> Any help is very appreciated.
> Best Regards, Rene
>
>  
>