想写个 color form 不会，求帮忙

pallayout

想写个自定义的 color Form ，不会，求大神们帮忙完善一下outline那个按钮的代码
不会的有
1. 如何判断outline 层已显示？
2. 当outline 层已显示时，那个color按钮如何变成outline 层的颜色，且感觉有被按下的效果
3. 当outline 层不显示时，那个color按钮如何变成黑色，且感觉没有被按下的效果

1. /*********************************************************/
   
2. /*               Title :  pal Color                     */
   
3. /*     Execute Command :  PalColor                     */
   
4. /*              Author :  tatarlxw                       */
   
5. /*       Creation Date :  2014-10-30                     */
   
6. /*              Update :                                 */
   
7. /*             Version :  1.0                            */
   
8. /*            Web site :  http://hi.baidu.com/tatarlxw   */
   
9. /*              E-mail :  tatarlxw@163.com               */
   
10. /*********************************************************/
    
11. 
    
12. axlCmdRegister("PalColor" 'PalColor)
    
13. defun( PalColor ()
    
14.   formFileName = "./PalColor.form"
    
15.   PalColor_form_create()
    
16.   
    
17.   ;PalColor_form = axlMiniStatusLoad('form, formFileName 'PalColor_action t)
    
18.   PalColor_form = axlFormCreate( (gensym) formFileName `(ne inner "msglines" 2) `PalColor_action t nil)
    
19.   axlFormDisplay(PalColor_form)
    
20.   deleteFile(formFileName)
    
21.   axlControlRaise('options)
    
22. )
    
23. 
    
24. defun(PalColor_action (PalColor_form)
    
25. case(PalColor_form->curField
    
26.    ("clrOutline"
    
27.            axlVisibleLayer( "BOARD GEOMETRY/OUTLINE" t )
    
28.    )
    
29.    ("btnVisAllOn"
    
30.      axlShell( "setwindow pcb")
    
31.      axlShell( "etchedit")
    
32.      axlShell( "color192")
    
33.      axlShell( "setwindow cvf.dialog")
    
34.      axlShell( "cvf layer_mode")
    
35.      axlShell( "setwindow pcb")
    
36.      axlShell( "etchedit")
    
37.      axlShell( "setwindow cvf.dialog")
    
38.      axlShell( "cvf global_visible")
    
39.      axlShell( "cvf okay")
    
40.      axlShell( "setwindow pcb")
    
41.      axlShell( "")
    
42.    )
    
43.    ("btnVisAllOff"
    
44.      axlShell( "setwindow pcb")
    
45.      axlShell( "etchedit")
    
46.      axlShell( "color192")
    
47.      axlShell( "setwindow cvf.dialog")
    
48.      axlShell( "cvf layer_mode")
    
49.      axlShell( "setwindow pcb")
    
50.      axlShell( "etchedit")
    
51.      axlShell( "setwindow cvf.dialog")
    
52.      axlShell( "cvf global_invisible")
    
53.      axlShell( "cvf okay")
    
54.      axlShell( "setwindow pcb")
    
55.      axlShell( "")
    
56.    )
    
57. 
    
58. ))
    
59. 
    
60. procedure(PalColor_form_create()
    
61.         lstForm = outfile( formFileName "w")
    
62.         fprintf(lstForm "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
63.         fprintf(lstForm "FORM\n")
    
64.         fprintf(lstForm "FIXED\n")
    
65.         fprintf(lstForm "PORT 20 10\n")
    
66.         fprintf(lstForm "HEADER \"Change Block\"\n")
    
67.         fprintf(lstForm "TILE\n")
    
68.        
    
69.         fprintf(lstForm "TEXT \"Global Visibility:\"\n")
    
70.         fprintf(lstForm "FLOC 2 1\n")
    
71.         fprintf(lstForm "ENDTEXT\n")
    
72.        
    
73.         fprintf(lstForm "FIELD btnVisAllOn\n")
    
74.         fprintf(lstForm "FLOC 10 1\n")
    
75.         fprintf(lstForm "MENUBUTTON \"On\" 5 3\n")
    
76.         fprintf(lstForm "ENDFIELD\n")
    
77. 
    
78.         fprintf(lstForm "FIELD btnVisAllOff\n")
    
79.         fprintf(lstForm "FLOC 16 1\n")
    
80.         fprintf(lstForm "MENUBUTTON \"Off\" 5 3\n")
    
81.         fprintf(lstForm "ENDFIELD\n")
    
82.        
    
83.         fprintf(lstForm "TEXT \"Outline\"\n")
    
84.         fprintf(lstForm "FLOC 2 4\n")
    
85.         fprintf(lstForm "ENDTEXT\n")
    
86. 
    
87.         fprintf(lstForm "FIELD clrOutline\n")
    
88.         fprintf(lstForm "FLOC 10 4\n")
    
89.         fprintf(lstForm "COLOR 3 1\n")
    
90.         fprintf(lstForm "ENDFIELD\n")
    
91.        
    
92.         fprintf(lstForm "ENDTILE\n")
    
93.         fprintf(lstForm "ENDFORM\n")
    
94.         close(lstForm)
    
95. )
    
96. 
    
97.        
    
98.        
    

复制代码

liuanty

学习一下！

kkman2000

支持楼主原创  非常感谢!

pallayout

太感谢了，已搞定，

betamelody

axlVisibleUpdate(nil)

pallayout

新的问题，如何判断与设置color按钮是否按下
  ;当outline已显示时，在程序加载时，不知如何让color按钮达到自动按下效果。
  if(axlIsVisibleLayer("BOARD GEOMETRY/OUTLINE") then
     clrlayer=axlLayerGet("BOARD GEOMETRY/OUTLINE")
     axlFormSetField( PalColor_form "clrOutline" clrlayer->color )
         ;在这里加点啥？能让color按钮有按下效果？
  else
         axlFormSetField( PalColor_form "clrOutline" 'black)
    )
就差这一小步了，哪位大神帮帮忙

pallayout

都搞定了，axlLayerGet 是这个函数

pallayout

还有我需要刷屏，即allegro中的 redraw 命令
好像不是axlFlushDisplay() 这个函数，那是哪条了，

pallayout

颜色设置貌似axlformcolorset  ？
再请高人指点一下

kevin890505

ALXISVISIABLELAYER（XXX）貌似   检查层是否打开   颜色设置貌似axlformcolorset   查下说明吧