OpenEuphoria

Re: Win32Lib not showing WS_EX_WINDOWEDGE

• Posted by jordah at btopenworld.com Mar 24, 2003
• 331 views

Thank You, Brian.
----- Original Message -----
From: "Brian Broker" <bkb at cnw.com>
To: "EUforum" <EUforum at topica.com>
Subject: RE: Win32Lib not showing WS_EX_WINDOWEDGE


>
> XP is 5.1, Server is 5.2.
>
> -- Brian
>
> jordah wrote:
> > Hi EuMan,
> >      Thanx a lot for the code. It works great!. Is there a way to detect
the
> > difference btn XP & .Net Servers?. Anyway, the code looks and works
> > great.
> > Thanx for the contibution.
> >
> > Jordah
> > ----- Original Message -----
> > From: <euman at bellsouth.net>
> > To: "EUforum" <EUforum at topica.com>
> > Sent: Saturday, March 22, 2003 9:09 PM
> > Subject: Re: Win32Lib not showing WS_EX_WINDOWEDGE
> >
> >
> > Jordah writes:
> > > Hi EuMan,
> > >      Unfortunately, i'm back to win98 on my new laptop. Bythe time i
used
> > to
> > > code in xp, i used to use 4.0 and received desired results without a
> > > manifest. Its kinda funny, all control classes in user32.dll in XP use
> > > themes by default(window,button).
> > >       Maybe, it would be a good idea to post your manifest file and
the
> > two
> > > examples showing this for other users to check. AFAIK, 3.1/4.0
> > applications
> > > made in other languages work great with XP.
> > >       BTW, Just to save me time. Could u paste the code snippets for
> > > detecting which OS u use. i think this will be ideal for euwin
win32GUI
> > > library.
> >
> > Hey Jordah,
> >
> > And I thought you werent coding Win32lib anymore :)
> >
> > I will need to construct a "small demo" showing the issue
> > with the button controls I mentioned earlier but for your
> > request, here is (not sure this is my latest edition) to
> > collect information about .dll versions and the O/S they
> > run on.
> >
> > In fact Im sure this isnt the latest issue, I'll hunt for it.
> > This doesnt detect the (sp) updates for 2K, XP etc.
> >
> > Should give you an idea that its pretty straight forward
> > and easy besides, knowing you, you'll pick thru it and
> > update what I have here anyway.\
> >
> > I have my own memory handling routines (found in my installer)
> > "EuSup" so the below code could need an occasional mem_set
> > I very quickly renamed myalloc/myfree back to allocate/free
> >
> > I'll make a complete module including the define_c_func's, const. etc
> > in a day or so and submit a "clean" user ready module for .dll and O/S
> > version detection to RDS.
> >
> > Here's what I have for now, Good luck!
> >
> > -- Copyright 2002 Euman -> HW. Overman
> >
> > global function allocate_string2(sequence s)
> > atom mem
> >     mem = allocate(length(s) + 1)
> >     poke(mem, s)
> >     return mem
> > end function
> >
> > function GetFileVersionInfoSize(sequence FileName)
> > atom pZero, pStr
> > integer size
> >   pZero = allocate(16)
> >   pStr = allocate_string2(FileName)
> >   size = c_func(xGetFileVersionInfoSize,{pStr,pZero})
> >   free(pStr)
> >   free(pZero)
> > return size
> > end function
> >
> > function GetFileVersionInfo(sequence FileName)
> > atom pInfo, pStr, success
> > integer size
> > sequence info
> >    size = GetFileVersionInfoSize(FileName)
> >    if not size then return -1 end if
> >    pStr = allocate_string2(FileName)
> >    pInfo = allocate(size)
> >    success = c_func(xGetFileVersionInfo,{pStr,0,size,pInfo})
> >    free(pStr)
> >    if not success then
> >      free(pInfo)
> >      return -1
> >    end if
> >    info = peek({pInfo,size})
> >    free(pInfo)
> > return info
> > end function
> >
> > function VerQueryValue(sequence info, sequence ValueName)
> > atom  pInfo, pValueName, ppValue, pLen, index, dat1, dat2, dat3, dat4
> > integer bool, size
> <snip>
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>