OpenEuphoria

1. No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by Selgor Nov 04, 2011
• 3688 views

Selgor here.

Is there an example of Drag and Drop. Most other .. No ALL other .. languages have it ?

Direct me to it if it exists please In anticipation ..

Selgor

3. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by Selgor Nov 04, 2011
• 3630 views

Selgor here. Matt .. I want to Drag and Drop . Drag an icon or file and put it in a specific place. For example put an icon as a shortcut to a programme on the desktop from its original directory (folder). Can't see how the programme you suggest does that. What am I not seeing, doing ??? Thanks for the reply. Need more !.

Selgor.

5. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by euphoric (admin) Nov 04, 2011
• 3641 views

The following code lets you drag and drop a file icon onto the textbox control and have that icon's path displayed in the textbox.

include Win32Lib.ew 
 
constant Window1 = createEx( Window, "Window1", 0, Default, Default, 371, 119, 0, 0 ) 
constant txt_FileName = createEx( EditText, "", Window1, 24, 16, 308, 32, 0, 0 ) 
 
procedure txt_FileName_onDragAndDrop (integer self, integer event, sequence params)--params is ( int id, seq FileName ) 
	if length(params[2]) > 0 then 
		setText( txt_FileName, params[2] ) 
	end if 
end procedure 
setHandler( txt_FileName, w32HDragAndDrop, routine_id("txt_FileName_onDragAndDrop")) 
 
WinMain( Window1,Normal ) 

7. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by ghaberek (admin) Nov 05, 2011
• 3515 views

To create shortcuts, he'll need to use some simple COM calls, a search for "shortcut" in the archive will provide a few different libs to do this.

This is the native behavior of shortcuts in Windows, so long as one's application will take a file name as a single parameter.

-Greg

9. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by Selgor Nov 08, 2011
• 3443 views

include Win32lib.ew 
include CreateLink.ew 
include hotkey.e 
include systray.ew 
include reg.ew 
include database.e 
include inputbox.ew 
include startpath.e 
include file.e 
include win32ini.ew 
without warning 
--------------- custom your own parameters here--------------------------------- 
integer Width ,Height 
sequence Font, HotKeys 
Width =400   Height= 200---Window's default width and height 
Font  = {"Times New Roman",10,Normal} 
HotKeys={{8,81}, ---Win + Q  --Alt=1,Ctrl=2,Shift=4,Win=8 
         {0,192},       ---192 is the key upper to the Tab 
         {0,106}}       ---106 is the multiply key in number pad 
--------------- file names------------------------------------------------ 
sequence AppDirectroy AppDirectroy =startup_dir() 
constant datafile=AppDirectroy&"userdata.edb" 
constant runfile=AppDirectroy&"QkLaunch.exw" 
constant systrtayicon=AppDirectroy&"systray.ico" 
constant defaulticon=AppDirectroy&"default.ico" 
constant appsetting=AppDirectroy&"config.ini" 
constant helpfile=AppDirectroy&"readme.txt" 
-------------------------------------------------------------------------------- 
sequence data 
if compare(dir(appsetting),-1)=0 then 
    WritePrivateProfileString("WindowSize","Width",sprint(Width),appsetting) 
    WritePrivateProfileString("WindowSize","Height",sprint(Height),appsetting) 
    WritePrivateProfileString("HotKeys","hotkey",sprint(HotKeys),appsetting) 
else 
    data=value(getString("WindowSize","Width",appsetting)) 
    if data[1]=GET_SUCCESS then Width=data[2] end if 
    data=value(getString("WindowSize","Height",appsetting)) 
    if data[1]=GET_SUCCESS then Height=data[2] end if 
    data=value(getString("HotKeys","hotkey",appsetting)) 
    if data[1]=GET_SUCCESS then HotKeys=data[2] end if 
