Re: Pageframe Issues

The code I listed was for my pageframe baseclass. This does appear to be very much like the optiongroup issue. It is like it is using the fnd_pageframe captions instead of the subclassed captions.

Here is the code before and after for one of the classes shown on the screenshot.

This is the pageframe that was labeled "Follow Ups" and had two tabs with Captions "Data Entry" and "List".

Before:

DEFINE CLASS followups AS fnd_pageframe
	ErasePage = .T.
	Anchor = 15
	ActivePage = 1
	Width = 561
	Height = 226
	add_cmd = 0
	cloggedin = ""
	cparent_table = "CONTDB"
	cfu_table = "FUDB"
	caudit_table = "AUDIT"
	cmarkcompleteexp = "Mark all past pending Follow Ups completed.  Answer Yes to leave only 1 pending follow-up, Answer no to leave all pending."
	Name = "followups"
	Page1.Caption = "Data Entry"
	Page1.Name = "Page1"
	Page2.Caption = "List"
	Page2.Name = "Page2"
	changedfu = .F.
	lconsumer = .F.

...

After:

DEFINE CLASS followups AS fnd_pageframe


	ErasePage = .T.
	Anchor = 15
	ActivePage = 1
	Width = 561
	Height = 226
	add_cmd = 0
	cloggedin = ""
	cparent_table = "CONTDB"
	cfu_table = "FUDB"
	caudit_table = "AUDIT"
	cmarkcompleteexp = "Mark all past pending Follow Ups completed.  Answer Yes to leave only 1 pending follow-up, Answer no to leave all pending."
	Name = "followups"
	Qqqpag1.Caption = "Data Entry"
	Qqqpag1.Name = "Page1"
	Qqqpag2.Caption = "List"
	Qqqpag2.Name = "Page2"
	wcpropsave = "ActivePage,fnd_edit_status,cparent_table"
	changedfu = .F.
	lconsumer = .F.

 ...

Here is the code for the pageframe on the top of the screenshot where the pages are not visible after.

Before:

DEFINE CLASS blp_agent AS fnd_pageframe


	ErasePage = .T.
	PageCount = 7
	TabStyle = 0
	Width = 548
	Height = 157
	TabIndex = 1
	ilastid = 0
	dstart_date = {}
	oadddoc = .F.
	oformhist = .F.
	*-- XML Metadata for customizable properties
	_memberdata = [<VFPData><memberdata name="create_rd_fu" display="CREATE_RD_FU"/></VFPData>]
	Name = "blp_agent"
	Page1.FontBold = .F.
	Page1.FontSize = 8
	Page1.Caption = "Agent Info"
	Page1.Picture = "..\..\program files\microsoft visual foxpro 8\"
	Page1.PageOrder = 1
	Page1.Name = "Page1"
	Page2.FontSize = 8
	Page2.Caption = "Addr/Phone"
	Page2.PageOrder = 2
	Page2.ForeColor = RGB(0,0,0)
	Page2.Name = "Page2"
	Page3.FontSize = 8
	Page3.Caption = "Notes"
	Page3.PageOrder = 4
	Page3.ToolTipText = "Click here to scroll to bottom"
	Page3.Name = "Page3"
	Page4.FontSize = 8
	Page4.Caption = "Other"
	Page4.PageOrder = 5
	Page4.Name = "Page4"
	Page5.FontSize = 8
	Page5.Caption = "History"
	Page5.PageOrder = 6
	Page5.Name = "Page7"
	Page6.FontSize = 8
	Page6.Caption = "System"
	Page6.PageOrder = 7
	Page6.Name = "Page8"
	Page7.FontSize = 8
	Page7.Caption = "eMail"
	Page7.PageOrder = 3
	Page7.Name = "Page9"
	lrel = .F.
	lhist_init = .F.
	lhist_init2 = .F.
	linit = .F.

...

After:

DEFINE CLASS blp_agent AS fnd_pageframe


	ErasePage = .T.
	PageCount = 7
	TabStyle = 0
	Width = 548
	Height = 157
	TabIndex = 1
	ilastid = 0
	dstart_date = {}
	oadddoc = .F.
	oformhist = .F.
	*-- XML Metadata for customizable properties
	_memberdata = [<VFPData><memberdata name="create_rd_fu" display="CREATE_RD_FU"/></VFPData>]
	Name = "blp_agent"
	Qqqpag1.FontBold = .F.
	Qqqpag1.FontSize = 8
	Qqqpag1.Caption = "Agent Info"
	Qqqpag1.Picture = "..\..\program files\microsoft visual foxpro 8\"
	Qqqpag1.PageOrder = 1
	Qqqpag1.Name = "Page1"
	Qqqpag2.FontSize = 8
	Qqqpag2.Caption = "Addr/Phone"
	Qqqpag2.PageOrder = 2
	Qqqpag2.ForeColor = RGB(0,0,0)
	Qqqpag2.Name = "Page2"
	Qqqpag3.FontSize = 8
	Qqqpag3.Caption = "Notes"
	Qqqpag3.PageOrder = 4
	Qqqpag3.ToolTipText = "Click here to scroll to bottom"
	Qqqpag3.Name = "Page3"
	Qqqpag4.FontSize = 8
	Qqqpag4.Caption = "Other"
	Qqqpag4.PageOrder = 5
	Qqqpag4.Name = "Page4"
	Qqqpag5.FontSize = 8
	Qqqpag5.Caption = "History"
	Qqqpag5.PageOrder = 6
	Qqqpag5.Name = "Page7"
	Qqqpag6.FontSize = 8
	Qqqpag6.Caption = "System"
	Qqqpag6.PageOrder = 7
	Qqqpag6.Name = "Page8"
	Qqqpag7.FontSize = 8
	Qqqpag7.Caption = "eMail"
	Qqqpag7.PageOrder = 3
	Qqqpag7.Name = "Page9"
	wcpropsave = "ActivePage,fnd_edit_status,iLastId,linit,dStart_date"
	lrel = .F.
	lhist_init = .F.
	lhist_init2 = .F.
	linit = .F.

Base Class After:

DEFINE CLASS fnd_pageframe AS qqqpgf


	ErasePage = .T.
	PageCount = 2
	Width = 409
	Height = 112
	fnd_private_edit_status = 0
	boundsource = ""
	fnd_edit_status = 0
	Name = "fnd_pageframe"
	Qqqpag1.Caption = "Page1"
	Qqqpag1.Name = "Page1"
	Qqqpag2.Caption = "Page2"
	Qqqpag2.Name = "Page2"
	wcpropsave = "ActivePage,fnd_edit_status"

...

ENDDEFINE


DEFINE CLASS qqqpgf AS awpgf


	ErasePage = .T.
	MemberClassLibrary = "qqq.vcx"
	MemberClass = "qqqpag"
	Name = "qqqpgf"


ENDDEFINE

DEFINE CLASS fnd_pageframe AS pageframe

	ErasePage = .T.
	PageCount = 2
	Width = 409
	Height = 112
	fnd_private_edit_status = 0
	boundsource = ""
	fnd_edit_status = 0
	Name = "fnd_pageframe"
	Page1.Caption = "Page1"
	Page1.Name = "Page1"
	Page2.Caption = "Page2"
	Page2.Name = "Page2"

	PROCEDURE Page1.Activate
		This.Refresh()
	ENDPROC

	PROCEDURE Page2.Activate
		This.Refresh()
	ENDPROC

ENDDEFINE