Author: Jack Skelley
Posted: 2014-05-05 at 15:35:49
Desmond:
Not sure why your double click in the textbox of a grid does not fire. I have many instances where in a readonly = .t. grid the double click / right click event fires and does 'something' in VFP 6 SP5.
For example a double click in a memo field in the grid takes that content and displays in in a larger editbox on a separate modal form. Also the rightclick event does the doubleclick method.
This is out of a 2 column grid with a checkbox and a textbox.
Grid setup:
ColumnCount = 2
FontBold = .T.
FontSize = 8
AllowRowSizing = .F.
DeleteMark = .F.
Height = 511
Left = 12
Panel = 1
RecordMark = .F.
RowHeight = 17
ScrollBars = 0
TabIndex = 4
ToolTipText = "Click name or check box at left to send the selected file to this scout...click again to uncheck..."
Top = 22
Width = 188
Name = "Grid1"
Column1.FontBold = .T.
Column1.FontSize = 8
Column1.ControlSource = ""
Column1.Width = 40
Column1.Movable = .F.
Column1.Resizable = .F.
Column1.ReadOnly = .F.
Column1.Sparse = .F.
Column1.Visible = .T.
Column1.DynamicBackColor = "IIF(MOD(RECNO(),2)=1,RGB(255,255,255),RGB(192,220,192))"
Column1.Name = "Column1"
Column2.FontBold = .T.
Column2.FontSize = 8
Column2.ControlSource = ""
Column2.Enabled = .T.
Column2.Width = 145
Column2.Movable = .F.
Column2.Resizable = .F.
Column2.ReadOnly = .T.
Column2.Visible = .T.
Column2.SelectOnEntry = .F.
Column2.DynamicBackColor = "IIF(MOD(RECNO(),2)=1,RGB(255,255,255),RGB(192,220,192))"
Column2.DynamicForeColor = 'iif(t_level<"3",rgb(255,0,0),rgb(0,0,0))'
Column2.Name = "Column2"
This is in the textbox methods
PROCEDURE DblClick
thisform.cntScouts.grid1.column1.check1.value = .f.
ENDPROC
PROCEDURE Click
if thisform.lstAttachments.listcount = 0 then
thisform.cntScouts.grid1.column1.check1.value = .f.
wait window "Please Make A File Selection Before Selecting A Recipient Scout..." timeout 2
return
endif
if thisform.lstAttachments.listcount > 0 and thisform.lstAttachments.listindex = 0 then
thisform.cntScouts.grid1.column1.check1.value = .f.
wait window "Please Make A File Selection Before Selecting A Recipient Scout..." timeout 2
return
endif
if left(tScouts.t_name,5) = "-----" then
thisform.cntScouts.grid1.column1.check1.value = .f.
wait window "This Entry Can Not Be Selected..." timeout 2
return
endif
if tScouts.t_mail then
thisform.cntScouts.grid1.column1.check1.value = .f.
else
thisform.cntScouts.grid1.column1.check1.value = .t.
endif
thisform.cntScouts.grid1.column1.check1.click()
thisform.cntScouts.grid1.refresh()
ENDPROC
PROCEDURE When
if thisform.lstAttachments.listcount = 0 then
wait window "Please Make A File Selection Before Selecting A Recipient Scout..." timeout 2
return
endif
if thisform.lstAttachments.listcount > 0 and thisform.lstAttachments.listindex = 0 then
wait window "Please Make A File Selection Before Selecting A Recipient Scout..." timeout 2
return
endif
ENDPROC
The checkbox control has basically more of the same...
Perhaps this will allow you to compare why your events are not firing.
Jack
Jack Skelley
Senior Director, Programming/Computer Operations
New Jersey Devils
(973)757-6164
JSkelley@newjerseydevils.com ________________________________________
From: ProfoxTech [profoxtech-bounces@leafe.com] on behalf of Desmond Lloyd [desmond.lloyd@gmail.com]
Sent: Monday, May 05, 2014 3:39 PM
To: profoxtech@leafe.com
Subject: VFP6: Silly Grid Question
OK,
Defined a grid, data is not changed in the grid, display only. Marked
the grid as read only, works fine, however I would like to have the user
double click on a row and execute the click method of a button on the
form. (Display details)
Put the code in the double click event and no joy. Changed grid from read
only and make the individual columns read only. Data is not changeable,
have added the thisform.cmdedit.click() in various double click methods in
the text property, column and the grid, all to no avail...
Is this possible in VFP6, read only data displayed, double click
somewhere and execute a button click?
Regards,
Desmond
--- StripMime Report -- processed MIME parts ---
multipart/alternative
text/plain (text body -- kept)
text/html
---
[excessive quoting removed by server]
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/7D9E7F72B813014C8FD022CF04F820EDF36CE559@EX08.drdad.thenewarkarena.com
** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.