end if 
-------------------------------------------------------------------------------- 
integer Left,Top,X,Y,moveWindow moveWindow=0 
sequence ScreenSize, rect 
ScreenSize = getRect(Screen) 
Left=(ScreenSize[3]-Width)/2 
Top=(ScreenSize[4]-Height)/2 
constant QkLaunch_Parent=create( Window,"QkLaunch",0,0,0,50,50,WS_POPUP) 
constant QkLaunch = createEx( Window, "QkLaunch", QkLaunch_Parent,Left, Top, Width, Height ,{WS_POPUP, WS_THICKFRAME},WS_EX_TOPMOST) 
--setIcon( QkLaunch,"thounder.ico") 
constant SysTray = systray_Create(QkLaunch) 
systray_SetIcon(SysTray,systrtayicon) 
systray_SetTip(SysTray,"QkLaunch") 
constant tabControl = createEx( TabControl, "TabControl", QkLaunch, 0, 28, 460, 280, 0, 0 ) 
constant menu      =  create(Popup,"",QkLaunch,0,0,0,0,0), 
         menu1     =  create(MenuItem,"New Page",menu,0,0,0,0,0), 
         menu2     =  create(MenuItem,"Delete Page",menu,0,0,0,0,0), 
         menu3     =  create(MenuItem,"Rename Page",menu,0,0,0,0,0), 
         sep1      =  create(MenuItem,"-", menu, 0, 0, 0, 0, 0), 
         menu4     =  create(MenuItem,"New Item",menu,0,0,0,0,0), 
         menu5     =  create(MenuItem,"Delete Item",menu,0,0,0,0,0), 
         menu6     =  create(MenuItem,"Rename Item",menu,0,0,0,0,0), 
         menu7     =  create(MenuItem,"Relink Item",menu,0,0,0,0,0), 
         sep2      =  create(MenuItem,"-", menu, 0, 0, 0, 0, 0), 
         menu8     =  create(MenuItem,"Help",menu,0,0,0,0,0), 
         menu9     =  create(MenuItem,"Hide",menu,0,0,0,0,0), 
         menu10    =  create(MenuItem,"Exit",menu,0,0,0,0,0) 
-------------------------------------------------------------------------------- 
constant Shell32 = open_dll("Shell32.dll") 
constant SHGetFileInfo = define_c_proc(Shell32,"SHGetFileInfo",{C_POINTER,C_UINT,C_POINTER,C_UINT, C_INT}) 
constant 
        SHGFI_ICON =             #000000100,     -- get icon 
        SHGFI_DISPLAYNAME =      #000000200,     -- get display name 
        SHGFI_TYPENAME =         #000000400,     -- get type name 
        SHGFI_ATTRIBUTES =       #000000800,     -- get attributes 
        SHGFI_ICONLOCATION =     #000001000,     -- get icon location 
        SHGFI_EXETYPE =          #000002000,     -- return exe type 
        SHGFI_SYSICONINDEX =     #000004000,     -- get system icon index 
        SHGFI_LINKOVERLAY =      #000008000,     -- put a link overlay on icon 
        SHGFI_SELECTED =         #000010000,     -- show icon in selected state 
        SHGFI_ATTR_SPECIFIED =   #000020000,     -- get only specified attributes 
        SHGFI_LARGEICON =        #000000000,     -- get large icon 
        SHGFI_SMALLICON =        #000000001,     -- get small icon 
        SHGFI_OPENICON =         #000000002,     -- get open icon 
        SHGFI_SHELLICONSIZE =    #000000004,     -- get shell size icon 
        SHGFI_PIDL =             #000000008,     -- pszPath is a pidl 
        SHGFI_USEFILEATTRIBUTES = #000000010     -- use passed dwFileAttribute 
global function GetIcon(sequence strPath, atom bSmall) 
    sequence info 
    atom path,infoptr,hicon, cbFileInfo,flags 
    path=allocate_string(strPath) 
    cbFileInfo= 32  
    infoptr=allocate(256) 
    if bSmall then 
        flags =or_bits(SHGFI_ICON,SHGFI_SMALLICON) 
    else 
        flags =or_bits(SHGFI_ICON,SHGFI_LARGEICON) 
    end if 
    c_proc(SHGetFileInfo,{path, 256,infoptr,cbFileInfo,flags}) 
    hicon=peek4s(infoptr) 
    free(path) 
    free(infoptr) 
    return addIcon(hicon) 
end function 
function getico(sequence FileName) 
    integer ico 
    if compare(dir(FileName),-1)=0 then  
           ico=GetIcon(defaulticon,0) 
    else ico=GetIcon(FileName,0) end if 
    return ico 
end function 
------------------------------------------------------------------------------- 
global procedure setLVItemSelected( integer LV, integer pRow, integer pColumn, atom selected) 
atom LV_ITEM 
object VOID     
    LV_ITEM = struct_LVITEM(LVIF_STATE, pRow, pColumn, selected, 1, 0, 0, 0)     
    VOID = sendMessage( LV, LVM_SETITEMSTATE, pRow-1, LV_ITEM )     
    release_mem(LV_ITEM)     
end procedure 
-------------------------------------------------------------------------------- 
sequence tabitems,names,listviews 
atom ok, err 
ok=DB_OK 
integer currentview 
currentview=1 
tabitems={} listviews={} 
-------------------------------------------------------------------------------- 
function getfilenameandextension(sequence filename) 
    sequence s,f,e 
    integer i,j 
    s=reverse(filename) 
    i=find('\\',s) 
    if i!=1 then 
       f=reverse(s[1..i-1]) 
    else 
       f=filename 
    end if 
    j=find('.',s) 
    if j=0 then j=1 end if 
    e=reverse(s[1..j-1]) 
    return {f,e} 
