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

xieeyawen

1. 
   
2. unless(boundp('_mil_fw) _mil_fw = nil)
   
3. 
   
4. ;用'("")写form
   
5. inLineForm = '("  
   
6. 
   
7.         FILE_TYPE=FORM_DEFN VERSION=2
   
8.         FORM
   
9.         FIXED
   
10.         PORT 16 4
    
11.         HEADER "In-Line Example"
    
12. 
    
13.         TILE
    
14. 
    
15.         TEXT "I did it!"
    
16.         TLOC 6 2
    
17.         OPTIONS BOLD
    
18.         ENDTEXT
    
19. 
    
20.         FIELD checkbox
    
21.         FLOC 2 4
    
22.         CHECKLIST "A checkbox"
    
23.         ENDFIELD
    
24. 
    
25.         FIELD done
    
26.         FLOC 4 8
    
27.         MENUBUTTON "OK" 9 3
    
28.         ENDFIELD
    
29.         ENDTILE
    
30. 
    
31.         ENDFORM
    
32. ")
    
33. 
    
34. 
    
35. 
    
36. procedure( stand_inline()
    
37.     let( (fw)
    
38.     fw = axlFormCreate('_mil_fw list("myform" inLineForm)
    
39.                 '("msgLines" 0) 'mil_CB t nil)
    
40.     axlFormDisplay(fw)
    
41. ))
    
42. 
    
43. 
    
44. procedure( mil_grid(t_name)
    
45.     let( (f)
    
46.     )
    
47. )
    
48. 
    
49. 
    
50. procedure( mil_CB(fw)
    
51.     prog(()
    
52.      unless((fw->doneState == 0)
    
53.          axlFormClose(fw)
    
54.          return(t)
    
55.      )
    
56. ))
    
57. 
    
58. 
    
59. 
    
60. unless(boundp('_mini_fw) _mini_fw = nil)
    
61. 
    
62. procedure( mini_inline()
    
63.     let( (fw)
    
64.     fw = axlMiniStatusLoad('_mini_fw list("mini_test" inLineForm) 'mini_inlineCB)
    
65. ))
    
66. 
    
67. procedure( mini_inlineCB(fw)
    
68.      printf("CURFIELD %L has value %L\n" fw->curField, fw->curValue)
    
69. )
    
70. 
    
71. 
    

复制代码

xieeyawen

1

xieeyawen

2