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

Hi Dimitris,
I hope all is fine with you.
Short question, did you find some time to build a new version?
Kind Regards, Rene

--- In [email protected], "rene" <rene-zimmerli@...> wrote:
>
> 
> Hi Dimitris,
> 
> All good things take time.
> 
> Thanks in advance, Rene
> 
> --- In [email protected], Dimitris Keletsekis <gui4cli@> wrote:
> >
> > Hi Rene,
> > 
> > Some things are easy (the fix) some more difficult (the upload).
> > It takes work to make the exe for the upload so it may be a while.
> > 
> > All the best,
> > Dimitris
> > 
> > 
> > On Tue, Apr 23, 2013 at 9:19 PM, rené zimmerli <rene-zimmerli@>wrote:
> > 
> > > **
> > >
> > >
> > > 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)****
> > >
> > > ** **
> > >
> > > [image: Inline image 1]****
> > >
> > > ** **
> > >
> > > On Mon, Apr 22, 2013 at 10:28 PM, rene <rene-zimmerli@> 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], 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 <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
> > > > >
> > > > >
> > > > >
> > > >****
> > >
> > > ** **
> > >
> > > ****
> > >
> > >  
> > >
> >
>




------------------------------------