end function 
procedure showitems(integer index) 
    integer ico,at 
    sequence seq 
    if db_select_table(getHint(tabitems[index])) = DB_OK then 
        for i=db_table_size() to 1 by -1 do 
          seq=db_record_data(i) 
          ico=getico(seq[2]) 
          at=addLVItem(listviews[index],ico,{seq[1]}) 
        end for 
    end if 
end procedure 
procedure additems(sequence FileName) 
      integer ico,at,size,key 
      sequence Name,Ext,seq,filename 
      seq=getfilenameandextension(FileName) 
      Name=seq[1] 
      Ext =seq[2] 
      if compare(lower(Ext),"lnk")=0 then 
          filename=resolve_link(FileName) 
          seq=getfilenameandextension(filename) 
          at=deleteFile(FileName) 
          Name=seq[1] 
          FileName=filename 
      end if 
      ico=getico(FileName) 
      if db_select_table(getHint(tabitems[currentview])) = DB_OK then 
          size=db_table_size() 
          if size=0 then key=1 else 
          key=db_record_key(size)+1 end if 
          ok=db_insert(key, {Name, FileName}) 
          at=addLVItem({listviews[currentview],size+1},ico,{Name}) 
      end if 
end procedure 
procedure deleteitems() 
      integer re 
      sequence pos 
      object ctrl 
      ctrl=listviews[currentview] 
          pos=getIndex(ctrl) 
          if length(pos) and db_select_table(getHint(tabitems[currentview])) = DB_OK then 
              --for i=1 to length(pos) do 
                 db_delete_record(pos[1]) 
                 re=deleteItem(ctrl,pos[1]) 
                 --refreshWindow(ctrl) 
              --end for 
          end if 
end procedure 
-------------------------------------------------------------------------------- 
procedure TabItem_onClick (integer self, integer event, sequence params)--params is () 
    setFocus(self) 
    currentview=find(self,tabitems) 
end procedure 
procedure ListView_onClick (integer self, integer event, sequence params)--params is () 
      sequence item,seq 
      atom al 
      item = getIndex(self) 
      if length(item) and db_select_table(getHint(tabitems[currentview])) = DB_OK then 
          seq=db_record_data(item[1]) 
          setVisible(QkLaunch,False) 
          al=chdir(file_dir(seq[2])) 
          shellExecute("open",seq[2],SW_SHOWNORMAL) 
      end if 
end procedure 
procedure QkLaunch_onKeyDown (integer self, integer event, sequence params)--params is ( atom scanCode, atom shift ) 
      atom scanCode,shift 
      scanCode=params[1] 
      if scanCode=VK_DELETE then 
          deleteitems() 
      elsif scanCode=VK_RETURN then 
          ListView_onClick(listviews[currentview],4,{}) 
      end if 
end procedure 
setHandler( {QkLaunch,tabControl}, w32HKeyDown, routine_id("QkLaunch_onKeyDown")) 
procedure QkLaunch_onMouse (integer self, integer event, sequence params)--params is ( int event, int x, int y, int shift ) 
    object x, y 
    sequence it     
    it= "" 
    x=params[2] 
    y=params[3] 
    if params[1] = RightDown then 
        popup( menu, x, y ) 
    elsif params[1] = LeftDown and self=tabControl then 
        X=x 
        Y=y 
        moveWindow=1 
    elsif params[1] = MouseMove then 
          if moveWindow=1 then 
              Left+=x-X 
              Top+=y-Y 
              setRect(QkLaunch,Left, Top,Width, Height,True) 
          else  
             -- it=hitTestLV(self) 
              if length(it)=2 then 
              setFocus(self) 
              setLVItemSelected(self,it[1],it[2],1) 
              end if 
          end if 
    elsif params[1] = LeftUp then 
        moveWindow=0 
    end if 
