axlFormColorize函数到底怎么用呢？

gfdyael

procedure(a()
        drain()
        form_port = outfile("select_signal.form" "w")
        fprintf(form_port "FILE_TYPE=FORM_DEFN VERSION=2\n")
        fprintf(form_port "FORM\n")
        fprintf(form_port "FIXED\n")
        fprintf(form_port "PORT 30 100\n")
        fprintf(form_port "HEADER \"1111111111\"\n")
        fprintf(form_port "\n")

        fprintf(form_port "TILE\n")

        fprintf(form_port "TEXT \"aaaaa\"\n")
        fprintf(form_port "TLOC 12 1\n")
        fprintf(form_port "ENDTEXT\n")
        fprintf(form_port "\n")

        fprintf(form_port "\n")
        fprintf(form_port "ENDTILE\n")
                    
        fprintf(form_port "\n")
        fprintf(form_port "ENDFORM\n")
        close(form_port)
        
        form_Create=axlFormCreate((gensym) "select_signal.form" nil 'form_action t t)
        
        axlFormDisplay(form_Create)
        deleteFile("select_signal.form")
        axlFormColorize(form_Create "aaaaa" 'text 'red)
)
各位，如题。我想把文本"aaaaa"弄成红色的，axlFormColorize(form_Create "aaaaa" 'text 'red)为什么不起作用？

vivienluo

fprintf(form_port "TEXT \"aaaaa\" tttt \n");这儿改下。
        fprintf(form_port "TLOC 12 1\n")
        fprintf(form_port "ENDTEXT\n")
        fprintf(form_port "\n")

这儿改下
axlFormColorize(form_Create "tttt" 'text 'red)

gfdyael

果然是这里，原来是需要重新定义一个tttt代表这个TEXT文本，谢谢vivienluo

gfdyael

vivienluo 发表于 2023-9-2 09:42
fprintf(form_port "TEXT \"aaaaa\" tttt \n");这儿改下。
        fprintf(form_port "TLOC 12 1\n")
  ...

哎，看官方的PDF文档真是心累