xieeyawen 发表于 2025-6-13 16:31:51

最简单form写法，阿狸狗自己的示例代码


unless(boundp('_mil_fw) _mil_fw = nil)

;用'("")写form
inLineForm = '("

        FILE_TYPE=FORM_DEFN VERSION=2
        FORM
        FIXED
        PORT 16 4
        HEADER \"In-Line Example\"

        TILE

        TEXT \"I did it!\"
        TLOC 6 2
        OPTIONS BOLD
        ENDTEXT

        FIELD checkbox
        FLOC 2 4
        CHECKLIST \"A checkbox\"
        ENDFIELD

        FIELD done
        FLOC 4 8
        MENUBUTTON \"OK\" 9 3
        ENDFIELD
        ENDTILE

        ENDFORM
")



procedure( stand_inline()
    let( (fw)
    fw = axlFormCreate('_mil_fw list("myform" inLineForm)
                '("msgLines" 0) 'mil_CB t nil)
    axlFormDisplay(fw)
))


procedure( mil_grid(t_name)
    let( (f)
    )
)


procedure( mil_CB(fw)
    prog(()
   unless((fw->doneState == 0)
       axlFormClose(fw)
       return(t)
   )
))



unless(boundp('_mini_fw) _mini_fw = nil)

procedure( mini_inline()
    let( (fw)
    fw = axlMiniStatusLoad('_mini_fw list("mini_test" inLineForm) 'mini_inlineCB)
))

procedure( mini_inlineCB(fw)
   printf("CURFIELD %L has value %L\n" fw->curField, fw->curValue)
)




xieeyawen 发表于 2025-6-13 16:32:02

1

xieeyawen 发表于 2025-6-13 16:32:05

2
页: [1]
查看完整版本: 最简单form写法，阿狸狗自己的示例代码