end procedure 
setHandler( tabControl, w32HMouse, routine_id("QkLaunch_onMouse")) 
-------------------------------------------------------------------------------- 
procedure QkLaunch_onOpen (integer self, integer event, sequence params)--params is () 
    if compare(dir(datafile),-1)=0 then 
            ok=db_create(datafile,DB_LOCK_NO) 
            ok=db_create_table("System") 
            ok=db_create_table("Text") 
            ok=db_create_table("Media") 
            ok=db_create_table("Web") 
    end if 
    ok=db_open(datafile, DB_LOCK_NO) 
    if ok=DB_OK then 
        rect = getClientRect( QkLaunch ) 
        setRect(tabControl,rect[1], rect[2], rect[3], rect[4],True) 
        rect = getClientRect( tabControl ) 
        names = db_table_list() 
        for i = 1 to length(names) do 
            tabitems &= createEx( TabItem, names[i], tabControl, 0, 0, 0, 0, 0, 0 ) 
            setHint(tabitems[i],names[i]) 
            listviews &= createEx( ListView, {"ListView",""}, tabitems[i], rect[1], 20, rect[3], rect[4],or_all({LVS_ICON,LVS_SHOWSELALWAYS}),0) 
            showitems(i) 
            setHandler( tabitems[i], w32HClick, routine_id("TabItem_onClick")) 
            setHandler( listviews[i], w32HClick, routine_id("ListView_onClick")) 
            setHandler( listviews[i], w32HKeyDown, routine_id("QkLaunch_onKeyDown")) 
            setHandler( listviews[i], w32HMouse, routine_id("QkLaunch_onMouse")) 
        end for 
        setFocus(tabitems[1]) 
    end if 
    for i=1 to length(HotKeys) do 
         setHotKey(QkLaunch, i, HotKeys[i][1],HotKeys[i][2] ) 
    end for 
    systray_Show(SysTray) 
    setFont(QkLaunch,Font[1],Font[2],Font[3]) 
    err = regSetValue( 
                "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\CurrentVersion\\Run", -- key 
                "QkLaunch",                                     -- name 
                 runfile)                                         -- value 
end procedure 
setHandler( QkLaunch, w32HOpen, routine_id("QkLaunch_onOpen")) 
-------------------------------------------------------------------------------- 
procedure PopupItem_onClick (integer self, integer event, sequence params)--params is () 
    sequence name,filename,pos,seq,new_name 
    object control 
    integer n,m 
        setEnable(listviews[currentview],False) 
        setEnable(listviews[currentview],True) 
    if  self = menu1 then 
         name = input_box("Enter a name for your new page",QkLaunch) 
         if compare(name,"")!=0 then 
         ok=db_create_table(name) 
         tabitems &= createEx( TabItem, name, tabControl, 0, 0, 0, 0, 0, 0 ) 
         n=length(tabitems) 
         setHint(tabitems[n],name) 
         listviews &= createEx( ListView, {"ListView",""}, tabitems[n], rect[1], 20, rect[3], rect[4],or_all({LVS_ICON,LVS_SHOWSELALWAYS}),0) 
         setHandler( tabitems[n], w32HClick, routine_id("TabItem_onClick")) 
         setHandler( listviews[n], w32HClick, routine_id("ListView_onClick")) 
         setHandler( listviews[n], w32HKeyDown, routine_id("QkLaunch_onKeyDown")) 
         setHandler( listviews[n], w32HMouse, routine_id("QkLaunch_onMouse")) 
         currentview=n 
         end if 
    elsif self = menu2 then 
          name=getHint(tabitems[currentview]) 
          m=getLVCount(listviews[currentview]) 
          if m=0 or (m>0 and 
             message_box("All the items in page "&name&" will be deleted, are you sure?","Message",{MB_YESNO, MB_ICONQUESTION})=IDYES) then 
               db_delete_table(name) 
               destroy(tabitems[currentview]) 
               tabitems=tabitems[1..currentview-1]&tabitems[currentview+1..length(tabitems)] 
               listviews=listviews[1..currentview-1]&listviews[currentview+1..length(listviews)] 
               n=length(tabitems) 
               if currentview>n then currentview=n end if 
          end if 
    elsif  self = menu3 then 
         control=tabitems[currentview] 
         name=getHint(control) 
         new_name = input_box("Enter new name for page "&name,QkLaunch) 
         if compare(new_name,"")!=0 then 
         db_rename_table(name,new_name) 
         db_close() 
         --setTabItemText(tabControl,currentview,new_name) 
         shellExecute("open",runfile,SW_SHOWNORMAL) 
         closeWindow(QkLaunch) 
         --setText(tabitems[currentview],new_name) 
         --setHint(control,new_name) 
         end if 
    elsif self = menu4 then 
          filename = getOpenFileName(QkLaunch,"",{"All Files", "*.*" } ) 
          if compare(filename,"")!=0 then 
              additems(filename) 
          end if 
    elsif self = menu5 then 
          deleteitems() 
    elsif self = menu6 then 
         control=listviews[currentview] 
         pos=getIndex(control) 
         if length(pos) and db_select_table(getHint(tabitems[currentview])) = DB_OK then 
              name=getLVItemText(control,pos[1],1) 
              name = input_box("Enter new name for item "&name,QkLaunch) 
              if compare(name,"")!=0 then 
                  seq=db_record_data(pos[1]) 
                  setLVItemText(control,pos[1],1,name) 
                  db_replace_data(pos[1],{name,seq[2]}) 
              end if 
         end if 
    elsif self = menu7 then 
         control=listviews[currentview] 
         pos=getIndex(control) 
         if length(pos) and db_select_table(getHint(tabitems[currentview])) = DB_OK then 
              name=getLVItemText(control,pos[1],1) 
              name = input_box("Enter new link for item "&name,QkLaunch) 
              if compare(name,"")!=0 then 
                  seq=db_record_data(pos[1]) 
                  db_replace_data(pos[1],{seq[1],name}) 
                  --setIcon(pos[1],GetIcon(name,0)) 
              end if 
         end if 
    elsif self = menu8 then 
        shellExecute("open",helpfile,SW_SHOWNORMAL) 
        setVisible(QkLaunch,False) 
    elsif self = menu9 then 
        setVisible(QkLaunch ,False) 
    elsif self = menu10 then 
        closeWindow(QkLaunch) 
    end if 
