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

Hi Rene,

Sorry for the huge delay. I hoped to find time to make a full version, but
I can't.

I've uploaded just the executables, in the Files/Gui4Cli section of the
newsgroup.

Best regards,
Dimitris


On Sat, Aug 3, 2013 at 12:27 AM, rene <[email protected]> wrote:

> **
>
>
> 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
> > > > > >
> > > > > >
> > > > > >
> > > > >****
> > > >
> > > > ** **
> > > >
> > > > ****
> > > >
> > > >
> > > >
> > >
> >
>
>  
>