Cadence Skill 论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 10618|回复: 14

做一個快捷顯示面板,如何添加新頁面?

[复制链接]
发表于 2014-4-22 15:18:41 | 显示全部楼层 |阅读模式
如圖所示 ,想新增一個按鈕 就會在另外一頁可以顯示其他的內容了
2014-04-22 15 17 46.jpg
2014-04-22 15 16 32.jpg
 楼主| 发表于 2014-4-22 15:20:01 | 显示全部楼层
下面一張圖片就有2欄 1欄是layer 1欄是tools
发表于 2014-4-22 22:40:50 | 显示全部楼层
在FORM中使用TABSET

TABSET "tab"
OPTIONS tabsetDispatch
FLOC 2 1
FSIZE 37 26
        
TAB "AAAAA"
        
ENDTAB
        
TAB "BBBBB"
......
ENDTAB
        
ENDTABSET
 楼主| 发表于 2014-4-23 11:22:32 | 显示全部楼层
        fprintf(myform "#Created by xml2bnf  perl utility\n")
                fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
                fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
                fprintf(myform "FORM AUTOGREYTEXT\n")
                fprintf(myform "FIXED\n")
                fprintf(myform "PORT 37 20\n")
                fprintf(myform "HEADER \"SYLAR tools\"\n\n")
                fprintf(myform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
              fprintf(myform "TILE\n\n")

是用這種類型做的form 怎麼把您的語句加進去
 楼主| 发表于 2014-4-23 11:59:59 | 显示全部楼层
fprintf(myform "TABSET \"tab\"\n")
                fprintf(myform "OPTIONS tabsetDispatch\n")
                fprintf(myform "FLOC 2 1\n")
                fprintf(myform "FSIZE 37 26\n")
                fprintf(myform "TAB \"AAAAA\"\n")
                 ...
                fprintf(myform "ENDTAB\n")
           fprintf(myform "TAB \"bbb\"\n")
                 ...
                fprintf(myform "ENDTAB\n")
                fprintf(myform "ENDTABSET\n")  

這樣不行呢  請問有什麼問題?
 楼主| 发表于 2014-4-23 13:13:47 | 显示全部楼层
E- *Error* axlFormDisplay: argument #1 should be any user-defined (other) type (type template = "o") - nil
发表于 2014-4-23 21:36:49 | 显示全部楼层
mmmmyuitian 发表于 2014-4-23 13:13
E- *Error* axlFormDisplay: argument #1 should be any user-defined (other) type (type template = "o") ...

应该是你的form文件格式有误,请仔细检查一下。
发表于 2014-4-23 21:59:26 | 显示全部楼层
mmmmyuitian 发表于 2014-4-23 11:59
fprintf(myform "TABSET \"tab\"\n")
                fprintf(myform "OPTIONS tabsetDispatch\n")
     ...

给你写个示例:

tab.png

tab 2.png
  1. FILE_TYPE = FORM_DEFN VERSION=2
  2. FORM
  3. FIXED
  4. PORT 40 28
  5. HEADER "Tab Target Test"
  6. TILE

  7. TABSET "tab"
  8. OPTIONS tabsetDispatch
  9. FLOC 2 1
  10. FSIZE 37 10
  11. TAB "Layer"
  12. TEXT "这是TAB 1标签测试信息。
  13. TLOC 5 1
  14. ENDTEXT

  15. FIELD Item1
  16. FLOC 5 4
  17. CHECKLIST "Item1"
  18. ENDFIELD
  19. ENDTAB

  20. TAB "Tools"
  21. TEXT "这是TAB 2标签测试信息。
  22. TLOC 5 1
  23. ENDTEXT

  24. FIELD Item2
  25. FLOC 5 4
  26. CHECKLIST "Item2"
  27. ENDFIELD
  28. ENDTAB

  29. ENDTABSET
  30. ENDTILE
  31. ENDFORM
复制代码
 楼主| 发表于 2014-4-24 12:05:33 | 显示全部楼层
procedure(Display()
        let((Displayfile myform)
                Displayfile = axlTempFile()
                myform = outfile(Displayfile "w")
                fprintf(myform "#Created by xml2bnf  perl utility\n")
                fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
                fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
                fprintf(myform "FORM AUTOGREYTEXT\n")
                fprintf(myform "FIXED\n")
                fprintf(myform "PORT 37 20\n")
                fprintf(myform "HEADER \"SYLAR tools\"\n\n")
                fprintf(myform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
              fprintf(myform "TILE\n\n")
  
         




  ;------------------------------;
  ; Set the General Group       ;
  ;------------------------------;
                fprintf(myform "GROUP \"General\"\n")
                fprintf(myform "GLOC 1 1\n")
                fprintf(myform "GSIZE 35 12\n")
                fprintf(myform "ENDGROUP\n")

  ;------------------------------;
  ; Set the ON-OFF Group       ;
  ;------------------------------;               
                fprintf(myform "## Button Field in FORM ## \n")
                fprintf(myform "FIELD ALLON\n")
                fprintf(myform "FLOC 1 3\n")
                fprintf(myform "MENUBUTTON \"ON\" 3 3\n")
                fprintf(myform "FGROUP \"PBTop\"\n")
                fprintf(myform "ENDFIELD \n\n")

                fprintf(myform "## Button Field in FORM ## \n")
                fprintf(myform "FIELD ALLOFF\n")
                fprintf(myform "FLOC 7 3\n")
                fprintf(myform "MENUBUTTON \"OFF\" 3 3\n")
                fprintf(myform "FGROUP \"PBTop\"\n")
                fprintf(myform "ENDFIELD \n")
fprintf(myform "ENDFORM\n\n")
                close(myform)
               
            myform = axlFormCreate(gensym() Displayfile '("NE" "msglines" 0) 'DisplayAction t nil)
            axlFormDisplay(myform)
            axlFormSetField(myform "sub_menuclass" 1)
                when(isFile(Displayfile)
                        deleteFile(Displayfile)

                )
        )
)
procedure(DisplayAction(myform)
let(n( )
        case(myform->curField
               
("ALLOFF"
                                    axlVisibleDesign(nil)       
                            axlVisibleUpdate(nil)   
                ;Button Field
                ;Enter Action Here
               
                )
("ALLON"
                                    axlVisibleDesign(t)       
                            axlVisibleUpdate(t)   
                ;Button Field
                ;Enter Action Here
               
                )  我實在 不知道怎麼弄了 ,如果能加載單獨加載form 應該可以用您的這個,目前最好是一起
 楼主| 发表于 2014-4-24 13:24:53 | 显示全部楼层
謝謝 用你之前的一個 改編,把我想要的東西添加進去就可以 ,謝謝了
2014-04-24 13 23 58.jpg
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|网站地图|Cadence Skill 论坛 ( 蜀ICP备13024417号 )

GMT+8, 2024-3-28 22:07 , Processed in 0.150083 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表