end procedure 
setHandler({menu1,menu2,menu3,menu4,menu5,menu6,menu7,menu8,menu9,menu10}, w32HClick, routine_id("PopupItem_onClick")) 
-------------------------------------------------------------------------------- 
procedure QkLaunch_onDragAndDrop (integer self, integer event, sequence params) 
               --params is ( int id, sequence FileName ) 
            additems(params[2]) 
       end procedure 
setHandler( QkLaunch, w32HDragAndDrop, routine_id("QkLaunch_onDragAndDrop")) 
-------------------------------------------------------------------------------- 
procedure QkLaunch_onHotKey(atom id) 
    setVisible(QkLaunch,not isVisible(QkLaunch)) 
end procedure 
onHotKey = routine_id("QkLaunch_onHotKey") 
-------------------------------------------------------------------------------- 
procedure onsystray(integer id, atom message) 
    sequence mpos 
    if message= WM_LBUTTONDOWN then 
        setVisible(QkLaunch,not isVisible(QkLaunch)) 
    elsif message= WM_RBUTTONDOWN then 
        mpos=getMousePos () 
        popup( menu, mpos[1],mpos[2] ) 
    end if 
end procedure 
systray_SetEvent(SysTray,routine_id("onsystray")) 
--------------------------------------------------------------------------------- 
procedure QkLaunch_onGotFocus (integer self, integer event, sequence params)--params is () 
refreshWindow(QkLaunch) 
end procedure 
setHandler( QkLaunch, w32HGotFocus, routine_id("QkLaunch_onGotFocus")) 
-------------------------------------------------------------------------------- 
procedure QkLaunch_onClose (integer self, integer event, sequence params)--params is () 
    db_close() 
    for i=1 to length(HotKeys) do 
         killHotKey(QkLaunch,i) 
    end for 
    systray_Hide(SysTray) 
end procedure 
setHandler( QkLaunch, w32HClose, routine_id("QkLaunch_onClose")) 
-------------------------------------------------------------------------------- 
WinMain( QkLaunch,Normal ) 
 
.. 
 
Thank you for looking. 
 
Cheers Selgor. 

11. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by useless Nov 08, 2011
• 3311 views

C:\EUPHORIA\include\Win32lib.ew:6303 in function addLVItem()  
type_check failure, id is {21,1}  
... called from C:\EUPHORIA\win32lib_0_70_20\Demo\QkLaunch.exw:179 in procedure additems()   
... called from C:\EUPHORIA\win32lib_0_70_20\Demo\QkLaunch.exw:380 in procedure 

Again quoting Selgor:

And the programme used to work with (win32lib0.57.9) without error..

So whatever his reason for "upgrading" win32lib, with all apologies to Derek et al, if Selgor put all his required includes in the same dir with his app, including the older version of win32lib, his app may run again.

useless

13. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 09, 2011
• 3250 views

Seriously? You know you are using the wrong version yet you complain that it's not working?! Have you tried getting the current version and using that?

Seriously? I hope then you are still using Euphoria version 2 on Windows 1.0

15. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by useless Nov 09, 2011
• 3254 views

I swear i don't understand humans.

Selgor said he lost the win32lib version his app was written to work with because of a system crash. He replaced it with a current win32lib version. His app does not work with the current win32lib, as win32lib versions are generally not backwards compatable. Selgor then asked if anyone has a version 0.57.9 to send him, so his app can run again.

This is where you chime in and ridicule him for using the wrong version (a current version) and ask if he's tried downloading and using a current version.

I have some older versions, but i quit writing for win32lib when it quit being backwards compatable. And i always save an app with the version of win32lib it was written for, because usually no other version will work.

