Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
QM_Grid copy
#1
It's possible to copy a selected row in QM_Grid when the user click on a button? Like in this example.
Code:
Copy      Help
Macro [b]Macro3[/b] [help1][/help1]
[code]
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 354 200 "Dialog" "4"
;3 Button 0x54032000 0x0 300 3 48 14 "Copy"
;4 QM_Grid 0x56031041 0x200 5 3 288 191 "0x0,0,0,0x0,0x0[]A,,7,[]B,,7,"
;END DIALOG
;DIALOG EDITOR: "" 0x2040B00 "*" "" "" ""

str controls = "4"
str qmg4x
if(!ShowDialog(dd &sub.DlgProc &controls)) ret


#sub DlgProc
function# hDlg message wParam lParam

DlgGrid g.Init(hDlg 4)
sel message
,case WM_INITDIALOG
,_s=
,;1, 2
,;3, 4
,;5, 6
,g.FromCsv(_s ",")
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
[/code]
#2
simplest way
Code:
Copy      Help
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 354 200 "Dialog" "4"
;3 Button 0x54032000 0x0 300 3 48 14 "Copy"
;4 QM_Grid 0x56031041 0x200 5 3 288 191 "0x0,0,0,0x0,0x0[]A,,7,[]B,,7,"
;END DIALOG
;DIALOG EDITOR: "" 0x2040B00 "*" "" "" ""

str controls = "4"
str qmg4x
if(!ShowDialog(dd &sub.DlgProc &controls)) ret

#sub DlgProc
function# hDlg message wParam lParam

DlgGrid g.Init(hDlg 4)
sel message
,case WM_INITDIALOG
,_s=
,;1, 2
,;3, 4
,;5, 6
,g.FromCsv(_s ",")
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
,case 3 ;;Copy
,SetFocus g.hwnd
,_s.getsel
,out _s.trim
ret 1

another way
Code:
Copy      Help
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 354 200 "Dialog" "4"
;3 Button 0x54032000 0x0 300 3 48 14 "Copy"
;4 QM_Grid 0x56031041 0x200 5 3 288 191 "0x0,0,0,0x0,0x0[]A,,7,[]B,,7,"
;END DIALOG
;DIALOG EDITOR: "" 0x2040B00 "*" "" "" ""

str controls = "4"
str qmg4x
if(!ShowDialog(dd &sub.DlgProc &controls)) ret

#sub DlgProc
function# hDlg message wParam lParam

DlgGrid g.Init(hDlg 4)
sel message
,case WM_INITDIALOG
,_s=
,;1, 2
,;3, 4
,;5, 6
,g.FromCsv(_s ",")
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
,case 3 ;;Copy
,SetFocus g.hwnd
,int row=g.RowSelectedGet
,int cols=g.ColumnsCountGet
,ARRAY(str) rowtext; g.RowGetSA(rowtext row cols 0)
,out rowtext
ret 1
#3
Both worked great, Thanks.


Forum Jump:


Users browsing this thread: 1 Guest(s)