make user type with two windows objects
Posted: Tue Jul 10, 2007 9:34 am
Hi!
I`d like to make an owvn new type. The name is LabEd. LabEd be contained two object:
a Label and a Text, end to end. Firstly the Label, afterward the Text, next to Label.
Bat my program don`t work. Why?
[code]`test_labed by PaPi
dim myform as form
type labed
dim parent as object
dim left as integer
dim top as integer
dim width as integer
dim caption as string
dim text as string
dim lab as label
lab.parent=parent
lab.left=left
lab.top=top+3
lab.caption=caption
dim ed as edit
ed.parent=parent
ed.left=lab.left+lab.width+10
ed.top=top
ed.width=width
end type
dim le1 as labed
le1.left=10
le1.top=10
le1.width=180
le1.parent=myform
le1.caption=" Data for test #1"
dim le2 as labed
le2.left=10
le2.top=110
le2.width=180
le2.parent=myform
le2.caption=" Data for test #2"
myform.width=300
myform.height=300
myform.ShowModal
showmessage le1.caption+" = "+le1.text
showmessage le2.caption+" = "+le2.text
[/code]
best regard PaPi
I`d like to make an owvn new type. The name is LabEd. LabEd be contained two object:
a Label and a Text, end to end. Firstly the Label, afterward the Text, next to Label.
Bat my program don`t work. Why?
[code]`test_labed by PaPi
dim myform as form
type labed
dim parent as object
dim left as integer
dim top as integer
dim width as integer
dim caption as string
dim text as string
dim lab as label
lab.parent=parent
lab.left=left
lab.top=top+3
lab.caption=caption
dim ed as edit
ed.parent=parent
ed.left=lab.left+lab.width+10
ed.top=top
ed.width=width
end type
dim le1 as labed
le1.left=10
le1.top=10
le1.width=180
le1.parent=myform
le1.caption=" Data for test #1"
dim le2 as labed
le2.left=10
le2.top=110
le2.width=180
le2.parent=myform
le2.caption=" Data for test #2"
myform.width=300
myform.height=300
myform.ShowModal
showmessage le1.caption+" = "+le1.text
showmessage le2.caption+" = "+le2.text
[/code]
best regard PaPi