useless

17. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 09, 2011
• 3203 views

If you are saying that each release of the library completely invalidates all programs written using the previous release then I dispute this. I believe that apart from mistakes (and one release which was announced with at least 12 months notice), each release is compatible with its predecessor. Please give examples in which you can demonstrate backwards incompatibility.

The particular problem you are describing in this thread appears to be one in which recent code won't work on an earlier library - that is not backward incompatibility.

I'm confused then ... in one post you say you are not using the right version and in another post you say you are using the right version.

The error message you are getting implies that the addLVItem() routine being called has the id parameter declared as an atom, but the current version of the library has that parameter declared as an object. So it seems that you are NOT using the right version of the library.

Exactly which version of Win32lib.ew is actually being used by this application?

In the meantime, I'll cut down the program you submitted to the minimum required to demonstrate the issue being discussed.

19. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 09, 2011
• 3228 views

Be that as it may, the code should run correctly with the CURRENT version. I've got the sample code now running on my system using win32lib V0_70_20 and Eu4.

21. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by mattlewis (admin) Nov 09, 2011
• 3187 views

I don't know what that is, but it sounds like something fairly old. I'm not as, er, adamant about non-breaking changes in Win32Lib as Derek is. I think I was still fairly heavily involved back in the 0.55 days.

Matt

23. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by mattlewis (admin) Nov 09, 2011
• 3180 views

I think Derek has gone to a lot of trouble to maintain backward compatibility for some time, which probably explains his comments. If you look at the current library, you'll see compat01.ew and compat02.ew. These are full of deprecated bits of code that allow older programs to continue working.

Yes, I suspect that you might start seeing default parameters used something like this in new development.

Yes, the new ifdef stuff can be used for this sort of thing. Obviously, it makes library development a lot more difficult, so I suspect that if it gets used, it may happen on a case by case basis (if at all). I've been working on Win32Lib in an attempt to port it to run on 64-bit windows, and it is a big, complicated bit of code.

LOL

Matt

25. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by Selgor Nov 10, 2011
• 3135 views

Selgor here.

Derek . Let's be clear on one thing. The win32Lib used is 0.70.20 . The latest. And the above programme was run under Euphor1a 3.1 . This was clearly stated above.

Now this is what I have done. I downloaded win32Lib 0.70.20 and the new euphoria 4.03. And I cleaned out all my euphoria from one of my other computers. So on this computer NO EUPHORIA IS PRESENT. I installed new euphoria. I installed the win32Library. I made sure the include file contained all necessary .ew's . Then the programme was "installed".

And this is what happened when I ran the programme.

Error message.

C:\EUPHORIA\include\w32file.ew:888 
SHFILEINFO_SIZEOF has not been declared 
    lSHFILEINFO = w32acquire_mem(0, SHFILEINFO_SIZEOF) 

Cheers Selgor ..

27. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 10, 2011
• 3114 views

C:\EUPHORIA\include\w32file.ew:888 
SHFILEINFO_SIZEOF has not been declared 
    lSHFILEINFO = w32acquire_mem(0, SHFILEINFO_SIZEOF) 

Now I'm not saying that you haven't done what you said you have, but that particular error message is impossible if you are using the v0.70.20 version of the library. I say this because line 888 of file w32file.ew in that version is ...

-- 

Yes, a single comment line with no text. However, in a much earlier version of the library (one that was unofficially amended for the IDE) has in line 888 ...

    lSHFILEINFO = w32acquire_mem(0, SHFILEINFO_SIZEOF) 

This occurs in the function called "getFileInfo()". Now looking at the equivalent line in the v0.70.20 edition of the w32file.ew code, we see ...

    lSHFILEINFO = w32acquire_mem(0, SIZEOF_SHFILEINFO) 

From this evidence, I'm guessing (and its just a guess), that either you have downloaded a different version of the library than you thought you did, or you still have some remnants of an old library hanging about.

So, what is the path to the v0.70.20 version of Euphoria that you downloaded? Is it "C:\EUPHORIA\include\" ?

Also, what is the actual URL that you used to get the download from? Was it either
https://sourceforge.net/projects/win32libex/files/latest/download?_test=goal
or
http://sourceforge.net/projects/win32libex/files/v_0_70_20/win32lib_0_70_20.zip/download

29. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 11, 2011
• 3041 views

 C:\EUPHORIA\include\w32file.ew:94 
OFN_EXPLORER has not been declared 
	    OFN_EXPLORER,           -- looks like windows explorer 
	               ^ 
 

The symbol OFN_EXPLORER is declared as a global symbol in w32constants.ew (line 3875), which is included by win32lib.ew.

