【求助】Form窗口弹出位置与定义的不符

ashnoer

如题，以下代码的窗口都不能在固定位置弹出

1. 文档实例，
   
2. form = axlFormCreate( (gensym) "extract_selector.form" '("E" "OUTER") '_formAction t)
   
3. 
   
4. 参考其他skill修改
   
5. form=axlFormCreate((gensym) "refdes_over.form" '(C OUTER MSGLINES 0) 'pform_Action t)

复制代码

ashnoer

aarom 发表于 2024-7-25 18:25
我只看到你貼的格式錯誤.(其他要看你全文的設置.)

1. '(C OUTER MSGLINES 0)

复制代码

以上格式在我收集到的skill中运行时并无问题
在我的skill中，无论我按照以上格式或是 '("C" "OUTER") 都无法让窗口在指定的位置弹出

即使我直接复制，效果任然等效于：

1. form=axlFormCreate((gensym) "refdes_over.form" <font color="#ff00ff">nil</font> 'pform_Action t)

复制代码

ashnoer

aarom 发表于 2024-7-25 21:41
1.其他要看你全文的設置.

2.Form 要固定, 除非你沒移動過它的位置, 依Allegro 工具列, 是依上次最後位 ...

如果有空是否可以帮我看一下

1. 
   
2. axlCmdRegister("skillDebuger" 'SkillDebuger)
   
3. 
   
4. (defun SkillDebuger ()
   
5.       time = getCurrentTime()
   
6.       time = parseString(time)
   
7.       day = nth(1 time)
   
8.       month = car(time)
   
9.       month = upperCase(month)
   
10.       year = nth(3 time)
    
11.       date = strcat(" Date: " day " " month " " year)
    
12.        CreateForm()
    
13.       Form=axlFormCreate( (gensym) form_file '("E" "OUTER") 'SkillDebuger_Call t)
    
14.       axlFormDisplay(Form)
    
15.       axlUIWPrint(Form date)
    
16. )
    
17. 
    
18. (defun CreateForm ()
    
19. drain()
    
20. form_file = "t_Skill.form"
    
21. P = outfile(form_file "w")
    
22. fprintf(P "#Created by xml2bnf  perl utility\n")
    
23. fprintf(P "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
    
24. fprintf(P "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
25. fprintf(P "FORM AUTOGREYTEXT\n")
    
26. fprintf(P "FIXED\n")
    
27. fprintf(P "PORT 39 35\n")
    
28. fprintf(P "HEADER \"SkillDebuger V1.0\"\n")
    
29. fprintf(P "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
    
30. fprintf(P "TILE\n\n")
    
31. 
    
32. ;file
    
33. fprintf(P "## Text Field in Form## \n")
    
34. fprintf(P "TEXT \"\316\304 \274\376 :\"\n")
    
35. fprintf(P "TLOC 1 1\n")
    
36. fprintf(P "TGROUP \"SkillDebuger\"\n")
    
37. fprintf(P "ENDTEXT\n\n")
    
38. 
    
39. fprintf(P "## Input Field in Form## \n")
    
40. fprintf(P "FIELD FileTexB\n")
    
41. fprintf(P "FLOC 7 1\n")
    
42. ;fprintf(P "FSIZE 15 2\n")
    
43. fprintf(P "STRFILLIN 20 255\n")
    
44. fprintf(P "FGROUP \"SkillDebuger\"\n")
    
45. fprintf(P "VALUE \"\"\n")
    
46. fprintf(P "ENDFIELD \n\n\n")
    
47. 
    
48. fprintf(P "## Button Field in FORM ## \n")
    
49. fprintf(P "FIELD selFile\n")
    
50. fprintf(P "FLOC 30 1\n")
    
51. fprintf(P "MENUBUTTON \"\321\241\324\361\" 9 3\n")
    
52. fprintf(P "FGROUP \"SkillDebuger\"\n")
    
53. fprintf(P "ENDFIELD \n\n")
    
54. 
    
55. ;enc
    
56. fprintf(P "## Text Field in Form## \n")
    
57. fprintf(P "TEXT \"\303\334 \302\353 :\n")
    
58. fprintf(P "TLOC 1 4\n")
    
59. fprintf(P "TGROUP \"SkillDebuger\"\n")
    
60. fprintf(P "ENDTEXT\n\n")
    
61. 
    
62. fprintf(P "## Input Field in Form## \n")
    
63. fprintf(P "FIELD EncryptTexB\n")
    
64. fprintf(P "FLOC 7 4\n")
    
65. fprintf(P "FSIZE 15 2\n")
    
66. fprintf(P "STRFILLIN 20 255\n")
    
67. fprintf(P "FGROUP \"SkillDebuger\"\n")
    
68. fprintf(P "VALUE \"_By4311\"\n")
    
69. fprintf(P "ENDFIELD \n\n\n")
    
70. 
    
71. fprintf(P "## Button Field in FORM ## \n")
    
72. fprintf(P "FIELD Encrypt\n")
    
73. fprintf(P "FLOC 30 4\n")
    
74. fprintf(P "MENUBUTTON \"\274\323\303\334\" 9 3\n")
    
75. fprintf(P "FGROUP \"SkillDebuger\"\n")
    
76. fprintf(P "ENDFIELD \n\n")
    
77. 
    
78. fprintf(P "## Text Field in Form## \n")
    
79. fprintf(P "TEXT \"\262\331 \327\367-->\n")
    
80. fprintf(P "TLOC 1 7\n")
    
81. fprintf(P "TGROUP \"SkillDebuger\"\n")
    
82. fprintf(P "ENDTEXT\n\n")
    
83. 
    
84. fprintf(P "## Button Field in FORM ## \n")
    
85. fprintf(P "FIELD Load\n")
    
86. fprintf(P "FLOC 7 7\n")
    
87. fprintf(P "MENUBUTTON \"\274\323\324\330\" 9 3\n")
    
88. fprintf(P "FGROUP \"SkillDebuger\"\n")
    
89. fprintf(P "ENDFIELD \n\n")
    
90. 
    
91. fprintf(P "## Button Field in FORM ## \n")
    
92. fprintf(P "FIELD Run\n")
    
93. fprintf(P "FLOC 19 7\n")
    
94. fprintf(P "MENUBUTTON \"\324\313\320\320\" 9 3\n")
    
95. fprintf(P "FGROUP \"SkillDebuger\"\n")
    
96. fprintf(P "ENDFIELD \n\n")
    
97. 
    
98. fprintf(P "## Button Field in FORM ## \n")
    
99. fprintf(P "FIELD Close\n")
    
100. fprintf(P "FLOC 30 7\n")
     
101. fprintf(P "MENUBUTTON \"\315\313\263\366\" 9 3\n")
     
102. fprintf(P "FGROUP \"SkillDebuger\"\n")
     
103. fprintf(P "ENDFIELD \n\n")
     
104. 
     
105. fprintf(P "ENDTILE\n\n")
     
106. fprintf(P "ENDFORM\n\n")
     
107. 
     
108. close(P)
     
109. )

复制代码