Subject |
Re: INHERITANCE |
From |
Mustansir Ghor <mustan31@hotmail.com> |
Date |
Wed, 19 Jul 2017 02:53:34 -0400 |
Newsgroups |
dbase.getting-started |
Dear Andy
Below is my program example of tab. It works as you indicated. There is one statement with comment //. If I remove the comment slashes and use with super class it does not work. If I were to use super class would the statement be.
** END HEADER -- do not remove this line
//
// Generated on 07/19/2017
//
parameter bModal
local f
f = new LABORATForm()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class LABORATForm of FORM
set procedure to :DT_custom:MyControls.cc additive
with (this)
metric = 3 // Inches
height = 6.0
left = 0.0
top = 1.0
width = 7.5833
endwith
this.MYTABBOX1 = new MYTABBOX(this)
with (this.MYTABBOX1)
onSelChange = class::MYTABBOX1_ONSELCHANGE
height = 0.2292
left = 0.0
top = 5.75
width = 7.5625
endwith
this.TEXT1 = new TEXT(this)
with (this.TEXT1)
height = 0.5729
left = 1.5313
top = 1.1458
width = 2.625
text = "Text1"
endwith
function MYTABBOX1_onSelChange()
// super::onSelChange()
mytabbox::mytabbox_onselchange()
this.parent.text1.text=this.datasource
return
endclass
class MYTABBOX(parentObj) of TABBOX(parentObj) custom
with (this)
onSelChange = class::MYTABBOX_ONSELCHANGE
onOpen = class::MYTABBOX_ONOPEN
id = 110
height = 22.0
left = 0.0
top = 350.0
width = 465.0
metric = 6
colorHighLight = "WindowText/0x80ffff"
dataSource = 'ARRAY {"Individual Record","Find Record"}'
endwith
function MYTABBOX_onSelChange()
form.pageNo := this.curSel
return
function MYTABBOX_onOpen()
this.curSel := 1
form.pageNo := 1
return
endclass
Regards
Mustansir
|
|