Can you confirm if your copy of the file w32constants.ew has that declaration and that you are including win32lib.ew?

Once you have done that, try this in a command prompt window ...

cd c:\euphoria\include 
eui win32lib.ew 

31. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 11, 2011
• 3000 views

c:\euphoria\include\win32lib.ew:576 
<0052>::can't find 'w32structures.ew' in any of ... 
C:\EUPHORIA\INCLUDE 
C:\EUPHORIA\INCLUDE\win32lib.ew 
c:\Euphoria\include 
C:\EUPHORIA 
include w32structures.ew 
warning <not_used> : 
<0328>::machine.e - module variable 'check_calls' is assigned but never used  
Press Enter 

Well I hate to ask the obvious but does w32structures.ew exist in c:\euphoria\include ? And if not, why not? It is supposed to be in the same directory as win32lib.ew.

33. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by Selgor Nov 12, 2011
• 2909 views

Selgor here..

Thank you for your tips useless. They make a lot of sense. I can't understand why you nicknamed yourself useless, You are far from useless.

Cheers Selgor..

35. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 14, 2011
• 2714 views

Not at all! I asked you a question and you have not answered yet.

I'll repeat it here ...

Does w32structures.ew actually exist in c:\euphoria\include ?

And if not, why not? It is supposed to be in the same directory as win32lib.ew.

37. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 14, 2011
• 2640 views

Well now I'm very confused. You had reported the error messages as ...

c:\euphoria\include\win32lib.ew:576  
<0052>::can't find 'w32structures.ew' in any of ...  
C:\EUPHORIA\INCLUDE  
C:\EUPHORIA\INCLUDE\win32lib.ew  
c:\Euphoria\include  
C:\EUPHORIA  

I'm a bit sceptical that you have found a bug in Eu in respect of locating files, but maybe you have. So, can you please post a 'dir' listing of C:\EUPHORIA\INCLUDE in this thread?

For example, here is the listing from my computer ...

 
C:\>cd \euphoria\include 
 
C:\Euphoria\include>dir 
 Volume in drive C has no label. 
 Volume Serial Number is B872-CDD3 
 
 Directory of C:\Euphoria\include 
 
11/08/2011  07:53 AM    <DIR>          . 
11/08/2011  07:53 AM    <DIR>          .. 
23/06/2011  10:33 AM            38,760 database.e 
23/06/2011  10:33 AM             2,392 dll.e 
11/08/2011  07:53 AM    <DIR>          euphoria 
24/06/2011  10:55 AM             9,045 euphoria.h 
23/06/2011  10:33 AM             5,903 file.e 
23/06/2011  10:33 AM             8,336 get.e 
23/06/2011  10:33 AM             4,554 graphics.e 
24/06/2011  10:55 AM            13,037 image.e 
24/06/2011  10:55 AM             7,633 machine.e 
24/06/2011  10:55 AM             8,398 misc.e 
23/06/2011  10:33 AM             1,338 mouse.e 
23/06/2011  10:33 AM             3,584 msgbox.e 
23/06/2011  10:33 AM            22,085 safe.e 
23/06/2011  10:33 AM             1,778 sort.e 
11/08/2011  07:53 AM    <DIR>          std 
23/06/2011  10:33 AM             2,761 wildcard.e 
              14 File(s)        129,604 bytes 
               4 Dir(s)  208,559,771,648 bytes free 
 
C:\Euphoria\include> 
 

[all] 
-i c:\Projects\eu_proj\HGProj\euphoria\include 
-i C:\Projects\eu_proj\win32lib\win32lib_0_70_20\Include 
-i .\include 
-i ..\include 
-eudir c:\Projects\eu_proj\HGProj\euphoria 
 
[translate] 
-gcc 
-com c:/Projects/eu_proj/HGProj/euphoria 
-lib c:/Projects/eu_proj/HGProj/euphoria/source/build/eu.a 
[bind] 
-eub c:/Projects/eu_proj/HGProj/euphoria/source/build/eub 

39. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 15, 2011
• 2561 views

Ok ... so does it work now? Can we close this issue?

Well, in my opinion it would be a useful thing for you to allow the new Euphoria to help you get your folders a bit more organized ... but hey, its your system.

41. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 15, 2011
• 2570 views

C:\EUPHORIA\include\w32constants.ew:2992 
WC_RICHEDIT has not been declared 
    FINDTEXTEX_lpstrText        = w32allot(w32iff(equal(WC_RICHEDIT,WC_RICHEDIT50), Upsz, Lpsz)) ,. 

In the file C:\Euphoria\include\w32dll.ew, what does line 314 say. It should be ...

global sequence WC_RICHEDIT 

