1. RE: Win32Lib not showing WS_EX_WINDOWEDGE
Actually this is for an app that grabs styles off of windows then
creates an Eu duplicate of that window so the styles were generated not
typed.
Greg Haberek wrote:
> If you're looking for the traditional windows 3D border, use
> WS_THICKFRAME or WS_DLGFRAME (not
> resizable) otherwise you'll end up with the window you have now.
>
> ~Greg
>
> ----- Original Message -----
> From: Raudaun Long <LilFreak02_ at hotmail.com>
> Subject: Win32Lib not showing WS_EX_WINDOWEDGE
>
>
> any idea why the following code would produce the window shown on
> http://loth.hypermart.net/window_ss.jpg? The WS_EX_WINDOWEDGE syle is
> not added to the window.
>
>
> -----------------------------------------------------------------------------------------
>
>
> include Win32Lib.ew
>
> global constant TheForm = createEx(Window,"This is TheForm", 0,
> Default,Default,
> 318,238,
>
> {WS_OVERLAPPED,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_CAPTION,WS_SYSMENU,WS_VISIBLE},
>
>
>
> {WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_EX_WINDOWEDGE,WS_EX_APPWINDOW})
>
>
> WinMain(TheForm,Normal)
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>
2. RE: Win32Lib not showing WS_EX_WINDOWEDGE
Derek Parnell wrote:
> ----- Original Message -----
> From: "Raudaun Long" <LilFreak02_ at hotmail.com>
> To: "EUforum" <EUforum at topica.com>
> Subject: Win32Lib not showing WS_EX_WINDOWEDGE
>
>
> > any idea why the following code would produce the window shown on
> > http://loth.hypermart.net/window_ss.jpg? The WS_EX_WINDOWEDGE syle is
> > not added to the window.
> >
> > --------------------------------------------------------------------------
> >
> ---------------
> >
> > include Win32Lib.ew
> >
> > global constant TheForm = createEx(Window,"This is TheForm", 0,
> > Default,Default,
> > 318,238,
> >
> {WS_OVERLAPPED,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_CAPTION,WS_SYSMENU,WS_VISI
>
> BLE},
> >
> >
> {WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_EX_WINDOWEDGE,WS_EX_APP
>
> WINDOW})
> >
> >
> > WinMain(TheForm,Normal)
>
> The combination of window style flags here is uncommon. To have both
> CLIPSIBLINGS and CLIPCHILDREN on a top-level window is probable counter
> productive. The WS_OVERLAPPED is for documentation only as its value is
> zero, as is WS_EX_LEFT, WX_EX_LTRREADING, and WX_EX_RIGHTSCROLLBAR. So,
> reducing this to a simpler form, we get ...
>
> {WS_CLIPCHILDREN,WS_CAPTION,WS_SYSMENU,WS_VISIBLE},
> {WS_EX_WINDOWEDGE,WS_EX_APPWINDOW})
>
> This means that the only difference between this and the default
> settings is
> that it doesn't have WS_THICKFRAME, WS_MINIMIZEBOX and WS_MAXIMIZEBOX.
>
> Now the WS_EX_WINDOWEDGE mans that the border is raised rather than
> sunken.
> You will find that it is raised. Try using WS_EX_CLIENTEDGE instead to
> see a
> sunken edge.
>
> The WS_THICKFRAME gives is a resizeable frame.
>
> ----------------
> cheers,
> Derek Parnell
>
>
I understand what you are saying as I've been programming for windows
for a while, but as i said in my first reply, this window was generated
by an app i'm working on the pulls the styles off of existing windows on
the screen and outputs the window and controls into a win32lib Eu
program. I did not set these styles myself. My question isn't how they
work or how to get a specific frame but rather why the code doesn't
produce the same window as the original even though the styles set in
the source code are exactly the same. They all showed up in Spy++ except
WS_EX_WINDOWEDGE
3. RE: Win32Lib not showing WS_EX_WINDOWEDGE
Raudaun,
I copied your example and my window looks more "normal" than yours. My
guess is that you are running it with an interpreter that has a
subsystem version number of 3.1 (instead of 4.0). Try it using the 2.4
alpha release from rapideuphoria.com and you'll see what I mean.
Your other alternative is to search the mailing list for Rob's little
utility that will set the subsystem version of your exw.exe interpreter
to 4.0. (search for "subsystem version" by "Robert Craig")
-- Brian
Raudaun Long wrote:
>
> Derek Parnell wrote:
> > ----- Original Message -----
> > From: "Raudaun Long" <LilFreak02_ at hotmail.com>
> > To: "EUforum" <EUforum at topica.com>
> > Sent: Friday, March 21, 2003 3:05 PM
> > Subject: Win32Lib not showing WS_EX_WINDOWEDGE
> >
> >
> > > any idea why the following code would produce the window shown on
> > > http://loth.hypermart.net/window_ss.jpg? The WS_EX_WINDOWEDGE syle is
> > > not added to the window.
> > >
> > > --------------------------------------------------------------------------
> > >
> > >
> > ---------------
> > >
> > > include Win32Lib.ew
> > >
> > > global constant TheForm = createEx(Window,"This is TheForm", 0,
> > > Default,Default,
> > > 318,238,
> > >
> > {WS_OVERLAPPED,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_CAPTION,WS_SYSMENU,WS_VISI
> >
> >
> > BLE},
> > >
> > >
> > {WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_EX_WINDOWEDGE,WS_EX_APP
> >
> >
> > WINDOW})
> > >
> > >
> > > WinMain(TheForm,Normal)
> >
> > The combination of window style flags here is uncommon. To have both
> > CLIPSIBLINGS and CLIPCHILDREN on a top-level window is probable counter
> > productive. The WS_OVERLAPPED is for documentation only as its value is
> > zero, as is WS_EX_LEFT, WX_EX_LTRREADING, and WX_EX_RIGHTSCROLLBAR. So,
> > reducing this to a simpler form, we get ...
> >
> > {WS_CLIPCHILDREN,WS_CAPTION,WS_SYSMENU,WS_VISIBLE},
> > {WS_EX_WINDOWEDGE,WS_EX_APPWINDOW})
> >
> > This means that the only difference between this and the default
> > settings is
> > that it doesn't have WS_THICKFRAME, WS_MINIMIZEBOX and WS_MAXIMIZEBOX.
> >
> > Now the WS_EX_WINDOWEDGE mans that the border is raised rather than
> > sunken.
> > You will find that it is raised. Try using WS_EX_CLIENTEDGE instead to
> > see a
> > sunken edge.
> >
> > The WS_THICKFRAME gives is a resizeable frame.
> >
> > ----------------
> > cheers,
> > Derek Parnell
> >
> >
> I understand what you are saying as I've been programming for windows
> for a while, but as i said in my first reply, this window was generated
> by an app i'm working on the pulls the styles off of existing windows on
>
> the screen and outputs the window and controls into a win32lib Eu
> program. I did not set these styles myself. My question isn't how they
> work or how to get a specific frame but rather why the code doesn't
> produce the same window as the original even though the styles set in
> the source code are exactly the same. They all showed up in Spy++ except
>
> WS_EX_WINDOWEDGE
>
>
4. RE: Win32Lib not showing WS_EX_WINDOWEDGE
Derek Parnell wrote:
> ----- Original Message -----
> From: "Raudaun Long" <LilFreak02_ at hotmail.com>
> To: "EUforum" <EUforum at topica.com>
> Subject: RE: Win32Lib not showing WS_EX_WINDOWEDGE
>
>
> > Derek Parnell wrote:
> > > ----- Original Message -----
> > > From: "Raudaun Long" <LilFreak02_ at hotmail.com>
> > > To: "EUforum" <EUforum at topica.com>
> > > Sent: Friday, March 21, 2003 3:05 PM
> > > Subject: Win32Lib not showing WS_EX_WINDOWEDGE
> > >
> > >
> > > > any idea why the following code would produce the window shown on
> > > > http://loth.hypermart.net/window_ss.jpg? The WS_EX_WINDOWEDGE syle is
> > > > not added to the window.
> > > >
>
> [snip]
> >
> > I understand what you are saying as I've been programming for windows
> > for a while, but as i said in my first reply, this window was generated
> > by an app i'm working on the pulls the styles off of existing windows on
> > the screen and outputs the window and controls into a win32lib Eu
> > program. I did not set these styles myself. My question isn't how they
> > work or how to get a specific frame but rather why the code doesn't
> > produce the same window as the original even though the styles set in
> > the source code are exactly the same. They all showed up in Spy++ except
> > WS_EX_WINDOWEDGE
>
> I'm sorry. I'm still fairly new to Win32 programming. I just didn't
> notice
> in your post that your question was "I have two programs that both
> create a
> window based on exactly the same style flags. However, the win32lib
> program's window has just a line for the border and the other program
> has
> the normal 3D look border. Why is this so?"
>
> My guess is that your EXW.EXE still has the Win 3.1 setting. In other
> words
> bytes at address offset #08 for 4 bytes should equal #40 #00 #00 #00.
>
> Also I'm not sure what the statement "They all showed up in Spy++ except
> WS_EX_WINDOWEDGE" means. Does this mean that Spy++ did not show the flag
> for
> both programs, or that it shows it one program but not the other? I'm
> guessing here that CreateWindowEx() did not exist until Windows 95.
>
>
> ----------------
> cheers,
> Derek Parnell
>
>
Yes, it shows the flag shows in the original program but not the
Euphoria program but the flag is set in the source code.
-------------------------------------------------------------------------------------------------------
include Win32Lib.ew
global constant TheForm = createEx(Window,"This is TheForm", 0,
Default,Default,
318,238,
{WS_OVERLAPPED,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_CAPTION,WS_SYSMENU,DS_MODALFRAME,WS_VISIBLE},
{WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_EX_WINDOWEDGE,WS_EX_DLGMODALFRAME})
WinMain(TheForm,Normal)
-------------------------------------------------------------------------------------------------------
5. 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>
> 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>
6. RE: Win32Lib not showing WS_EX_WINDOWEDGE
ok it was most definately the version in exw. I changed it and
everything works fine now.
Derek Parnell wrote:
> On Mon, 24 Mar 2003 06:22:36 +0000, Raudaun Long
> <LilFreak02_ at hotmail.com>
> wrote:
>
> [snip]
> >
> > Yes, it shows the flag shows in the original program but not the
> > Euphoria
> > program but the flag is set in the source code.
> > --------------------------------------------------------------------------
> >
> >
> > -----------------------------
> >
> > include Win32Lib.ew
> >
> > global constant TheForm = createEx(Window,"This is TheForm", 0,
> > Default,Default,
> > 318,238,
> >
> > {WS_OVERLAPPED,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_CAPTION,WS_SYSMENU,DS_MODALFRAME,WS_VISIBLE},
> >
> >
> >
> > {WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_EX_WINDOWEDGE,WS_EX_DLGMODALFRAME})
> >
> >
> > WinMain(TheForm,Normal)
>
> Okay, I just did this and used Spy++ to see the styles and
> WS_EX_WINDOWEDGE
> is definitely there. So I don't know for certain what you are seeing,
> however I strongly suspect that the Window App Type in your EXW.EXE
> needs
> updating.
>
> --
>
> cheers,
> Derek Parnell
>
>
