Hello Everybody
I have extended FastRepH.prg to simulate the true
object type behavior like:
// Returns oPage if 'Page1' exists otherwise creates new
//
oPage := ::Page( 'Page1' )
oPage:LargeDesignHeight := .t.
oPage:LeftMargin := 10
oPage:TopMargin := 10
oPage:RightMargin := 10
oPage:BottomMargin := 10
oMemo := oPage:AddMemo( 'MemoFirst', 'This is Vouch', 100, 200, 100,
80 )
oMemo:Font:Size := 40
oMemo:Font:Bold := .t.
oMemo:Frame:FrameType := 2
oMemo:Frame:Width := 10
oMemo:Frame:DropShadow := .t.
oMemo:Frame:ShadowColor := RGB( 117,0,112 )
oBand := oPage:AddPageHeader( 'PageHeader' )
oBand:Top := ( nBandAt += nGap )
oMemo := oBand:AddMemo( 'MemoInBand', 'Excellent', 10, 2, 40, 15 )
::SetUserDataSet( 0 )
::FrPrn:AddGlobalDsToReport( ::cAlias )
oBand := oPage:AddMasterData( 'MasterData1' )
oBand:Top := ( nBandAt += nGap )
oBand:StartNewPage := .t.
oBand:DataSet := ::cAlias
if ::lChild
oBand := oPage:AddDetailData( 'DetailData1' )
oBand:Top := ( nBandAt += nGap )
oBand:DataSet := ::cAliasChd
endif
oBand := oPage:AddPageFooter( 'PageFooter' )
oBand:Top := ( nBandAt += nGap )
oBand := oPage:AddOverlay( 'Overlay' )
oBand:Top := ( nBandAt += nGap )
If you are interested in this typeof approach, please let me know.
This class manages all of the properties of FastReport. I have not
been able to manage the method calls so far as FRH (FRAH) does not provide
any construct to do so.
Regards
Pritpal Bedi, INDIA-USA
--
View this message in context:
http://www.nabble.com/OT---FastReport---FRH-and-FRAH-as-COM-Interface-tp17988136p17988136.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