If it doesn't then you have most likely copied the wrong w32dll.ew to your "stacked" include directory.

43. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 15, 2011
• 2525 views

Ok. Set your current directory to C:\euphoria\include and then at the command line enter ...

eui win32lib.ew 

45. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 15, 2011
• 2561 views

I'm sorry Selgor, but are you trying to help me help you? You seem more intent on making it hard as possible to help you.

I'm sure you are aware that I can't actually see your screen, so what exactly do you mean by "many items"? And did it LITERALLY stop at ...

win32lib.ew:(26310)w32Color_WINDOWTEXT..  
class FGColor[lControll]=call_func(pRID[kCRID_Controll],{classPGColor",w32Color_WINDOWTEXT})  

Ok ... I'll make a guess at what you are trying to tell me this time ... you are saying that Euphoria is reporting many items that seem to be undeclared.

So here is my summary of what you are trying to report ...

1. The folder "C:\euphoria\include" contains EVERY include file that is part of the Win32lib library.
2. The version of win32lib that you have in "c:\euphoria\include" is v0.70.20
3. You are running Eu v4
4. When running eui win32lib.ew, with the current directory set to "C:\euphoria\include", Euphoria can find "win32lib.ew" and but is not seeing some, or all, of the symbols in the files that "win32lib.ew" itself includes. (I assume it is not reporting that it can't find the files.)

Is this a fair summary?

Ok, here is something else to try ... Similar to before, run this command line ...

eui -i c:\euphoria\include win32lib.ew 

And this time, if it shows you some ERROR messages, can you tell me what the FIRST error message says.

47. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 16, 2011
• 2451 views

When you ran the command above, was your current directory set to "C:\euphoria\include"?

If not then PLEASE repeat the command AFTER changing the current directory to "C:\euphoria\include".

If it was, can you tell me (using 'dir' for example) if w32lib.ew is in that directory.

49. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by DerekParnell (admin) Nov 17, 2011
• 2474 views

I am unsure that I can help you. I keep getting confusing, conflicting and abridged information. Sorry that my skills do not meet your needs.

Thank you.

Well, not actually. In previous posts you also got a lot of other messages that seemed to have disappeared now.

Again, thank you, but that was not the entire message was it? This is only the first line of a message. What type of error/warning did this line related to?

And by the term "item" I assume you mean "line". Was there any error message to go with line?

Hang on ... you just said the other line was the last line. How can you have more lines after the last one?

Well in that case, there is not much more I can do as I need a lot more information about your set up. There are some strange inconsistencies in what you are reporting, such as message seeming to indicate that Euphoria can't find information in the files that you insist are present and apparently with correct content.

Also, warning message of the type "Warning {not used}" are not the default so you must be running Euphoria with some special switches set. What other switches have are you using that you haven't mentioned? Are there any eu.cfg files that you have hanging around?

Anyhow, sorry I was unable to help.

51. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by jimcbrown (admin) Nov 17, 2011
• 2421 views

Hmm. Could you tarball your c:\euphoria\include directory as well as the entire code of your program?

That might allow someone else to sort out the mess and figure out how to clean up your system so as to get the program to run for you.

I'd just say to use eudist, but eudist doesn't work if not all include files can be found.

I understand that this is a clean system, set up just so you can debug this problem. However, it seems you may have accidently copied over some of the breakage when you copied over your program to it.

53. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by mattlewis (admin) Nov 17, 2011
• 2515 views

No, that's not the answer. There is no demo that does exactly what you want (although I'm not entirely clear what that is). But there is a demo that demonstrates dragging and dropping.

Matt

55. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by mattlewis (admin) Nov 17, 2011
• 2436 views

Yes, I pointed out the demo previously, and he said it wasn't what he wanted, but couldn't articulate why it wasn't what he wanted or how it should be different. His refusal to follow best practices has exceeded his ability to maintain a working system, and that just makes the task of helping him that much more difficult.

Matt

57. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by Selgor Nov 19, 2011
• 2364 views

Selgor here..

Jim , Matt.. Please.. who or what is the OP

Cheers Selgor..

59. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by jimcbrown (admin) Nov 19, 2011
• 2289 views

What is the rush?

61. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by Selgor Nov 19, 2011
• 2315 views

Selgor here..

Thank you.

What do you mean ..

"What is the rush ?"..

...........

63. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by Selgor Nov 19, 2011
• 2303 views

Selgor here..

Thank you Jim..

Cheers Selgor

65. Re: No Win32Lib Drag and Drop example OR IS THERE ??

• Posted by jimcbrown (admin) Nov 19, 2011
• 2301 views

I was refering to Derek's post, http://openeuphoria.org/forum/m/116885.wc