Some operations of QM_Grid control

[Davider]

Bug1: Drag and drop files to the grid, Bug no column 2
Resolved!
 

Code:

Copy      Help

,sel wParam
,,case 3 ;;drop
,,str s=di.files
,,ARRAY(str) as=s
,,str s1 s2
,,for _i 0 as.len
,,,fn.getfilename(as[_i] 1)
,,,s1.addline(F"{as[_i]}" 1)
,,,s2.addline(F"{fn}" 1)
,,int i_=g.RowsCountGet
,,int n=numlines(s1)
,,str ss1 ss2
,,for _i 0 n
,,,ss1.getl(s1 _i)
,,,ss2.getl(s2 _i)
,,,TO_LvAdd g.hwnd i_ 0 0 ss1 ss2
,,,i_+1
,,ret DT_Ret(hDlg 1)

---

It may be more appropriate to use g.RowAddSetMS function, but I don't know how to use it

---

Bug2: Prefix Added repeatedly
Bug3: Suffix Added repeatedly

Resolved!
 

Code:

Copy      Help

,case EN_CHANGE<<16|4 ;;Prefix
,str Pre.getwintext(id(4 hDlg))
,str Suf.getwintext(id(5 hDlg))
,str Ex.getwintext(id(16 hDlg))
,for _i 0 g.RowsCountGet
,,_s=g.CellGet(_i 0)
,,fn.getfilename(_s)
,,if(empty(Ex)) Ex.GetFilenameExt(_s)
,,_s.from(Pre fn Suf "." Ex)
,,g.CellSet(_i 1 _s)
,
,case EN_CHANGE<<16|5 ;;Suffix
,Pre.getwintext(id(4 hDlg))
,Suf.getwintext(id(5 hDlg))
,Ex.getwintext(id(16 hDlg))
,for _i 0 g.RowsCountGet
,,_s=g.CellGet(_i 0)
,,fn.getfilename(_s)
,,if(empty(Ex)) Ex.GetFilenameExt(_s)
,,_s.from(Pre fn Suf "." Ex)
,,g.CellSet(_i 1 _s)
,
,case EN_CHANGE<<16|16 ;;Ext
,Ex.getwintext(id(16 hDlg))
,for _i 0 g.RowsCountGet
,,_s=g.CellGet(_i 1)
,,fn.getfilename(_s)
,,_s.from(fn "." Ex)
,,g.CellSet(_i 1 _s)