Home > Community > Forums > Custom IC SKILL > hiCreateTabField

Email

* Required Fields

Recipients email * (separate multiple addresses with commas)

Your name *

Your email *

Message *

Contact Us

* Required Fields
First Name *

Last Name *

Email *

Company / Institution *

Comments: *

 hiCreateTabField 

Last post Tue, Aug 14 2007 1:51 AM by archive. 2 replies.
Started by archive 14 Aug 2007 01:51 AM. Topic has 2 replies and 1619 views
Page 1 of 1 (3 items)
Sort Posts:
  • Tue, Aug 14 2007 1:51 AM

    • archive
    • Top 75 Contributor
    • Joined on Fri, Jul 4 2008
    • Posts 88
    • Points 4,930
    hiCreateTabField Reply

    Hello , Can anyone provide one small example for hiCreateTabField. Just how the o/p will be. Im getting lot of errors that, I have provided illegal attributes. Thanks,


    Originally posted in cdnusers.org by rimser9
    • Post Points: 0
  • Tue, Aug 14 2007 3:59 AM

    • archive
    • Top 75 Contributor
    • Joined on Fri, Jul 4 2008
    • Posts 88
    • Points 4,930
    RE: hiCreateTabField Reply

    Here's a very simple example:

    procedure( CCStabFormCreate()
    let((
    ( xWidth 330 )
    ( yDelta 30 )
    ( prompt 126 )
    LayoutLib LayoutCell LayoutView Reason LayoutBrowse
    tabfield1 tabfield2 tabField
    )

    LayoutLib=
    hiCreateStringField(
    ?name 'LayoutLib
    ?prompt "Library"
    ?value ""
    ) ; hiCreateStringField

    LayoutCell=
    hiCreateStringField(
    ?name 'LayoutCell
    ?prompt "Cell"
    ?value ""
    ) ; hiCreateStringField

    LayoutView=
    hiCreateStringField(
    ?name 'LayoutView
    ?prompt "View"
    ?value ""
    ) ; hiCreateStringField

    Reason=
    hiCreateStringField(
    ?name 'Reason
    ?prompt "Reason"
    ?value ""
    ) ; hiCreateStringField

    LayoutBrowse=
    hiCreateButtonBoxField(
    ?name 'LayoutBrowse
    ?choices list( "Browse" )
    ?callback
    ;list( "ddsSyncWithForm( CCStabForm 'browse 'LayoutLib 'LayoutCell 'LayoutView )" )
    list( "ddsSyncWithForm( eval(CCStabForm->tabField->page1) 'browse 'LayoutLib 'LayoutCell 'LayoutView )" )
    ?prompt " "
    ) ; hiCreateButtonBoxField

    tabfield1 = list(
    list(LayoutBrowse xWidth/2:1*yDelta xWidth/2 :yDelta-10 prompt/2 )
    list(LayoutLib 10:2*yDelta xWidth-20:yDelta prompt/2 )
    list(LayoutCell 10:3*yDelta xWidth-20:yDelta prompt/2 )
    list(LayoutView 10:4*yDelta xWidth-20:yDelta prompt/2 )
    )

    tabfield2 = list(
    list(LayoutLib 10:2*yDelta xWidth-20:yDelta prompt/2 )
    list(LayoutCell 10:3*yDelta xWidth-20:yDelta prompt/2 )
    list(LayoutView 10:4*yDelta xWidth-20:yDelta prompt/2 )
    list(Reason 10:5*yDelta xWidth-20:yDelta prompt/2 )
    )

    tabField = hiCreateTabField(
    ?name 'tabField
    ?notebookStyle nil
    ?pageScroller nil
    ?tabPlacement 'top
    ?tabs list("first" "second")
    ?fields list(tabfield1 tabfield2)
    ?value 1
    )

    hiCreateAppForm(
    ?name 'CCStabForm
    ?fields list(list(tabField 0:0 xWidth+5:13*yDelta+15 0))
    ?initialSize list( xWidth+5 13*yDelta+15)
    )

    hiDisplayForm(CCStabForm)
    ))


    Originally posted in cdnusers.org by adbeckett
    • Post Points: 0
  • Wed, Aug 15 2007 11:43 PM

    • archive
    • Top 75 Contributor
    • Joined on Fri, Jul 4 2008
    • Posts 88
    • Points 4,930
    RE: hiCreateTabField Reply

    Thanks Andrew that helped.


    Originally posted in cdnusers.org by rimser9
    • Post Points: 0
Page 1 of 1 (3 items)
Sort Posts:
Started by archive at 14 Aug 2007 01:51 AM. Topic has 2 replies.