OpenEuphoria

Re: COMING REAL SOON !

• Posted by euman at bellsouth.net Jul 21, 2001
• 361 views

Im almost finished with the same ("similar") thing.
I have all of the common controls that win32lib has
and some extra's. It uses strictly Euphoria's mem handling
and was written to be as optimised as possible.
The user will have to be familiar with some notification
messages but most of these have been written as well.

for instance, this code will handle listview and treeview controls
the parent item in the listview will be returned and in the treeview
the name that appears will be returned. The code that sets these up
is highly optimized and can be called the same as win32lib calls them.


    elsif iMsg = WM_NOTIFY then

          id = peek4s(lParam + NMHDR_hwndFrom)

          if id = ListView then

             iMsg = peek4s(lParam + NMHDR_code)

      if iMsg = LVN_COLUMNCLICK then -- ListView "could run a sort routine here"

      elsif iMsg = NM_CLICK then -- ListView Item Clicked

                   junk = c_func(SendMessage,{ListView1,LVM_GETNEXTITEM,-1,
LVNI_FOCUSED})
                   poke4(lvitem + lvitem_iItem,junk)
                   poke4(lvitem + lvitem_iSubItem,0)
                   poke4(lvitem + lvitem_mask,LVIF_TEXT)
                   txtbuff = allocate(256)
                   poke4(lvitem + lvitem_pszText,txtbuff)
                   poke4(lvitem + lvitem_cchTextMax,256)
                   cmd = c_func(SendMessage,{ListView1, LVM_GETITEM, 0, lvitem})

                   lvtxt = peek_string(txtbuff)

                   free(txtbuff)

              end if

          elsif id = TreeView then

              iMsg = peek4s(lParam + NMHDR_code)

              if iMsg = TVN_SELCHANGED then --NM_CLICK then -- TreeView

                   count = c_func(SendMessage,{TreeView1, TVM_GETCOUNT, 0, 0})
                   item = c_func(SendMessage,{TreeView1,TVM_GETNEXTITEM, 0,
TVGN_ROOT})
                   poke4(tvitem + tvitem_hItem,item)

                   poke4(tvitem + tvitem_mask,TVIF_TEXT)
                   poke4(tvitem + tvitem_stateMask, TVIS_SELECTED)
                   txtbuff = allocate(256)
                   poke4(tvitem + tvitem_pszText,txtbuff)
                   poke4(tvitem + tvitem_cchTextMax,256)

                   ok = c_func(SendMessage,{TreeView1, TVM_GETITEM, 0, tvitem})

                   for i = 1 to count do
                       cmd = peek4s(tvitem + tvitem_state )
                       if and_bits(cmd, TVIS_SELECTED) then
                          exit
                       end if

                       item = c_func(SendMessage,{TreeView1, TVM_GETNEXTITEM,
TVGN_NEXTVISIBLE, item})
                       poke4( tvitem + tvitem_hItem, item)
                       ok = c_func(SendMessage,{TreeView1, TVM_GETITEM, 0,
tvitem})
                   end for

                   lvtxt = peek_string(txtbuff)
                   txtlen = length(lvtxt)



Competition with Win32lib its not but I think it will be just as easy
to write apps with that will be much faster....

Maybe in a couple months when Im tired of adding code to it I'll
release it as a version 1.0.

Euman
euman at bellsouth.net




----- Original Message -----
From: "Bernie Ryan" <xotron at localnet.com>
To: "EUforum" <EUforum at topica.com>
Sent: Friday, July 20, 2001 21:45
Subject: COMING REAL SOON !


>
>
>
>                  Features of the w32engin.ew library
>
>   This is a new Win32 library written with the advance user in mind.
>
>   This library is not meant to compete with the win32lib but is
>   written for the user that is familar with "C" and understands
>   some Windows programming.
>
>   I know that there many Euphoria user's who want to use a Window's
>   library that can be easily extended without having to be concerned
>   with how the internal library code works. Many users don't have
>   the time to pore through lines of internal code and patch in
>   changes.
>   Finaly these same user's want to be able use Window's .res files
>   directly within your program without loading external files or
>   appending files to the exe.
>   The w32engin.ew library solves all these problems
>   and allows you to write a single stand-alone program protecting
>   your resources from be changed because they are enbedd in your code.
>
>   The majority of the Window's constants, functions, and procedures
>   are predefined in the library of about 377k in size.
>
>   When a Window's program is written it will look just as it would
>   in "C". Using the real Window's function names which makes it
>    easier to translate a "C" source code listing.
>
>   The library comes with a utility called eru.ex that takes a standard
>   complied 32-bit Window's .res file reads the file and writes a
>   complete stand-alone include file. This allows you to create your
>   resources with a resource editor, a dialog editor or a text editor.
>   Run in the Window's .rc file through a 32-bit resource compiler
>   like the free Borland BRCC32 and then use the eru.ex utility to
>   generate a Euphoria include file.
>   The final Euphoria generated include file will contain all that is
>   needed to use the resources the bmps, icons, cursors, string tables
>   and dialogs.
>   NO EXTERNAL FILES ARE NEEDED just the Euphoria include file.
>
>   The end user can add any of the following by adding a discription or
>   definition in the piston.ew file WITHOUT CHANGING the INTERNAL
>   LIBRARY CODE. This will automatically interface them to all the
>   features of the library.
>
>   ANY structure can be described and accessed.
>   ANY function or procedure including from ANY NON-WIN32 dll can be
>   added and used.
>
>   When I posted this anouncement before only one person showed any
>   interest.
>   Maybe when I complete the demos and send the library to ROB for
>   the Archive the users will realize the value of this library.
>
>   PS: if this text is not formated properly blame the topica e-mail
>
>   Thanks for your attention,
>
> Bernie
>
>
>
>