General information
Category:
Coding, syntax & commands
Thanks Naomi
i've been working at it with variations of what you suggested trying to get this thing to work.
Am i getting warm?
right now i'm getting held up up on your
'thisform.myEditBox.ControlSource = 'MyTable.MyMemoField' && You can set it in the Init of the form
my variation is getting me no where.
thanks for your time.
k
LOCAL oFrm
use students in 0 alias myTable shared
oFrm= createOBJECT("classRooms")
oFrm.Top = 24
oFrm.left = 800 && will keep right border
oFrm.Height = 573
oFrm.Width = 350
oFrm.Edit1.Width = 345
*oFrm.edit1.value = filetostr('m.txt') &&& this was the original
oFrm.edit1.ControlSource = 'MyTable.classrooms' && You can set it in the Init of the form
oFrm.Show(1)
************************************
DEFINE CLASS classrooms AS Form
ADD OBJECT Edit1 AS EditBox WITH ;
FontSize = 8, ;
FontStyle = 'n', ;
Height= 550, ;
Left= 2, ;
fontname='lucida console', ;
ReadOnly= .t., ;
TabIndex= 2, ;
Top= 2, ;
Value= ""
desktop = .t. &&& moved from setting oFrm
ENDDEFINE
Public Event MouseWheel As MouseWheelEventHandler
PROCEDURE Object.MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
PROCEDURE edit1.MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
* Set focus to this control
If Type("thisform.ActiveControl") # "O" or thisform.ActiveControl < > this
this.SetFocus
EndIf
ENDPROC
oFrm.hide(1)
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only