我想自己创建一个简单color dialgo,请教一些用的是哪些函数?

ghfghyb · 发表于 2012-8-8 08:52

如下图中所示:

deargds · 发表于 2012-8-8 09:39

提供一个完整示例，可以在此基础上面扩展。

代码如下：

axlCmdRegister( "ViewLayer" 'ViewLayer ?cmdType "general")
defun( ViewLayer ()
let((f h)
f = axlTempFile()
h = outfile(f "w")
fprintf(h "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(h "FORM\n")
fprintf(h "FIXED\n")
fprintf(h "PORT 41 15\n")
fprintf(h "HEADER \"EDA365 Skill\"\n")
fprintf(h "TILE\n")
fprintf(h "FIELD outline_color\n")
fprintf(h "FLOC 2 1\n")
fprintf(h "COLOR 2 1\n")
fprintf(h "ENDFIELD\n")
fprintf(h "FIELD outline_check\n")
fprintf(h "FLOC 4 1\n")
fprintf(h "CHECKLIST \"Board Geometry/Outline\"\n")
fprintf(h "ENDFIELD\n")
fprintf(h "ENDTILE\n")
fprintf(h "ENDFORM\n")
close(h)
w = axlFormCreate(gensym() f nil 'ViewLayer_Callback t)
axlFormSetField(w,"outline_color",axlLayerGet("BOARD GEOMETRY/OUTLINE")->color)
axlFormSetField(w,"outline_check",axlLayerGet("BOARD GEOMETRY/OUTLINE")->visible)
axlFormDisplay(w)
))
defun( ViewLayer_Callback (h)
case( h -> curField
("outline_check"
axlVisibleLayer("Board Geometry/Outline" ,h->curValue)
axlVisibleUpdate(t)
)
)
)

复制代码

ghfghyb · 发表于 2012-8-8 21:56

deargds
提供一个完整示例，可以在此基础上面扩展。

谢谢，，学习中~

yneda · 发表于 2012-8-9 10:20

请教下deargds ，我在使用，axlVisibleUpdate(t)这个函数的时候，屏幕会一闪闪的，虽然很短，但还是感觉的到，特别是当打开很多层，然后在刷新的时候，最明显，但是系统的自己带的那个Visibility却不会闪，请问这是什么原因呢？

betamelody · 发表于 2012-8-9 10:28

yneda 发表于 2012-8-9 10:20
请教下deargds ，我在使用，axlVisibleUpdate(t)这个函数的时候，屏幕会一闪闪的，虽然很短，但还是感觉的到 ...

axlUIWUpdate(nil)
这个不会闪

		自动登录	找回密码
密码			注册

推荐内容 /1