OpenEuphoria

Re: w32engin does not detect clicks when button is within a group box

• Posted by andi49 Apr 27, 2015
• 1502 views

Hi

tinEWG is not really maintained, since over a year. A 'Grid Control' was never on the plan ;) A full featured Grid (like in Delphi/FPC) would need more lines of code than tinEWG itself ;)

Arwen (completly ported to EU4) is a really good starting point (if i look at Edita).

But simple things could allready be done with tinEWG (a simple Directory Browser):

include tinewg.exw 
include std\filesys.e 
 
WindowType=StandardWin 
Window("DirTest") 
atom list=Control(ListView,"",0,0,390,170) 
 
lv_AddColumn(list,"Size",64) 
lv_AddColumn(list,"Attribut",64) 
lv_AddColumn(list,"Name",128) 
lv_AddColumn(list,"Path",64) 
 
atom font=NewFont("Lucida Console",12,0,0,0) 
SetFont(list,font) 
 
function addfiles(sequence path_name,sequence filename) 
atom count 
    count=lv_GetItemCount(list) 
    lv_InsertRow(list,count,path_name) 
    lv_SetItem(list,count,1,filename[D_NAME]) 
    lv_SetItem(list,count,2,filename[D_ATTRIBUTES]) 
    lv_SetItem(list,count,3,sprintf("%d",filename[D_SIZE])) 
return 0   
end function 
walk_dir("c:\\",routine_id("addfiles"),False) 
 
procedure listclick() 
atom index 
sequence fullname 
    index=lv_GetIndex(list) 
    fullname=lv_GetItem(list,index,0)&"\\"&lv_GetItem(list,index,1)&"\\" 
    -- puts(1,fullname&"\n") 
    if equal(lv_GetItem(list,index,2),"d") then 
        chdir(fullname) 
        lv_Clear(list) 
        lv_InsertRow(list,0,"..") -- dummy for cd .. 
        lv_SetItem(list,0,2,"d")  -- dummy for cd ..  
        walk_dir(current_dir(),routine_id("addfiles"),False) 
    elsif equal(lv_GetItem(list,index,2),"a") then 
	RunApp(fullname,"") 
    end if 
end procedure 
SetHandler(list,DClick,routine_id("listclick")) 
 
WinMain() 
 

Andreas