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

Hi Dimitris,

 

Yes, that’s it ! 

Exactly what I was looking to do. 

 

Thanks for your superb support and product.

 

Are You going to upload a fix / new version ? 

 

Best Regards, Rene

 

 

 

Von: [email protected] [mailto:[email protected]] Im Auftrag von
Dimitris Keletsekis
Gesendet: Dienstag, 23. April 2013 07:25
An: [email protected]
Betreff: Re: [gui4cli] Re: Disable visual themes for Gui4Cli program on
Windows 7 (64 bit)

 

  

It was easy enough to add it and it works fine - see below (if the image
appears)

 

Inline image 1

 

On Mon, Apr 22, 2013 at 10:28 PM, rene <[email protected]> wrote:

  

Hi Dimitris,

Thank you for clarification. 
The call of SetWindowTheme returns now 0 (S_OK - Operation successful).



> .. I can add an internal
> variable like $$event.handle, next upload.

Would be handy to have the variable $$event.handle available.

I will exercise with some more dll functions. Looks interesting enough to
invest some more time and effort.

Best Regards, Rene



--- In [email protected] <mailto:gui4cli%40yahoogroups.com> , Dimitris
Keletsekis <gui4cli@...> wrote:
>
> 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 < <mailto:rene-zimmerli@...>
rene-zimmerli@...> 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
> >
> > 
> >
>